tst4601.mal

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

# the first test for macro expansions and inversions
function welcome(lim:int):int;
    i:= 0;
barrier j:= i<lim;
    io.print("Welcome");
    i:= i+1;
    redo j:= i<lim;
exit j;
    return i;
end welcome;

optimizer.macro("user","welcome");

io.print("test expansion");
a:=user.welcome(2);
io.print(a);
mdb.list();