equal
deleted
inserted
replaced
144 fun value k i = if valid i then [(k, Markup.print_int i)] else []; |
144 fun value k i = if valid i then [(k, Markup.print_int i)] else []; |
145 |
145 |
146 fun properties_of (Pos ((i, j, k), props)) = |
146 fun properties_of (Pos ((i, j, k), props)) = |
147 value Markup.lineN i @ value Markup.offsetN j @ value Markup.end_offsetN k @ props; |
147 value Markup.lineN i @ value Markup.offsetN j @ value Markup.end_offsetN k @ props; |
148 |
148 |
149 val def_properties_of = properties_of #> (map (fn (x, y) => ("def_" ^ x, y))); |
149 val def_properties_of = properties_of #> map (fn (x, y) => ("def_" ^ x, y)); |
150 |
150 |
151 fun entity_properties_of def id pos = |
151 fun entity_properties_of def id pos = |
152 if def then (Markup.defN, Markup.print_int id) :: properties_of pos |
152 if def then (Markup.defN, Markup.print_int id) :: properties_of pos |
153 else (Markup.refN, Markup.print_int id) :: def_properties_of pos; |
153 else (Markup.refN, Markup.print_int id) :: def_properties_of pos; |
154 |
154 |