Fix missing @clicksequence problem with older Texinfo versions.
[pspp-builds.git] / language / control / loop.at
1 AT_BANNER([LOOP])
2
3 m4_define([LOOP_DATA], [dnl
4 data list notable /x 1 y 2 z 3.
5 begin data.
6 121
7 252
8 393
9 404
10 end data.
11 ])
12
13 AT_SETUP([LOOP with index])
14 AT_DATA([loop.sps], [dnl
15 LOOP_DATA
16 loop #i=x to y by z.
17 print /#i.
18 end loop.
19 print/'--------'.
20 execute.
21 ])
22 AT_CHECK([pspp -o pspp.csv loop.sps])
23 AT_CHECK([cat pspp.csv], [0], [dnl
24 1.00 @&t@
25
26 2.00 @&t@
27
28 --------
29
30 2.00 @&t@
31
32 4.00 @&t@
33
34 --------
35
36 3.00 @&t@
37
38 6.00 @&t@
39
40 9.00 @&t@
41
42 --------
43
44 --------
45 ])
46 AT_CLEANUP
47
48 AT_SETUP([LOOP with IF condition])
49 AT_DATA([loop.sps], [dnl
50 LOOP_DATA
51 compute #j=x.
52 loop if #j <= y.
53 print /#j.
54 compute #j = #j + z.
55 end loop.
56 print/'--------'.
57 execute.
58 ])
59 AT_CHECK([pspp -o pspp.csv loop.sps])
60 AT_CHECK([cat pspp.csv], [0], [dnl
61 1.00 @&t@
62
63 2.00 @&t@
64
65 --------
66
67 2.00 @&t@
68
69 4.00 @&t@
70
71 --------
72
73 3.00 @&t@
74
75 6.00 @&t@
76
77 9.00 @&t@
78
79 --------
80
81 --------
82 ])
83 AT_CLEANUP
84
85 AT_SETUP([LOOP with END IF condition])
86 AT_DATA([loop.sps], [dnl
87 LOOP_DATA
88 compute #k=x.
89 loop.
90 print /#k.
91 compute #k = #k + z.
92 end loop if #k > y.
93 print/'--------'.
94 execute.
95 ])
96 AT_CHECK([pspp -o pspp.csv loop.sps])
97 AT_CHECK([cat pspp.csv], [0], [dnl
98 1.00 @&t@
99
100 2.00 @&t@
101
102 --------
103
104 2.00 @&t@
105
106 4.00 @&t@
107
108 --------
109
110 3.00 @&t@
111
112 6.00 @&t@
113
114 9.00 @&t@
115
116 --------
117
118 4.00 @&t@
119
120 --------
121 ])
122 AT_CLEANUP
123
124 AT_SETUP([LOOP with index and IF based on index])
125 AT_DATA([loop.sps], [dnl
126 LOOP_DATA
127 loop #m=x to y by z if #m < 4.
128 print /#m.
129 end loop.
130 print/'--------'.
131 execute.
132 ])
133 AT_CHECK([pspp -o pspp.csv loop.sps])
134 AT_CHECK([cat pspp.csv], [0], [dnl
135 1.00 @&t@
136
137 2.00 @&t@
138
139 --------
140
141 2.00 @&t@
142
143 --------
144
145 3.00 @&t@
146
147 --------
148
149 --------
150 ])
151 AT_CLEANUP
152
153 AT_SETUP([LOOP with index and END IF based on index])
154 AT_DATA([loop.sps], [dnl
155 LOOP_DATA
156 loop #n=x to y by z.
157 print /#n.
158 end loop if #n >= 4.
159 print/'--------'.
160 execute.
161 ])
162 AT_CHECK([pspp -o pspp.csv loop.sps])
163 AT_CHECK([cat pspp.csv], [0], [dnl
164 1.00 @&t@
165
166 2.00 @&t@
167
168 --------
169
170 2.00 @&t@
171
172 4.00 @&t@
173
174 --------
175
176 3.00 @&t@
177
178 6.00 @&t@
179
180 --------
181
182 --------
183 ])
184 AT_CLEANUP
185
186 AT_SETUP([LOOP with index and IF and END IF based on index])
187 AT_DATA([loop.sps], [dnl
188 LOOP_DATA
189 loop #o=x to y by z if mod(#o,2) = 0.
190 print /#o.
191 end loop if #o >= 4.
192 print/'--------'.
193 execute.
194 ])
195 AT_CHECK([pspp -o pspp.csv loop.sps])
196 AT_CHECK([cat pspp.csv], [0], [dnl
197 --------
198
199 2.00 @&t@
200
201 4.00 @&t@
202
203 --------
204
205 --------
206
207 --------
208 ])
209 AT_CLEANUP
210
211 AT_SETUP([LOOP with no conditions])
212 AT_DATA([loop.sps], [dnl
213 LOOP_DATA
214 set mxloops = 2.
215 compute #p = x.
216 loop.
217 print /#p.
218 compute #p = #p + z.
219 do if #p >= y.
220 break.
221 end if.
222 end loop.
223 print/'--------'.
224 execute.
225 ])
226 AT_CHECK([pspp -o pspp.csv loop.sps])
227 AT_CHECK([cat pspp.csv], [0], [dnl
228 1.00 @&t@
229
230 --------
231
232 2.00 @&t@
233
234 4.00 @&t@
235
236 --------
237
238 3.00 @&t@
239
240 6.00 @&t@
241
242 --------
243
244 4.00 @&t@
245
246 --------
247 ])
248 AT_CLEANUP