test_20.mal

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

# 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("setoid(oid(2000000));");
	aa_a := oid(2000000);
	ba_a := setoid(aa_a);
#	io.print("# analyse selection using indexing\n");
	k10_unique1 := new("k10_unique1");
#	io.print("print(count(k10_unique1));");
	ca_a := count(k10_unique1);
	da_a := print(ca_a);
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	ea_a := printf("#~BeginVariableOutput~#\n");
	fa_a := cpuStatistics;
	ga_a := print(fa_a);
	ha_a := printf("#~EndVariableOutput~#\n");
#	io.print("var t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	ia_a := int(nil);
	ja_a := int(nil);
	t := fragment(k10_unique1,0,10,ia_a,ja_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	ka_a := int(nil);
	la_a := int(nil);
	t := fragment(k10_unique1,0,10,ka_a,la_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	ma_a := int(nil);
	na_a := int(nil);
	t := fragment(k10_unique1,0,10,ma_a,na_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	oa_a := int(nil);
	pa_a := int(nil);
	t := fragment(k10_unique1,0,10,oa_a,pa_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	qa_a := int(nil);
	ra_a := int(nil);
	t := fragment(k10_unique1,0,10,qa_a,ra_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	sa_a := int(nil);
	ta_a := int(nil);
	t := fragment(k10_unique1,0,10,sa_a,ta_a);
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	ua_a := printf("#~BeginVariableOutput~#\n");
	va_a := cpuStatistics;
	wa_a := print(va_a);
	xa_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); memStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");");
	ya_a := printf("#~BeginVariableOutput~#\n");
	ab_a := status.memStatistics();
	bb_a := print(ab_a);
	cb_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); io.print(); printf(\"#~EndVariableOutput~#\\n\");");
	db_a := printf("#~BeginVariableOutput~#\n");
	eb_a := io;
	fb_a := print(eb_a);
	gb_a := printf("#~EndVariableOutput~#\n");
#	io.print("#Index first to speed-up selection\n");
	hb_a := accbuild(k10_unique1,"index");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	ib_a := printf("#~BeginVariableOutput~#\n");
	jb_a := cpuStatistics;
	kb_a := print(jb_a);
	lb_a := printf("#~EndVariableOutput~#\n");
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	mb_a := int(nil);
	nb_a := int(nil);
	t := fragment(k10_unique1,0,10,mb_a,nb_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	ob_a := int(nil);
	pb_a := int(nil);
	t := fragment(k10_unique1,0,10,ob_a,pb_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	qb_a := int(nil);
	rb_a := int(nil);
	t := fragment(k10_unique1,0,10,qb_a,rb_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	sb_a := int(nil);
	tb_a := int(nil);
	t := fragment(k10_unique1,0,10,sb_a,tb_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	ub_a := int(nil);
	vb_a := int(nil);
	t := fragment(k10_unique1,0,10,ub_a,vb_a);
#	io.print("t:=fragment(k10_unique1,0,10,int(nil),int(nil));");
	wb_a := int(nil);
	xb_a := int(nil);
	t := fragment(k10_unique1,0,10,wb_a,xb_a);
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	yb_a := printf("#~BeginVariableOutput~#\n");
	ac_a := cpuStatistics;
	bc_a := print(ac_a);
	cc_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); memStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");");
	dc_a := printf("#~BeginVariableOutput~#\n");
	ec_a := status.memStatistics();
	fc_a := print(ec_a);
	gc_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); io.print(); printf(\"#~EndVariableOutput~#\\n\");");
	hc_a := printf("#~BeginVariableOutput~#\n");
	ic_a := io;
	jc_a := print(ic_a);
	kc_a := printf("#~EndVariableOutput~#\n");
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	lc_a := int(nil);
	mc_a := int(nil);
	t := fragment(k10_unique1,lc_a,mc_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	nc_a := int(nil);
	oc_a := int(nil);
	t := fragment(k10_unique1,nc_a,oc_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	pc_a := int(nil);
	qc_a := int(nil);
	t := fragment(k10_unique1,pc_a,qc_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	rc_a := int(nil);
	sc_a := int(nil);
	t := fragment(k10_unique1,rc_a,sc_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	tc_a := int(nil);
	uc_a := int(nil);
	t := fragment(k10_unique1,tc_a,uc_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	vc_a := int(nil);
	wc_a := int(nil);
	t := fragment(k10_unique1,vc_a,wc_a,0,10);
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	xc_a := printf("#~BeginVariableOutput~#\n");
	yc_a := cpuStatistics;
	ad_a := print(yc_a);
	bd_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); memStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");");
	cd_a := printf("#~BeginVariableOutput~#\n");
	dd_a := status.memStatistics();
	ed_a := print(dd_a);
	fd_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); io.print(); printf(\"#~EndVariableOutput~#\\n\");");
	gd_a := printf("#~BeginVariableOutput~#\n");
	hd_a := io;
	id_a := print(hd_a);
	jd_a := printf("#~EndVariableOutput~#\n");
#	io.print("#index the tail\n");
	kd_a := reverse(k10_unique1);
	ld_a := accbuild(kd_a,"index");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	md_a := printf("#~BeginVariableOutput~#\n");
	nd_a := cpuStatistics;
	od_a := print(nd_a);
	pd_a := printf("#~EndVariableOutput~#\n");
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	qd_a := int(nil);
	rd_a := int(nil);
	t := fragment(k10_unique1,qd_a,rd_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	sd_a := int(nil);
	td_a := int(nil);
	t := fragment(k10_unique1,sd_a,td_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	ud_a := int(nil);
	vd_a := int(nil);
	t := fragment(k10_unique1,ud_a,vd_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	wd_a := int(nil);
	xd_a := int(nil);
	t := fragment(k10_unique1,wd_a,xd_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	yd_a := int(nil);
	ae_a := int(nil);
	t := fragment(k10_unique1,yd_a,ae_a,0,10);
#	io.print("t:=fragment(k10_unique1,int(nil),int(nil),0,10);");
	be_a := int(nil);
	ce_a := int(nil);
	t := fragment(k10_unique1,be_a,ce_a,0,10);
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); cpuStatistics.print(); printf(\"#~EndVariableOutput~#\\n\");");
	de_a := printf("#~BeginVariableOutput~#\n");
	ee_a := cpuStatistics;
	fe_a := print(ee_a);
	ge_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); memStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");");
	he_a := printf("#~BeginVariableOutput~#\n");
	ie_a := status.memStatistics();
	je_a := print(ie_a);
	ke_a := printf("#~EndVariableOutput~#\n");
#	io.print("printf(\"#~BeginVariableOutput~#\\n\"); io.print(); printf(\"#~EndVariableOutput~#\\n\");");
	le_a := printf("#~BeginVariableOutput~#\n");
	me_a := io;
	ne_a := print(me_a);
	oe_a := printf("#~EndVariableOutput~#\n");
#	io.print("quit();");
	pe_a := quit();
#Identifer 'memStatistics' mapped to 'status.memStatistics'