(* $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 ();;

#use_silently "main.ml";;