# HG changeset patch
# User aspinall
# Date 1165323403 -3600
# Node ID 40e6fdd26f82fba1e28381907194a5466fb6a7ad
# Parent  c8a0370c9b9353c1de476c73f1a3630a5239971d
Support PGIP communication for preferences in Emacs mode.

diff -r c8a0370c9b93 -r 40e6fdd26f82 src/Pure/ProofGeneral/TODO
--- a/src/Pure/ProofGeneral/TODO	Tue Dec 05 01:17:32 2006 +0100
+++ b/src/Pure/ProofGeneral/TODO	Tue Dec 05 13:56:43 2006 +0100
@@ -1,16 +1,13 @@
 Major:
 
- proof_general_emacs.ML fixups/PG compatibility: ongoing
-
  Complete pgip_types: add PGML and objtypes
 
  Complete pgip_markup: provide markup abstraction for parsing.ML
 
+Minor:
 
-Minor:
+ cleanups: signatures & structures, concrete types in XML attrs, etc.
+
+ further tests in pgip_tests.ML
 
  <pgipquit> broken
-
- cleanups: signatures & structures
-
- further tests in pgip_tests.ML
diff -r c8a0370c9b93 -r 40e6fdd26f82 src/Pure/ProofGeneral/pgip_input.ML
--- a/src/Pure/ProofGeneral/pgip_input.ML	Tue Dec 05 01:17:32 2006 +0100
+++ b/src/Pure/ProofGeneral/pgip_input.ML	Tue Dec 05 13:56:43 2006 +0100
@@ -9,54 +9,54 @@
 sig
     (* These are the PGIP commands to which we respond. *) 
     datatype pgipinput = 
-       (* protocol/prover config *)
-	 Askpgip 	of { }
-       | Askpgml 	of { } 
-       | Askconfig	of { }
-       | Askprefs	of { }
-       | Setpref 	of { name:string, prefcategory:string option, value:string }
-       | Getpref 	of { name:string, prefcategory:string option }
-       (* prover control *)
-       | Proverinit 	of { }
-       | Proverexit 	of { }
-       | Startquiet 	of { }
-       | Stopquiet	of { } 
-       | Pgmlsymbolson  of { } 
-       | Pgmlsymbolsoff of { }
-       (* improper proof commands: control proof state *)
-       | Dostep		of { text: string }
-       | Undostep	of { times: int }
-       | Redostep	of { }
-       | Abortgoal	of { }
-       | Forget		of { thyname: string option, name: string option, 
-			     objtype: string option }
-       | Restoregoal    of { thmname : string }
-       (* context inspection commands *)
-       | Askids		of { thyname:string option, objtype:string option }
-       | Showid		of { thyname:string option, objtype:string, name:string }
-       | Askguise	of { }
-       | Parsescript	of { text: string, location: PgipTypes.location,
-			     systemdata: string option } 
-       | Showproofstate of { }
-       | Showctxt	of { }
-       | Searchtheorems of { arg: string }
-       | Setlinewidth   of { width: int }
-       | Viewdoc	of { arg: string }
-       (* improper theory-level commands *)
-       | Doitem		of { text: string }
-       | Undoitem	of { }
-       | Redoitem	of { }
-       | Aborttheory	of { }
-       | Retracttheory  of { thyname: string }
-       | Loadfile 	of { url: PgipTypes.pgipurl }
-       | Openfile 	of { url: PgipTypes.pgipurl }
-       | Closefile	of { }
-       | Abortfile	of { }
-       | Retractfile    of { url: PgipTypes.pgipurl }
-       | Changecwd 	of { url: PgipTypes.pgipurl }
-       | Systemcmd 	of { arg: string }
-       (* unofficial escape command for debugging *)
-       | Quitpgip	of { }
+    (* protocol/prover config *)
+      Askpgip        of { }
+    | Askpgml        of { } 
+    | Askconfig      of { }
+    | Askprefs       of { }
+    | Setpref        of { name:string, prefcategory:string option, value:string }
+    | Getpref        of { name:string, prefcategory:string option }
+    (* prover control *)
+    | Proverinit     of { }
+    | Proverexit     of { }
+    | Startquiet     of { }
+    | Stopquiet      of { } 
+    | Pgmlsymbolson  of { } 
+    | Pgmlsymbolsoff of { }
+    (* improper proof commands: control proof state *)
+    | Dostep         of { text: string }
+    | Undostep       of { times: int }
+    | Redostep       of { }
+    | Abortgoal      of { }
+    | Forget         of { thyname: string option, name: string option, 
+                          objtype: string option }
+    | Restoregoal    of { thmname : string }
+    (* context inspection commands *)
+    | Askids         of { thyname:string option, objtype:string option }
+    | Showid         of { thyname:string option, objtype:string, name:string }
+    | Askguise       of { }
+    | Parsescript    of { text: string, location: PgipTypes.location,
+                          systemdata: string option } 
+    | Showproofstate of { }
+    | Showctxt       of { }
+    | Searchtheorems of { arg: string }
+    | Setlinewidth   of { width: int }
+    | Viewdoc        of { arg: string }
+    (* improper theory-level commands *)
+    | Doitem         of { text: string }
+    | Undoitem       of { }
+    | Redoitem       of { }
+    | Aborttheory    of { }
+    | Retracttheory  of { thyname: string }
+    | Loadfile       of { url: PgipTypes.pgipurl }
+    | Openfile       of { url: PgipTypes.pgipurl }
+    | Closefile      of { }
+    | Abortfile      of { }
+    | Retractfile    of { url: PgipTypes.pgipurl }
+    | Changecwd      of { url: PgipTypes.pgipurl }
+    | Systemcmd      of { arg: string }
+    (* unofficial escape command for debugging *)
+    | Quitpgip       of { }
 
     val input           : XML.element -> pgipinput option        (* raises PGIP *)
 end
