tst6010.mal

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

# Tests for the x100core package
N:= 10:lng;
res:= x100.newVector(uint,N);
col:= x100.newVector(uint,N);
sel:= x100.newVector(uint,N);

barrier (v,i):= newRange(0L);
	insert(res,nil,0:uint);
	ju:= uint(i);
	insert(col,nil,ju);
	insert(sel,nil,ju);
	redo (v,i):= nextElement(1L,N);
exit (v,i);
print(res);
print(col);
print(sel);
printf("x100 command \n");
x100.<=(res,col,col,sel,N);
print(res);