tst041.mal

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

# this sequence tests nil type management 
b:=nil;	io.print(b);

a:=23;	io.print(a);
a:= calc.int(nil);	io.print(a);
a:= calc.int(nil:int);	io.print(a);
a:= calc.int(13);	io.print(a);
a:= calc.int("23");	io.print(a);
a:= calc.int(43.0:flt);	io.print(a);
a:= calc.int(63.0:dbl);	io.print(a);
a:= nil:int; io.print(a);

c:= true;	io.print(c);
c:= calc.bit(nil);	io.print(c);
c:= calc.bit(nil:bit);	io.print(c);
c:= calc.bit(false);	io.print(c);
c:= calc.bit(1);	io.print(c);
c:= calc.bit("true");	io.print(c);
c:= calc.bit(1.0:flt);	io.print(c);
c:= calc.bit(0.0:dbl);	io.print(c);
c:= nil:bit; io.print(c);

d:= 3.14:flt;	io.print(d);
d:= calc.flt(nil);	io.print(d);
d:= calc.flt(nil:flt);	io.print(c);
d:= calc.flt(5);	io.print(d);
d:= calc.flt("7.14");	io.print(d);
d:= nil:flt; io.print(d);

e:= "hello";	io.print(e);
e:= calc.str(nil);	io.print(e);
e:= calc.str("nil");	io.print(e);
e:= nil:str; io.print(e);
io.print(nil:str);

f:= 'Z';	io.print(f);
f:= calc.chr(nil);	io.print(f);
f:= calc.chr("X");	io.print(f);