diff -r c8a0370c9b93 -r 40e6fdd26f82 src/Pure/ProofGeneral/pgip_output.ML
--- a/src/Pure/ProofGeneral/pgip_output.ML	Tue Dec 05 01:17:32 2006 +0100
+++ b/src/Pure/ProofGeneral/pgip_output.ML	Tue Dec 05 13:56:43 2006 +0100
@@ -9,55 +9,55 @@
 sig
     (* These are the PGIP messages which the prover emits. *) 
     datatype pgipoutput = 
-	     Cleardisplay        of { area: PgipTypes.displayarea }
-	   | Normalresponse      of { area: PgipTypes.displayarea, 
-				      urgent: bool, 
-				      messagecategory: PgipTypes.messagecategory, 
-				      content: XML.tree list }
-	   | Errorresponse       of { fatality: PgipTypes.fatality, 
-				      area: PgipTypes.displayarea option, 
-				      location: PgipTypes.location option, 
-				      content: XML.tree list }
-	   | Informfileloaded    of { url: PgipTypes.pgipurl }
-	   | Informfileretracted of { url: PgipTypes.pgipurl }
-	   | Proofstate	         of { pgml: XML.tree list }
-	   | Metainforesponse    of { attrs: XML.attributes, 
-				      content: XML.tree list }
-	   | Lexicalstructure    of { content: XML.tree list }
-	   | Proverinfo	         of { name: string, 
-				      version: string, 
-				      instance: string,
-				      descr: string, 
-				      url: Url.T, 
-				      filenameextns: string }
-	   | Idtable	         of { objtype: string, 
-				      context: string option, 
-				      ids: string list }
-           | Setids		 of { idtables: XML.tree list }
-           | Delids		 of { idtables: XML.tree list }
-           | Addids		 of { idtables: XML.tree list }
-	   | Hasprefs	         of { prefcategory: string option, 
-				      prefs: PgipTypes.preference list }
-           | Prefval		 of { name: string, value: string }
-           | Idvalue		 of { name: string, objtype: string, text: XML.tree list }
-	   | Informguise	 of { file : PgipTypes.pgipurl option,  
-				      theory: string option, 
-				      theorem: string option, 
-				      proofpos: int option }
-	   | Parseresult	 of { attrs: XML.attributes, content: XML.tree list }
-           | Usespgip		 of { version: string, 
-				      pgipelems: (string * bool * string list) list }
-           | Usespgml		 of { version: string }
-	   | Pgip		 of { tag: string option, 
-				      class: string, 
-				      seq: int, id: string, 
-				      destid: string option,
-				      refid: string option,
-				      refseq: int option,
-				      content: XML.tree list }
-	   | Ready		 of { }
+      Cleardisplay        of { area: PgipTypes.displayarea }
+    | Normalresponse      of { area: PgipTypes.displayarea, 
+                               urgent: bool, 
+                               messagecategory: PgipTypes.messagecategory, 
+                               content: XML.tree list }
+    | Errorresponse       of { fatality: PgipTypes.fatality, 
+                               area: PgipTypes.displayarea option, 
+                               location: PgipTypes.location option, 
+                               content: XML.tree list }
+    | Informfileloaded    of { url: PgipTypes.pgipurl }
+    | Informfileretracted of { url: PgipTypes.pgipurl }
+    | Proofstate          of { pgml: XML.tree list }
+    | Metainforesponse    of { attrs: XML.attributes, 
+                               content: XML.tree list }
+    | Lexicalstructure    of { content: XML.tree list }
+    | Proverinfo          of { name: string, 
+                               version: string, 
+                               instance: string,
+                               descr: string, 
+                               url: Url.T, 
+                               filenameextns: string }
+    | Idtable             of { objtype: string, 
+                               context: string option, 
+                               ids: string list }
+    | Setids              of { idtables: XML.tree list }
+    | Delids              of { idtables: XML.tree list }
+    | Addids              of { idtables: XML.tree list }
+    | Hasprefs            of { prefcategory: string option, 
+                               prefs: PgipTypes.preference list }
+    | Prefval             of { name: string, value: string }
+    | Idvalue             of { name: string, objtype: string, text: XML.tree list }
+    | Informguise         of { file : PgipTypes.pgipurl option,  
+                               theory: string option, 
+                               theorem: string option, 
+                               proofpos: int option }
+    | Parseresult         of { attrs: XML.attributes, content: XML.tree list }
+    | Usespgip            of { version: string, 
+                               pgipelems: (string * bool * string list) list }
+    | Usespgml            of { version: string }
+    | Pgip                of { tag: string option, 
+                               class: string, 
+                               seq: int, id: string, 
+                               destid: string option,
+                               refid: string option,
+                               refseq: int option,
+                               content: XML.tree list }
+    | Ready               of { }
 
