no.120.mils

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

# >Number:         120
# >Category:       Mserver
# >Synopsis:       First bun always nul in case of Virtual Oid.
# >Confidential:   no
# >Severity:       serious
# >Priority:       medium
# >Responsible:    boncz
# >State:          open
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Mon Feb 16 15:25:54 1998
# >Originator:     quak
# >Organization:
# UvA
# >Release:        971007
# >Environment:
# solaris
# >Description:
# Have a look at the script:
# 
# > a := new(int,int);
# > a.insert(1,2);
# > a.insert(2,3);
# > a.insert(3,4);
# > a.seqbase(newoid(a.count()));
# > [oid]([a~]).print;
# #-------------------------#
# # int   | tmp_107         #
# #-------------------------#
# [ 1,      nil             ]
# [ 2,      1000000003@2    ]
# [ 3,      1000000004@2    ]

setoid(oid(20000000));
var a := new(int,int);
a.insert(1,2);
a.insert(2,3);
a.insert(3,4);
a.seqbase(newoid(a.count()));
[oid](a.mark(nil)).print();
quit();