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
|
#@local r,x,funcstr,func
gap> START_TEST("function.tst");
# Test functions with very large lists
gap> r := List([1..(16777216/GAPInfo.BytesPerVariable)-1]);;
gap> funcstr := String(r);;
gap> funcstr := Concatenation("return ", funcstr, ";");;
gap> func := ReadAsFunction(InputTextString(funcstr));;
gap> func() = r;
true
gap> funcstr := String(List([1..(16777216/GAPInfo.BytesPerVariable)], x -> x));;
gap> funcstr := Concatenation("return ", funcstr, ";");;
gap> ReadAsFunction(InputTextString(funcstr));;
Error, function too large for parser
# Test functions with very large records
gap> r := rec();; for x in [1..(16777216/GAPInfo.BytesPerVariable-2)/2] do r.(x) := x; od;;
gap> funcstr := String(r);;
gap> funcstr := Concatenation("return ", funcstr, ";");;
gap> func := ReadAsFunction(InputTextString(funcstr));;
gap> func() = r;
true
gap> r := rec();; for x in [1..(16777216/GAPInfo.BytesPerVariable)/2] do r.(x) := x; od;;
gap> funcstr := String(r);;
gap> funcstr := Concatenation("return ", funcstr, ";");;
gap> ReadAsFunction(InputTextString(funcstr));;
Error, function too large for parser
#
gap> STOP_TEST("function.tst");
|
