src/Pure/Isar/outer_keyword.scala

--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/Pure/Isar/outer_keyword.scala	Sun Jan 11 20:40:09 2009 +0100
@@ -0,0 +1,46 @@
+/*  Title:      Pure/Isar/outer_keyword.scala
+    Author:     Makarius
+
+Isar command keyword classification.
+*/
+
+package isabelle
+
+object OuterKeyword {
+
+  val MINOR = "minor"
+  val CONTROL = "control"
+  val DIAG = "diag"
+  val THY_BEGIN = "theory-begin"
+  val THY_SWITCH = "theory-switch"
+  val THY_END = "theory-end"
+  val THY_HEADING = "theory-heading"
+  val THY_DECL = "theory-decl"
+  val THY_SCRIPT = "theory-script"
+  val THY_GOAL = "theory-goal"
+  val QED = "qed"
+  val QED_BLOCK = "qed-block"
+  val QED_GLOBAL = "qed-global"
+  val PRF_HEADING = "proof-heading"
+  val PRF_GOAL = "proof-goal"
+  val PRF_BLOCK = "proof-block"
+  val PRF_OPEN = "proof-open"
+  val PRF_CLOSE = "proof-close"
+  val PRF_CHAIN = "proof-chain"
+  val PRF_DECL = "proof-decl"
+  val PRF_ASM = "proof-asm"
+  val PRF_ASM_GOAL = "proof-asm-goal"
+  val PRF_SCRIPT = "proof-script"
+
+  val minor = Set(MINOR)
+  val control = Set(CONTROL)
+  val diag = Set(DIAG)
+  val theory0 = Set(THY_BEGIN, THY_SWITCH, THY_END)
+  val theory1 = Set(THY_HEADING)
+  val theory2 = Set(THY_DECL, THY_GOAL)
+  val proof1 = Set(QED, QED_BLOCK, QED_GLOBAL, PRF_HEADING, PRF_GOAL, PRF_BLOCK, PRF_OPEN,
+    PRF_CLOSE, PRF_CHAIN, PRF_DECL)
+  val proof2 = Set(PRF_ASM, PRF_ASM_GOAL)
+  val improper = Set(THY_SCRIPT, PRF_SCRIPT)
+}
+