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

Sys.command "dune top | head -n -1 > .topenv";; (* `head -n -1` to remove the topinf.cma which fuck this shit all up *)
#use ".topenv";;
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 "main.ml";;