tst607.mal

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

# using spaces

u:str:=const.take("user");
io.printf("#User bound to %s\n",u);
roomnumber:= 321;
const.deposit("roomnumber",roomnumber);

v:int:= const.take("roomnumber");
io.print(v);
v:= 123;
v:= v+1;
const.release("roomnumber");
io.print("attempt twice to release");
const.release("roomnumber"); # failure? done twice or implicit take?