-    val output : pgipoutput -> XML.tree					 
+    val output : pgipoutput -> XML.tree                                  
 end
 
 structure PgipOutput : PGIPOUTPUT =
@@ -65,88 +65,84 @@
 open PgipTypes
 
 datatype pgipoutput = 
-	 Cleardisplay        of { area: displayarea }
+         Cleardisplay        of { area: displayarea }
        | Normalresponse      of { area: displayarea, urgent: bool, 
-				  messagecategory: messagecategory, content: XML.tree list }
+                                  messagecategory: messagecategory, content: XML.tree list }
        | Errorresponse       of { area: displayarea option, fatality: fatality, 
-				  location: location option, content: XML.tree list }
+                                  location: location option, content: XML.tree list }
        | Informfileloaded    of { url: Path.T }
        | Informfileretracted of { url: Path.T }
-       | Proofstate	     of { pgml: XML.tree list }
+       | Proofstate          of { pgml: XML.tree list }
        | Metainforesponse    of { attrs: XML.attributes, content: XML.tree list }
        | Lexicalstructure    of { content: XML.tree list }
-       | Proverinfo	     of { name: string, version: string, instance: string,
-				  descr: string, url: Url.T, filenameextns: string }
-       | Idtable	     of { objtype: string, context: string option, ids: string list }
-       | Setids		     of { idtables: XML.tree list }
-       | Delids		     of { idtables: XML.tree list }
-       | Addids		     of { idtables: XML.tree list }
-       | Hasprefs	     of { prefcategory: string option, prefs: preference list }
-       | Prefval  	     of { name: string, value: string }
-       | Idvalue	     of { name: string, objtype: string, text: XML.tree list }
-       | Informguise	     of { file : pgipurl option,  theory: string option, 
-				  theorem: string option, proofpos: int option }
-       | Parseresult	     of { attrs: XML.attributes, content: XML.tree list }
-       | Usespgip	     of { version: string, 
-				  pgipelems: (string * bool * string list) list }
-       | Usespgml	     of { version: string }
-       | Pgip		     of { tag: string option, 
-				  class: string, 
-				  seq: int, id: string, 
-				  destid: string option,
-				  refid: string option,
-				  refseq: int option,
-				  content: XML.tree list}
-       | Ready		     of { }
+       | Proverinfo          of { name: string, version: string, instance: string,
+                                  descr: string, url: Url.T, filenameextns: string }
+       | Idtable             of { objtype: string, context: string option, ids: string list }
+       | Setids              of { idtables: XML.tree list }
+       | Delids              of { idtables: XML.tree list }
+       | Addids              of { idtables: XML.tree list }
+       | Hasprefs            of { prefcategory: string option, prefs: preference list }
+       | Prefval             of { name: string, value: string }
+       | Idvalue             of { name: string, objtype: string, text: XML.tree list }
+       | Informguise         of { file : pgipurl option,  theory: string option, 
+                                  theorem: string option, proofpos: int option }
+       | Parseresult         of { attrs: XML.attributes, content: XML.tree list }
+       | Usespgip            of { version: string, 
+                                  pgipelems: (string * bool * string list) list }
+       | Usespgml            of { version: string }
+       | Pgip                of { tag: string option, 
+                                  class: string, 
+                                  seq: int, id: string, 
+                                  destid: string option,
+                                  refid: string option,
+                                  refseq: int option,
+                                  content: XML.tree list}
+       | Ready               of { }
 
 
-(* util *)
-
-fun attrsome attr f x = case x of NONE => [] | SOME x => [(attr,f x)]
-
 (* Construct output XML messages *)
