no.100.mils

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

# >Number:         100
# >Category:       MIL
# >Synopsis:       Virtual oids behave in a strange way.
# >Confidential:   no
# >Severity:       serious
# >Priority:       medium
# >Responsible:    boncz
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Mon Dec 15 11:47:39 1997
# >Originator:     quak
# >Organization:
# UvA
# >Release:        971007
# >Environment:
# all
# >Description:
# Try this out:
# > a := new(int,str);
# > a.insert(1,"hello world");
# > a.seqbase(100@0);
# > [oid]([a~]).reverse.print();
# #-----------------#
# # oid   | tmp_92  #
# #-----------------#
# [ 100@0,  1       ]
# > [oid]([a~]).reverse.copy.print();
# #-----------------#
# # oid   | tmp_93  #
# #-----------------#
# [ 1@0,    100     ]
# 

setoid(oid(20000000));
var a := new(int,str);
a.insert(1,"hello world");
a.print();
a.mark(nil).print();
a.mark(nil).reverse().print();
[oid](a.mark(nil)).reverse().print();
a.seqbase(100@0);
[oid](a.mark(nil)).reverse().print();
[oid](a.mark(nil)).reverse().copy().print();
quit();