List.iter (fun (u,_,_) ->
prerr_endline (UriManager.string_of_uri u))
(CicEnvironment.list_obj ()));
List.iter (fun (u,_,_) ->
prerr_endline (UriManager.string_of_uri u))
(CicEnvironment.list_obj ()));
addDebugItem "dump script status" script#dump;
addDebugItem "dump configuration file to ./foo.conf.xml" (fun _ ->
Helm_registry.save_to "./foo.conf.xml");
addDebugItem "dump metasenv"
(fun _ ->
if script#onGoingProof () then
addDebugItem "dump script status" script#dump;
addDebugItem "dump configuration file to ./foo.conf.xml" (fun _ ->
Helm_registry.save_to "./foo.conf.xml");
addDebugItem "dump metasenv"
(fun _ ->
if script#onGoingProof () then
CicNotationParser.print_l2_pattern;
addDebugItem "dump moo to stderr" (fun _ ->
let status = (MatitaScript.current ())#status in
CicNotationParser.print_l2_pattern;
addDebugItem "dump moo to stderr" (fun _ ->
let status = (MatitaScript.current ())#status in
- let moo, metadata = status.moo_content_rev in
- List.iter (fun cmd -> prerr_endline
- (GrafiteAstPp.pp_command cmd)) (List.rev moo);
- List.iter (fun m -> prerr_endline
- (GrafiteAstPp.pp_metadata m)) metadata);
+ let moo = status.moo_content_rev in
+ List.iter
+ (fun cmd ->
+ prerr_endline (GrafiteAstPp.pp_command ~obj_pp:(fun _ -> assert false)
+ cmd))
+ (List.rev moo));
addDebugItem "print metasenv goals and stack to stderr"
(fun _ ->
prerr_endline ("metasenv goals: " ^ String.concat " "
(List.map (fun (g, _, _) -> string_of_int g)
(MatitaScript.current ())#proofMetasenv));
prerr_endline ("stack: " ^ Continuationals.Stack.pp
addDebugItem "print metasenv goals and stack to stderr"
(fun _ ->
prerr_endline ("metasenv goals: " ^ String.concat " "
(List.map (fun (g, _, _) -> string_of_int g)
(MatitaScript.current ())#proofMetasenv));
prerr_endline ("stack: " ^ Continuationals.Stack.pp