equal
deleted
inserted
replaced
52 val fileN: string |
52 val fileN: string |
53 val idN: string |
53 val idN: string |
54 val position_properties': string list |
54 val position_properties': string list |
55 val position_properties: string list |
55 val position_properties: string list |
56 val positionN: string val position: T |
56 val positionN: string val position: T |
57 val rangeN: string |
|
58 val expressionN: string val expression: string -> T |
57 val expressionN: string val expression: string -> T |
59 val citationN: string val citation: string -> T |
58 val citationN: string val citation: string -> T |
60 val pathN: string val path: string -> T |
59 val pathN: string val path: string -> T |
61 val urlN: string val url: string -> T |
60 val urlN: string val url: string -> T |
62 val docN: string val doc: string -> T |
61 val docN: string val doc: string -> T |
335 val position_properties' = [fileN, idN]; |
334 val position_properties' = [fileN, idN]; |
336 val position_properties = [lineN, offsetN, end_offsetN] @ position_properties'; |
335 val position_properties = [lineN, offsetN, end_offsetN] @ position_properties'; |
337 |
336 |
338 val (positionN, position) = markup_elem "position"; |
337 val (positionN, position) = markup_elem "position"; |
339 |
338 |
340 val rangeN = "range"; |
|
341 |
|
342 |
339 |
343 (* expression *) |
340 (* expression *) |
344 |
341 |
345 val expressionN = "expression"; |
342 val expressionN = "expression"; |
346 fun expression kind = (expressionN, if kind = "" then [] else [(kindN, kind)]); |
343 fun expression kind = (expressionN, if kind = "" then [] else [(kindN, kind)]); |