tst901d.mal

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

# what is the overhead of MAL in multiplex situations
profiler.setAll();
b:= new(:lng,:lng);
t0:= alarm.usec();
i:= -1:lng;
t0:= alarm.usec();
barrier v:= nextElement(i,0:lng,1000000:lng);
	insert(b,i,i);
	redo v;
exit v;
t1:= alarm.usec();
c1:= reverse(b);
c2:= mark(c1,nil:oid);
c3:= reverse(c2);
c4:= copy(c3);
tz:= alarm.usec();
c5:= copy(b);
t2:= alarm.usec();
x:= batcalc.+(c3,c3,c3);
t3:= alarm.usec();
x:= batcalc.+(c3,c3);
t4:= alarm.usec();
z:= dbl(c3);
t5:= alarm.usec();
l:= log(z);
t6:= alarm.usec();
e:= batcalc.==(c3,c3);
t7:= alarm.usec();
#ww:= info(c5); print(ww);
#ww:= info(z); print(ww);
#ww:= info(l); print(ww);
d1:= t1-t0;
d2:= t3-t2;
d3:= t4-t3;
d4:= t5-t4;
d5:= t6-t5;
d6:= t7-t6;
d7:= t2-tz;
xc:=count(x);
printf("count %d\n",xc);
printf("make %d \n",d1);
printf("[:+=] %d\n",d2);
printf("[+] %d\n",d3);
printf("copy %d\n",d7);
printf("[=] %d\n",d6);
printf("[dbl] %d\n",d4);
printf("[log] %d\n",d5);