Commit fcc325dd authored by Jean-Christophe Filliâtre's avatar Jean-Christophe Filliâtre
Browse files

extraction command line (wip)

parent 5f462802
...@@ -214,7 +214,7 @@ let do_input = function ...@@ -214,7 +214,7 @@ let do_input = function
close_in cin close_in cin
(* (*
let visited = Hid.create (1 lsl 20) let visited = Hid.create 1024
let toextract = ref [] let toextract = ref []
let rec visit id = let rec visit id =
...@@ -224,13 +224,21 @@ let rec visit id = ...@@ -224,13 +224,21 @@ let rec visit id =
Hid.add visited id (); Hid.add visited id ();
toextract := id :: !toextract toextract := id :: !toextract
end end
let monolithic () =
(* TODO call visit on all ids to extract *)
let (fg,pargs,pr) = Pdriver.lookup_printer opt_driver in
let extract id =
let d = Hid.find Compile.knownmap id in in
pr pargs d in
List.iter extract !toextract
*) *)
let () = let () =
try try
Queue.iter do_input opt_queue; Queue.iter do_input opt_queue;
begin match opt_recurs with begin match opt_recurs with
| Monolithic -> () (* assert false *) (*TODO*) | Monolithic -> (* monolithic () *) assert false (*TODO*)
| Recursive | SingleModule -> () end | Recursive | SingleModule -> () end
with e when not (Debug.test_flag Debug.stack_trace) -> with e when not (Debug.test_flag Debug.stack_trace) ->
eprintf "%a@." Exn_printer.exn_printer e; eprintf "%a@." Exn_printer.exn_printer e;
......
Supports Markdown
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment