let table = table_gen "table" "[" "]" | table_gen "@table" "[[" "]]"

let table_gen (name:string) (lbrack:string) (rbrack:string) = let title = Util.indent . label name . Util.del_str lbrack . store /[^]\r\n.]+(\.[^]\r\n.]+)*/ . Util.del_str rbrack . eol in [ title . (entry|empty|comment)* ]

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 tempcomp = [ Util.indent . key "tempcomp" . space . [ label "sensorfile" . store path ] . space . [ label "interval" . store number ] . space . ( [ label "t0" . store number ] . space . [ label "k0" . store number ] . space . [ label "k1" . store number ] . space . [ label "k2" . store number ] | [ label "pointfile" . store path ] ) . eol ]

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.indented_title IniFile.record_re

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 tuple3 (one:lens) (two:lens) (three:lens) = [ rspace lbrace . label "tuple" . [ label "value" . one ] . lrspace comma . [ label "value" . two ] . lrspace comma . [ label "value" . three ] . lspace rbrace ]

let type = Rx.word - /ldap/

let type = [ label "type" . store Rx.neg1 ]

let type = /([fFwdDvqQpLcbCxXrRzZtThHaAm]|[AabcLp]\+)!?/

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

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

let unmatched = flag_filters_opt "UNMATCHED"

let uri = let protocol = /[a-z+]+:/ in let path = /\/[^] \t]*/ in let path_brack = /\[[^]]+\]\/?/ in protocol? . path | protocol . path_brack

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 username = [ label "username" . word ]

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|repeat|refresh|refresh_repeat)/ in let to_eol_re = /notify(_master|_backup|_fault)?/ | /(mcast|unicast)_src_ip/ in let flag_re = "smtp_alert" | "nopreempt" | "ha_suspend" | "debug" | "use_vmac" | "vmac_xmit_base" | "native_ipv6" | "dont_track_primary" | "preempt_delay" 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 ) | block "unicast_peer" static_ipaddress_field

let vrrp_script = named_block "vrrp_script" vrrp_script_field

let vrrp_script_field = let num_re = "interval" | "weight" | "fall" | "raise" 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 = let to_eol_re = /notify(_master|_backup|_fault)?/ in let flag_re = "smtp_alert" in field to_eol_re sto_to_eol | flag flag_re | 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 = 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"))