id.979809.mils

来自「一个内存数据库的源代码这是服务器端还有客户端」· MILS 代码 · 共 39 行

module("unix");
module(ascii_io);

var cwd := getenv("TSTTRGDIR");
var word_file := sprintf("%s/ID.979809.txt", cwd);


var word_table:= new(oid,str);
word_table.import(word_file);

print("selecting 'nil' words. The result should be 2");
word_table.select("nil").count().print();    # should be 2 and it is 0

print("selecting nil values. The result should be 0");
word_table.select(str(nil)).count().print();    # should be 1 and it is 3

print("the table imported");
word_table.print();    # the "nil" words are converted to nil values     


var names := new(void,str).seqbase(0@0);
names.insert(oid(nil),"one");
names.insert(oid(nil),"two");
var seps := new(void,str).seqbase(0@0);
seps.insert(oid(nil),",");
seps.insert(oid(nil),"\n");
var types := new(void,str).seqbase(0@0);
types.insert(oid(nil),"oid");
types.insert(oid(nil),"str");

var bats := load( names, seps, types, word_file, -1);
print(bats.find("one"),bats.find("two"));


quit();