src/Pure/PIDE/markup.ML
changeset 67188 bc7a6455e12a
parent 67173 e746db6db903
child 67219 81e9804b2014
equal deleted inserted replaced
67187:3457d7d43ee9 67188:bc7a6455e12a
    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)]);