casts.mal

一个内存数据库的源代码这是服务器端还有客户端

io.print("2147483648":flt);
io.print("2147483649":flt);
io.print("-2147483647":flt);
io.print("-2147483648":flt);
io.print("-2147483649":flt);
io.print("0.0":flt);
io.print("0.1":flt);
io.print("1.0":flt);
io.print("1e0":flt);
io.print("1e1":flt);
io.print("1e10":flt);
io.print("1e+10":flt);
io.print("1e-10":flt);
io.print("1.e0":flt);
io.print("1.e1":flt);
io.print("1.e10":flt);
io.print("1.e+10":flt);
io.print("1.e-10":flt);
io.print("1.0e0":flt);
io.print("1.0e1":flt);
io.print("1.0e10":flt);
io.print("1.0e+10":flt);
io.print("1.0e-10":flt);
io.print("-0.0":flt);
io.print("-0.1":flt);
io.print("-1.0":flt);
io.print("-1e0":flt);
io.print("-1e1":flt);
io.print("-1e10":flt);
io.print("-1e+10":flt);
io.print("-1e-10":flt);
io.print("-1.e0":flt);
io.print("-1.e1":flt);
io.print("-1.e10":flt);
io.print("-1.e+10":flt);
io.print("-1.e-10":flt);
io.print("-1.0e0":flt);
io.print("-1.0e1":flt);
io.print("-1.0e10":flt);
io.print("-1.0e+10":flt);
io.print("-1.0e-10":flt);
io.print("1E0":flt);
io.print("1E1":flt);
io.print("1E10":flt);
io.print("1E+10":flt);
io.print("1E-10":flt);
io.print("1.E0":flt);
io.print("1.E1":flt);
io.print("1.E10":flt);
io.print("1.E+10":flt);
io.print("1.E-10":flt);
io.print("1.0E0":flt);
io.print("1.0E1":flt);
io.print("1.0E10":flt);
io.print("1.0E+10":flt);
io.print("1.0E-10":flt);
io.print("-1E0":flt);
io.print("-1E1":flt);
io.print("-1E10":flt);
io.print("-1E+10":flt);
io.print("-1E-10":flt);
io.print("-1.E0":flt);
io.print("-1.E1":flt);
io.print("-1.E10":flt);
io.print("-1.E+10":flt);
io.print("-1.E-10":flt);
io.print("-1.0E0":flt);
io.print("-1.0E1":flt);
io.print("-1.0E10":flt);
io.print("-1.0E+10":flt);
io.print("-1.0E-10":flt);
io.printf("# flt range is -3.402823466E+38F to 3.402823466E+38F which is\n");
io.printf("# -3.4028234663852886e+38 to 3.4028234663852886e+38 in double\n");
io.printf("# precission\n");
io.print("340282347000000000000000000000000000000":flt);
io.print("340282346600000000000000000000000000000":flt);
io.print("340282346700000000000000000000000000000":flt);
io.print("-340282346600000000000000000000000000000":flt);
io.print("-340282346700000000000000000000000000000":flt);
io.print("3.402823466E+38":flt);
io.print("3.402823467E+38":flt);
io.print("0.3402823466E+39":flt);
io.print("34.02823466E+37":flt);
io.print("-3.402823466E+38":flt);
io.print("-3.402823467E+38":flt);
io.print("-0.3402823466E+39":flt);
io.print("-34.02823466E+37":flt);
io.print("":flt);
io.print("random string":flt);

io.printf("# to dbl\n");

io.printf("# from bit\n");
io.print(true:dbl);
io.print(false:dbl);

io.printf("# from chr\n");
io.print('a':dbl);

io.printf("# from sht\n");
a:= 1:sht;
d1:= calc.dbl(a);
io.print(d1);
a:= 32767:sht;
d1:= calc.dbl(a);
io.print(d1);

