25 lines
602 B
OCaml
25 lines
602 B
OCaml
(* Not a string as such, more like a symbol *)
|
|
|
|
(* type *)
|
|
type textMark = string
|
|
(* /type *)
|
|
|
|
(* type *)
|
|
type textTag = string
|
|
(* /type *)
|
|
|
|
(* type *)
|
|
type textModifier = [
|
|
| `Char(int) (* tk keyword: +/- Xchars *)
|
|
| `Line(int) (* tk keyword: +/- Xlines *)
|
|
| `Linestart (* tk keyword: linestart *)
|
|
| `Lineend (* tk keyword: lineend *)
|
|
| `Wordstart (* tk keyword: wordstart *)
|
|
| `Wordend (* tk keyword: wordend *)
|
|
]
|
|
(* /type *)
|
|
|
|
(* type *)
|
|
type textIndex = text_index * textModifier list
|
|
(* /type *)
|