-	
+        
 fun cleardisplay vs = 
     let
-	val area = #area vs
+        val area = #area vs
     in
-	XML.Elem ("cleardisplay", (attrs_of_displayarea area), [])
+        XML.Elem ("cleardisplay", (attrs_of_displayarea area), [])
     end
 
 fun normalresponse vs =
     let 
-	val area = #area vs
-	val urgent = #urgent vs
-	val messagecategory = #messagecategory vs
-	val content = #content vs
+        val area = #area vs
+        val urgent = #urgent vs
+        val messagecategory = #messagecategory vs
+        val content = #content vs
     in
-	XML.Elem ("normalresponse", 
-		 (attrs_of_displayarea area) @
-		 (if urgent then [("urgent", "true")] else []) @
-		 (attrs_of_messagecategory messagecategory),
-		 content)
+        XML.Elem ("normalresponse", 
+                 (attrs_of_displayarea area) @
+                 (if urgent then [("urgent", "true")] else []) @
+                 (attrs_of_messagecategory messagecategory),
+                 content)
     end
-				       
+                                       
 fun errorresponse vs =
     let 
-	val area = #area vs
-	val fatality = #fatality vs
-	val location = #location vs
-	val content = #content vs
+        val area = #area vs
+        val fatality = #fatality vs
+        val location = #location vs
+        val content = #content vs
     in
-	XML.Elem ("errorresponse",
-		 (the_default [] (Option.map attrs_of_displayarea area)) @
-		 (attrs_of_fatality fatality) @
-		 (the_default [] (Option.map attrs_of_location location)),
-		 content)
+        XML.Elem ("errorresponse",
+                 (the_default [] (Option.map attrs_of_displayarea area)) @
+                 (attrs_of_fatality fatality) @
+                 (the_default [] (Option.map attrs_of_location location)),
+                 content)
     end
-				       
+                                       
 
 fun informfile lr vs =
     let 
