(************************************************************
   save_hash.ml		Created      : Wed Jan  7 16:13:57 2004
  			Last modified: Wed Jan 07 16:22:27 2004
  Compile: ocamlc save_hash.ml -o save_hash #
  FTP Directory: sources/ocaml #
************************************************************)

let h = Hashtbl.create 13
;;
let filename = "hash.dat"
;;

let _ =
  try 
    let ic = open_in filename in
    let h = (input_value ic : (string, bool) Hashtbl.t) in
    Hashtbl.iter (fun x y -> print_endline x) h;
  with e -> 
    begin
      Hashtbl.add h "tak" true;
      Hashtbl.add h "mamewo" true;
      Hashtbl.add h "aki" true;
      let out = open_out filename in
      output_value out h; close_out out
    end
;;  

(* Local Variables:
  namazu-default-dir: "/home/tak/.labltk_namazu /home/tak/.ocaml_namazu"
 End:
 *)