equal
deleted
inserted
replaced
35 val bindingN: string val binding: T |
35 val bindingN: string val binding: T |
36 val entityN: string val entity: string -> string -> T |
36 val entityN: string val entity: string -> string -> T |
37 val get_entity_kind: T -> string option |
37 val get_entity_kind: T -> string option |
38 val defN: string |
38 val defN: string |
39 val refN: string |
39 val refN: string |
|
40 val completionN: string val completion: T |
40 val lineN: string |
41 val lineN: string |
41 val offsetN: string |
42 val offsetN: string |
42 val end_offsetN: string |
43 val end_offsetN: string |
43 val fileN: string |
44 val fileN: string |
44 val idN: string |
45 val idN: string |
281 |
282 |
282 val defN = "def"; |
283 val defN = "def"; |
283 val refN = "ref"; |
284 val refN = "ref"; |
284 |
285 |
285 |
286 |
|
287 (* completion *) |
|
288 |
|
289 val (completionN, completion) = markup_elem "completion"; |
|
290 |
|
291 |
286 (* position *) |
292 (* position *) |
287 |
293 |
288 val lineN = "line"; |
294 val lineN = "line"; |
289 val offsetN = "offset"; |
295 val offsetN = "offset"; |
290 val end_offsetN = "end_offset"; |
296 val end_offsetN = "end_offset"; |
542 val simp_trace_recurseN = "simp_trace_recurse"; |
548 val simp_trace_recurseN = "simp_trace_recurse"; |
543 val simp_trace_hintN = "simp_trace_hint"; |
549 val simp_trace_hintN = "simp_trace_hint"; |
544 val simp_trace_ignoreN = "simp_trace_ignore"; |
550 val simp_trace_ignoreN = "simp_trace_ignore"; |
545 |
551 |
546 fun simp_trace_cancel i = [(functionN, "simp_trace_cancel"), (serialN, print_int i)]; |
552 fun simp_trace_cancel i = [(functionN, "simp_trace_cancel"), (serialN, print_int i)]; |
|
553 |
547 |
554 |
548 |
555 |
549 (** print mode operations **) |
556 (** print mode operations **) |
550 |
557 |
551 val no_output = ("", ""); |
558 val no_output = ("", ""); |