tst4610.mal

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

# the first test for macro expansions and inversions

function joinPath( a:bat[:any_1,:any_2],
                b:bat[:any_2,:any_3],
                c:bat[:any_3,:any_4]):bat[:any_1,:any_4];
    z:= algebra.join(a,b);
    zz:= algebra.join(z,c);
    return zz;
end joinPath;

optimizer.orcam("user","joinPath");

a:= bat.new(:int,:int);
b:= bat.new(:int,:int);
c:= bat.new(:int,:int);
g:= algebra.join(a,b);
h:= algebra.join(g,c);

r:= algebra.joinPath(a,b,c);
mdb.list();