-	val url = #url vs
+        val url = #url vs
     in
-	XML.Elem ("informfile" ^ lr, attrs_of_pgipurl url, [])
+        XML.Elem ("informfile" ^ lr, attrs_of_pgipurl url, [])
     end
 
 val informfileloaded = informfile "loaded"
@@ -154,120 +150,118 @@
 
 fun proofstate vs =
     let
-	val pgml = #pgml vs
+        val pgml = #pgml vs
     in
-	XML.Elem("proofstate", [], pgml)
+        XML.Elem("proofstate", [], pgml)
     end
 
 fun metainforesponse vs =
     let 
-	val attrs = #attrs vs
-	val content = #content vs
+        val attrs = #attrs vs
+        val content = #content vs
     in
-	XML.Elem ("metainforesponse", attrs, content)
+        XML.Elem ("metainforesponse", attrs, content)
     end
 
 fun lexicalstructure vs =
     let
-	val content = #content vs
+        val content = #content vs
     in
-	XML.Elem ("lexicalstructure", [], content)
+        XML.Elem ("lexicalstructure", [], content)
     end
 
 fun proverinfo vs =
     let
-	val name = #name vs
-	val version = #version vs
-	val instance = #instance vs
-	val descr = #descr vs
-	val url = #url vs
-	val filenameextns = #filenameextns vs
+        val name = #name vs
+        val version = #version vs
+        val instance = #instance vs
+        val descr = #descr vs
+        val url = #url vs
+        val filenameextns = #filenameextns vs
     in 
-	XML.Elem ("proverinfo",
-		 [("name", name),
-		  ("version", version),
-		  ("instance", instance), 
-		  ("descr", descr),
-		  ("url", Url.pack url),
-		  ("filenameextns", filenameextns)],
-		 [])
+        XML.Elem ("proverinfo",
+                 [("name", name),
+                  ("version", version),
+                  ("instance", instance), 
+                  ("descr", descr),
+                  ("url", Url.pack url),
+                  ("filenameextns", filenameextns)],
+                 [])
     end
 
 fun idtable vs = 
     let 
-	val objtype = #objtype vs
-	val objtype_attrs = [("objtype", objtype)]
-	val context = #context vs
-	val context_attrs = opt_attr "context" context
-	val ids = #ids vs
-	val ids_content = map (fn x => XML.Elem("identifier",[],[XML.Text x])) ids
+        val objtype = #objtype vs
+        val objtype_attrs = attr [("objtype", objtype)]
+        val context = #context vs
+        val context_attrs = opt_attr "context" context
+        val ids = #ids vs
+        val ids_content = map (fn x => XML.Elem("identifier",[],[XML.Text x])) ids
     in 
-	XML.Elem ("idtable",
-		  objtype_attrs @ context_attrs,
-		  ids_content)
+        XML.Elem ("idtable",
+                  objtype_attrs @ context_attrs,
+                  ids_content)
     end
 
 fun setids vs =
     let
-	val idtables = #idtables vs
+        val idtables = #idtables vs
     in
-	XML.Elem ("setids",[],idtables)
+        XML.Elem ("setids",[],idtables)
     end
 
 fun addids vs =
     let
-	val idtables = #idtables vs
+        val idtables = #idtables vs
     in
-	XML.Elem ("addids",[],idtables)
+        XML.Elem ("addids",[],idtables)
     end
 
 fun delids vs =
     let
-	val idtables = #idtables vs
+        val idtables = #idtables vs
     in
-	XML.Elem ("delids",[],idtables)
+        XML.Elem ("delids",[],idtables)
     end
 
 
 fun acceptedpgipelems vs = 
     let
-	val pgipelems = #pgipelems vs
-	fun async_attrs b = if b then [("async","true")] else []
-	fun attrs_attrs attrs = if attrs=[] then [] else [("attributes",space_implode "," attrs)]
-	fun singlepgipelem (e,async,attrs) = 
-	    XML.Elem("pgipelem", ((async_attrs async) @ (attrs_attrs attrs)),[])
-						      
+        val pgipelems = #pgipelems vs
+        fun async_attrs b = if b then [("async","true")] else []
+        fun attrs_attrs attrs = if attrs=[] then [] else [("attributes",space_implode "," attrs)]
+        fun singlepgipelem (e,async,attrs) = 
+            XML.Elem("pgipelem", ((async_attrs async) @ (attrs_attrs attrs)),[])
+                                                      
     in
