* http://helm.cs.unibo.it/
*)
+(* $Id$ *)
+
open Printf
open MatitaGtkMisc
cic_math_view#set_href_callback
(Some (fun uri -> (MatitaMathView.cicBrowser ())#load
(`Uri (UriManager.uri_of_string uri))));
- let browser_observer _ = MatitaMathView.refresh_all_browsers () in
- let sequents_observer status =
+ let browser_observer _ _ = MatitaMathView.refresh_all_browsers () in
+ let sequents_observer _ grafite_status =
sequents_viewer#reset;
- match status.proof_status with
+ match grafite_status.proof_status with
| Incomplete_proof ({ stack = stack } as incomplete_proof) ->
sequents_viewer#load_sequents incomplete_proof;
(try
- script#setGoal (Continuationals.Stack.find_goal stack);
- sequents_viewer#goto_sequent script#goal
- with Failure _ -> script#setGoal ~-1);
+ script#setGoal (Some (Continuationals.Stack.find_goal stack));
+ let goal =
+ match script#goal with
+ None -> assert false
+ | Some n -> n
+ in
+ sequents_viewer#goto_sequent goal
+ with Failure _ -> script#setGoal None);
| Proof proof -> sequents_viewer#load_logo_with_qed
| No_proof -> sequents_viewer#load_logo
| Intermediate _ -> assert false (* only the engine may be in this state *)
addDebugItem "print top-level grammar entries"
CicNotationParser.print_l2_pattern;
addDebugItem "dump moo to stderr" (fun _ ->
- let status = (MatitaScript.current ())#status in
- let moo = status.moo_content_rev in
+ let grafite_status = (MatitaScript.current ())#grafite_status in
+ let moo = grafite_status.moo_content_rev in
List.iter
(fun cmd ->
prerr_endline (GrafiteAstPp.pp_command ~obj_pp:(fun _ -> assert false)
(List.map (fun (g, _, _) -> string_of_int g)
(MatitaScript.current ())#proofMetasenv));
prerr_endline ("stack: " ^ Continuationals.Stack.pp
- (GrafiteTypes.get_stack (MatitaScript.current ())#status)));
+ (GrafiteTypes.get_stack (MatitaScript.current ())#grafite_status)));
(* addDebugItem "ask record choice"
(fun _ ->
HLog.debug (string_of_int