author | wenzelm |
Sun, 30 May 2010 14:14:30 +0200 | |
changeset 37192 | 8cdddd689ea9 |
parent 37186 | 349e9223c685 |
child 37194 | 825456e5db30 |
permissions | -rw-r--r-- |
27958 | 1 |
/* Title: Pure/General/markup.scala |
2 |
Author: Makarius |
|
3 |
||
4 |
Common markup elements. |
|
5 |
*/ |
|
6 |
||
7 |
package isabelle |
|
8 |
||
27970 | 9 |
|
32450 | 10 |
object Markup |
11 |
{ |
|
36683 | 12 |
/* property values */ |
13 |
||
14 |
def get_string(name: String, props: List[(String, String)]): Option[String] = |
|
15 |
props.find(p => p._1 == name).map(_._2) |
|
16 |
||
17 |
def parse_int(s: String): Option[Int] = |
|
18 |
try { Some(Integer.parseInt(s)) } |
|
19 |
catch { case _: NumberFormatException => None } |
|
20 |
||
21 |
def get_int(name: String, props: List[(String, String)]): Option[Int] = |
|
22 |
{ |
|
23 |
get_string(name, props) match { |
|
24 |
case None => None |
|
25 |
case Some(value) => parse_int(value) |
|
26 |
} |
|
27 |
} |
|
28 |
||
29 |
||
29184 | 30 |
/* name */ |
31 |
||
32 |
val NAME = "name" |
|
33 |
val KIND = "kind" |
|
34 |
||
35 |
||
33088
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
36 |
/* formal entities */ |
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
37 |
|
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
38 |
val ENTITY = "entity" |
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
39 |
val DEF = "def" |
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
40 |
val REF = "ref" |
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
41 |
|
757d7787b10c
markup for formal entities, with "def" or "ref" occurrences;
wenzelm
parents:
32450
diff
changeset
|
42 |
|
27970 | 43 |
/* position */ |
44 |
||
45 |
val LINE = "line" |
|
46 |
val COLUMN = "column" |
|
47 |
val OFFSET = "offset" |
|
48 |
val END_LINE = "end_line" |
|
49 |
val END_COLUMN = "end_column" |
|
50 |
val END_OFFSET = "end_offset" |
|
51 |
val FILE = "file" |
|
52 |
val ID = "id" |
|
53 |
||
32450 | 54 |
val POSITION_PROPERTIES = |
55 |
Set(LINE, COLUMN, OFFSET, END_LINE, END_COLUMN, END_OFFSET, FILE, ID) |
|
29205 | 56 |
|
29184 | 57 |
val POSITION = "position" |
58 |
val LOCATION = "location" |
|
59 |
||
60 |
||
36683 | 61 |
/* pretty printing */ |
62 |
||
63 |
val INDENT = "indent" |
|
64 |
val BLOCK = "block" |
|
65 |
val WIDTH = "width" |
|
66 |
val BREAK = "break" |
|
67 |
||
68 |
||
33985 | 69 |
/* hidden text */ |
70 |
||
71 |
val HIDDEN = "hidden" |
|
72 |
||
73 |
||
29184 | 74 |
/* logical entities */ |
75 |
||
76 |
val TCLASS = "tclass" |
|
77 |
val TYCON = "tycon" |
|
78 |
val FIXED_DECL = "fixed_decl" |
|
79 |
val FIXED = "fixed" |
|
80 |
val CONST_DECL = "const_decl" |
|
81 |
val CONST = "const" |
|
82 |
val FACT_DECL = "fact_decl" |
|
83 |
val FACT = "fact" |
|
84 |
val DYNAMIC_FACT = "dynamic_fact" |
|
85 |
val LOCAL_FACT_DECL = "local_fact_decl" |
|
86 |
val LOCAL_FACT = "local_fact" |
|
87 |
||
88 |
||
89 |
/* inner syntax */ |
|
90 |
||
91 |
val TFREE = "tfree" |
|
92 |
val TVAR = "tvar" |
|
93 |
val FREE = "free" |
|
94 |
val SKOLEM = "skolem" |
|
95 |
val BOUND = "bound" |
|
96 |
val VAR = "var" |
|
97 |
val NUM = "num" |
|
98 |
val FLOAT = "float" |
|
99 |
val XNUM = "xnum" |
|
100 |
val XSTR = "xstr" |
|
101 |
val LITERAL = "literal" |
|
102 |
val INNER_COMMENT = "inner_comment" |
|
103 |
||
104 |
val SORT = "sort" |
|
105 |
val TYP = "typ" |
|
106 |
val TERM = "term" |
|
107 |
val PROP = "prop" |
|
108 |
||
109 |
val ATTRIBUTE = "attribute" |
|
110 |
val METHOD = "method" |
|
111 |
||
112 |
||
113 |
/* embedded source text */ |
|
114 |
||
115 |
val ML_SOURCE = "ML_source" |
|
116 |
val DOC_SOURCE = "doc_source" |
|
117 |
||
118 |
val ANTIQ = "antiq" |
|
119 |
val ML_ANTIQ = "ML_antiq" |
|
120 |
val DOC_ANTIQ = "doc_antiq" |
|
121 |
||
122 |
||
30615 | 123 |
/* ML syntax */ |
124 |
||
125 |
val ML_KEYWORD = "ML_keyword" |
|
126 |
val ML_IDENT = "ML_ident" |
|
127 |
val ML_TVAR = "ML_tvar" |
|
128 |
val ML_NUMERAL = "ML_numeral" |
|
129 |
val ML_CHAR = "ML_char" |
|
130 |
val ML_STRING = "ML_string" |
|
131 |
val ML_COMMENT = "ML_comment" |
|
132 |
val ML_MALFORMED = "ML_malformed" |
|
133 |
||
30702 | 134 |
val ML_DEF = "ML_def" |
31472 | 135 |
val ML_OPEN = "ML_open" |
136 |
val ML_STRUCT = "ML_struct" |
|
30702 | 137 |
val ML_REF = "ML_ref" |
138 |
val ML_TYPING = "ML_typing" |
|
139 |
||
30615 | 140 |
|
29184 | 141 |
/* outer syntax */ |
142 |
||
143 |
val KEYWORD_DECL = "keyword_decl" |
|
144 |
val COMMAND_DECL = "command_decl" |
|
145 |
||
146 |
val KEYWORD = "keyword" |
|
147 |
val COMMAND = "command" |
|
148 |
val IDENT = "ident" |
|
149 |
val STRING = "string" |
|
150 |
val ALTSTRING = "altstring" |
|
151 |
val VERBATIM = "verbatim" |
|
152 |
val COMMENT = "comment" |
|
153 |
val CONTROL = "control" |
|
154 |
val MALFORMED = "malformed" |
|
155 |
||
29185 | 156 |
val COMMAND_SPAN = "command_span" |
157 |
val IGNORED_SPAN = "ignored_span" |
|
158 |
val MALFORMED_SPAN = "malformed_span" |
|
159 |
||
29184 | 160 |
|
161 |
/* toplevel */ |
|
162 |
||
163 |
val STATE = "state" |
|
164 |
val SUBGOAL = "subgoal" |
|
165 |
val SENDBACK = "sendback" |
|
166 |
val HILITE = "hilite" |
|
167 |
||
168 |
||
169 |
/* command status */ |
|
170 |
||
29417 | 171 |
val TASK = "task" |
172 |
||
29184 | 173 |
val UNPROCESSED = "unprocessed" |
174 |
val RUNNING = "running" |
|
37186
349e9223c685
explicit markup for forked goals, as indicated by Goal.fork;
wenzelm
parents:
37121
diff
changeset
|
175 |
val FORKED = "forked" |
349e9223c685
explicit markup for forked goals, as indicated by Goal.fork;
wenzelm
parents:
37121
diff
changeset
|
176 |
val JOINED = "joined" |
29184 | 177 |
val FAILED = "failed" |
178 |
val FINISHED = "finished" |
|
179 |
val DISPOSED = "disposed" |
|
29488 | 180 |
|
181 |
||
182 |
/* interactive documents */ |
|
183 |
||
34242
5ccdc8bf3849
explicit markup of document assigment message (simplified variant of earlier "edits" 8c3e1f73953d);
wenzelm
parents:
34214
diff
changeset
|
184 |
val ASSIGN = "assign" |
29488 | 185 |
val EDIT = "edit" |
29184 | 186 |
|
27970 | 187 |
|
188 |
/* messages */ |
|
189 |
||
190 |
val PID = "pid" |
|
191 |
||
29195 | 192 |
val MESSAGE = "message" |
29522
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
193 |
val CLASS = "class" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
194 |
|
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
195 |
val INIT = "init" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
196 |
val STATUS = "status" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
197 |
val WRITELN = "writeln" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
198 |
val TRACING = "tracing" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
199 |
val WARNING = "warning" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
200 |
val ERROR = "error" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
201 |
val DEBUG = "debug" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
202 |
val SYSTEM = "system" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
203 |
val STDIN = "stdin" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
204 |
val STDOUT = "stdout" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
205 |
val SIGNAL = "signal" |
793766d4c1b5
moved message markup into Scala layer -- reduced redundancy;
wenzelm
parents:
29488
diff
changeset
|
206 |
val EXIT = "exit" |
29195 | 207 |
|
31384
ce169bd37fc0
IsabelleProcess: emit status "ready" after initialization and reports;
wenzelm
parents:
30702
diff
changeset
|
208 |
val READY = "ready" |
ce169bd37fc0
IsabelleProcess: emit status "ready" after initialization and reports;
wenzelm
parents:
30702
diff
changeset
|
209 |
|
27970 | 210 |
|
34119 | 211 |
/* system data */ |
27970 | 212 |
|
34046 | 213 |
val DATA = "data" |
27958 | 214 |
} |