-	XML.Elem ("acceptedpgipelems", [],
-		 map singlepgipelem pgipelems)
+        XML.Elem ("acceptedpgipelems", [],
+                 map singlepgipelem pgipelems)
     end
 
 
-fun attro x yo = case yo of NONE => [] | SOME y => [(x,y)] : XML.attributes
-
 fun hasprefs vs =
   let 
       val prefcategory = #prefcategory vs
       val prefs = #prefs vs
   in 
-      XML.Elem("hasprefs",attro "prefcategory" prefcategory, map haspref prefs)
+      XML.Elem("hasprefs",opt_attr "prefcategory" prefcategory, map haspref prefs)
   end
 
 fun prefval vs =
     let 
-	val name = #name vs
-	val value = #value vs
+        val name = #name vs
+        val value = #value vs
     in
-	XML.Elem("prefval", [("name",name)], [XML.Text value])
+        XML.Elem("prefval", [("name",name)], [XML.Text value])
     end 
 
 fun idvalue vs =
     let 
-	val name = #name vs
-	val objtype = #objtype vs
-	val text = #text vs
+        val name = #name vs
+        val objtype = #objtype vs
+        val text = #text vs
     in
-	XML.Elem("idvalue", [("name",name),("objtype",objtype)], text)
+        XML.Elem("idvalue", [("name",name),("objtype",objtype)], text)
     end 
 
 
@@ -283,84 +277,83 @@
       val guisefile = elto "guisefile" attrs_of_pgipurl file
       val guisetheory = elto "guisetheory" (single o (pair "thyname")) theory
       val guiseproof = elto "guiseproof" 
-			    (fn thm=>[("thmname",thm)]@
-				     (attro "proofpos" (Option.map Int.toString proofpos))) theorem
+                            (fn thm=>[("thmname",thm)]@
+                                     (opt_attr "proofpos" (Option.map Int.toString proofpos))) theorem
   in 
       XML.Elem("informguise", [], guisefile @ guisetheory @ guiseproof)
   end
 
 fun parseresult vs =
     let
-	val attrs = #attrs vs
-	val content = #content vs
+        val attrs = #attrs vs
+        val content = #content vs
     in 
-	XML.Elem("parseresult", attrs, content)
+        XML.Elem("parseresult", attrs, content)
     end
 
 fun usespgip vs =
     let
-	val version = #version vs
-	val acceptedelems = acceptedpgipelems vs
+        val version = #version vs
+        val acceptedelems = acceptedpgipelems vs
     in 
-	XML.Elem("usespgip", [("version", version)], [acceptedelems])
+        XML.Elem("usespgip", [("version", version)], [acceptedelems])
     end
 
 fun usespgml vs =
     let
-	val version = #version vs
+        val version = #version vs
     in 
-	XML.Elem("usespgml", [("version", version)], [])
+        XML.Elem("usespgml", [("version", version)], [])
     end
 
 fun pgip vs =
     let 
-	val tag = #tag vs
-	val class = #class vs
-	val seq = #seq vs
-	val id = #id vs
-	val destid = #destid vs
-	val refid = #refid vs
-	val refseq = #refseq vs
-	val content = #content vs
+        val tag = #tag vs
+        val class = #class vs
+        val seq = #seq vs
+        val id = #id vs
+        val destid = #destid vs
+        val refid = #refid vs
+        val refseq = #refseq vs
+        val content = #content vs
     in
