let section_re = /(Extensions|Files|ServerFlags|Module|InputDevice|InputClass|Device|VideoAdaptor|Monitor|Modes|Screen|ServerLayout|DRI|Vendor)/

let semicolon = Util.del_str ";"

let semicolon = sep_tab_opt . Util.del_str ";" . sep_tab_opt

let sep = Util.del_str " "

let sep = /[ \t]+/

let sep (pat:regexp) (default:string) = Sep.opt_space . del pat default

let sep_ace = IniFile.sep IniFile.sep_re IniFile.sep_default

let sep_acf = IniFile.sep IniFile.sep_re IniFile.sep_default

let sep_ade = IniFile.sep IniFile.sep_re IniFile.sep_default

let sep_adf = IniFile.sep IniFile.sep_re IniFile.sep_default

let sep_bce = IniFile.sep "=" "="

let sep_bcf = IniFile.sep "=" "="

let sep_bde = IniFile.sep "=" "="

let sep_bdf = IniFile.sep "=" "="

let sep_col = sep_cont_opt_build ":"

let sep_com = sep_cont_opt_build ","

let sep_cont = Sep.cl_or_space

let sep_cont_opt = Sep.cl_or_opt_space

let sep_cont_opt_build (sep:string) = del (Rx.cl_or_opt_space . sep . Rx.cl_or_opt_space) (" " . sep . " ")

let sep_default = "="

let sep_dquote = Util.del_str "\""

let sep_dquote = Util.del_str "\""

let sep_eq = Util.del_str "="

let sep_eq = sep_cont_opt_build "="

let sep_noindent (pat:regexp) (default:string) = del pat default

let sep_re = /[=:]/

let sep_spc = Util.del_ws_spc

let sep_spc = Sep.space

let sep_spc = Util.del_ws_spc

let sep_tab = Sep.tab

let sep_tab = del /([ \t]+|[ \t]*\\\\\n[ \t]*)/ "\t"

let sep_tab_opt = del /([ \t]*|[ \t]*\\\\\n[ \t]*)/ ""

let server_peer = "server"|"peer"

let service_attr = attr_one (/socket_type|protocol|wait|user|group|server|instances/i |/rpc_version|rpc_number|id|port|nice|banner|bind|interface/i |/per_source|groups|banner_success|banner_fail|disable|max_load/i |/rlimit_as|rlimit_cpu|rlimit_data|rlimit_rss|rlimit_stack|v6only/i |/deny_time|umask|mdns|libwrap/i)

let set_operators = /[=&|]/

let shell_command_rx = /[^ \t\n:][^\n]*[^ \t\n]|[^ \t\n:\\\\]/ - ( option_kw . /.*/ )

let simple = "LoadPlugin contextswitch LoadPlugin cpu FQDNLookup \"true\" Include \"/var/lib/puppet/modules/collectd/plugins/*.conf\" "

let simple_config = "# A comment disk_config disk2 raw-disk - 0 - - disk_config lvm vg my_pv sda2 vg test disk1.9 my_pv-_swap swap 2048 swap sw my_pv-_root / 2048 ext3 rw,errors=remount-ro disk_config raid raid1 /boot disk1.1,disk2.1,disk3.1,disk4.1,disk5.1,disk6.1 ext3 rw raid1 swap disk1.2,disk2.2,disk3.2,disk4.2,disk5.2,disk6.2 swap sw raid5 /srv/data disk1.11,disk2.11,disk3.11,disk4.11,disk5.11,disk6.11 ext3 ro createopts=\"-m 0\" raid0 - disk2.2,sdc1,sde1:spare:missing ext2 default disk_config tmpfs tmpfs /var/opt/hosting/tmp 500 defaults "

let simple_keys = "acquisitionport" | "allow" | "bindaddress" | "bindcmdaddress" | "cmdallow" | "cmddeny" | "combinelimit" | "commandkey" | "cmdport" | "corrtimeratio" | "deny" | "driftfile" | "dumpdir" | "keyfile" | "leapsectz" | "linux_hz" | "linux_freq_scale" | "logbanner" | "logchange" | "logdir" | "maxclockerror" | "maxsamples" | "maxupdateskew" | "minsamples" | "clientloglimit" | "pidfile" | "port" | "reselectdist" | "rtcdevice" | "rtcfile" | "sched_priority" | "stratumweight" | "user"

