no.157.mils

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

# >Number:         157
# >Category:       Mserver
# >Synopsis:       long selects
# >Confidential:   no
# >Severity:       critical
# >Priority:       high
# >Responsible:    boncz (Peter Boncz)
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Tue Jun 23 13:42:30 1998
# >Originator:     [e-mail]
# >Organization:
# CWI
# >Release:        980101
# >Environment:
# 
# >Description:
# Selection of longs results in rather strange results:
# 
# Test script
# 8<----
# test := new(oid,lng);
# test.insert(oid(53991617),lng(60000401));
# test.insert(oid(53996584),lng(60000400));
# test.insert(oid(55526089),lng(50015637));
# test.print;
# test.select(lng(0)).print;
# test.select(lng(60000401)).print;
# test.select(lng(0),lng(1)).print;
# test.insert(oid(1),lng(1));
# test.select(lng(0)).print;
# test.select(lng(60000401)).print;
# test.select(lng(0),lng(1)).print;
# 
# 8<-----
# Test output
# 8<-----
# #You are system administrator (adm)!
# >>>>>#---------------------------------#
# # BAT:            tmp_23          #
# # (oid)           (lng)           #
# #---------------------------------#
# [ 53991617@0,     60000401        ]
# [ 53996584@0,     60000400        ]
# [ 55526089@0,     50015637        ]
# >#-------------------------#
# # BAT:            tmp_24  #
# # (oid)           (lng)   #
# #-------------------------#
# [ 53991617@0,     0       ]
# [ 53996584@0,     0       ]
# [ 55526089@0,     0       ]
# >#---------------------------------#
# # BAT:            tmp_24          #
# # (oid)           (lng)           #
# #---------------------------------#
# [ 53991617@0,     60000401        ]
# [ 53996584@0,     60000401        ]
# [ 55526089@0,     60000401        ]
# >#---------------------------------#
# # BAT:            tmp_24          #
# # (oid)           (lng)           #
# #---------------------------------#
# [ 53991617@0,     60000401        ]
# [ 53996584@0,     60000400        ]
# [ 55526089@0,     50015637        ]
# >>#-------------------------#
# # BAT:            tmp_24  #
# # (oid)           (lng)   #
# #-------------------------#
# [ 53991617@0,     0       ]
# [ 53996584@0,     0       ]
# [ 55526089@0,     0       ]
# [ 1@0,            0       ]
# >#---------------------------------#
# # BAT:            tmp_24          #
# # (oid)           (lng)           #
# #---------------------------------#
# [ 53991617@0,     60000401        ]
# [ 53996584@0,     60000401        ]
# [ 55526089@0,     60000401        ]
# [ 1@0,            60000401        ]
# >#---------------------------------#
# # BAT:            tmp_24          #
# # (oid)           (lng)           #
# #---------------------------------#
# [ 53991617@0,     60000401        ]
# [ 53996584@0,     60000400        ]
# [ 55526089@0,     50015637        ]
# [ 1@0,            1               ]

setoid(oid(20000000));
var test := new(oid,lng);
test.insert(oid(53991617),lng(60000401));
test.insert(oid(53996584),lng(60000400));
test.insert(oid(55526089),lng(50015637));
test.print();
test.select(lng(0)).print();
test.select(lng(60000401)).print();
test.select(lng(0),lng(1)).print();
test.insert(oid(1),lng(1));
test.select(lng(0)).print();
test.select(lng(60000401)).print();
test.select(lng(0),lng(1)).print();

quit();