-	XML.Elem("pgip",
-		 opt_attr "tag" tag @
-		 [("id", id)] @
-		 opt_attr "destid" destid @
-		 [("class", class)] @
-		 opt_attr "refid" refid @
-		 opt_attr_map string_of_int "refseq" refseq @
-		 [("seq", string_of_int seq)],
-		 content)
+        XML.Elem("pgip",
+                 opt_attr "tag" tag @
+                 [("id", id)] @
+                 opt_attr "destid" destid @
+                 [("class", class)] @
+                 opt_attr "refid" refid @
+                 opt_attr_map string_of_int "refseq" refseq @
+                 [("seq", string_of_int seq)],
+                 content)
     end
 
-fun ready vs = 
-    XML.Elem("ready",[],[])
+fun ready vs = XML.Elem("ready",[],[])
 
 
 fun output pgipoutput = case pgipoutput of
-   Cleardisplay vs 	   => cleardisplay vs
+   Cleardisplay vs         => cleardisplay vs
  | Normalresponse vs       => normalresponse vs
  | Errorresponse vs        => errorresponse vs
- | Informfileloaded vs	   => informfileloaded vs
+ | Informfileloaded vs     => informfileloaded vs
  | Informfileretracted vs  => informfileretracted vs
- | Proofstate vs	   => proofstate vs
- | Metainforesponse vs	   => metainforesponse vs
- | Lexicalstructure vs	   => lexicalstructure vs
- | Proverinfo vs	   => proverinfo vs
- | Idtable vs		   => idtable vs
- | Setids vs		   => setids vs
- | Addids vs		   => addids vs
- | Delids vs		   => delids vs
- | Hasprefs vs		   => hasprefs vs
- | Prefval vs		   => prefval vs
- | Idvalue vs		   => idvalue vs
- | Informguise vs	   => informguise vs
- | Parseresult vs	   => parseresult vs
- | Usespgip vs		   => usespgip vs
- | Usespgml vs		   => usespgml vs
- | Pgip vs		   => pgip vs
- | Ready vs		   => ready vs
+ | Proofstate vs           => proofstate vs
+ | Metainforesponse vs     => metainforesponse vs
+ | Lexicalstructure vs     => lexicalstructure vs
+ | Proverinfo vs           => proverinfo vs
+ | Idtable vs              => idtable vs
+ | Setids vs               => setids vs
+ | Addids vs               => addids vs
+ | Delids vs               => delids vs
+ | Hasprefs vs             => hasprefs vs
+ | Prefval vs              => prefval vs
+ | Idvalue vs              => idvalue vs
+ | Informguise vs          => informguise vs
+ | Parseresult vs          => parseresult vs
+ | Usespgip vs             => usespgip vs
+ | Usespgml vs             => usespgml vs
+ | Pgip vs                 => pgip vs
+ | Ready vs                => ready vs
 
 end
 
diff -r c8a0370c9b93 -r 40e6fdd26f82 src/Pure/ProofGeneral/preferences.ML
--- a/src/Pure/ProofGeneral/preferences.ML	Tue Dec 05 01:17:32 2006 +0100
+++ b/src/Pure/ProofGeneral/preferences.ML	Tue Dec 05 13:56:43 2006 +0100
@@ -77,7 +77,8 @@
 	fun setn n = (print_depth n; pg_print_depth_val := n)
 	val set = setn o PgipTypes.read_pgipnat
     in
-	mkpref get set PgipTypes.Pgipbool "print-depth" "Setting for the ML print depth"
+	mkpref get set PgipTypes.Pgipnat
+	       "print-depth" "Setting for the ML print depth"
     end
 
 
