(* $Id$ -*- tuareg -*- *)

#use_output "dune top | grep -v \"ocamltoplevel.cma\\|ocaml_toplevel.cma\\|topinf.cma\"";; (* grep to remove the topinf.cma which fuck this shit all up *)
open Topinf;;
let print_directives () = 
  Format.printf "directive_info_table:@.";
  Hashtbl.iter (fun n _ -> Format.printf "\t%s@." n) Topinf.directive_info_table;;

(*#directory "+compiler-libs";; *)

let print_modules () =
  Format.printf "Env.fold_modules !Topinf.toplevel_env :\n";
  Env.fold_modules (fun modname _ _ () -> Format.printf "\t%s@." modname) None !Topinf.toplevel_env ();;
(*print_modules ();;*)

#use_silently "human.ml";;

start ();;