no.157.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
#use the "mil_schema" for additional support routines
#	io.print("# >Number:         157\n");
#	io.print("# >Category:       Mserver\n");
#	io.print("# >Synopsis:       long selects\n");
#	io.print("# >Confidential:   no\n");
#	io.print("# >Severity:       critical\n");
#	io.print("# >Priority:       high\n");
#	io.print("# >Responsible:    boncz (Peter Boncz)\n");
#	io.print("# >State:          open\n");
#	io.print("# >Class:          sw-bug\n");
#	io.print("# >Submitter-Id:   unknown\n");
#	io.print("# >Arrival-Date:   Tue Jun 23 13:42:30 1998\n");
#	io.print("# >Originator:     [e-mail]\n");
#	io.print("# >Organization:\n");
#	io.print("# CWI\n");
#	io.print("# >Release:        980101\n");
#	io.print("# >Environment:\n");
#	io.print("# \n");
#	io.print("# >Description:\n");
#	io.print("# Selection of longs results in rather strange results:\n");
#	io.print("# \n");
#	io.print("# Test script\n");
#	io.print("# 8<----\n");
#	io.print("# test := bat.new(oid,lng);\n");
#	io.print("# test.insert(oid(53991617),lng(60000401));\n");
#	io.print("# test.insert(oid(53996584),lng(60000400));\n");
#	io.print("# test.insert(oid(55526089),lng(50015637));\n");
#	io.print("# test.print;\n");
#	io.print("# test.select(lng(0)).print;\n");
#	io.print("# test.select(lng(60000401)).print;\n");
#	io.print("# test.select(lng(0),lng(1)).print;\n");
#	io.print("# test.insert(oid(1),lng(1));\n");
#	io.print("# test.select(lng(0)).print;\n");
#	io.print("# test.select(lng(60000401)).print;\n");
#	io.print("# test.select(lng(0),lng(1)).print;\n");
#	io.print("# \n");
#	io.print("# 8<-----\n");
#	io.print("# Test output\n");
#	io.print("# 8<-----\n");
#	io.print("# #You are system administrator (adm)!\n");
#	io.print("# >>>>>#---------------------------------#\n");
#	io.print("# # BAT:            tmp_23          #\n");
#	io.print("# # (oid)           (lng)           #\n");
#	io.print("# #---------------------------------#\n");
#	io.print("# [ 53991617@0,     60000401        ]\n");
#	io.print("# [ 53996584@0,     60000400        ]\n");
#	io.print("# [ 55526089@0,     50015637        ]\n");
#	io.print("# >#-------------------------#\n");
#	io.print("# # BAT:            tmp_24  #\n");
#	io.print("# # (oid)           (lng)   #\n");
#	io.print("# #-------------------------#\n");
#	io.print("# [ 53991617@0,     0       ]\n");
#	io.print("# [ 53996584@0,     0       ]\n");
#	io.print("# [ 55526089@0,     0       ]\n");
#	io.print("# >#---------------------------------#\n");
#	io.print("# # BAT:            tmp_24          #\n");
#	io.print("# # (oid)           (lng)           #\n");
#	io.print("# #---------------------------------#\n");
#	io.print("# [ 53991617@0,     60000401        ]\n");
#	io.print("# [ 53996584@0,     60000401        ]\n");
#	io.print("# [ 55526089@0,     60000401        ]\n");
#	io.print("# >#---------------------------------#\n");
#	io.print("# # BAT:            tmp_24          #\n");
#	io.print("# # (oid)           (lng)           #\n");
#	io.print("# #---------------------------------#\n");
#	io.print("# [ 53991617@0,     60000401        ]\n");
#	io.print("# [ 53996584@0,     60000400        ]\n");
#	io.print("# [ 55526089@0,     50015637        ]\n");
#	io.print("# >>#-------------------------#\n");
#	io.print("# # BAT:            tmp_24  #\n");
#	io.print("# # (oid)           (lng)   #\n");
#	io.print("# #-------------------------#\n");
#	io.print("# [ 53991617@0,     0       ]\n");
#	io.print("# [ 53996584@0,     0       ]\n");
#	io.print("# [ 55526089@0,     0       ]\n");
#	io.print("# [ 1@0,            0       ]\n");
#	io.print("# >#---------------------------------#\n");
#	io.print("# # BAT:            tmp_24          #\n");
#	io.print("# # (oid)           (lng)           #\n");
#	io.print("# #---------------------------------#\n");
#	io.print("# [ 53991617@0,     60000401        ]\n");
#	io.print("# [ 53996584@0,     60000401        ]\n");
#	io.print("# [ 55526089@0,     60000401        ]\n");
#	io.print("# [ 1@0,            60000401        ]\n");
#	io.print("# >#---------------------------------#\n");
#	io.print("# # BAT:            tmp_24          #\n");
#	io.print("# # (oid)           (lng)           #\n");
#	io.print("# #---------------------------------#\n");
#	io.print("# [ 53991617@0,     60000401        ]\n");
#	io.print("# [ 53996584@0,     60000400        ]\n");
#	io.print("# [ 55526089@0,     50015637        ]\n");
#	io.print("# [ 1@0,            1               ]\n");
#	io.print("setoid(oid(20000000));");
	aa_a := calc.oid(20000000);
	ba_a := calc.setoid(aa_a);
#	io.print("var test := bat.new(oid,lng);");
	test := bat.new(nil:oid,nil:lng);
#	io.print("test.insert(oid(53991617),lng(60000401));");
	ca_a := calc.oid(53991617);
	da_a := calc.lng(60000401);
	ea_a := bat.insert(test,ca_a,da_a);
#	io.print("test.insert(oid(53996584),lng(60000400));");
	fa_a := calc.oid(53996584);
	ga_a := calc.lng(60000400);
	ha_a := bat.insert(test,fa_a,ga_a);
#	io.print("test.insert(oid(55526089),lng(50015637));");
	ia_a := calc.oid(55526089);
	ja_a := calc.lng(50015637);
	ka_a := bat.insert(test,ia_a,ja_a);
#	io.print("test.print();");
	la_a := io.print(test);
#	io.print("test.select(lng(0)).print();");
	ma_a := calc.lng(0);
	na_a := algebra.select(test,ma_a);
	oa_a := io.print(na_a);
#	io.print("test.select(lng(60000401)).print();");
	pa_a := calc.lng(60000401);
	qa_a := algebra.select(test,pa_a);
	ra_a := io.print(qa_a);
#	io.print("test.select(lng(0),lng(1)).print();");
	sa_a := calc.lng(0);
	ta_a := calc.lng(1);
	ua_a := algebra.select(test,sa_a,ta_a);
	va_a := io.print(ua_a);
#	io.print("test.insert(oid(1),lng(1));");
	wa_a := calc.oid(1);
	xa_a := calc.lng(1);
	ya_a := bat.insert(test,wa_a,xa_a);
#	io.print("test.select(lng(0)).print();");
	ab_a := calc.lng(0);
	bb_a := algebra.select(test,ab_a);
	cb_a := io.print(bb_a);
#	io.print("test.select(lng(60000401)).print();");
	db_a := calc.lng(60000401);
	eb_a := algebra.select(test,db_a);
	fb_a := io.print(eb_a);
#	io.print("test.select(lng(0),lng(1)).print();");
	gb_a := calc.lng(0);
	hb_a := calc.lng(1);
	ib_a := algebra.select(test,gb_a,hb_a);
	jb_a := io.print(ib_a);
#	io.print("quit();");
	kb_a := clients.quit();