# HG changeset patch
# User aspinall
# Date 1167573335 -3600
# Node ID 1b68312c4cf0161ec7fcad4a1f933ceea37dd468
# Parent  513e1d82640d26de81baa766f22e6b4d890373e8
Initialise parser at startup.  Remove some obsolete ProofGeneral.XXX outer syntax, mapping PGIP commands directly to Isar.

diff -r 513e1d82640d -r 1b68312c4cf0 src/Pure/ProofGeneral/proof_general_pgip.ML
--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Sun Dec 31 14:50:40 2006 +0100
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Sun Dec 31 14:55:35 2006 +0100
@@ -281,10 +281,6 @@
     else raise Toplevel.UNDEF
   end;
 
-fun vacuous_inform_file_processed file state =
- (warning ("No theory " ^ quote (thy_name file));
-  tell_file_retracted (Path.base (Path.explode file)));
-
 
 (* restart top-level loop (keeps most state information) *)
 
@@ -506,7 +502,7 @@
 
 fun redostep vs = isarcmd "redo"
 
-fun abortgoal vs = isarcmd "ProofGeneral.kill_proof"
+fun abortgoal vs = isarcmd "kill" (* was: ProofGeneral.kill_proof *)
 
 
 (*** PGIP identifier tables ***)
@@ -673,13 +669,13 @@
     end
 
 fun undoitem vs =
-    isarcmd "ProofGeneral.undo"
+    isarcmd "undo"
 
 fun redoitem vs =
-    isarcmd "ProofGeneral.redo"
+    isarcmd "redo"
 
 fun aborttheory vs =
-    isarcmd "init_toplevel"
+    isarcmd "kill"  (* was: "init_toplevel" *)
 
 fun retracttheory (Retracttheory vs) =
     let
@@ -922,49 +918,20 @@
 end
 
 
-(* additional outer syntax for Isar *)
-(* da: TODO: perhaps we can drop this superfluous syntax now??
-   Seems cleaner to support the operations directly above in the PGIP actions.
- *)
-
-local structure P = OuterParse and K = OuterKeyword in
-
-val undoP = (*undo without output*)
-  OuterSyntax.improper_command "ProofGeneral.undo" "(internal)" K.control
-    (Scan.succeed (Toplevel.no_timing o IsarCmd.undo));
-
-val redoP = (*redo without output*)
-  OuterSyntax.improper_command "ProofGeneral.redo" "(internal)" K.control
-    (Scan.succeed (Toplevel.no_timing o IsarCmd.redo));
+local
+(* Extra command for embedding prover-control inside document (obscure/debug usage). *)
 
-(* ProofGeneral.kill_proof still used above *)
-val kill_proofP =
-  OuterSyntax.improper_command "ProofGeneral.kill_proof" "(internal)" K.control
-    (Scan.succeed (Toplevel.no_timing o IsarCmd.kill_proof_notify tell_clear_goals));
-
-(* FIXME: Not quite same as commands used above *)
-val inform_file_processedP =
-  OuterSyntax.improper_command "ProofGeneral.inform_file_processed" "(internal)" K.control
-    (P.name >> (fn file => Toplevel.no_timing o
-      Toplevel.init_empty (vacuous_inform_file_processed file) o
-      Toplevel.kill o
-      Toplevel.init_empty (proper_inform_file_processed file)));
-
-val inform_file_retractedP =
-  OuterSyntax.improper_command "ProofGeneral.inform_file_retracted" "(internal)" K.control
-    (P.name >> (Toplevel.no_timing oo
-      (fn file => Toplevel.imperative (fn () => inform_file_retracted file))));
-
-(* This one can actually be used for Daniel's interface scripting idea: generically!! *)
-val process_pgipP =
-  OuterSyntax.improper_command "ProofGeneral.process_pgip" "(internal)" K.control
-    (P.text >> (Toplevel.no_timing oo
+val process_pgipP = 
+  OuterSyntax.improper_command "ProofGeneral.process_pgip" "(internal)" OuterKeyword.control
+    (OuterParse.text >> (Toplevel.no_timing oo
       (fn txt => Toplevel.imperative (fn () => process_pgip_plain txt))));
 
-fun init_outer_syntax () = OuterSyntax.add_parsers
- [undoP, redoP, kill_proofP, inform_file_processedP, inform_file_retractedP, process_pgipP];
+in
 
-end;
+ fun init_outer_syntax () = OuterSyntax.add_parsers [process_pgipP];
+
+end
+
 
 
 (* init *)
@@ -976,6 +943,7 @@
   | init_pgip true =
       (! initialized orelse
         (setmp warning_fn (K ()) init_outer_syntax ();
+	  PgipParser.init ();
           setup_xsymbols_output ();
           setup_pgml_output ();
           setup_messages ();