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