no.073_s00.milm

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

# >Number:         73
include "mil_algebra_procs";
include "mil_insert";
include "mil_system_procs";
# >Category:       Mserver
# >Synopsis:       original BAT unknown after renamed reverse BAT
# >Confidential:   no
# >Severity:       serious
# >Priority:       medium
# >Responsible:    boncz
# >State:          closed
# >Class:          sw-bug
# >Submitter-Id:   unknown
# >Arrival-Date:   Wed Nov  5 13:03:07 1997
# >Originator:     windhouw
# >Organization:
# >Release:        971007
# >Environment:
# 
# >Description:
# example:
# - creating a persisten BAT with name ab;
# - naming the reverse to ba;
# - restart the server;
# - trying to access the original ab gives the following error:
#   >!ERROR: GDKload: can not access ab.desc
#   >No such file or directory!ERROR: BATprintf: BAT expected
# - access to the reverse ba succeeds;
# - access to the original ab is now succesfull.
# ======
# OUTPUT
# ======
# (windhouw@mamba 33) Mserver
# # Monet Database Server V4.00
# # Copyright (c) 1993-1997, CWI & SION.All rights reserved.
#  
# loaded;
# #-----------------------------------------#
# # module        | owner | usage_count     #
# #-----------------------------------------#
# [ "kernel",       "adm",  1               ]
# [ "arith",        "adm",  1               ]
# [ "bat",          "adm",  1               ]
# [ "algebra",      "adm",  1               ]
# [ "sys",          "adm",  1               ]
#  
# Try: modules;                - for other modules.
#      ls;                     - for persistent bat listing.
#      sigs("<module>")        - for available commands per module.
#      help("<command>")       - for help one-liner for a command.
#  
# #You are system administrator (adm)!
# >ab := new(int,str);
# >ab.rename("ab");
# >ab.persists(true);
# >ab.commit;
# >ba := ab.reverse;
# >ba.rename("ba");
# >ba.persists(true);
# >ba.commit;
# >ab.insert(1,"een");
# >ba.insert("twee",2);
# >ab.print;
# #-----------------#
# # int   | ba      #
# #-----------------#
# [ 1,      "een"   ]
# [ 2,      "twee"  ]
# >ba.print;
# #-----------------#
# # str   | ba      #
# #-----------------#
# [ "een",  1       ]
# [ "twee", 2       ]
# >commit;
# >quit;
# (windhouw@mamba 34) Mserver
# # Monet Database Server V4.00
# # Copyright (c) 1993-1997, CWI & SION.All rights reserved.
#  
# loaded;
# #-----------------------------------------#
# # module        | owner | usage_count     #
# #-----------------------------------------#
# [ "kernel",       "adm",  1               ]
# [ "arith",        "adm",  1               ]
# [ "bat",          "adm",  1               ]
# [ "algebra",      "adm",  1               ]
# [ "sys",          "adm",  1               ]
#  
# Try: modules;                - for other modules.
#      ls;                     - for persistent bat listing.
#      sigs("<module>")        - for available commands per module.
#      help("<command>")       - for help one-liner for a command.
#  
# #You are system administrator (adm)!
# >ab.print;
# !ERROR: GDKload: can not access ab.desc
# No such file or directory!ERROR: BATprintf: BAT expected>
# >ba.print;
# #-----------------#
# # str   | ba      #
# #-----------------#
# [ "een",  1       ]
# [ "twee", 2       ]
# >ab.print;
# #-----------------#
# # int   | ba      #
# #-----------------#
# [ 1,      "een"   ]
# [ 2,      "twee"  ]

var ab := new(int,str);
ab.rename("ab");
ab.persists(true);
ab.commit();
var ba := ab.reverse();
ba.rename("ba");
ba.persists(true);
ba.commit();
ab.insert(1,"een");
ba.insert("twee",2);
ab.print();
ba.print();
commit();
quit();