sema.mal

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

#line 26 "/export/scratch0/monet/monet.GNU.64.64.d.14791/MonetDB5/src/modules/kernel/sema.mx"
atom sema:ptr;

command create(init:int ) :sema 
address SEMAcreate
comment "Create an unset sema, with an initial value";
command down(s:sema) 
address SEMAdown
comment "Decrement the semaphpore if >0; else block";
command up(s:sema) 
address SEMAup
comment "Increment the semaphore";
command destroy(s:sema) 
address SEMAdestroy
comment "Destroy a semaphore";