pbm00.mal

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

# initialize the BAT partition box.
# to be used in the other pbm* tests
    pbm.open();
    b1:= bat.new(:oid,:int);
    bat.setPersistent(b1);
    pbm.deposit("Sales2005","06",b1);
    b2:= bat.new(:oid,:int);
    bat.setPersistent(b2);
    pbm.deposit("Sales2005","07",b2);
    b3:= bat.new(:oid,:int);
    bat.setPersistent(b3);
    pbm.deposit("Sales2005","08",b3);

    c1:= bat.new(:oid,:int);
    bat.setPersistent(c1);
    pbm.deposit("Invoice2005","06",c1);
    c2:= bat.new(:oid,:int);
    bat.setPersistent(c2);
    pbm.deposit("Invoice2005","07",c2);
    c3:= bat.new(:oid,:int);
    pbm.deposit("Invoice2005","08",c3);
    bat.setPersistent(c3);

    n:= pbm.getNames(); # get content of partitition catalogue.
    io.print(n);
    pbm.dump();

barrier (nr,grp,elm):= pbm.newIterator();
    io.print(grp,elm);
    redo (nr,grp,elm):=pbm.getNextName();
exit (nr,grp,elm);
    pbm.close();
    io.print("done");