Sharp.Augeas/Sharp.Augeas.Test/lens/sep.aug

58 lines
1.3 KiB
Plaintext
Raw Normal View History

2022-11-08 20:57:02 +03:00
(*
Module: Sep
Generic separators to build lenses
Author: Raphael Pinson <raphink@gmail.com>
About: License
This file is licensed under the LGPL v2+, like the rest of Augeas.
*)
module Sep =
(* Variable: colon *)
let colon = Util.del_str ":"
(* Variable: semicolon *)
let semicolon = Util.del_str ";"
(* Variable: comma *)
let comma = Util.del_str ","
(* Variable: equal *)
let equal = Util.del_str "="
(* Variable: space_equal *)
let space_equal = Util.delim "="
(* Variable: space
Deletes a <Rx.space> and default to a single space *)
let space = del Rx.space " "
(* Variable: tab
Deletes a <Rx.space> and default to a tab *)
let tab = del Rx.space "\t"
(* Variable: opt_space
Deletes a <Rx.opt_space> and default to an empty string *)
let opt_space = del Rx.opt_space ""
(* Variable: opt_tab
Deletes a <Rx.opt_space> and default to a tab *)
let opt_tab = del Rx.opt_space "\t"
(* Variable: cl_or_space
Deletes a <Rx.cl_or_space> and default to a single space *)
let cl_or_space = del Rx.cl_or_space " "
(* Variable: cl_or_opt_space
Deletes a <Rx.cl_or_opt_space> and default to a single space *)
let cl_or_opt_space = del Rx.cl_or_opt_space " "
(* Variable: lbracket *)
let lbracket = Util.del_str "("
(* Variable: rbracket *)
let rbracket = Util.del_str ")"