chopper02.mal

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

	t:= bat.new(:int, :url);
	cb_a := url.url("http://www.cwi.nl");
	db_a := bat.insert(t,1,cb_a);
	eb_a := url.url("http://www.cwi.nl/~monet");
	fb_a := bat.insert(t,2,eb_a);
	gb_a := url.url("http://www.cwi.nl/~mk/Acoi/doc/features.html");
	hb_a := bat.insert(t,3,gb_a);
	ib_a := url.url("http://www.educ.uva.nl/schoolweb/rocloka.htm");
	jb_a := bat.insert(t,4,ib_a);
	kb_a := url.url("http://www.nedstat.nl/cgi-bin/viewstat?name=Planetarium");
	lb_a := bat.insert(t,5,kb_a);
	mb_a := url.url("http://www.edgeonline.com/");
	nb_a := bat.insert(t,6,mb_a);
	qb_a := io.print("build a table finished");
	io.print(t);
	rb:= bat.new(:int,:url);
	io.print("start loop");
barrier (mloop:lng,h:int,B2:url) := bat.newIterator(t);        
	io.print(h);
	io.print(B2);
	bat.insert(rb,h,B2);
	redo (mloop:lng,h:int,B2:url) := bat.hasMoreElements(t);        
exit mloop;
	io.print(rb);