3 Generic separators to build lenses
5 Author: Raphael Pinson <raphink@gmail.com>
8 This file is licensed under the LGPL v2+, like the rest of Augeas.
15 let colon = Util.del_str ":"
17 (* Variable: semicolon *)
18 let semicolon = Util.del_str ";"
21 let comma = Util.del_str ","
24 let equal = Util.del_str "="
26 (* Variable: space_equal *)
27 let space_equal = Util.delim "="
30 Deletes a <Rx.space> and default to a single space *)
31 let space = del Rx.space " "
34 Deletes a <Rx.space> and default to a tab *)
35 let tab = del Rx.space "\t"
37 (* Variable: opt_space
38 Deletes a <Rx.opt_space> and default to an empty string *)
39 let opt_space = del Rx.opt_space ""
42 Deletes a <Rx.opt_space> and default to a tab *)
43 let opt_tab = del Rx.opt_space "\t"
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 " "
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 " "
53 (* Variable: lbracket *)
54 let lbracket = Util.del_str "("
56 (* Variable: rbracket *)
57 let rbracket = Util.del_str ")"