1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
|
#!/bin/sh
#########################################################################
# Copyright (C) 2010 Tavian Barnes <tavianator@gmail.com> #
# #
# This file is part of The Dimension Test Suite. #
# #
# The Dimension Test Suite is free software; you can redistribute it #
# and/or modify it under the terms of the GNU General Public License as #
# published by the Free Software Foundation; either version 3 of the #
# License, or (at your option) any later version. #
# #
# The Dimension Test Suite is distributed in the hope that it will be #
# useful, but WITHOUT ANY WARRANTY; without even the implied warranty #
# of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU #
# General Public License for more details. #
# #
# You should have received a copy of the GNU General Public License #
# along with this program. If not, see <http://www.gnu.org/licenses/>. #
#########################################################################
directives=$(${top_builddir}/dimension/dimension --tokenize --parse ${srcdir}/directives.pov)
directives_exp="$(echo -n \
'(#version (float "3.6") ;
#debug (string "debug")
#warning (string "warning")
#include (string "directives.inc")
#declare (identifier "R") = (integer "1") ;
#local (identifier "Color") = rgb < (integer "1") , (integer "0") , (integer "1") > ;
#declare (identifier "Unused") = - (integer "1") ;
#undef (identifier "Unused")
#ifdef \( (identifier "Local") \)
#error (string "Local escaped from include file")
#end
#ifdef \( (identifier "Unused") \)
#error (string "#undef failed")
#end
#macro (identifier "Make_Sphere") \( (identifier "n") \)
sphere {
(identifier "Center") + < (integer "0") , (identifier "n") , (integer "0") > , (identifier "R")
pigment {
color (identifier "Color") green (integer "1")
}
}
#end
#macro (identifier "Inc") \( (identifier "n") \)
#declare (identifier "n") = (identifier "n") + (integer "1") ;
#end
#declare (identifier "Counter") = (integer "0") ;
#while \( (identifier "Counter") < (integer "2") \)
#if \( #if \( (integer "1") = (integer "1") \) (integer "0") #end = (integer "0") & ! (integer "1") \)
#error (string "Nested #if parsing failed")
#else
(identifier "Make_Sphere") \( (identifier "Counter") \)
#end
(identifier "Inc") \( (identifier "Counter") \)
#end
#declare (identifier "Box") =
box {
< - (integer "1") , - (integer "1") , - (integer "1") > ,
< (integer "1") , (integer "1") , (integer "1") >
pigment {
color rgb < (integer "1") , (integer "1") , (integer "1") >
}
}
object {
(identifier "Box")
finish {
phong (float "0.2")
}
})' \
| tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')
$(echo -n \
'((sphere
(vector (integer 0) (integer 0) (integer 0) (integer 0) (integer 0))
(integer 1)
(object-modifiers
(pigment
(vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0))
pigment-modifiers)))
(sphere
(vector (integer 0) (integer 1) (integer 0) (integer 0) (integer 0))
(integer 1)
(object-modifiers
(pigment
(vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0))
pigment-modifiers)))
(box
(vector (integer -1) (integer -1) (integer -1) (integer 0) (integer 0))
(vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0))
(object-modifiers
(pigment
(vector (integer 1) (integer 1) (integer 1) (integer 0) (integer 0))
pigment-modifiers)
(finish
(phong (float 0.2))))))' \
| tr '\n' ' ' | sed -r 's/[[:space:]]+/ /g')"
if [ "$directives" != "$directives_exp" ]; then
echo "directives.pov parsed as \"$directives\"" >&2
echo " -- expected \"$directives_exp\"" >&2
exit 1
fi
|
