Blob Blame History Raw
(* Not a string as such, more like a symbol *)

(* type *)
type textMark = string;;
(* /type *)

(* type *)
type textTag = string;;
(* /type *)

##ifdef CAMLTK

(* type *)
type textModifier =
  | CharOffset of int           (* tk keyword: +/- Xchars *)
  | LineOffset of int           (* tk keyword: +/- Xlines *)
  | LineStart                   (* tk keyword: linestart *)
  | LineEnd                     (* tk keyword: lineend *)
  | WordStart                   (* tk keyword: wordstart *)
  | WordEnd                     (* tk keyword: wordend *)
;;
(* /type *)

(* type *)
type textIndex =
  | TextIndex of index * textModifier list
  | TextIndexNone
;;
(* /type *)

##else

(* type *)
type textModifier = [
  | `Char of int                (* tk keyword: +/- Xchars *)
  | `Line of 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 *)

##endif