bpt00.mal

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

#testing the BAT partition table
a1:= bat.new(:oid,:int);
bat.insert(a1,0@0,0);
a2:= bat.new(:oid,:int);
bat.insert(a2,10@0,0);
a3:= bat.new(:oid,:int);
bat.insert(a3,20@0,0);

barrier (go,i):= language.newRange(1);
	bat.append(a1,i);
	bat.append(a2,i);
	bat.append(a3,i);
	redo (go,i):= language.nextElement(1,10);
exit (go,i);

# add the stuff to the BPT and dump it
barrier idx:= partitions.newIterator();
	io.print(idx);
	redo idx:= partitions.hasMoreElements();
exit idx;

# now really add it
partitions.deposit(a1);
partitions.deposit(a1,a2);
partitions.deposit(a1,a3);
partitions.dump();
barrier idx:= partitions.newIterator();
	io.print(idx);
	b:= partitions.take(idx);
	io.print(b);
	redo idx:= partitions.hasMoreElements();
exit idx;