calc-2.14.0.14/cal/set8700.line

142 protect(set8700_A) == 0
144 isnull(protect(set8700_A,65))
145 protect(set8700_A) == 65
146 isnull(protect(set8700_A, -1))
147 protect(set8700_A) == 64
148 protect(set8700_A,-2), protect(set8700_A) == 64
149 protect(set8700_A,5), protect(set8700_A) == 69
150 protect(set8700_A,-4), protect(set8700_A) == 65
151 protect(set8700_A,0), protect(set8700_A) == 0
152 protect(set8700_A,1234), protect(set8700_A) == 1234
153 protect(set8700_A,-1234), protect(set8700_A) == 0
154 protect(set8700_A,65535), protect(set8700_A) == 65535
155 protect(set8700_A,-65535), protect(set8700_A) == 0
158 set8700_A = 42, protect(set8700_A,1024), set8700_B = set8700_A, protect(set8700_B) == 1024
159 set8700_A = 6 * 7, protect(set8700_A) == 1024
164 protect(set8700_A, 65, 1), protect(set8700_A) == 1089
165 protect(set8700_A[0]) == 65
166 protect(set8700_A[2]) == 65
167 protect(set8700_A[2][1]) == 0
168 protect(set8700_A, 65, 2), protect(set8700_A[2][1]) == 65
169 protect(set8700_A,-1024), protect(set8700_A) == 65
170 protect(set8700_A, -1, 1), protect(set8700_A) == 64
171 protect(set8700_A[1]) == 64
172 protect(set8700_A[2]) == 64
173 protect(set8700_A[2][0]) == 65
174 protect(set8700_A,0), protect(set8700_A) == 0
175 protect(set8700_A[1]) == 64
176 protect(set8700_A, 0, 2), protect(set8700_A) == 0
177 protect(set8700_A[1]) == 0
178 protect(set8700_A[2][1]) == 0
179 protect(set8700_A,1024, 2), protect(set8700_A) == 1024
180 protect(set8700_A[2]) == 1024
181 protect(set8700_A[2][0], 512), protect(set8700_A[2][0]) == 1536
184 set8700_B = set8700_A, protect(set8700_B) == 1024	## protect(set8700_A) copied
185 protect(set8700_B[2]) == 1024		## protect(set8700_A[2]) copied
186 protect(set8700_B[2][0]) == 1536	## protect(set8700_A[2][0]) copied
189 set8700_B = list(5,6,7), protect(set8700_B) == 1024
190 protect(set8700_B[0]) == 0
191 protect(set8700_B[2]) == 0
192 protect(set8700_A,0), protect(set8700_A) == 0
195 protect(set8700_B) == 1024		## protect(set8700_A) not copied
196 protect(set8700_B[0]) == 1024		## protect(set8700_A[0]) copied
197 protect(set8700_B[2][0]) == 1536	## protect(set8700_A[2][0]) copied
200 set8700_B = mat[3], protect(set8700_B) == 1024
201 protect(set8700_B[2]) == 0
204 protect(set8700_B) == 1024		## protect(set8700_A) not copied
205 protect(set8700_B[0]) == 1024		## protect(set8700_A[0]) copied
206 protect(set8700_B[2][0]) == 1536	## protect(set8700_A[2][0]) copied
210 protect(set8700_A,1024, 2), protect(set8700_A) == 1024
211 protect(set8700_A[2]) == 1024
212 protect(set8700_A[2][0], 512), protect(set8700_A[2][0]) == 1536
215 set8700_B = set8700_A, protect(set8700_B) == 1024	## protect(set8700_A) copied
216 protect(set8700_B[2]) == 1024		## protect(set8700_A[2]) copied
217 protect(set8700_B[2][0]) == 1536	## protect(set8700_A[2][0]) copied
220 set8700_B = list(5,6,7), protect(set8700_B) == 1024
221 protect(set8700_B[2]) == 0
224 protect(set8700_B) == 1024		## protect(set8700_A) not copied
225 protect(set8700_B[0]) == 1024		## protect(set8700_A[0]) copied
226 protect(set8700_B[2][0]) == 1536	## protect(set8700_A[2][0]) copied
229 set8700_B = mat[3], protect(set8700_B) == 1024
230 protect(set8700_B[2]) == 0
233 protect(set8700_B) == 1024
234 protect(set8700_B[0]) == 1024		## protect(set8700_A[0]) copied
235 protect(set8700_B[2][0]) == 1536	## protect(set8700_A[2][0]) copied
238 set8700_A = list(1,4,3,2), protect(set8700_A[1]) == 0
239 protect(set8700_A[1], 1024), protect(set8700_A[1]) == 1024
243 protect(set8700_A[1]) == 0
244 protect(set8700_A[3]) == 1024		## status of 4
248 protect(set8700_A[0]) == 1024		## status of 4
252 protect(set8700_A[0]) == 0		## status moved
253 protect(set8700_A[1]) == 1024		## 4 retains protection
256 protect(set8700_A, 0), protect(set8700_A) == 0
257 protect(set8700_A, 512), protect(set8700_A) == 512
258 protect(set8700_A[1]) == 1024
259 set8700_L = list(1,set8700_A,3), protect(set8700_L) == 0
260 protect(set8700_L[0]) == 0
261 protect(set8700_L[1]) == 512		## protect(set8700_A) copied
262 protect(set8700_L[1][1]) == 1024	## protect(set8700_A[1]) copied
265 set8700_L = list(1,2,3), protect(set8700_L) == 0
266 protect(set8700_L[0]) | protect(set8700_L[1]) | protect(set8700_L[2]) == 0	## All zero
268 protect(set8700_L[1]) == 512		## protect(set8700_A) copied
269 protect(set8700_L[1][1]) == 1024	## protect(set8700_A[1]) copied
270 set8700_L[1] = 2, protect(set8700_L[1]) == 512	## Not changed
273 set8700_M = mat[3] = {1,set8700_A}, protect(set8700_M) == 0
274 protect(set8700_M[0]) == 0
275 protect(set8700_M[1]) == 512		## protect(set8700_A) copied
276 protect(set8700_M[2]) == 0
277 protect(set8700_M[1][1]) == 1024	## protect(set8700_A[1]) copied
280 set8700_A = list(1,2), protect(set8700_A,0,1), protect(set8700_A[0]) == 0
281 protect(set8700_A[0], 256), protect(set8700_A[0]) == 256
282 protect(set8700_A[1]) == 0
283 append(set8700_A, pop(set8700_A)), protect(set8700_A[0]) ==  0
284 protect(set8700_A[1]) == 256
285 push(set8700_A, remove(set8700_A)), protect(set8700_A[0]) == 256
286 protect(set8700_A[1]) == 0
289 set8700_A = 5, protect(set8700_A,1024), protect(set8700_A) == 1024
290 protect(set8700_A, 1024), set8700_A = 7, protect(set8700_A) == 1024
291 protect(set8700_A,1024), set8700_A += 2, protect(set8700_A) == 1024
292 protect(set8700_A,1024), set8700_A *= 2, protect(set8700_A) == 1024
293 protect(set8700_A,1024), set8700_A |= 2, protect(set8700_A) == 1024
294 protect(set8700_A,1024), set8700_A &= 2, protect(set8700_A) == 1024
295 protect(set8700_A,1024), set8700_A ^= 2, protect(set8700_A) == 1024
297 protect(set8700_B,0), set8700_B = set8700_getA1(), protect(set8700_B) == 1024
298 protect(set8700_B,0), set8700_B = set8700_getA2(), protect(set8700_B) == 1024
299 set8700_B = set8700_getvar(), protect(set8700_B) == 1024 + 256
301 set8700_x = 7,  protect(set8700_x) == 0
302 protect(7,2) == error(10234)
303 protect(set8700_x,2.5) == error(10235)
304 protect(set8700_x,"abc") == error(10235)
305 protect(set8700_x, 1e6) == error(10235)
306 protect(set8700_x,1), (set8700_x = 2) == error(10366)
309 protect(set8700_x,2), protect(set8700_x) == 3
310 protect(set8700_x,-1), protect(set8700_x) == 2
313 protect(set8700_x,2), ++set8700_x == error(10379)
321 protect(set8700_A,0), protect(set8700_A,16), 1
322 set8700_A = "abcdef", protect(set8700_A) == 16		## No copy to set8700_A
323 protect(set8700_B,0), set8700_B = "xyz", protect(set8700_B) == 0
326 protect(set8700_A,0), copy(set8700_B,set8700_A), set8700_A == "xyzdef"
327 protect(set8700_B,128), protect(set8700_B) == 128	## No copy from set8700_B
330 protect(set8700_B,0), copy(set8700_B,set8700_A,,,3), set8700_A == "xyzxyz"
332 set8700_A = "abcdef", protect(set8700_A, 16), swap(set8700_A[0], set8700_A[5]) == error(10371)
334 protect(set8700_A,0), isnull(swap(set8700_A[0], set8700_A[5]))
336 protect(set8700_A,2), ++set8700_A[0] == error(10377)
341 protect(set8700_A,0), ++set8700_A[0] == 'g'
347 protect(set8700_x,0), protect(set8700_y,0), protect(set8700_x,256), protect(set8700_y,512),1
349 protect(set8700_x) == 256
350 protect(set8700_y) == 512
352 set8700_A = mat[3]; protect(set8700_A[0], 1024); protect(set8700_A[0]) == 1024
353 set8700_x = 7, protect(set8700_x,0), protect(set8700_x, 512), 1
354 set8700_A = {set8700_x,,set8700_x}, protect(set8700_A[0]) == 1536
355 protect(set8700_A[1]) == 0
356 protect(set8700_A[2]) == 512
357 protect(set8700_A,16), protect(set8700_A) == 16		## No copy to
362 protect(set8700_A,0), set8700_A = {1,2,3}, set8700_A == (mat[3] = {1,2,3})
363 protect(set8700_A[1],1), protect(set8700_A[1]) == 1
368 protect(set8700_A,2), modify(set8700_A, "set8700_f") == error(10407)
369 protect(set8700_A,0), modify(set8700_A, "h") == error(10408)
370 set8700_B = 42, protect(set8700_B,0), modify(set8700_B, "set8700_f") == error(10409)
372 protect(set8700_A,0,1), modify(set8700_A, "set8700_f") == null()
375 protect(set8700_A[0]) == 0
376 protect(set8700_A[1]) == 256 && protect(set8700_A[2]) == 256
378 set8700_A = 0, protect(set8700_A,0), set8700_A = pop(2), set8700_A == error(10181)
381 set8700_A = 32, protect(set8700_A,8), (set8700_A = pop(2)) == error(10370)
385 set8700_M1 = mat[3], protect(set8700_M1,0), protect(set8700_M1[1],1), protect(set8700_M1[1]) == 1
386 set8700_M2 = mat[3], protect(set8700_M2,0), protect(set8700_M2[2],4), protect(set8700_M2[2]) == 4
387 set8700_L = list(set8700_M1, set8700_M2), protect(set8700_L[0][1]) == 1 && protect(set8700_L[1][2])…
390 set8700_M = mat[2], protect(set8700_M,0), set8700_M = {1,2,3,4}, set8700_M == (mat[2] = {1,2})
396 protect(set8700_P,16), set8700_Q = set8700_P, set8700_Q = {5,6,7}, set8700_Q == set8700_P
398 set8700_L = list(mat[1] = {set8700_P}), protect(set8700_L[0][0]) == 16
400 protect(set8700_L,0,2), set8700_L = {{{4,5,6}}}, set8700_L[0][0] == (obj set8700_point = {4,5,6})
412 protect(set8700_a,1); quomod(17,2,set8700_a,set8700_b) == error(10376)
413 protect(set8700_a,0); quomod(17,2,set8700_a,set8700_b); set8700_a == 8 && set8700_b == 1