no.050.mils

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

# >Number:         50
# >Category:       MIL
# >Synopsis:       select on index problem
# >Confidential:   no
# >Severity:       critical
# >Priority:       high
# >Responsible:    boncz
# >State:          closed
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Wed Oct 15 10:23:33 1997
# >Originator:     niels
# >Organization:
# >Release:        971007
# >Environment:
# SunOS5.5.1
# >Description:
# Select on a indexed bat does not work correct. 
# a := new (oid,int);
# a.insert( oid(1), 100 );
# a.insert( oid(2), 1000 );
# a.insert( oid(4), 10 );
# a.insert( oid(5), 15 );
# a.reverse.accbuild(index);
# a.select( 94, 110 ).print;
# #output
# #-----------------#
# # oid   | tmp_27  #
# #-----------------#
# [ 1@0,    100     ]
# [ 2@0,    1000    ]

var a := new (oid,int);
a.insert( oid(1), 100 );
a.insert( oid(2), 1000 );
a.insert( oid(4), 10 );
a.insert( oid(5), 15 );
a.print();
a.reverse().accbuild("index");
a.print();
a.select( 94, 110 ).print();
quit();