no.011.mils

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

# >Number:         11
# >Category:       Mserver
# >Synopsis:       batloop operator on new(int, nil) hangs...
# >Confidential:   no
# >Severity:       serious
# >Priority:       low
# >Responsible:    boncz
# >State:          closed
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Mon Jul 14 17:30:01 1997
# >Originator:     jonas
# >Organization:
# >Release:        970101
# >Environment:
# 3.06 hacked
# >Description:
# The following hangs the Mserver:
# 
# f := new(int, nil);
# f.insert(1,10);
# f.insert(2,20);
# f.insert(3,30);
# f.print();
# f@batloop()  { $head.print(); $tail.print(); }

var f := new(int, 0);
f.insert(1,10);
f.insert(2,20);
f.insert(3,30);
f.print();
f@batloop()  { $head.print(); $tail.print(); }
var h := new(int, void);
h.insert(1,void(10));
h.insert(2,void(20));
h.insert(3,void(30));
h.print();
h@batloop()  { $head.print(); $tail.print(); }
var k := new(int, void);
k.insert(1,void(nil));
k.insert(2,void(nil));
k.insert(3,void(nil));
k.print();
k@batloop()  { $head.print(); $tail.print(); }
var g := new(int, int);
g.insert(1,10);
g.insert(2,20);
g.insert(3,30);
g.print();
g@batloop()  { $head.print(); $tail.print(); }
quit();