io.printf("# from int\n");
io.print(1:dbl);
io.print(32767:dbl);
io.print(32768:dbl);
io.print(2147483647:dbl);
io.print(-2147483647:dbl);
zd:= 2147483647 + 1;
ze:= calc.dbl(zd);
io.print(zd);
zj:= -2147483647 - 1;
d:= calc.dbl(zj);
io.print(d);
io.printf("# should this produce nil (overflow)?\n");
zn:= 2147483647 + 2;
d:= calc.dbl(zn);
io.print(d);
io.printf("# should this produce nil (overflow)?\n");
zk:= -2147483647 - 2l;
d:= calc.dbl(zk);
io.print(d);

io.printf("# from lng\n");
io.print(1LL:dbl);
io.print(2147483647LL:dbl);
io.print(2147483648LL:dbl);
io.print(2147483649LL:dbl);
io.print(-2147483647LL:dbl);
io.print(-2147483648LL:dbl);
io.print(-2147483649LL:dbl);
io.print(9223372036854775807LL:dbl);
io.print(9223372036854775808LL:dbl);
io.print(9223372036854775809LL:dbl);
io.print(-9223372036854775807LL:dbl);
io.print(-9223372036854775808LL:dbl);
io.print(-9223372036854775809LL:dbl);

io.printf("# from flt\n");
io.print(0.0:dbl);
io.print(0.1:dbl);
io.print(0.5:dbl);
io.print(0.9:dbl);
io.print(1.0:dbl);
io.print(-0.1:dbl);
io.print(-0.5:dbl);
io.print(-0.9:dbl);
io.print(-1.0:dbl);
io.print(2147483647.0:dbl);
io.print(2147483648.0:dbl);
io.print(2147483649.0:dbl);
io.print(-2147483647.0:dbl);
io.print(-2147483648.0:dbl);
io.print(-2147483649.0:dbl);

io.printf("# from oid\n");
io.print(2@0:dbl);
io.print(2@1:dbl);
io.print(2147483647@0:dbl);
io.print(2147483648@0:dbl);
io.print(2147483649@0:dbl);

io.printf("# from str\n");
io.print("0":dbl);
io.print("32767":dbl);
io.print("2147483647":dbl);
io.print("2147483648":dbl);
io.print("2147483649":dbl);
io.print("-2147483647":dbl);
io.print("-2147483648":dbl);
io.print("-2147483649":dbl);
io.print("0.0":dbl);
io.print("0.1":dbl);
io.print("1.0":dbl);
io.print("1e0":dbl);
io.print("1e1":dbl);
io.print("1e10":dbl);
io.print("1e+10":dbl);
io.print("1e-10":dbl);
io.print("1.e0":dbl);
io.print("1.e1":dbl);
io.print("1.e10":dbl);
io.print("1.e+10":dbl);
io.print("1.e-10":dbl);
io.print("1.0e0":dbl);
io.print("1.0e1":dbl);
io.print("1.0e10":dbl);
io.print("1.0e+10":dbl);
io.print("1.0e-10":dbl);
io.print("-0.0":dbl);
io.print("-0.1":dbl);
io.print("-1.0":dbl);
io.print("-1e0":dbl);
io.print("-1e1":dbl);
io.print("-1e10":dbl);
io.print("-1e+10":dbl);
io.print("-1e-10":dbl);
io.print("-1.e0":dbl);
io.print("-1.e1":dbl);
io.print("-1.e10":dbl);
io.print("-1.e+10":dbl);
io.print("-1.e-10":dbl);
io.print("-1.0e0":dbl);
io.print("-1.0e1":dbl);
io.print("-1.0e10":dbl);
io.print("-1.0e+10":dbl);
io.print("-1.0e-10":dbl);
io.print("1E0":dbl);
io.print("1E1":dbl);
io.print("1E10":dbl);
io.print("1E+10":dbl);
io.print("1E-10":dbl);
io.print("1.E0":dbl);
io.print("1.E1":dbl);
io.print("1.E10":dbl);
io.print("1.E+10":dbl);
io.print("1.E-10":dbl);
io.print("1.0E0":dbl);
io.print("1.0E1":dbl);
io.print("1.0E10":dbl);
io.print("1.0E+10":dbl);
io.print("1.0E-10":dbl);
io.print("-1E0":dbl);
io.print("-1E1":dbl);
io.print("-1E10":dbl);
io.print("-1E+10":dbl);
io.print("-1E-10":dbl);
io.print("-1.E0":dbl);
io.print("-1.E1":dbl);
io.print("-1.E10":dbl);
io.print("-1.E+10":dbl);
io.print("-1.E-10":dbl);
io.print("-1.0E0":dbl);
io.print("-1.0E1":dbl);
io.print("-1.0E10":dbl);
io.print("-1.0E+10":dbl);
io.print("-1.0E-10":dbl);
io.print("340282346600000000000000000000000000000":dbl);
io.print("340282346700000000000000000000000000000":dbl);
io.print("-340282346600000000000000000000000000000":dbl);
io.print("-340282346700000000000000000000000000000":dbl);
io.print("3.402823466E+38":dbl);
io.print("3.402823467E+38":dbl);
io.print("0.3402823466E+39":dbl);
io.print("34.02823466E+37":dbl);
io.print("-3.402823466E+38":dbl);
io.print("-3.402823467E+38":dbl);
io.print("-0.3402823466E+39":dbl);
io.print("-34.02823466E+37":dbl);
io.printf("# dbl range is -1.7976931348623157E+308 to 1.7976931348623157E+308.\n");
io.print("179769313486231570000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000":dbl);
io.print("179769313486231580000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000":dbl);
io.print("-179769313486231570000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000":dbl);
io.print("-179769313486231580000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000000":dbl);
io.print("1.7976931348623157E+308":dbl);
io.print("1.7976931348623158E+308":dbl);
io.print("0.17976931348623157E+309":dbl);
io.print("17.976931348623157E+307":dbl);
io.print("-1.7976931348623157E+308":dbl);
io.print("-1.7976931348623158E+308":dbl);
io.print("-0.17976931348623157E+309":dbl);
io.print("-17.976931348623157E+307":dbl);
io.print("":dbl);
io.print("random string":dbl);

