src/Pure/ProofGeneral/proof_general_pgip.ML
changeset 36950 75b8f26f2f07
parent 36689 379f5b1e7f91
child 36953 2af1ad9aa1a3
equal deleted inserted replaced
36949:080e85d46108 36950:75b8f26f2f07
   310 
   310 
   311 
   311 
   312 (** lexicalstructure element with keywords (PGIP version of elisp keywords file) **)
   312 (** lexicalstructure element with keywords (PGIP version of elisp keywords file) **)
   313 
   313 
   314 fun lexicalstructure_keywords () =
   314 fun lexicalstructure_keywords () =
   315     let val keywords = OuterKeyword.dest_keywords ()
   315     let val keywords = Keyword.dest_keywords ()
   316         val commands = OuterKeyword.dest_commands ()
   316         val commands = Keyword.dest_commands ()
   317         fun keyword_elt kind keyword =
   317         fun keyword_elt kind keyword =
   318             XML.Elem("keyword", [("word", keyword), ("category", kind)], [])
   318             XML.Elem("keyword", [("word", keyword), ("category", kind)], [])
   319         in
   319         in
   320             (* Also, note we don't call init_outer_syntax here to add interface commands,
   320             (* Also, note we don't call init_outer_syntax here to add interface commands,
   321             but they should never appear in scripts anyway so it shouldn't matter *)
   321             but they should never appear in scripts anyway so it shouldn't matter *)
  1011 
  1011 
  1012 
  1012 
  1013 (* Extra command for embedding prover-control inside document (obscure/debug usage). *)
  1013 (* Extra command for embedding prover-control inside document (obscure/debug usage). *)
  1014 
  1014 
  1015 fun init_outer_syntax () =
  1015 fun init_outer_syntax () =
  1016   OuterSyntax.improper_command "ProofGeneral.process_pgip" "(internal)" OuterKeyword.control
  1016   OuterSyntax.improper_command "ProofGeneral.process_pgip" "(internal)" Keyword.control
  1017     (OuterParse.text >> (Toplevel.no_timing oo
  1017     (Parse.text >> (Toplevel.no_timing oo
  1018       (fn txt => Toplevel.imperative (fn () => process_pgip_plain txt))));
  1018       (fn txt => Toplevel.imperative (fn () => process_pgip_plain txt))));
  1019 
  1019 
  1020 
  1020 
  1021 (* init *)
  1021 (* init *)
  1022 
  1022