str_heap.mal

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

b:= bat.new(:int,:str);
bat.setPersistent(b);
bat.setName(b,"DRUID_sample");

bat.insert(b,1,"Medicina e salute Malattie , Medicina , Terapie ... Risorse Biblioteche , Dizionari ... Scienza e tecnologia Archeologia , Biologia , Astronomia ... Scienze umane e sociali Economia , Storia , Psicologia ... Società e culture A tavola , Religione , Ambiente ... Sport e tempo libero Calcio , Basket , Ciclismo , Viaggi ... Nelle notizie · Iraq, nuovi attacchi USA · Clandestini, sbarchi continui in Puglia · Kosovo: \"cruciale il supporto italiano\" · Europee, Paolo Rossi con AN · Terremoto in");

bat.insert(b,2,"Software ... Geisteswissenschaften Psychologie , Geschichte , Sprachen ... Gesellschaft & Soziales Umwelt , Religion , Museen ... Gesundheit Medizin , Krankheiten , Ernährung ... Handel & Wirtschaft Firmen , Finanzen , Jobs , Shopping ... Kunst & Kultur Kunst , Literatur , Theater ... Nachrichten & Medien Spezial , TV , Zeitschriften , Zeitungen ... Nachschlagewerke Bibliotheken , Wörterbücher , Postinfos ... Naturwissenschaft & Technik Ingenieurwesen , Astronomie , Biologie ... Sport & Freizeit");

bat.insert(b,3,"");

bat.insert(b,4,"Taxes ... Health [ Xtra! ] Medicine , Drugs , Diseases , Fitness ... News and Media [ Xtra! ] Current Events , Magazines , TV , Newspapers ... Recreation and Sports [ Xtra! ] Sports , Games , Travel , Autos , Outdoors ... Reference Libraries , Dictionaries , Phone Numbers ... Regional Countries , Regions , U.S. States ... Science CS , Biology , Astronomy , Engineering ... Social Science Anthropology , Sociology , Economics ... Society and Culture People , Environment , Religion ... What's New -");

bat.insert(b,5,"laune · Débats et mesures sur la sécurité · Nouvelle escalade dans le ciel irakien · Le procès Clinton · Tremblement de terre en Colombie · Open d'Australie [ Tous les titres ] EtsurYahoo! · BD: festival d'Angoulême · La sélection de la semaine · Mon Yahoo! : votre Yahoo! à vous! · Yahoo! recrute [ Tout sur Yahoo! ] Yahoo! Europe  Allemagne - Danemark - Espagne - Italie - Norvège - R.U. & Irlande - Suède Yahoo! Monde Yahoo! (US) - Asie - Australie & N.Z. - Canada - Corée - Japon - chinois -");

io.print(b);

bat.unload("DRUID_sample");

bat.load("DRUID_sample");

c:bat[:int,:str]:= bbp.bind("DRUID_sample");
io.print(c);

bat.setPersistent(c,false);
clients.quit();