io.printf("# to oid\n");

io.printf("# from bit\n");
io.print(true:oid);
io.print(false:oid);

io.printf("# from chr\n");
io.print('a':oid);

io.printf("# from sht\n");
o1:= 1:sht; o2:= calc.oid(o1); io.print(o2);
o1:= 32767:sht; o2:= calc.oid(o1); io.print(o2);

io.printf("# from int\n");
io.print(1:oid);
io.print(32767:oid);
io.print(32768:oid);
io.print(2147483647:oid);
o9:= -2147483647; o:= calc.oid(o9); io.print(o);
o3:= 2147483647 +1; o:= calc.oid(o3); io.print(o);
o4:= -2147483647 -1; o:= calc.oid(o4); io.print(o);
io.printf("# should this produce nil (overflow)?\n");
o5:= 2147483647 +2; o:=calc.oid(o5); io.print(o);
io.printf("# should this produce nil (overflow)?\n");
o6:= -2147483647 -2; o:=calc.oid(o6); io.print(o);

io.printf("# from lng\n");
io.print(1LL:oid);
io.print(2147483647LL:oid);
ol3:= 2147483647LL; o:= calc.oid(ol3); io.print(o);
io.print(2147483648LL:oid);
ol3:= 2147483648LL; o:= calc.oid(ol3); io.print(o);
io.print(2147483649LL:oid);
ol3:= 2147483649LL; o:= calc.oid(ol3); io.print(o);
io.print(-2147483647LL:oid);
io.print(-2147483648LL:oid);
io.print(-2147483649LL:oid);

io.printf("# from flt\n");
io.print(0.0:oid);
io.print(0.1:oid);
io.print(0.5:oid);
io.print(0.9:oid);
io.print(1.0:oid);
io.print(-0.1:oid);
io.print(-0.5:oid);
io.print(-0.9:oid);
io.print(-1.0:oid);
io.print(2147483647.0:oid);
io.print(2147483648.0:oid);
io.print(2147483649.0:oid);
io.print(-2147483647.0:oid);
io.print(-2147483648.0:oid);
io.print(-2147483649.0:oid);

