l4/pkg/ocaml/contrib/otherlibs/labltk/builtin/builtin_text.ml

   1 (* Not a string as such, more like a symbol *)
   2
   3 (* type *)
   4 type textMark = string;;
   5 (* /type *)
   6
   7 (* type *)
   8 type textTag = string;;
   9 (* /type *)
  10
  11 ##ifdef CAMLTK
  12
  13 (* type *)
  14 type textModifier =
  15   | CharOffset of int           (* tk keyword: +/- Xchars *)
  16   | LineOffset of int           (* tk keyword: +/- Xlines *)
  17   | LineStart                   (* tk keyword: linestart *)
  18   | LineEnd                     (* tk keyword: lineend *)
  19   | WordStart                   (* tk keyword: wordstart *)
  20   | WordEnd                     (* tk keyword: wordend *)
  21 ;;
  22 (* /type *)
  23
  24 (* type *)
  25 type textIndex =
  26   | TextIndex of index * textModifier list
  27   | TextIndexNone
  28 ;;
  29 (* /type *)
  30
  31 ##else
  32
  33 (* type *)
  34 type textModifier = [
  35   | `Char of int                (* tk keyword: +/- Xchars *)
  36   | `Line of int                (* tk keyword: +/- Xlines *)
  37   | `Linestart                  (* tk keyword: linestart *)
  38   | `Lineend                    (* tk keyword: lineend *)
  39   | `Wordstart                  (* tk keyword: wordstart *)
  40   | `Wordend                    (* tk keyword: wordend *)
  41 ]
  42 ;;
  43 (* /type *)
  44
  45 (* type *)
  46 type textIndex = text_index * textModifier list
  47 ;;
  48 (* /type *)
  49
  50 ##endif