test_60.stable.out.linux

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

end New;	# 12  
#	mil.line("p(\"b\",\"1\");");
#	hb_a := p("b","1");
#	mil.line("# passing parameters;\n");
#	mil.line("var a:=35;");
#	a := 35;
#	mil.line("echo(a,\"hello\").print();");
#	ib_a := echo(a,"hello");
#	jb_a := print(ib_a);
#	mil.line("New(\"r\",\"C\",\"Ch\");");
#	kb_a := New("r","C","Ch");
#	mil.line("vars();");
#	lb_a := vars();
#	mil.line("s(0,10);");
#	mb_a := s(0,10);
#	mil.line("s(0,11);");
#	nb_a := s(0,11);
#	mil.line("# errors !;\n");
#	mil.line("s(0,99);");
#	ob_a := s(0,99);
#	mil.line("s(0,999);");
#	pb_a := s(0,999);
#	mil.line("quit();");
#	qb_a := quit();
##Identifer 'rename' mapped to 'bat.setName'
#print("test dropped: it uses 4.4. catalogues");
#
!ERROR: 'batcalc.+' undefined in Admin.newid[2]
!ERROR: Error in cloned function
!ERROR: function Admin.newid(x:str,y:str):str;	# 0  (y:str)<-(x:str)(y:str)
!ERROR:     mil.line("\treturn x+y;");	# 1 MILline ($3:void)<-($4:str)
!ERROR:     return ca_a := batcalc.+(x,y);	# 2 CMDbatADD (ca_a:bat[:any,:any])<-(x:str)(y:str)
!ERROR: end newid;	# 3  
!ERROR: 'Admin.newid' undefined in Admin.p[2]
!ERROR: 'vars' undefined in Admin.p[4]
!ERROR: Error in cloned function
!ERROR: function Admin.p(B:str,C:str):str;	# 0  (C:str)<-(B:str)(C:str)
!ERROR:     mil.line("        var local :=newid(B,C); ");	# 1 MILline ($3:void)<-($4:str)
!ERROR:     local := Admin.newid(B,C);	# 2  (local:any)<-(B:str)(C:str)
!ERROR:     mil.line("        vars(); ");	# 3 MILline ($6:void)<-($7:str)
!ERROR:     va_a := vars();	# 4  unknown (va_a:any)
!ERROR: end p;	# 5  
!ERROR: 'Admin.p' undefined in Admin.main[44]
!ERROR: 'vars' undefined in Admin.echo[1]
!ERROR: 'vars' undefined in Admin.echo[3]
!ERROR: Error in cloned function
!ERROR: function Admin.echo(x:int,y:int):int;	# 0  (y:int)<-(x:int)(y:int)
!ERROR:     bb_a := vars();	# 1  unknown (bb_a:any)
!ERROR:     z := x;	# 2  (z:int)<-(x:int)
!ERROR:     cb_a := vars();	# 3  unknown (cb_a:any)
!ERROR:     return db_a := z;	# 4  (db_a:int)<-(z:int)
!ERROR: end echo;	# 5  
!ERROR: 'Admin.echo' undefined in Admin.main[49]
!ERROR: MALresolve:Admin.New[4]:type mismatch str := bat[:int,:int]
!ERROR: 'bbp.new' undefined in Admin.New[4]
!ERROR: 'bat.setName' undefined in Admin.New[6]
!ERROR: MALresolve:Admin.New[8]:type mismatch str := bat[:oid,:int]
!ERROR: 'bbp.new' undefined in Admin.New[8]
!ERROR: 'bat.setName' undefined in Admin.New[10]
!ERROR: 'vars' undefined in Admin.New[11]
!ERROR: Error in cloned function
!ERROR: function Admin.New(N:str,A:str,Ahsh:str):str;	# 0  (Ahsh:str)<-(N:str)(A:str)(Ahsh:str)
!ERROR:     mil.line("        var Nh := newid(N,\"_hsh\"); ");	# 1 MILline ($4:void)<-($5:str)
!ERROR:     Nh := Admin.newid(N,"_hsh");	# 2  (Nh:str)<-(N:str)($7:str)
!ERROR:     mil.line("        var A := new(int,int,1); ");	# 3 MILline ($8:void)<-($9:str)
!ERROR:     A := bbp.new(nil,nil,1);	# 4 CMDBATnewint unknown (A:str)<-($10:int)($10:int)($11:int)
!ERROR:     mil.line("        rename(A,N); ");	# 5 MILline ($12:void)<-($13:str)
!ERROR:     eb_a := bat.setName(A,N);	# 6 BKCsetName (eb_a:void)<-(A:str)(N:str)
!ERROR:     mil.line("        var Ahsh := new(oid,int,1); ");	# 7 MILline ($15:void)<-($16:str)
!ERROR:     Ahsh := bbp.new(nil,nil,1);	# 8 CMDBATnewint unknown (Ahsh:str)<-($17:oid)($10:int)($11:int)
!ERROR:     mil.line("        rename(Ahsh,Nh); vars();");	# 9 MILline ($18:void)<-($19:str)
!ERROR:     fb_a := bat.setName(Ahsh,Nh);	# 10 BKCsetName (fb_a:void)<-(Ahsh:str)(Nh:str)
!ERROR:     gb_a := vars();	# 11  unknown (gb_a:any)
!ERROR: end New;	# 12  
!ERROR: 'Admin.New' undefined in Admin.main[52]
!ERROR: 'vars' undefined in Admin.main[54]
function Admin.main():int;	# 0  (main:int)
    mil.line("setoid(oid(20000000));");	# 1 MILline ($1:void)<-($2:str)
    aa_a := calc.oid(20000000);	# 2 CALCint2oid (aa_a:oid)<-($4:int)
    ba_a := calc.setoid(aa_a);	# 3 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
    mil.line("proc newid(any x, any y) : any {");	# 4 MILline ($6:void)<-($7:str)
    mil.line("#calling a function;\n");	# 5 MILline ($8:void)<-($9:str)
    mil.line("var b:= new(int,int,0);");	# 6 MILline ($10:void)<-($11:str)
    b := bbp.new(nil,nil,0);	# 7 CMDBATnewint (b:bat[:int,:int])<-($13:int)($13:int)($14:int)
    mil.line("b.insert(1,15);");	# 8 MILline ($15:void)<-($16:str)
    da_a := bat.insert(b,1,15);	# 9 BKCinsert_bun (da_a:void)<-(b:bat[:int,:int])($18:int)($19:int)
    mil.line("b.insert(2,4);");	# 10 MILline ($20:void)<-($21:str)
    ea_a := bat.insert(b,2,4);	# 11 BKCinsert_bun (ea_a:void)<-(b:bat[:int,:int])($23:int)($24:int)
    mil.line("b.insert(3,int(nil));");	# 12 MILline ($25:void)<-($26:str)
    fa_a := calc.int(nil);	# 13 CALCnil2int (fa_a:int)<-($28:void)
    ga_a := bat.insert(b,3,fa_a);	# 14 BKCinsert_bun (ga_a:void)<-(b:bat[:int,:int])($30:int)(fa_a:int)
    mil.line("b.insert(4,16);");	# 15 MILline ($31:void)<-($32:str)
    ha_a := bat.insert(b,4,16);	# 16 BKCinsert_bun (ha_a:void)<-(b:bat[:int,:int])($24:int)($34:int)
    mil.line("b.insert(5,25);");	# 17 MILline ($35:void)<-($36:str)
    ia_a := bat.insert(b,5,25);	# 18 BKCinsert_bun (ia_a:void)<-(b:bat[:int,:int])($38:int)($39:int)
    mil.line("b.insert(6,36);");	# 19 MILline ($40:void)<-($41:str)
    ja_a := bat.insert(b,6,36);	# 20 BKCinsert_bun (ja_a:void)<-(b:bat[:int,:int])($43:int)($44:int)
    mil.line("b.insert(7,49);");	# 21 MILline ($45:void)<-($46:str)
    ka_a := bat.insert(b,7,49);	# 22 BKCinsert_bun (ka_a:void)<-(b:bat[:int,:int])($48:int)($49:int)
    mil.line("b.insert(8,64);");	# 23 MILline ($50:void)<-($51:str)
    la_a := bat.insert(b,8,64);	# 24 BKCinsert_bun (la_a:void)<-(b:bat[:int,:int])($53:int)($54:int)
    mil.line("b.insert(9,int(nil));");	# 25 MILline ($55:void)<-($56:str)
    ma_a := calc.int(nil);	# 26 CALCnil2int (ma_a:int)<-($28:void)
    na_a := bat.insert(b,9,ma_a);	# 27 BKCinsert_bun (na_a:void)<-(b:bat[:int,:int])($59:int)(ma_a:int)
    mil.line("b.insert(int(nil),int(nil));");	# 28 MILline ($60:void)<-($61:str)
    oa_a := calc.int(nil);	# 29 CALCnil2int (oa_a:int)<-($63:void)
    pa_a := calc.int(nil);	# 30 CALCnil2int (pa_a:int)<-($63:void)
    qa_a := bat.insert(b,oa_a,pa_a);	# 31 BKCinsert_bun (qa_a:void)<-(b:bat[:int,:int])(oa_a:int)(pa_a:int)
    mil.line("b.insert(int(nil),81);");	# 32 MILline ($66:void)<-($67:str)
    ra_a := calc.int(nil);	# 33 CALCnil2int (ra_a:int)<-($63:void)
    sa_a := bat.insert(b,ra_a,81);	# 34 BKCinsert_bun (sa_a:void)<-(b:bat[:int,:int])(ra_a:int)($70:int)
    mil.line("b.rename(\"tenk1_unique1\");");	# 35 MILline ($71:void)<-($72:str)
    ta_a := bat.setName(b,"tenk1_unique1");	# 36 BKCsetName (ta_a:void)<-(b:bat[:int,:int])($74:str)
    mil.line("proc dummy() : int { return 1; }");	# 37 MILline ($75:void)<-($76:str)
    mil.line("proc p(any B, any C) : any { ");	# 38 MILline ($77:void)<-($78:str)
    mil.line("proc s(int low, int high) : void {");	# 39 MILline ($79:void)<-($80:str)
    mil.line("#proc echo(any x,any y) : any { vars(); z=x; vars(); return(z); }\n");	# 40 MILline ($81:void)<-($82:str)
    mil.line("proc echo(any x,any y) : any { vars(); var z:=x; vars(); return(z); }");	# 41 MILline ($83:void)<-($84:str)
    mil.line("proc New(any N,any A,any Ahsh) : void {");	# 42 MILline ($85:void)<-($86:str)
    mil.line("p(\"b\",\"1\");");	# 43 MILline ($87:void)<-($88:str)
    hb_a := Admin.p("b","1");	# 44  (hb_a:any)<-($90:str)($91:str)
    mil.line("# passing parameters;\n");	# 45 MILline ($92:void)<-($93:str)
    mil.line("var a:=35;");	# 46 MILline ($94:void)<-($95:str)
    a := 35;	# 47  (a:int)<-($97:int)
    mil.line("echo(a,\"hello\").print();");	# 48 MILline ($98:void)<-($99:str)
    ib_a := Admin.echo(a,"hello");	# 49  (ib_a:any)<-(a:int)($101:str)
    jb_a := io.print(ib_a);	# 50 IOprint_val (jb_a:int)<-(ib_a:any)
    mil.line("New(\"r\",\"C\",\"Ch\");");	# 51 MILline ($103:void)<-($104:str)
    kb_a := Admin.New("r","C","Ch");	# 52  (kb_a:void)<-($106:str)($107:str)($108:str)
    mil.line("vars();");	# 53 MILline ($109:void)<-($110:str)
    lb_a := vars();	# 54  unknown (lb_a:any)
    mil.line("s(0,10);");	# 55 MILline ($112:void)<-($113:str)
    mb_a := Admin.s(0,10);	# 56  (mb_a:void)<-($115:int)($116:int)
    mil.line("s(0,11);");	# 57 MILline ($117:void)<-($118:str)
    nb_a := Admin.s(0,11);	# 58  (nb_a:void)<-($115:int)($120:int)
    mil.line("# errors !;\n");	# 59 MILline ($121:void)<-($122:str)
    mil.line("s(0,99);");	# 60 MILline ($123:void)<-($124:str)
    ob_a := Admin.s(0,99);	# 61  (ob_a:void)<-($115:int)($126:int)
    mil.line("s(0,999);");	# 62 MILline ($127:void)<-($128:str)
    pb_a := Admin.s(0,999);	# 63  (pb_a:void)<-($115:int)($130:int)
    mil.line("quit();");	# 64 MILline ($131:void)<-($132:str)
    qb_a := clients.quit();	# 65 CLTquit (qb_a:void)
    io.print("test dropped: it uses 4.4. catalogues");	# 66 IOprint_val ($134:int)<-($135:str)
end main;	# 67  
>
# 15:18:55 >  
# 15:18:55 >  Done.
# 15:18:55 >