--- a/src/Pure/General/markup.ML Sat Oct 24 17:47:53 2009 +0200
+++ b/src/Pure/General/markup.ML Sat Oct 24 17:49:44 2009 +0200
@@ -18,6 +18,9 @@
val kindN: string
val internalK: string
val property_internal: Properties.property
+ val entityN: string val entity: string -> T
+ val defN: string
+ val refN: string
val lineN: string
val columnN: string
val offsetN: string
@@ -161,6 +164,14 @@
val property_internal = (kindN, internalK);
+(* formal entities *)
+
+val (entityN, entity) = markup_string "entity" nameN;
+
+val defN = "def";
+val refN = "ref";
+
+
(* position *)
val lineN = "line";
--- a/src/Pure/General/markup.scala Sat Oct 24 17:47:53 2009 +0200
+++ b/src/Pure/General/markup.scala Sat Oct 24 17:49:44 2009 +0200
@@ -15,6 +15,13 @@
val KIND = "kind"
+ /* formal entities */
+
+ val ENTITY = "entity"
+ val DEF = "def"
+ val REF = "ref"
+
+
/* position */
val LINE = "line"