equal
deleted
inserted
replaced
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 |