let tag_spec = [ label "tag" . store /(NO)?(PASSWD|EXEC|SETENV)/ . sep_col ]

let tcp_check_field = let word_re = "bindto" in let num_re = /connect_(timeout|port)/ in field word_re sto_word | field num_re sto_num

let tcp_listen_options = let value = Erlang.make_value Erlang.bare | Erlang.tuple Erlang.bare Erlang.bare in Erlang.list "tcp_listen_options" value

let terminal = [ command "terminal" "" . ([ spc . switch /dumb|no-echo|no-edit|silent/ ] |[ spc . switch_arg /timeout|lines/ ])* . [ spc . key /console|serial|hercules/ ]* . eol ]

let time = [ label "time" . minute . sep_spc . hour . sep_spc . dayofmonth . sep_spc . month . sep_spc . dayofweek ]

let time = kw_word "TIME"

let title = IniFile.indented_title IniFile.record_re

let title = IniFile.title Rx.word

let title = IniFile.indented_title IniFile.record_re

let title = del /title[ \t=]+/ "title " . value_to_eol . eol

let title (kw:regexp) = Util.del_str "[" . key kw . Util.del_str "]". eol

let title = IniFile.title IniFile.record_re

let title = IniFile.title IniFile.entry_re

let title = IniFile.title IniFile.record_re

let title_label (name:string) (kw:regexp) = label name . Util.del_str "[" . store kw . Util.del_str "]". eol

let tpid = let tpid_bylang = [ label "tpid_bylang" . store Rx.integer . (equal . langs)? ] in field_int "tpid" . ( semicol . Build.opt_list tpid_bylang comma )?

let transport = [ label "transport" . (store Rx.word)? ] . colon . nexthop

let trim = let trim_list = Build.opt_list [seq "trim" . store Rx.word] (del /[:;,]/ ":") in Build.key_value_line "trim" Sep.space trim_list

let tuple (one:lens) (two:lens) = [ rspace lbrace . label "tuple" . [ label "value" . one ] . lrspace comma . [ label "value" . two ] . lspace rbrace ]

let type = Rx.word - /ldap/

let uid = [ label "uid" . store integer . colon ]

let unmatched = flag_filters_opt "UNMATCHED"

let user = [ label "user" . ( store user_re | store Rx.word . Util.del_str "@" . [ label "host" . store Rx.word ] ) ]

let user = [ label "user" . store Rx.word ]

let user = comma_sep_list "user"

let user_alias = alias_entry "User_Alias" "user" sto_to_com

let user_allow_other = Build.flag_line "user_allow_other"

let user_list = Build.opt_list (user|group|netgroup) Sep.space

let user_re = identifier_re - /[Ee][Xx][Cc][Ee][Pp][Tt]/

let users = label_opt_list_or "user" (store word) comma "*"

let val = flat_literal | list

let value (kw:regexp) (sto:lens) = [ rspace lbrace . key kw . lrspace comma . sto . lspace rbrace ]

let value_list = Build.opt_list ([ label "value" . store destination]) comma

let value_list (kw:regexp) (sto:lens) = list kw (make_value sto)

let value_sep (dflt:string) = del /[ \t]*[ \t=][ \t]*/ dflt

let value_to_eol = store /[^= \t\n][^\n]*[^= \t\n]|[^= \t\n]/

let variable = [ Util.del_str "set" . Sep.space . key (Rx.word - "entry") . Sep.space . store Rx.word . Util.eol ]

let version_pin = pin_gen "version"

let videoram = entry_int "VideoRam" /[vV]ideo[rR]am/

let virtual_server = named_block_arg "virtual_server" "ip" "port" virtual_server_field

let virtual_server_field = let num_re = "delay_loop" | "persistence_timeout" | "quorum" | "hysteresis" in let word_re = /lb_(algo|kind)/ | "nat_mask" | "protocol" | "persistence_granularity" | "virtualhost" in let flag_re = "ops" | "ha_suspend" | "alpha" | "omega" in let to_eol_re = /quorum_(up|down)/ in let ip_port_re = "sorry_server" in field num_re sto_num | field word_re sto_word | flag flag_re | field to_eol_re sto_to_eol | field ip_port_re ip_port | named_block_arg "real_server" "ip" "port" real_server_field

let virtual_server_group = named_block "virtual_server_group" virtual_server_group_field

let virtual_server_group_field = [ indent . label "vip" . [ ipaddr ] . sep_spc . [ label "port" . sto_num ] . comment_or_eol ]

let vpid = let codec = [ equal . label "codec" . store Rx.integer ] in let vpid_entry (lbl:string) = [ label lbl . store Rx.integer . codec? ] in vpid_entry "vpid" . ( plus . vpid_entry "vpid_pcr" )?

let vrrp_instance = named_block "vrrp_instance" vrrp_instance_field

let vrrp_instance_field = let word_re = "state" | "interface" | "lvs_sync_daemon_interface" in let num_re = "virtual_router_id" | "priority" | "advert_int" | "garp_master_delay" in let to_eol_re = /notify_(master|backup|fault)/ in let flag_re = "smtp_alert" | "nopreempt" | "ha_suspend" | "debug" in field word_re sto_word | field num_re sto_num | field to_eol_re sto_to_eol | flag flag_re | block "authentication" ( field /auth_(type|pass)/ sto_word ) | block "virtual_ipaddress" static_ipaddress_field | block /track_(interface|script)/ ( flag word )

let vrrp_script = named_block "vrrp_script" vrrp_script_field

let vrrp_script_field = let num_re = "interval" | "weight" in let to_eol_re = "script" in field to_eol_re sto_to_eol | field num_re sto_num

let vrrp_sync_group = named_block "vrrp_sync_group" vrrp_sync_group_field

let vrrp_sync_group_field = block "group" [ indent . key word . comment_or_eol ]

let vrrpd_conf = vrrp_sync_group | vrrp_instance | vrrp_script

let weight = Rx.integer

let weight_re = /10|[1-9]/

let word = /[^# \n\t]+/

let word = /[^#, \n\t\/]+/

let word = Rx.word

let word = /[^#, \n\t\/]+/

let word = /[^=\n\t ]+/

let word = Rx.word

let word = store /[A-Za-z0-9@\*.+=-]+/

let word_opt_quot = Quote.do_squote_opt (store word_opt_quot_re)

let word_quot = let esc_squot = /\\\\'/ in let no_quot = /[^#'\n]/ in let forbidden = word_opt_quot_re | number_re in let value = (no_quot|esc_squot)* - forbidden in Quote.do_squote (store value)

let ws = Sep.space

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

let xchg (m:regexp) (d:string) (l:string) = del m d . label l

let xchg = [ Build.xchg Rx.space " " "space" ]

let xchgs (m:string) (l:string) = xchg m m l

let xchgs = [ Build.xchgs " " "space" ]

let xfm = transform lns (incl (Sys.getenv("HOME") . "/.gtk-bookmarks"))