array.tmpmil

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

PROC cons(int n,any::1 v) : bat[void,any::1] {
	return project(grid(1,n,1,0),v);
}
ADDHELP("cons", "A.R. van Ballegooij", "Sep 20 2003",
"generates a bat with a constant column", "array");

PROC concat(bat[oid,any::1] a,bat[oid,any::1] b,int o) : bat[oid,any::1] {
	return access(insert(access(copy(a),BAT_WRITE),
			reverse([oid]([+]([int](reverse(b)),o)))) ,
			BAT_READ);
}
ADDHELP("concat", "A.R. van Ballegooij", "Sep 20 2003",
"Adds 'offset' two second arrays indexes and merges tables", "array");

if (mod() = "main"){
	print("Array module loaded...");
}