verbatim / verb markupup commands;

--- a/src/Pure/Isar/isar_syn.ML	Thu Oct 07 12:36:39 1999 +0200
+++ b/src/Pure/Isar/isar_syn.ML	Thu Oct 07 12:36:53 1999 +0200
@@ -58,6 +58,9 @@
 val textP = OuterSyntax.markup_command "text" "formal comment (theory)" K.thy_decl
   (P.comment >> (Toplevel.theory o IsarThy.add_text));
 
+val verbatimP = OuterSyntax.markup_command "verbatim" "verbatim document preparation text"
+  K.thy_decl (P.comment >> (Toplevel.theory o IsarThy.add_verbatim));
+
 
 val sectP = OuterSyntax.markup_command "sect" "formal comment (proof)" K.prf_decl
   (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_sect)));
@@ -71,6 +74,9 @@
 val txtP = OuterSyntax.markup_command "txt" "formal comment (proof)" K.prf_decl
   (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_txt)));
 
+val verbP = OuterSyntax.markup_command "verb" "verbatim document preparation text (proof)"
+  K.prf_decl (P.comment >> (Toplevel.print oo (Toplevel.proof o IsarThy.add_verb)));
+
 
 
 (** theory sections **)
@@ -599,9 +605,9 @@
 val parsers = [
   (*theory structure*)
   theoryP, end_excursionP, kill_excursionP, contextP,
-  (*formal comments*)
+  (*markup commands*)
   headerP, chapterP, sectionP, subsectionP, subsubsectionP, textP,
-  sectP, subsectP, subsubsectP, txtP,
+  verbatimP, sectP, subsectP, subsubsectP, txtP, verbP,
   (*theory sections*)
   classesP, classrelP, defaultsortP, typedeclP, typeabbrP, nontermP,
   aritiesP, constsP, syntaxP, translationsP, axiomsP, defsP,

--- a/src/Pure/Isar/isar_thy.ML	Thu Oct 07 12:36:39 1999 +0200
+++ b/src/Pure/Isar/isar_thy.ML	Thu Oct 07 12:36:53 1999 +0200
@@ -13,10 +13,12 @@
   val add_subsection: Comment.text -> theory -> theory
   val add_subsubsection: Comment.text -> theory -> theory
   val add_text: Comment.text -> theory -> theory
+  val add_verbatim: Comment.text -> theory -> theory
   val add_sect: Comment.text -> ProofHistory.T -> ProofHistory.T
   val add_subsect: Comment.text -> ProofHistory.T -> ProofHistory.T
   val add_subsubsect: Comment.text -> ProofHistory.T -> ProofHistory.T
   val add_txt: Comment.text -> ProofHistory.T -> ProofHistory.T
+  val add_verb: Comment.text -> ProofHistory.T -> ProofHistory.T
   val add_classes: (bclass * xclass list) list * Comment.text -> theory -> theory
   val add_classes_i: (bclass * class list) list * Comment.text  -> theory -> theory
   val add_classrel: (xclass * xclass) * Comment.text -> theory -> theory
@@ -170,6 +172,7 @@
   Toplevel.keep (fn state => if Toplevel.is_toplevel state then () else raise Toplevel.UNDEF);
 
 fun add_text comment thy = thy:theory;
+val add_verbatim = add_text;
 val add_chapter = add_text;
 
 fun gen_add_section add present txt thy =
@@ -180,6 +183,7 @@
 val add_subsubsection = gen_add_section add_text Present.subsubsection;
 
 fun add_txt comment = ProofHistory.apply Proof.assert_forward;
+val add_verb = add_txt;
 val add_sect = add_txt;
 val add_subsect = add_txt;
 val add_subsubsect = add_txt;