diff -r c8a0370c9b93 -r 40e6fdd26f82 src/Pure/ProofGeneral/proof_general_emacs.ML
--- a/src/Pure/ProofGeneral/proof_general_emacs.ML	Tue Dec 05 01:17:32 2006 +0100
+++ b/src/Pure/ProofGeneral/proof_general_emacs.ML	Tue Dec 05 13:56:43 2006 +0100
@@ -240,7 +240,7 @@
 (* FIXME: check this uses non-transitive closure function here *)
 fun tell_thm_deps ths = conditional (Output.has_mode thm_depsN) (fn () =>
   let
-    val names = filter_out (equal "") (map Thm.name_of_thm ths);
+    val names = filter_out (equal "") (map PureThy.get_name_hint ths);
     val deps = filter_out (equal "")
       (Symtab.keys (fold Proofterm.thms_of_proof
         (map Thm.proof_of ths) Symtab.empty));
@@ -321,6 +321,7 @@
    (setmp warning_fn (K ()) init_outer_syntax ();
     setup_xsymbols_output ();
     setup_messages ();
+    ProofGeneralPgip.init_pgip_channel (!priority_fn);
     setup_state ();
     setup_thy_loader ();
     setup_present_hook ();
diff -r c8a0370c9b93 -r 40e6fdd26f82 src/Pure/ProofGeneral/proof_general_pgip.ML
--- a/src/Pure/ProofGeneral/proof_general_pgip.ML	Tue Dec 05 01:17:32 2006 +0100
+++ b/src/Pure/ProofGeneral/proof_general_pgip.ML	Tue Dec 05 13:56:43 2006 +0100
@@ -11,8 +11,9 @@
 sig
   val init_pgip: bool -> unit		  (* main PGIP loop with true; fail with false *)
 
-  val process_pgip: string -> unit        (* process a command; only good for preferences *)
-  val init_pgip_session_id: unit -> unit  (* call before using process_pgip *)
+  (* These two are just to support the semi-PGIP Emacs mode *)
+  val init_pgip_channel: (string -> unit) -> unit 
+  val process_pgip: string -> unit     
 end
 
 structure ProofGeneralPgip : PROOF_GENERAL_PGIP  =
@@ -146,10 +147,11 @@
 
 fun matching_pgip_id id = (id = !pgip_id)
 
-val output_xml = writeln_default o XML.string_of_tree;  (* FIXME: use string buffer *)
+val output_xml_fn = ref writeln_default  
+fun output_xml s = (!output_xml_fn) (XML.string_of_tree s);  (* TODO: string buffer *)
 
 fun issue_pgip_rawtext str = 
-    output_xml (PgipOutput.output (assemble_pgips [XML.Text str])) (* FIXME: don't escape!! *)
+    output_xml (PgipOutput.output (assemble_pgips [XML.Rawtext str]))
 
 fun issue_pgips pgipops =
     output_xml (PgipOutput.output (assemble_pgips (map PgipOutput.output pgipops)));
@@ -865,7 +867,9 @@
 			       (XML.string_of_tree xml));
 	     true))
 
-val process_pgip = K () o process_pgip_tree o XML.tree_of_string
+(* External input *)
+
+val process_pgip_plain = K () o process_pgip_tree o XML.tree_of_string
 
 end
 
@@ -963,7 +967,7 @@
 val process_pgipP =
   OuterSyntax.improper_command "ProofGeneral.process_pgip" "(internal)" K.control
     (P.text >> (Toplevel.no_timing oo
-      (fn txt => Toplevel.imperative (fn () => process_pgip txt))));
+      (fn txt => Toplevel.imperative (fn () => process_pgip_plain txt))));
 
 fun init_outer_syntax () = OuterSyntax.add_parsers
  [undoP, redoP, kill_proofP, context_thy_onlyP, try_context_thy_onlyP,
@@ -999,7 +1003,26 @@
 fun init_pgip false = Output.panic "PGIP not supported for Isabelle/classic mode."
   | init_pgip true = (init_setup (); pgip_toplevel tty_src);
 
-fun write_keywords s = ()  (* NB: do nothing *)
+
+
+(** Out-of-loop PGIP commands (for Emacs hybrid mode) **)
+
+local
+    val pgip_output_channel = ref writeln_default
+in
+
+(* Set recipient for PGIP results *)
+fun init_pgip_channel writefn =
+    (init_pgip_session_id();  
+     pgip_output_channel := writefn)				  
+
+(* Process a PGIP command. 
+   This works for preferences but not generally guaranteed 
+   because we haven't done full setup here (e.g., no pgml mode)  *)
+fun process_pgip str =
+     setmp output_xml_fn (!pgip_output_channel) process_pgip_plain str
+
+end
 
 end;