test_20.mils

来自「一个内存数据库的源代码这是服务器端还有客户端」· MILS 代码 · 共 35 行

setoid(oid(20000000));
# definition and use of Monet procs.
# Note that complex procs should normally be prepared in block mode.

unknown("hello");

#simple procedure with withdrawal
proc c() : void { clock().print();}
c();
undef c;
c();

# redefinition of existing procedure
proc c(): void { clock.print();}
c();
proc c() : void { cpu().print();}
printf("#~BeginVariableOutput~#\n"); c(); printf("#~EndVariableOutput~#\n");

proc echo(..any..) : void { $1.print();}
echo(1);
echo("hello");
echo(12,13);
echo();
proc echo(..any..) : void { $3.print();}
echo(1);
echo(1,2,3);

# handling non-complete proc definition;
proc forward() : void { }
forward();
undef forward;
forward();

quit();