io.printf("# from dbl\n");
io.print(0.0LL:oid);
io.print(0.1LL:oid);
io.print(0.5LL:oid);
io.print(0.9LL:oid);
io.print(1.0LL:oid);
io.print(-0.1LL:oid);
io.print(-0.5LL:oid);
io.print(-0.9LL:oid);
io.print(-1.0LL:oid);
io.print(2147483647.0LL:oid);
io.print(2147483648.0LL:oid);
io.print(2147483649.0LL:oid);
io.print(-2147483647.0LL:oid);
io.print(-2147483648.0LL:oid);
io.print(-2147483649.0LL:oid);

io.printf("# from oid\n");
io.print(2@0:oid);
io.print(2@1:oid);
io.print(2147483647@0:oid);
io.print(2147483648@0:oid);
io.print(2147483649@0:oid);

io.printf("# from str\n");
io.print("0":oid);
io.print("32767":oid);
io.print("2147483647":oid);
io.print("2147483648":oid);
io.print("2147483649":oid);
io.print("-2147483647":oid);
io.print("-2147483648":oid);
io.print("-2147483649":oid);
io.print("":oid);
io.print("random string":oid);


io.printf("# to str\n");

io.printf("# from bit\n");
io.print(true:str);
io.print(false:str);

io.printf("# from chr\n");
io.print('a':str);

io.printf("# from sht\n");
s4:= 1:sht; s5:= calc.str(s4); io.print(s5);
s4:= 32767:sht; s5:= calc.str(s4); io.print(s5);

io.printf("# from int\n");
io.print(1:str);
io.print(32767:str);
io.print(32768:str);
io.print(2147483647:str);
io.print(-2147483647:str);
wd:= 2147483647:int +1; sv:= calc.str(wd); io.print(sv);
wc:= -2147483647 -1; sv:= calc.str(wc); io.print(sv);
io.printf("# should this produce nil (overflow)?\n");
we:= 2147483647:int +2; sv:= calc.str(we); io.print(sv);
io.printf("# should this produce nil (overflow)?\n");
wb:= -2147483647 -2; sv:= calc.str(wb); io.print(sv);

io.printf("# from lng\n");
io.print(1LL:str);
io.print(2147483647LL:str);
io.print(2147483648LL:str);
io.print(2147483649LL:str);
io.print(-2147483647LL:str);
io.print(-2147483648LL:str);
io.print(-2147483649LL:str);

io.printf("# from flt\n");
io.print(0.0:str);
io.print(0.1:str);
io.print(0.5:str);
io.print(0.9:str);
io.print(1.0:str);
io.print(-0.1:str);
io.print(-0.5:str);
io.print(-0.9:str);
io.print(-1.0:str);
io.print(2147483647.0:str);
io.print(2147483648.0:str);
io.print(2147483649.0:str);
io.print(-2147483647.0:str);
io.print(-2147483648.0:str);
io.print(-2147483649.0:str);

io.printf("# from dbl\n");
io.print(0.0LL:str);
io.print(0.1LL:str);
io.print(0.5LL:str);
io.print(0.9LL:str);
io.print(1.0LL:str);
io.print(-0.1LL:str);
io.print(-0.5LL:str);
io.print(-0.9LL:str);
io.print(-1.0LL:str);
io.print(2147483647.0LL:str);
io.print(2147483648.0LL:str);
io.print(2147483649.0LL:str);
io.print(-2147483647.0LL:str);
io.print(-2147483648.0LL:str);
io.print(-2147483649.0LL:str);

io.printf("# from oid\n");
io.print(2@0:str);
io.print(2@1:str);
io.print(2147483647@0:str);
io.print(2147483648@0:str);
io.print(2147483649@0:str);

io.printf("# from str\n");
io.print("0":str);
io.print("32767":str);
io.print("2147483647":str);
io.print("2147483648":str);
io.print("2147483649":str);
io.print("-2147483647":str);
io.print("-2147483648":str);
io.print("-2147483649":str);
io.print("":str);
io.print("random string":str);