]> matita.cs.unibo.it Git - helm.git/blob - helm/http_getter/tools/dump_db.ml
experimental version
[helm.git] / helm / http_getter / tools / dump_db.ml
1 #!/usr/bin/ocamlrun /usr/bin/ocaml
2 #use "topfind";;
3 #require "dbm";;
4 let db = Dbm.opendbm Sys.argv.(1) [ Dbm.Dbm_rdonly ] 0 in
5 Dbm.iter (Printf.printf "%s: %s\n") db;
6 Dbm.close db