test_02.mal

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

# Monet Mil to Mal compiler
# Copyright (c) 2001-2004, CWI. All rights reserved.

#Predefined code segment
#The compiler can not guarantee an accurate compilation,
#because MIL unlike MAL is a dynamically typed language.
#A few guidelines to maximize usefullness.
#- make the type of variables explicit, in particular 'nil'
#- upon advice of M2m to remap identifiers, change it in your program directly
#include "mil_prelude";
#	io.print("setoid(oid(20000000));");
	aa_a := oid(20000000);
	ba_a := setoid(aa_a);
#	io.print("#check out arithmatic against using Multi-cast operator\n");
#	io.print("");
#	io.print("var t:= new(int, int);");
	t := new(nil:int,nil:int);
#	io.print("t.insert(1,2);");
	ca_a := insert(t,1,2);
#	io.print("t.insert(3,6);");
	da_a := insert(t,3,6);
#	io.print("t.insert(13,14);");
	ea_a := insert(t,13,14);
#	io.print("t.insert(17,16);");
	fa_a := insert(t,17,16);
#	io.print("t.insert(19,18);");
	ga_a := insert(t,19,18);
#	io.print("t.insert(5,8);");
	ha_a := insert(t,5,8);
#	io.print("t.insert(7,10);");
	ia_a := insert(t,7,10);
#	io.print("t.insert(2,4);");
	ja_a := insert(t,2,4);
#	io.print("t.insert(11,12);");
	ka_a := insert(t,11,12);
#	io.print("#A quick mechanism to create an initialized BAT\n");
#	io.print("var z:= new(int,str);");
	z := new(nil:int,nil:str);
#	io.print("z.[insert](t,\"hello\");");
	la_a := multiplex.tactics("insert",z,t,"hello");
#	io.print("z.print();");
	ma_a := print(z);
#	io.print("quit();");
	na_a := quit();