let single_opt_re = /[^\n\t ']([^\n']*[^\n\t '])?/

let size = [ label "size" . store size_kw . resize? ]

let size_kw = /[0-9]+[kMGTP%]?(-([0-9]+[kMGTP%]?)?)?/ | /-[0-9]+[kMGTP%]?/

let smtp_check = "virtual_server 192.168.1.11 22 { real_server 10.20.40.10 22 { SMTP_CHECK { host { connect_ip 10.20.40.11 connect_port 587 bindto 192.168.1.1 } connect_timeout 3 retry 5 delay_before_retry 10 helo_name \"Testing Augeas\" } } } " test Keepalived.lns get smtp_check = { "virtual_server" { "ip" = "192.168.1.11" } { "port" = "22" } { "real_server" { "ip" = "10.20.40.10" } { "port" = "22" } { "SMTP_CHECK" { "host" { "connect_ip" = "10.20.40.11" } { "connect_port" = "587" } { "bindto" = "192.168.1.1" } } { "connect_timeout" = "3" } { "retry" = "5" } { "delay_before_retry" = "10" } { "helo_name" = "\"Testing Augeas\"" } } } }

let space = Sep.space

let space = /[ \t]+/

let space = del Rx.space " "

let space_equal = Util.delim "="

let space_in = /[^ \r\t\n].*[^ \r\t\n]|[^ \t\n\r]/

let space_list_re = "global-ignores" | "preserved-conflict-file-exts"

let space_or_eol_re = /([ \t]*\n)?[ \t]+/

let spare_missing = tag /spare|missing/

let squote = Util.del_str "'"

let squote_opt = del /'?/ "'"

let squote_opt_nil = del /'?/ ""

let std_re = /[^ \t\r\n\/=#]+/ - (comma_list_re | space_list_re)

let stdexcl = (excl "*~") . (excl "*.rpmnew") . (excl "*.rpmsave") . (excl "*.dpkg-old") . (excl "*.dpkg-new") . (excl "*.dpkg-bak") . (excl "*.dpkg-dist") . (excl "*.augsave") . (excl "*.augnew") . (excl "*.bak") . (excl "*.old") . (excl "#*#")

let sto_integer = store /[0-9]+/

let sto_multiline = Sep.opt_space . store (to_comment_re . (/[ \t]*\n/ . Rx.space . to_comment_re)*)

let sto_multiline_nocomment = Sep.opt_space . store (Rx.space_in . (/[ \t]*\n/ . Rx.space . Rx.space_in)*)

let sto_to_com = store /([^,=:#() \t\n\\][^,=:#()\n]*[^,=:#() \t\n\\])|[^,=:#() \t\n\\]/

let sto_to_com_cmnd = let alias = Rx.word - /(NO)?(PASSWD|EXEC|SETENV)/ in let non_alias = /(!?[\/a-z]([^,:#()\n\\]|\\\\[=:,\\])*[^,=:#() \t\n\\])|[^,=:#() \t\n\\]/ in store (alias | non_alias)

let sto_to_com_col = store to_com_chars

let sto_to_com_dquot = store (to_com_chars|to_com_dquot)

let sto_to_com_host = store /[^,=:#() \t\n\\]+/

let sto_to_com_user = let nis_re = /([A-Z]([-A-Z0-9]|(\\\\[ \t]))*+\\\\\\\\)/ in let user_re = /[%+@a-z]([-A-Za-z0-9._+]|(\\\\[ \t]))*/ in let alias_re = /[A-Z_]+/ in store ((nis_re? . user_re) | alias_re)

let sto_to_comment = Sep.opt_space . store /[^# \t\r\n][^#\r\n]*[^# \t\r\n]|[^# \t\r\n]/

let sto_to_comment = Sep.opt_space . store to_comment_re

let sto_to_eol = Sep.opt_space . store Rx.space_in

let sto_to_eq = store /[^,=:#() \t\n\\]+/

let sto_to_spc = store /[^", \t\n\\]+|"[^", \t\n\\]+"/

let sto_to_spc_no_dquote = store /[^",# \t\n\\]+/ (* " relax emacs *)

let subnet = Rx.ipv4 . "/" . cidr