equal
deleted
inserted
replaced
40 val language_rail: T |
40 val language_rail: T |
41 val language_path: T |
41 val language_path: T |
42 val language_mixfix: T |
42 val language_mixfix: T |
43 val bindingN: string val binding: T |
43 val bindingN: string val binding: T |
44 val entityN: string val entity: string -> string -> T |
44 val entityN: string val entity: string -> string -> T |
45 val get_entity_kind: T -> string option |
|
46 val defN: string |
45 val defN: string |
47 val refN: string |
46 val refN: string |
48 val completionN: string val completion: T |
47 val completionN: string val completion: T |
49 val no_completionN: string val no_completion: T |
48 val no_completionN: string val no_completion: T |
50 val lineN: string |
49 val lineN: string |
324 val entityN = "entity"; |
323 val entityN = "entity"; |
325 fun entity kind name = |
324 fun entity kind name = |
326 (entityN, |
325 (entityN, |
327 (if name = "" then [] else [(nameN, name)]) @ (if kind = "" then [] else [(kindN, kind)])); |
326 (if name = "" then [] else [(nameN, name)]) @ (if kind = "" then [] else [(kindN, kind)])); |
328 |
327 |
329 fun get_entity_kind (name, props) = |
|
330 if name = entityN then Properties.get props kindN |
|
331 else NONE; |
|
332 |
|
333 val defN = "def"; |
328 val defN = "def"; |
334 val refN = "ref"; |
329 val refN = "ref"; |
335 |
330 |
336 |
331 |
337 (* completion *) |
332 (* completion *) |