17 lines
598 B
OCaml
17 lines
598 B
OCaml
(* $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";;
|
|
|