(************************************************************
   db.ml			Created      : Thu Mar 14 09:10:57 2002
  			Last modified: Thu Mar 14 11:36:38 2002
  Compile: make #
************************************************************)

let _ = 
  let db = Dbm.opendbm "mamewo" [Dbm.Dbm_create; Dbm.Dbm_rdwr] 0o755 in
  begin
    Dbm.add db "Pen name" "mamewotoko";
    Dbm.add db "Mail" "mamewo@dk9.so-net.ne.jp";
    Dbm.add db "Real Name" "Takashi Masuyama";
    Dbm.add db "Tel" "XXXXXX";
    print_string "-----------------------------\n";
    Dbm.iter (fun x y -> Printf.printf "%s: %s\n" x y) db;
    print_string "-----------------------------\n";
    Dbm.replace db "Mail" "mamewo@okuiaki.com";
    let k = Dbm.find db "Mail" in
    print_string ("Dbm.find db \"Mail\" returns: "^k^"\n");
    Dbm.remove db "Tel";
    print_string "TEL removed -----------------\n";
    Dbm.iter (fun x y -> Printf.printf "%s: %s\n" x y) db;
    print_string "-----------------------------\n";
    print_string ((Dbm.firstkey db)^"\n");
    try 
      while true do
	print_string ((Dbm.nextkey db)^"\n");
      done
    with
      Not_found ->
	print_string "finished\n";
	Dbm.close db;
  end