lenses/sep.aug

   1 (*
   2 Module: Sep
   3    Generic separators to build lenses
   4
   5 Author: Raphael Pinson <raphink@gmail.com>
   6
   7 About: License
   8   This file is licensed under the LGPL v2+, like the rest of Augeas.
   9 *)
  10
  11
  12 module Sep =
  13
  14 (* Variable: colon *)
  15 let colon = Util.del_str ":"
  16
  17 (* Variable: semicolon *)
  18 let semicolon = Util.del_str ";"
  19
  20 (* Variable: comma *)
  21 let comma = Util.del_str ","
  22
  23 (* Variable: equal *)
  24 let equal = Util.del_str "="
  25
  26 (* Variable: space_equal *)
  27 let space_equal = Util.delim "="
  28
  29 (* Variable: space
  30    Deletes a <Rx.space> and default to a single space *)
  31 let space = del Rx.space " "
  32
  33 (* Variable: tab
  34    Deletes a <Rx.space> and default to a tab *)
  35 let tab   = del Rx.space "\t"
  36
  37 (* Variable: opt_space
  38    Deletes a <Rx.opt_space> and default to an empty string *)
  39 let opt_space = del Rx.opt_space ""
  40
  41 (* Variable: opt_tab
  42    Deletes a <Rx.opt_space> and default to a tab *)
  43 let opt_tab   = del Rx.opt_space "\t"
  44
  45 (* Variable: cl_or_space
  46    Deletes a <Rx.cl_or_space> and default to a single space *)
  47 let cl_or_space = del Rx.cl_or_space " "
  48
  49 (* Variable: cl_or_opt_space
  50    Deletes a <Rx.cl_or_opt_space> and default to a single space *)
  51 let cl_or_opt_space = del Rx.cl_or_opt_space " "
  52
  53 (* Variable: lbracket *)
  54 let lbracket = Util.del_str "("
  55
  56 (* Variable: rbracket *)
  57 let rbracket = Util.del_str ")"