Update of /cvsroot/monetdb/MonetDB5/tests/suite_01/Tests
In directory
sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv31571/tests/suite_01/Tests
Modified Files:
test_05.stable.out test_10.stable.out test_15.stable.out
test_40.stable.out test_70.stable.out
Log Message:
The output of the instructions is cleaned up.
Amongst others, the properties of instructions are also displayed.
U = types not yet resolved
P = polymorphic instruction
G = subject to garbage control
R = subject to recycler control
J = jump towards other statement
A few tests are not handled yet.
Index: test_70.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/tests/suite_01/Tests/test_70.stable.out,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- test_70.stable.out 12 Jun 2007 17:22:34 -0000 1.17
+++ test_70.stable.out 15 Mar 2008 19:37:40 -0000 1.18
@@ -51,43 +51,43 @@
# mil.line("quit();");
# ha_a := clients.quit();
#
-function user.main():void; # 0 (main:void)
-# Monet Mil to Mal compiler # 1 (_1:str)
-# Copyright (c) 2001-2004, CWI. All rights reserved. # 2 (_2:str)
-#Predefined code segment # 3 (_3:str)
-#The compiler can not guarantee an accurate compilation, # 4 (_4:str)
-#because MIL unlike MAL is a dynamically typed language. # 5 (_5:str)
-#A few guidelines to maximize usefullness. # 6 (_6:str)
-#- make the type of variables explicit, in particular 'nil' # 7 (_7:str)
-#- upon advice of M2m to remap identifiers, change it in your program directly
# 8 (_8:str)
-#use the "mil_schema" for additional support routines # 9 (_9:str)
-# io.print("setoid(oid(20000000));"); # 10 (_10:str)
- aa_a := calc.oid(20000000); # 11 CALCint2oid (aa_a:oid)<-(_12:int)
- ba_a := calc.setoid(aa_a); # 12 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
-# io.print("# The Monet interpreter supports type casts\n"); # 13
(_14:str)
- p := calc.int("21"); # 14 CALCstr2int (p:int)<-(_16:str)
-# io.print("p.io.print();"); # 15 (_17:str)
- ca_a := io.print(p); # 16 IOprint_val (ca_a:void)<-(p:int)
-# io.print("var pf:= flt(\"23\");"); # 17 (_19:str)
- pf := calc.flt("23"); # 18 CALCstr2flt (pf:flt)<-(_21:str)
-# io.print("pf.io.print();"); # 19 (_22:str)
- da_a := io.print(pf); # 20 IOprint_val (da_a:void)<-(pf:flt)
-# io.print("var pb:= bit(1);"); # 21 (_24:str)
- pb := calc.bit(1); # 22 CALCint2bit (pb:bit)<-(_26:int)
-# io.print("pb.io.print();"); # 23 (_27:str)
- ea_a := io.print(pb); # 24 IOprint_val (ea_a:void)<-(pb:bit)
-# io.print("var z:= int(p);"); # 25 (_29:str)
- z := calc.int(p); # 26 CALCint2int (z:int)<-(p:int)
-# io.print("z.io.print();"); # 27 (_31:str)
- fa_a := io.print(z); # 28 IOprint_val (fa_a:void)<-(z:int)
-# io.print("var pi:= bit(0);"); # 29 (_33:str)
- pi := calc.bit(0); # 30 CALCint2bit (pi:bit)<-(_35:int)
-# io.print("pi.io.print();"); # 31 (_36:str)
- ga_a := io.print(pi); # 32 IOprint_val (ga_a:void)<-(pi:bit)
-# io.print("var ps:= str(1);"); # 33 (_38:str)
- ps := calc.str(1); # 34 CALCint2str (ps:str)<-(_26:int)
-# io.print("quit();"); # 35 (_40:str)
- ha_a := clients.quit(); # 36 CLTquit (ha_a:void)
+function user.main():void; # 0 main:void {G}
+# 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(20000000));");
+ aa_a := calc.oid(20000000); # 11 aa_a:oid := CALCint2oid(_12:int)
+ ba_a := calc.setoid(aa_a); # 12 ba_a:oid :=
CALCsetoidInc(aa_a:oid)
+# io.print("# The Monet interpreter supports type casts\n");
+ p := calc.int("21"); # 14 p:int := CALCstr2int(_16:str)
+# io.print("p.io.print();");
+ ca_a := io.print(p); # 16 ca_a:void := IOprint_val(p:int)
+# io.print("var pf:= flt(\"23\");");
+ pf := calc.flt("23"); # 18 pf:flt := CALCstr2flt(_21:str)
+# io.print("pf.io.print();");
+ da_a := io.print(pf); # 20 da_a:void := IOprint_val(pf:flt)
+# io.print("var pb:= bit(1);");
+ pb := calc.bit(1); # 22 pb:bit := CALCint2bit(_26:int)
+# io.print("pb.io.print();");
+ ea_a := io.print(pb); # 24 ea_a:void := IOprint_val(pb:bit)
+# io.print("var z:= int(p);");
+ z := calc.int(p); # 26 z:int := CALCint2int(p:int)
+# io.print("z.io.print();");
+ fa_a := io.print(z); # 28 fa_a:void := IOprint_val(z:int)
+# io.print("var pi:= bit(0);");
+ pi := calc.bit(0); # 30 pi:bit := CALCint2bit(_35:int)
+# io.print("pi.io.print();");
+ ga_a := io.print(pi); # 32 ga_a:void := IOprint_val(pi:bit)
+# io.print("var ps:= str(1);");
+ ps := calc.str(1); # 34 ps:str := CALCint2str(_26:int) {G}
+# io.print("quit();");
+ ha_a := clients.quit(); # 36 ha_a:void
end main; # 37
[ 21 ]
#var pf:= flt(\"23\");
Index: test_40.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/tests/suite_01/Tests/test_40.stable.out,v
retrieving revision 1.30
retrieving revision 1.31
diff -u -d -r1.30 -r1.31
--- test_40.stable.out 2 Jan 2008 10:46:16 -0000 1.30
+++ test_40.stable.out 15 Mar 2008 19:37:40 -0000 1.31
@@ -117,110 +117,110 @@
# mil.line("quit();");
# yb_a := clients.quit();
#
-function user.main():void; # 0 (main:void)
-# Monet Mil to Mal compiler # 1 (_1:str)
-# Copyright (c) 2001-2004, CWI. All rights reserved. # 2 (_2:str)
-#Predefined code segment # 3 (_3:str)
-#The compiler can not guarantee an accurate compilation, # 4 (_4:str)
-#because MIL unlike MAL is a dynamically typed language. # 5 (_5:str)
-#A few guidelines to maximize usefullness. # 6 (_6:str)
-#- make the type of variables explicit, in particular 'nil' # 7 (_7:str)
-#- upon advice of M2m to remap identifiers, change it in your program directly
# 8 (_8:str)
-#use the "mil_schema" for additional support routines # 9 (_9:str)
-# io.print("setoid(oid(20000000));"); # 10 (_10:str)
- aa_a := calc.oid(20000000); # 11 CALCint2oid (aa_a:oid)<-(_12:int)
- ba_a := calc.setoid(aa_a); # 12 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
-# io.print("#test ascii export/import facility.\n"); # 13 (_14:str)
-# io.print("var b:= new(str,int);"); # 14 (_15:str)
- b := bat.new(nil:str,nil:int); # 15 CMDBATnew
(b:bat[:str,:int])<-(_17:str)(_18:int)
-# io.print("b.insert(\"the\",1);"); # 16 (_19:str)
- ca_a := bat.insert(b,"the",1); # 17 BKCinsert_bun
(ca_a:void)<-(b:bat[:str,:int])(_21:str)(_22:int)
-# io.print("b.insert(\"quick\",2);"); # 18 (_23:str)
- da_a := bat.insert(b,"quick",2); # 19 BKCinsert_bun
(da_a:void)<-(b:bat[:str,:int])(_25:str)(_26:int)
-# io.print("b.insert(\"brown\",3);"); # 20 (_27:str)
- ea_a := bat.insert(b,"brown",3); # 21 BKCinsert_bun
(ea_a:void)<-(b:bat[:str,:int])(_29:str)(_30:int)
-# io.print("b.insert(\"fox\",4);"); # 22 (_31:str)
- fa_a := bat.insert(b,"fox",4); # 23 BKCinsert_bun
(fa_a:void)<-(b:bat[:str,:int])(_33:str)(_34:int)
-# io.print("b.insert(\"jumps\",5);"); # 24 (_35:str)
- ga_a := bat.insert(b,"jumps",5); # 25 BKCinsert_bun
(ga_a:void)<-(b:bat[:str,:int])(_37:str)(_38:int)
-# io.print("b.insert(\"over\",6);"); # 26 (_39:str)
- ha_a := bat.insert(b,"over",6); # 27 BKCinsert_bun
(ha_a:void)<-(b:bat[:str,:int])(_41:str)(_42:int)
-# io.print("b.insert(\"lazy\",7);"); # 28 (_43:str)
- ia_a := bat.insert(b,"lazy",7); # 29 BKCinsert_bun
(ia_a:void)<-(b:bat[:str,:int])(_45:str)(_46:int)
-# io.print("b.insert(\"dog\",8);"); # 30 (_47:str)
- ja_a := bat.insert(b,"dog",8); # 31 BKCinsert_bun
(ja_a:void)<-(b:bat[:str,:int])(_49:str)(_50:int)
-# io.print("b.insert(str(nil),9);"); # 32 (_51:str)
- ka_a := calc.str(nil:void); # 33 CALCnil2str (ka_a:str)<-(_53:void)
- la_a := bat.insert(b,ka_a,9); # 34 BKCinsert_bun
(la_a:void)<-(b:bat[:str,:int])(ka_a:str)(_55:int)
-# io.print("b.insert(\".\",10);"); # 35 (_56:str)
- ma_a := bat.insert(b,".",10); # 36 BKCinsert_bun
(ma_a:void)<-(b:bat[:str,:int])(_58:str)(_59:int)
-# io.print("b.insert(\"\",calc.int(nil));"); # 37 (_60:str)
- na_a := calc.int(nil:void); # 38 CALCnil2int (na_a:int)<-(_53:void)
- oa_a := bat.insert(b,"",na_a); # 39 BKCinsert_bun
(oa_a:void)<-(b:bat[:str,:int])(_63:str)(na_a:int)
-# io.print("b.insert(str(nil),calc.int(nil));"); # 40 (_64:str)
- pa_a := calc.str(nil:void); # 41 CALCnil2str (pa_a:str)<-(_53:void)
- qa_a := calc.int(nil:void); # 42 CALCnil2int (qa_a:int)<-(_53:void)
- ra_a := bat.insert(b,pa_a,qa_a); # 43 BKCinsert_bun
(ra_a:void)<-(b:bat[:str,:int])(pa_a:str)(qa_a:int)
-# io.print("b.print();"); # 44 (_68:str)
- sa_a := io.print(b); # 45 IOprint_val (sa_a:void)<-(b:bat[:str,:int])
-# io.print("b.export(\"monet2\");"); # 46 (_70:str)
- ta_a := io.export(b,"monet2"); # 47 IOexport
(ta_a:bit)<-(b:bat[:str,:int])(_72:str)
-# io.print("b.delete();"); # 48 (_73:str)
- ua_a := bat.delete(b); # 49 BKCdelete_all
(ua_a:void)<-(b:bat[:str,:int])
-# io.print("b.count().print();"); # 50 (_75:str)
- va_a := aggr.count(b); # 51 ALGcount_bat (va_a:int)<-(b:bat[:str,:int])
- wa_a := io.print(va_a); # 52 IOprint_val (wa_a:void)<-(va_a:int)
-# io.print("b.import(\"monet2\");"); # 53 (_78:str)
- xa_a := io.import(b,"monet2"); # 54 IOimport
(xa_a:bat[:str,:int])<-(b:bat[:str,:int])(_72:str)
-# io.print("b.print();"); # 55 (_68:str)
- ya_a := io.print(b); # 56 IOprint_val (ya_a:void)<-(b:bat[:str,:int])
-# io.print("var cb:= new(int,int);"); # 57 (_82:str)
- cb := bat.new(nil:int,nil:int); # 58 CMDBATnew
(cb:bat[:int,:int])<-(_84:int)(_84:int)
-# io.print("cb.insert(1,15);"); # 59 (_85:str)
- ab_a := bat.insert(cb,1,15); # 60 BKCinsert_bun
(ab_a:void)<-(cb:bat[:int,:int])(_87:int)(_88:int)
-# io.print("cb.insert(2,4);"); # 61 (_89:str)
- bb_a := bat.insert(cb,2,4); # 62 BKCinsert_bun
(bb_a:void)<-(cb:bat[:int,:int])(_91:int)(_92:int)
-# io.print("cb.insert(3,calc.int(nil));"); # 63 (_93:str)
- cb_a := calc.int(nil:void); # 64 CALCnil2int (cb_a:int)<-(_95:void)
- db_a := bat.insert(cb,3,cb_a); # 65 BKCinsert_bun
(db_a:void)<-(cb:bat[:int,:int])(_97:int)(cb_a:int)
-# io.print("cb.insert(4,16);"); # 66 (_98:str)
- eb_a := bat.insert(cb,4,16); # 67 BKCinsert_bun
(eb_a:void)<-(cb:bat[:int,:int])(_92:int)(_100:int)
-# io.print("cb.insert(5,25);"); # 68 (_101:str)
- fb_a := bat.insert(cb,5,25); # 69 BKCinsert_bun
(fb_a:void)<-(cb:bat[:int,:int])(_103:int)(_104:int)
-# io.print("cb.insert(6,36);"); # 70 (_105:str)
- gb_a := bat.insert(cb,6,36); # 71 BKCinsert_bun
(gb_a:void)<-(cb:bat[:int,:int])(_107:int)(_108:int)
-# io.print("cb.insert(7,49);"); # 72 (_109:str)
- hb_a := bat.insert(cb,7,49); # 73 BKCinsert_bun
(hb_a:void)<-(cb:bat[:int,:int])(_111:int)(_112:int)
-# io.print("cb.insert(8,64);"); # 74 (_113:str)
- ib_a := bat.insert(cb,8,64); # 75 BKCinsert_bun
(ib_a:void)<-(cb:bat[:int,:int])(_115:int)(_116:int)
-# io.print("cb.insert(9,calc.int(nil));"); # 76 (_117:str)
- jb_a := calc.int(nil:void); # 77 CALCnil2int (jb_a:int)<-(_95:void)
- kb_a := bat.insert(cb,9,jb_a); # 78 BKCinsert_bun
(kb_a:void)<-(cb:bat[:int,:int])(_120:int)(jb_a:int)
-# io.print("cb.insert(calc.int(nil),int(nil));"); # 79 (_121:str)
- lb_a := calc.int(nil:void); # 80 CALCnil2int (lb_a:int)<-(_95:void)
- mb_a := calc.int(nil:void); # 81 CALCnil2int (mb_a:int)<-(_95:void)
- nb_a := bat.insert(cb,lb_a,mb_a); # 82 BKCinsert_bun
(nb_a:void)<-(cb:bat[:int,:int])(lb_a:int)(mb_a:int)
-# io.print("cb.insert(calc.int(nil),81);"); # 83 (_125:str)
- ob_a := calc.int(nil:void); # 84 CALCnil2int (ob_a:int)<-(_95:void)
- pb_a := bat.insert(cb,ob_a,81); # 85 BKCinsert_bun
(pb_a:void)<-(cb:bat[:int,:int])(ob_a:int)(_128:int)
-# io.print("cb.print();"); # 86 (_129:str)
- qb_a := io.print(cb); # 87 IOprint_val
(qb_a:void)<-(cb:bat[:int,:int])
-# io.print("cb.export(\"monet1\");"); # 88 (_131:str)
- rb_a := io.export(cb,"monet1"); # 89 IOexport
(rb_a:bit)<-(cb:bat[:int,:int])(_133:str)
-# io.print("cb.delete();"); # 90 (_134:str)
- sb_a := bat.delete(cb); # 91 BKCdelete_all
(sb_a:void)<-(cb:bat[:int,:int])
-# io.print("cb.count().print();"); # 92 (_135:str)
- tb_a := aggr.count(cb); # 93 ALGcount_bat
(tb_a:int)<-(cb:bat[:int,:int])
- ub_a := io.print(tb_a); # 94 IOprint_val (ub_a:void)<-(tb_a:int)
-# io.print("cb.import(\"monet1\");"); # 95 (_139:str)
- vb_a := io.import(cb,"monet1"); # 96 IOimport
(vb_a:bat[:int,:int])<-(cb:bat[:int,:int])(_133:str)
-# io.print("cb.print();"); # 97 (_141:str)
- wb_a := io.print(cb); # 98 IOprint_val
(wb_a:void)<-(cb:bat[:int,:int])
-# io.print("commit();"); # 99 (_141:str)
- xb_a := transaction.commit(); # 100 TRNglobal_commit (xb_a:bit)
-# io.print("quit();"); # 101 (_143:str)
- yb_a := clients.quit(); # 102 CLTquit (yb_a:void)
-end main; # 103
+function user.main():void; # 0 main:void {G}
+# 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(20000000));");
+ aa_a := calc.oid(20000000); # 11 aa_a:oid := CALCint2oid(_12:int)
+ ba_a := calc.setoid(aa_a); # 12 ba_a:oid :=
CALCsetoidInc(aa_a:oid)
+# io.print("#test ascii export/import facility.\n");
+# io.print("var b:= new(str,int);");
+ b := bat.new(nil:str,nil:int); # 15 b:bat[:str,:int] :=
CMDBATnew(_17:str, _18:int) {G}
+# io.print("b.insert(\"the\",1);");
+ ca_a := bat.insert(b,"the",1); # 17 ca_a:void :=
BKCinsert_bun(b:bat[:str,:int], _21:str, _22:int)
+# io.print("b.insert(\"quick\",2);");
+ da_a := bat.insert(b,"quick",2); # 19 da_a:void :=
BKCinsert_bun(b:bat[:str,:int], _25:str, _26:int)
+# io.print("b.insert(\"brown\",3);");
+ ea_a := bat.insert(b,"brown",3); # 21 ea_a:void :=
BKCinsert_bun(b:bat[:str,:int], _29:str, _30:int)
+# io.print("b.insert(\"fox\",4);");
+ fa_a := bat.insert(b,"fox",4); # 23 fa_a:void :=
BKCinsert_bun(b:bat[:str,:int], _33:str, _34:int)
+# io.print("b.insert(\"jumps\",5);");
+ ga_a := bat.insert(b,"jumps",5); # 25 ga_a:void :=
BKCinsert_bun(b:bat[:str,:int], _37:str, _38:int)
+# io.print("b.insert(\"over\",6);");
+ ha_a := bat.insert(b,"over",6); # 27 ha_a:void :=
BKCinsert_bun(b:bat[:str,:int], _41:str, _42:int)
+# io.print("b.insert(\"lazy\",7);");
+ ia_a := bat.insert(b,"lazy",7); # 29 ia_a:void :=
BKCinsert_bun(b:bat[:str,:int], _45:str, _46:int)
+# io.print("b.insert(\"dog\",8);");
+ ja_a := bat.insert(b,"dog",8); # 31 ja_a:void :=
BKCinsert_bun(b:bat[:str,:int], _49:str, _50:int)
+# io.print("b.insert(str(nil),9);");
+ ka_a := calc.str(nil:void); # 33 ka_a:str := CALCnil2str(_53:void)
{G}
+ la_a := bat.insert(b,ka_a,9); # 34 la_a:void :=
BKCinsert_bun(b:bat[:str,:int], ka_a:str, _55:int)
+# io.print("b.insert(\".\",10);");
+ ma_a := bat.insert(b,".",10); # 36 ma_a:void :=
BKCinsert_bun(b:bat[:str,:int], _58:str, _59:int)
+# io.print("b.insert(\"\",calc.int(nil));");
+ na_a := calc.int(nil:void); # 38 na_a:int := CALCnil2int(_53:void)
+ oa_a := bat.insert(b,"",na_a); # 39 oa_a:void :=
BKCinsert_bun(b:bat[:str,:int], _63:str, na_a:int)
+# io.print("b.insert(str(nil),calc.int(nil));");
+ pa_a := calc.str(nil:void); # 41 pa_a:str := CALCnil2str(_53:void)
{G}
+ qa_a := calc.int(nil:void); # 42 qa_a:int := CALCnil2int(_53:void)
+ ra_a := bat.insert(b,pa_a,qa_a); # 43 ra_a:void :=
BKCinsert_bun(b:bat[:str,:int], pa_a:str, qa_a:int)
+# io.print("b.print();");
+ sa_a := io.print(b); # 45 sa_a:void :=
IOprint_val(b:bat[:str,:int])
+# io.print("b.export(\"monet2\");");
+ ta_a := io.export(b,"monet2"); # 47 ta_a:bit :=
IOexport(b:bat[:str,:int], _72:str)
+# io.print("b.delete();");
+ ua_a := bat.delete(b); # 49 ua_a:void :=
BKCdelete_all(b:bat[:str,:int])
+# io.print("b.count().print();");
+ va_a := aggr.count(b); # 51 va_a:int :=
ALGcount_bat(b:bat[:str,:int])
+ wa_a := io.print(va_a); # 52 wa_a:void :=
IOprint_val(va_a:int)
+# io.print("b.import(\"monet2\");");
+ xa_a := io.import(b,"monet2"); # 54 xa_a:bat[:str,:int] :=
IOimport(b:bat[:str,:int], _72:str) {G}
+# io.print("b.print();");
+ ya_a := io.print(b); # 56 ya_a:void :=
IOprint_val(b:bat[:str,:int])
+# io.print("var cb:= new(int,int);");
+ cb := bat.new(nil:int,nil:int); # 58 cb:bat[:int,:int] :=
CMDBATnew(_84:int, _84:int) {G}
+# io.print("cb.insert(1,15);");
+ ab_a := bat.insert(cb,1,15); # 60 ab_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _87:int, _88:int)
+# io.print("cb.insert(2,4);");
+ bb_a := bat.insert(cb,2,4); # 62 bb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _91:int, _92:int)
+# io.print("cb.insert(3,calc.int(nil));");
+ cb_a := calc.int(nil:void); # 64 cb_a:int := CALCnil2int(_95:void)
+ db_a := bat.insert(cb,3,cb_a); # 65 db_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _97:int, cb_a:int)
+# io.print("cb.insert(4,16);");
+ eb_a := bat.insert(cb,4,16); # 67 eb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _92:int, _100:int)
+# io.print("cb.insert(5,25);");
+ fb_a := bat.insert(cb,5,25); # 69 fb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _103:int, _104:int)
+# io.print("cb.insert(6,36);");
+ gb_a := bat.insert(cb,6,36); # 71 gb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _107:int, _108:int)
+# io.print("cb.insert(7,49);");
+ hb_a := bat.insert(cb,7,49); # 73 hb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _111:int, _112:int)
+# io.print("cb.insert(8,64);");
+ ib_a := bat.insert(cb,8,64); # 75 ib_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _115:int, _116:int)
+# io.print("cb.insert(9,calc.int(nil));");
+ jb_a := calc.int(nil:void); # 77 jb_a:int := CALCnil2int(_95:void)
+ kb_a := bat.insert(cb,9,jb_a); # 78 kb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], _120:int, jb_a:int)
+# io.print("cb.insert(calc.int(nil),int(nil));");
+ lb_a := calc.int(nil:void); # 80 lb_a:int := CALCnil2int(_95:void)
+ mb_a := calc.int(nil:void); # 81 mb_a:int := CALCnil2int(_95:void)
+ nb_a := bat.insert(cb,lb_a,mb_a); # 82 nb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], lb_a:int, mb_a:int)
+# io.print("cb.insert(calc.int(nil),81);");
+ ob_a := calc.int(nil:void); # 84 ob_a:int := CALCnil2int(_95:void)
+ pb_a := bat.insert(cb,ob_a,81); # 85 pb_a:void :=
BKCinsert_bun(cb:bat[:int,:int], ob_a:int, _128:int)
+# io.print("cb.print();");
+ qb_a := io.print(cb); # 87 qb_a:void :=
IOprint_val(cb:bat[:int,:int])
+# io.print("cb.export(\"monet1\");");
+ rb_a := io.export(cb,"monet1"); # 89 rb_a:bit :=
IOexport(cb:bat[:int,:int], _133:str)
+# io.print("cb.delete();");
+ sb_a := bat.delete(cb); # 91 sb_a:void :=
BKCdelete_all(cb:bat[:int,:int])
+# io.print("cb.count().print();");
+ tb_a := aggr.count(cb); # 93 tb_a:int :=
ALGcount_bat(cb:bat[:int,:int])
+ ub_a := io.print(tb_a); # 94 ub_a:void :=
IOprint_val(tb_a:int)
+# io.print("cb.import(\"monet1\");");
+ vb_a := io.import(cb,"monet1"); # 96 vb_a:bat[:int,:int] :=
IOimport(cb:bat[:int,:int], _133:str) {G}
+# io.print("cb.print();");
+ wb_a := io.print(cb); # 98 wb_a:void :=
IOprint_val(cb:bat[:int,:int])
+# io.print("commit();");
+ xb_a := transaction.commit(); #100 xb_a:bit
+# io.print("quit();");
+ yb_a := clients.quit(); #102 yb_a:void
+end main; #103
#-------------------------#
# h t # name
# str int # type
Index: test_10.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/tests/suite_01/Tests/test_10.stable.out,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -d -r1.17 -r1.18
--- test_10.stable.out 12 Jun 2007 17:22:34 -0000 1.17
+++ test_10.stable.out 15 Mar 2008 19:37:40 -0000 1.18
@@ -37,29 +37,29 @@
# mil.line("quit();");
# da_a := clients.quit();
#
-function user.main():void; # 0 (main:void)
-# Monet Mil to Mal compiler # 1 (_1:str)
-# Copyright (c) 2001-2004, CWI. All rights reserved. # 2 (_2:str)
-#Predefined code segment # 3 (_3:str)
-#The compiler can not guarantee an accurate compilation, # 4 (_4:str)
-#because MIL unlike MAL is a dynamically typed language. # 5 (_5:str)
-#A few guidelines to maximize usefullness. # 6 (_6:str)
-#- make the type of variables explicit, in particular 'nil' # 7 (_7:str)
-#- upon advice of M2m to remap identifiers, change it in your program directly
# 8 (_8:str)
-#use the "mil_schema" for additional support routines # 9 (_9:str)
-# io.print("setoid(oid(20000000));"); # 10 (_10:str)
- aa_a := calc.oid(20000000); # 11 CALCint2oid (aa_a:oid)<-(_12:int)
- ba_a := calc.setoid(aa_a); # 12 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
-# io.print("# long string problems in the Monet parser\n"); # 13
(_14:str)
- a := "asdfdsfasdfadfadfa"; # 14 (a:str)<-(_16:str)
-# io.print("var
b:=\"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x01\";"); # 15 (_17:str)
- b :=
"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x01"; # 16 (b:str)<-(_19:str)
-# io.print("var
c:=\"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x0123456789\";"); # 17 (_20:str)
- c :=
"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x0123456789"; # 18 (c:str)<-(_22:str)
-# io.print("c.print();"); # 19 (_23:str)
- ca_a := io.print(c); # 20 IOprint_val (ca_a:void)<-(c:str)
-# io.print("quit();"); # 21 (_25:str)
- da_a := clients.quit(); # 22 CLTquit (da_a:void)
+function user.main():void; # 0 main:void {G}
+# 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(20000000));");
+ aa_a := calc.oid(20000000); # 11 aa_a:oid := CALCint2oid(_12:int)
+ ba_a := calc.setoid(aa_a); # 12 ba_a:oid :=
CALCsetoidInc(aa_a:oid)
+# io.print("# long string problems in the Monet parser\n");
+ a := "asdfdsfasdfadfadfa"; # 14 a:str := _16:str {G}
+# io.print("var
b:=\"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x01\";");
+ b :=
"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x01";# 16 b:str := _19:str {G}
+# io.print("var
c:=\"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x0123456789\";");
+ c :=
"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x0123456789";# 18 c:str := _22:str {G}
+# io.print("c.print();");
+ ca_a := io.print(c); # 20 ca_a:void := IOprint_val(c:str)
+# io.print("quit();");
+ da_a := clients.quit(); # 22 da_a:void
end main; # 23
[
"01234567890123456789012345678901234567890123456789012345678901234567890123456789xxadf
jakdfjahfjklhflkjahdflkjadh ljkh j faljks fljka fkjla fad fj fhja fjkla
fljkadsfljka dflja fljadd x x x x x x xx x0123456789" ]
#quit();
Index: test_15.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/tests/suite_01/Tests/test_15.stable.out,v
retrieving revision 1.18
retrieving revision 1.19
diff -u -d -r1.18 -r1.19
--- test_15.stable.out 12 Jun 2007 17:22:34 -0000 1.18
+++ test_15.stable.out 15 Mar 2008 19:37:40 -0000 1.19
@@ -63,55 +63,55 @@
# mil.line("quit();");
# gb_a := clients.quit();
#
-function user.main():void; # 0 (main:void)
-# Monet Mil to Mal compiler # 1 (_1:str)
-# Copyright (c) 2001-2004, CWI. All rights reserved. # 2 (_2:str)
-#Predefined code segment # 3 (_3:str)
-#The compiler can not guarantee an accurate compilation, # 4 (_4:str)
-#because MIL unlike MAL is a dynamically typed language. # 5 (_5:str)
-#A few guidelines to maximize usefullness. # 6 (_6:str)
-#- make the type of variables explicit, in particular 'nil' # 7 (_7:str)
-#- upon advice of M2m to remap identifiers, change it in your program directly
# 8 (_8:str)
-#use the "mil_schema" for additional support routines # 9 (_9:str)
-# io.print("setoid(oid(20000000));"); # 10 (_10:str)
- aa_a := calc.oid(20000000); # 11 CALCint2oid (aa_a:oid)<-(_12:int)
- ba_a := calc.setoid(aa_a); # 12 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
-# io.print("commit(); printf(\"#~BeginVariableOutput~#\\n\");
ioStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");"); # 13
(_14:str)
- ca_a := transaction.commit(); # 14 TRNglobal_commit (ca_a:bit)
- da_a := io.printf("#~BeginVariableOutput~#\n"); # 15 IOprint_str
(da_a:void)<-(_17:str)
- ea_a := status.ioStatistics(); # 16 SYSioStatistics
(ea_a:bat[:str,:int])
- fa_a := io.print(ea_a); # 17 IOprint_val
(fa_a:void)<-(ea_a:bat[:str,:int])
- ga_a := io.printf("#~EndVariableOutput~#\n"); # 18 IOprint_str
(ga_a:void)<-(_21:str)
-# io.print("commit(); commit(); commit(); commit(); commit(); commit();
commit(); commit();"); # 19 (_22:str)
- ha_a := transaction.commit(); # 20 TRNglobal_commit (ha_a:bit)
- ia_a := transaction.commit(); # 21 TRNglobal_commit (ia_a:bit)
- ja_a := transaction.commit(); # 22 TRNglobal_commit (ja_a:bit)
- ka_a := transaction.commit(); # 23 TRNglobal_commit (ka_a:bit)
- la_a := transaction.commit(); # 24 TRNglobal_commit (la_a:bit)
- ma_a := transaction.commit(); # 25 TRNglobal_commit (ma_a:bit)
- na_a := transaction.commit(); # 26 TRNglobal_commit (na_a:bit)
- oa_a := transaction.commit(); # 27 TRNglobal_commit (oa_a:bit)
-# io.print("transaction.commit(); commit(); commit(); commit(); commit();
commit(); commit(); commit();"); # 28 (_31:str)
- pa_a := transaction.commit(); # 29 TRNglobal_commit (pa_a:bit)
- qa_a := transaction.commit(); # 30 TRNglobal_commit (qa_a:bit)
- ra_a := transaction.commit(); # 31 TRNglobal_commit (ra_a:bit)
- sa_a := transaction.commit(); # 32 TRNglobal_commit (sa_a:bit)
- ta_a := transaction.commit(); # 33 TRNglobal_commit (ta_a:bit)
- ua_a := transaction.commit(); # 34 TRNglobal_commit (ua_a:bit)
- va_a := transaction.commit(); # 35 TRNglobal_commit (va_a:bit)
- wa_a := transaction.commit(); # 36 TRNglobal_commit (wa_a:bit)
-# io.print("transaction.commit(); commit(); commit(); commit(); ");
# 37 (_40:str)
- xa_a := transaction.commit(); # 38 TRNglobal_commit (xa_a:bit)
- ya_a := transaction.commit(); # 39 TRNglobal_commit (ya_a:bit)
- ab_a := transaction.commit(); # 40 TRNglobal_commit (ab_a:bit)
- bb_a := transaction.commit(); # 41 TRNglobal_commit (bb_a:bit)
-# io.print("printf(\"#~BeginVariableOutput~#\\n\");
ioStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");"); # 42
(_45:str)
- cb_a := io.printf("#~BeginVariableOutput~#\n"); # 43 IOprint_str
(cb_a:void)<-(_17:str)
- db_a := status.ioStatistics(); # 44 SYSioStatistics
(db_a:bat[:str,:int])
- eb_a := io.print(db_a); # 45 IOprint_val
(eb_a:void)<-(db_a:bat[:str,:int])
- fb_a := io.printf("#~EndVariableOutput~#\n"); # 46 IOprint_str
(fb_a:void)<-(_21:str)
-# io.print("quit();"); # 47 (_50:str)
- gb_a := clients.quit(); # 48 CLTquit (gb_a:void)
+function user.main():void; # 0 main:void {G}
+# 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(20000000));");
+ aa_a := calc.oid(20000000); # 11 aa_a:oid := CALCint2oid(_12:int)
+ ba_a := calc.setoid(aa_a); # 12 ba_a:oid :=
CALCsetoidInc(aa_a:oid)
+# io.print("commit(); printf(\"#~BeginVariableOutput~#\\n\");
ioStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");");
+ ca_a := transaction.commit(); # 14 ca_a:bit
+ da_a := io.printf("#~BeginVariableOutput~#\n");# 15 da_a:void :=
IOprint_str(_17:str)
+ ea_a := status.ioStatistics(); # 16 ea_a:bat[:str,:int] {G}
+ fa_a := io.print(ea_a); # 17 fa_a:void :=
IOprint_val(ea_a:bat[:str,:int])
+ ga_a := io.printf("#~EndVariableOutput~#\n");# 18 ga_a:void :=
IOprint_str(_21:str)
+# io.print("commit(); commit(); commit(); commit(); commit(); commit();
commit(); commit();");
+ ha_a := transaction.commit(); # 20 ha_a:bit
+ ia_a := transaction.commit(); # 21 ia_a:bit
+ ja_a := transaction.commit(); # 22 ja_a:bit
+ ka_a := transaction.commit(); # 23 ka_a:bit
+ la_a := transaction.commit(); # 24 la_a:bit
+ ma_a := transaction.commit(); # 25 ma_a:bit
+ na_a := transaction.commit(); # 26 na_a:bit
+ oa_a := transaction.commit(); # 27 oa_a:bit
+# io.print("transaction.commit(); commit(); commit(); commit(); commit();
commit(); commit(); commit();");
+ pa_a := transaction.commit(); # 29 pa_a:bit
+ qa_a := transaction.commit(); # 30 qa_a:bit
+ ra_a := transaction.commit(); # 31 ra_a:bit
+ sa_a := transaction.commit(); # 32 sa_a:bit
+ ta_a := transaction.commit(); # 33 ta_a:bit
+ ua_a := transaction.commit(); # 34 ua_a:bit
+ va_a := transaction.commit(); # 35 va_a:bit
+ wa_a := transaction.commit(); # 36 wa_a:bit
+# io.print("transaction.commit(); commit(); commit(); commit(); ");
+ xa_a := transaction.commit(); # 38 xa_a:bit
+ ya_a := transaction.commit(); # 39 ya_a:bit
+ ab_a := transaction.commit(); # 40 ab_a:bit
+ bb_a := transaction.commit(); # 41 bb_a:bit
+# io.print("printf(\"#~BeginVariableOutput~#\\n\");
ioStatistics().print(); printf(\"#~EndVariableOutput~#\\n\");");
+ cb_a := io.printf("#~BeginVariableOutput~#\n");# 43 cb_a:void :=
IOprint_str(_17:str)
+ db_a := status.ioStatistics(); # 44 db_a:bat[:str,:int] {G}
+ eb_a := io.print(db_a); # 45 eb_a:void :=
IOprint_val(db_a:bat[:str,:int])
+ fb_a := io.printf("#~EndVariableOutput~#\n");# 46 fb_a:void :=
IOprint_str(_21:str)
+# io.print("quit();");
+ gb_a := clients.quit(); # 48 gb_a:void
end main; # 49
#~BeginVariableOutput~#
#-------------------------#
@@ -119,13 +119,13 @@
# str int # type
#-------------------------#
[ "maxrss", 0 ]
-[ "minflt", 2443 ]
+[ "minflt", 3349 ]
[ "majflt", 0 ]
[ "nswap", 0 ]
[ "inblock", 0 ]
-[ "oublock", 0 ]
-[ "nvcsw", 0 ]
-[ "ninvcsw", 157 ]
+[ "oublock", 48 ]
+[ "nvcsw", 4 ]
+[ "ninvcsw", 33 ]
#~EndVariableOutput~#
#commit(); commit(); commit(); commit(); commit(); commit(); commit();
commit();
#transaction.commit(); commit(); commit(); commit(); commit(); commit();
commit(); commit();
@@ -137,13 +137,13 @@
# str int # type
#-------------------------#
[ "maxrss", 0 ]
-[ "minflt", 2446 ]
+[ "minflt", 3352 ]
[ "majflt", 0 ]
[ "nswap", 0 ]
[ "inblock", 0 ]
-[ "oublock", 0 ]
-[ "nvcsw", 6 ]
-[ "ninvcsw", 163 ]
+[ "oublock", 56 ]
+[ "nvcsw", 7 ]
+[ "ninvcsw", 34 ]
#~EndVariableOutput~#
#quit();
Index: test_05.stable.out
===================================================================
RCS file: /cvsroot/monetdb/MonetDB5/tests/suite_01/Tests/test_05.stable.out,v
retrieving revision 1.25
retrieving revision 1.26
diff -u -d -r1.25 -r1.26
--- test_05.stable.out 19 Aug 2007 20:03:45 -0000 1.25
+++ test_05.stable.out 15 Mar 2008 19:37:40 -0000 1.26
@@ -80,70 +80,70 @@
# mil.line("quit();");
# va_a := clients.quit();
#
-function user.main():void; # 0 (main:void)
-# Monet Mil to Mal compiler # 1 (_1:str)
-# Copyright (c) 2001-2004, CWI. All rights reserved. # 2 (_2:str)
-#Predefined code segment # 3 (_3:str)
-#The compiler can not guarantee an accurate compilation, # 4 (_4:str)
-#because MIL unlike MAL is a dynamically typed language. # 5 (_5:str)
-#A few guidelines to maximize usefullness. # 6 (_6:str)
-#- make the type of variables explicit, in particular 'nil' # 7 (_7:str)
-#- upon advice of M2m to remap identifiers, change it in your program directly
# 8 (_8:str)
-#use the "mil_schema" for additional support routines # 9 (_9:str)
-# io.print("setoid(oid(20000000));"); # 10 (_10:str)
- aa_a := calc.oid(20000000); # 11 CALCint2oid (aa_a:oid)<-(_12:int)
- ba_a := calc.setoid(aa_a); # 12 CALCsetoidInc (ba_a:oid)<-(aa_a:oid)
-# io.print("# escape sequences\n"); # 13 (_14:str)
-# io.print("# first some basics, escaped characters are normalized\n");
# 14 (_15:str)
-# io.print("print(\"got single quote ' .\");\t# remove superfluous
escapes"); # 15 (_16:str)
- ca_a := io.print("got single quote ' ."); # 16 IOprint_val
(ca_a:void)<-(_18:str)
-# io.print("# remove superfluous escapes\n"); # 17 (_19:str)
- da_a := io.print("got single quote ' without escape"); # 18
IOprint_val (da_a:void)<-(_21:str)
-# io.print("print(\"got tab \t and single newline \n .\");"); # 19
(_22:str)
- ea_a := io.print("got tab \t and single newline \n ."); # 20
IOprint_val (ea_a:void)<-(_24:str)
-# io.print("print(\"problem signalled before \\\"\");"); # 21 (_25:str)
- fa_a := io.print("problem signalled before \\\""); # 22 IOprint_val
(fa_a:void)<-(_27:str)
-# io.print("var t0:= \"got single quote ' .\";\tt0.print();"); # 23
(_28:str)
- t0 := "got single quote ' ."; # 24 (t0:str)<-(_18:str)
- ga_a := io.print(t0); # 25 IOprint_val (ga_a:void)<-(t0:str)
-# io.print("var t1:= \"got single quote ' without
escape\";\tt1.print();"); # 26 (_31:str)
- t1 := "got single quote ' without escape"; # 27 (t1:str)<-(_21:str)
- ha_a := io.print(t1); # 28 IOprint_val (ha_a:void)<-(t1:str)
-# io.print("var t2:= \"got tab \t and single newline \n .\";
t2.print();"); # 29 (_34:str)
- t2 := "got tab \t and single newline \n ."; # 30
(t2:str)<-(_24:str)
- ia_a := io.print(t2); # 31 IOprint_val (ia_a:void)<-(t2:str)
-# io.print("var t3:= \"problem signalled before \\\"\"; t3.print();");
# 32 (_37:str)
- t3 := "problem signalled before \\\""; # 33 (t3:str)<-(_27:str)
- ja_a := io.print(t3); # 34 IOprint_val (ja_a:void)<-(t3:str)
-# io.print("# character constants\n"); # 35 (_40:str)
- c0 := "\n"; # 36 (c0:str)<-(_42:str)
- ka_a := io.print(c0); # 37 IOprint_val (ka_a:void)<-(c0:str)
-# io.print("var c1:= \"'\"; c1.print();"); # 38 (_44:str)
- c1 := "'"; # 39 (c1:str)<-(_46:str)
- la_a := io.print(c1); # 40 IOprint_val (la_a:void)<-(c1:str)
-# io.print("var c2:= \"\\\"; c2.print();"); # 41 (_48:str)
- c2 := "\\"; # 42 (c2:str)<-(_50:str)
- ma_a := io.print(c2); # 43 IOprint_val (ma_a:void)<-(c2:str)
-# io.print("var s:=new(int,str,100);"); # 44 (_52:str)
- s := bat.new(nil:int,nil:str,100); # 45 CMDBATnewint
(s:bat[:int,:str])<-(_54:int)(_55:str)(_56:int)
-# io.print("s.insert(2,\" single quote ' got it\");"); # 46 (_57:str)
- na_a := bat.insert(s,2," single quote ' got it"); # 47 BKCinsert_bun
(na_a:void)<-(s:bat[:int,:str])(_59:int)(_60:str)
-# io.print("s.insert(4,\" backslash \\ \");"); # 48 (_61:str)
- oa_a := bat.insert(s,4," backslash "); # 49 BKCinsert_bun
(oa_a:void)<-(s:bat[:int,:str])(_63:int)(_64:str)
-# io.print("s.insert(3,\" single quote ' \");"); # 50 (_65:str)
- pa_a := bat.insert(s,3," single quote ' "); # 51 BKCinsert_bun
(pa_a:void)<-(s:bat[:int,:str])(_67:int)(_68:str)
-# io.print("s.print();"); # 52 (_69:str)
- qa_a := io.print(s); # 53 IOprint_val (qa_a:void)<-(s:bat[:int,:str])
-# io.print("# Monet printf should behave as in C\n"); # 54 (_71:str)
- ra_a := io.printf("got single quote ' .\n"); # 55 IOprint_str
(ra_a:void)<-(_73:str)
-# io.print("# remove superfluous escapes\n"); # 56 (_74:str)
- sa_a := io.printf("got single quote ' without escape\n"); # 57
IOprint_str (sa_a:void)<-(_76:str)
-# io.print("printf(\"got tab \t and newline \n .\n\");"); # 58
(_77:str)
- ta_a := io.printf("got tab \t and newline \n .\n"); # 59
IOprint_str (ta_a:void)<-(_79:str)
-# io.print("printf(\"problem signalled before \\\"\n\");"); # 60
(_80:str)
- ua_a := io.printf("problem signalled before \\\"\n"); # 61
IOprint_str (ua_a:void)<-(_82:str)
-# io.print("quit();"); # 62 (_83:str)
- va_a := clients.quit(); # 63 CLTquit (va_a:void)
+function user.main():void; # 0 main:void {G}
+# 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(20000000));");
+ aa_a := calc.oid(20000000); # 11 aa_a:oid := CALCint2oid(_12:int)
+ ba_a := calc.setoid(aa_a); # 12 ba_a:oid :=
CALCsetoidInc(aa_a:oid)
+# io.print("# escape sequences\n");
+# io.print("# first some basics, escaped characters are normalized\n");
+# io.print("print(\"got single quote ' .\");\t# remove superfluous
escapes");
+ ca_a := io.print("got single quote ' .");# 16 ca_a:void :=
IOprint_val(_18:str)
+# io.print("# remove superfluous escapes\n");
+ da_a := io.print("got single quote ' without escape");# 18 da_a:void :=
IOprint_val(_21:str)
+# io.print("print(\"got tab \t and single newline \n .\");");
+ ea_a := io.print("got tab \t and single newline \n .");# 20 ea_a:void :=
IOprint_val(_24:str)
+# io.print("print(\"problem signalled before \\\"\");");
+ fa_a := io.print("problem signalled before \\\"");# 22 fa_a:void :=
IOprint_val(_27:str)
+# io.print("var t0:= \"got single quote ' .\";\tt0.print();");
+ t0 := "got single quote ' ."; # 24 t0:str := _18:str {G}
+ ga_a := io.print(t0); # 25 ga_a:void := IOprint_val(t0:str)
+# io.print("var t1:= \"got single quote ' without
escape\";\tt1.print();");
+ t1 := "got single quote ' without escape";# 27 t1:str := _21:str {G}
+ ha_a := io.print(t1); # 28 ha_a:void := IOprint_val(t1:str)
+# io.print("var t2:= \"got tab \t and single newline \n .\";
t2.print();");
+ t2 := "got tab \t and single newline \n .";# 30 t2:str := _24:str {G}
+ ia_a := io.print(t2); # 31 ia_a:void := IOprint_val(t2:str)
+# io.print("var t3:= \"problem signalled before \\\"\"; t3.print();");
+ t3 := "problem signalled before \\\"";# 33 t3:str := _27:str {G}
+ ja_a := io.print(t3); # 34 ja_a:void := IOprint_val(t3:str)
+# io.print("# character constants\n");
+ c0 := "\n"; # 36 c0:str := _42:str {G}
+ ka_a := io.print(c0); # 37 ka_a:void := IOprint_val(c0:str)
+# io.print("var c1:= \"'\"; c1.print();");
+ c1 := "'"; # 39 c1:str := _46:str {G}
+ la_a := io.print(c1); # 40 la_a:void := IOprint_val(c1:str)
+# io.print("var c2:= \"\\\"; c2.print();");
+ c2 := "\\"; # 42 c2:str := _50:str {G}
+ ma_a := io.print(c2); # 43 ma_a:void := IOprint_val(c2:str)
+# io.print("var s:=new(int,str,100);");
+ s := bat.new(nil:int,nil:str,100); # 45 s:bat[:int,:str] :=
CMDBATnewint(_54:int, _55:str, _56:int) {G}
+# io.print("s.insert(2,\" single quote ' got it\");");
+ na_a := bat.insert(s,2," single quote ' got it");# 47 na_a:void :=
BKCinsert_bun(s:bat[:int,:str], _59:int, _60:str)
+# io.print("s.insert(4,\" backslash \\ \");");
+ oa_a := bat.insert(s,4," backslash ");# 49 oa_a:void :=
BKCinsert_bun(s:bat[:int,:str], _63:int, _64:str)
+# io.print("s.insert(3,\" single quote ' \");");
+ pa_a := bat.insert(s,3," single quote ' ");# 51 pa_a:void :=
BKCinsert_bun(s:bat[:int,:str], _67:int, _68:str)
+# io.print("s.print();");
+ qa_a := io.print(s); # 53 qa_a:void :=
IOprint_val(s:bat[:int,:str])
+# io.print("# Monet printf should behave as in C\n");
+ ra_a := io.printf("got single quote ' .\n");# 55 ra_a:void :=
IOprint_str(_73:str)
+# io.print("# remove superfluous escapes\n");
+ sa_a := io.printf("got single quote ' without escape\n");# 57 sa_a:void :=
IOprint_str(_76:str)
+# io.print("printf(\"got tab \t and newline \n .\n\");");
+ ta_a := io.printf("got tab \t and newline \n .\n");# 59 ta_a:void :=
IOprint_str(_79:str)
+# io.print("printf(\"problem signalled before \\\"\n\");");
+ ua_a := io.printf("problem signalled before \\\"\n");# 61 ua_a:void :=
IOprint_str(_82:str)
+# io.print("quit();");
+ va_a := clients.quit(); # 63 va_a:void
end main; # 64
[ "got single quote ' ." ]
## remove superfluous escapes
-------------------------------------------------------------------------
This SF.net email is sponsored by: Microsoft
Defy all challenges. Microsoft(R) Visual Studio 2008.
http://clk.atdmt.com/MRT/go/vse0120000070mrt/direct/01/
_______________________________________________
Monetdb-checkins mailing list
[email protected]
https://lists.sourceforge.net/lists/listinfo/monetdb-checkins
