no.162.mils

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

# >Number:         162
# >Category:       Mserver
# >Synopsis:       ghost BUN in join result
# >Confidential:   no
# >Severity:       critical
# >Priority:       high
# >Responsible:    boncz (Peter Boncz)
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Wed Jul 15 16:13:00 1998
# >Originator:     [e-mail]
# >Organization:
# CWI
# >Release:        980101
# >Environment:
# 
# >Description:
# A ghost BUN appears in the following script:
# 
# script
# 8<-----
# VAR left := new(int,int);
# left.insert(4,-3);
# left.insert(3,-2);
# left.insert(2,-1);
# left.insert(1,0);
#  
# VAR right := new(int,str);
# right.insert(-3,"vier");
# right.insert(-2,"drie");
# right.insert(-1,"twee");
# right.insert(0,"een");
# 
# join(left,right).print;
# 
# 8<-----
# output
# 8<-----
# >join(left,right).print;
# #-----------------#
# # BAT:    tmp_37  #
# # (int)   (str)   #
# #-----------------#
# [ 4,      "vier"  ]
# [ 3,      "drie"  ]
# [ 2,      "twee"  ]
# [ 1,      "een"   ]
# [ 1,      ""      ]

setoid(oid(20000000));

VAR left := new(int,int);
left.insert(4,-3);
left.insert(3,-2);
left.insert(2,-1);
left.insert(1,0);
 
VAR right := new(int,str);
right.insert(-3,"vier");
right.insert(-2,"drie");
right.insert(-1,"twee");
right.insert(0,"een");

join(left,right).print();

quit();