18 val none: T |
18 val none: T |
19 val start: T |
19 val start: T |
20 val file_name: string -> Properties.T |
20 val file_name: string -> Properties.T |
21 val file_only: string -> T |
21 val file_only: string -> T |
22 val file: string -> T |
22 val file: string -> T |
|
23 val line_file_only: int -> string -> T |
|
24 val line_file: int -> string -> T |
23 val line: int -> T |
25 val line: int -> T |
24 val line_file: int -> string -> T |
|
25 val id: string -> T |
26 val id: string -> T |
26 val id_only: string -> T |
27 val id_only: string -> T |
27 val get_id: T -> string option |
28 val get_id: T -> string option |
28 val put_id: string -> T -> T |
29 val put_id: string -> T -> T |
29 val parse_id: T -> int option |
30 val parse_id: T -> int option |
115 | file_name name = [(Markup.fileN, name)]; |
116 | file_name name = [(Markup.fileN, name)]; |
116 |
117 |
117 fun file_only name = Pos ((0, 0, 0), file_name name); |
118 fun file_only name = Pos ((0, 0, 0), file_name name); |
118 fun file name = Pos ((1, 1, 0), file_name name); |
119 fun file name = Pos ((1, 1, 0), file_name name); |
119 |
120 |
|
121 fun line_file_only i name = Pos ((i, 0, 0), file_name name); |
120 fun line_file i name = Pos ((i, 1, 0), file_name name); |
122 fun line_file i name = Pos ((i, 1, 0), file_name name); |
121 fun line i = line_file i ""; |
123 fun line i = line_file i ""; |
122 |
124 |
123 fun id id = Pos ((0, 1, 0), [(Markup.idN, id)]); |
125 fun id id = Pos ((0, 1, 0), [(Markup.idN, id)]); |
124 fun id_only id = Pos ((0, 0, 0), [(Markup.idN, id)]); |
126 fun id_only id = Pos ((0, 0, 0), [(Markup.idN, id)]); |