]> matita.cs.unibo.it Git - helm.git/blob - helm/http_getter/tools/dump_db.ml
projects / helm.git / blob
? search:
summary | shortlog | log | commit | commitdiff | tree
history | raw | HEAD
ocaml 3.09 transition
[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
Unnamed repository; edit this file 'description' to name the repository.