let facilities = label_opt_list "facility" (store token) comma

let family = let family_entry = Build.flag("inet4"|"inet6") in Build.key_value_line_comment "family" Sep.space (Build.opt_list family_entry Sep.space) comment_eol

let fdrift = [ Util.indent . key "fallbackdrift" . space . [ label "min" . store integer ] . space . [ label "max" . store integer ] . eol ]

let field (name:string) (sto:regexp) = [ label name . store sto ]

let field (kw:regexp) (sto:lens) = indent . Build.key_value_line_comment kw sep_spc sto comment_eol

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

let field_int (name:string) = field name Rx.integer

let field_no_colon (name:string) = field name no_colon

let field_word (name:string) = field name Rx.word

let file = [ Build.xchgs "-" "no_sync" ]? . [ label "file" . store file_r ]

let file_tmpl = Syslog.file . [ label "template" . Util.del_str ";" . store Rx.word ]

let filters = [ label "filters" . Build.opt_list rule_filter ws ]

let filters_opt = [ label "filters" . (ws . Build.opt_list rule_filter ws)? ]

let flag (kw:regexp) = [ key kw ]

let flag (kw:regexp) = [ indent . key kw . comment_or_eol ]

let flag = Build.flag Rx.word

let flag (kw:string) = Build.flag kw

let flag_filters_opt (kw:string) = [ key kw . filters_opt ]

let flag_line (kw:regexp) = [ key kw . eol ]

let flag_line = Build.flag_line Rx.word

let flat_literal = int|str

let forge = [ Util.indent . key "forge" . Sep.space . quote_to_comment_or_eol ]

let format = Rx.word

let format = kw_word_filters_opt "FORMAT"

let fs_types = IniFile.record fs_types_title (fs_types_record | comment)

let fs_types_entry =list_sto "features" ([del /\^/ "^" . label "disable"]? . key Rx.word) | list_sto "options" (key Rx.word . Util.del_str "=" . store Rx.word) | entry_sto "lazy_itable_init" ("true"|"false") | entry_sto ("flex_bg_size"|"auto_64-bit_support") Rx.integer

let fs_types_record = [ label "filesystem" . Util.indent . store Rx.word . del /[ \t]*=[ \t]*\{[ \t]*\n/ " = {\n" . ((Util.indent . (fs_types_entry|common_entry)) | empty | comment)* . del /[ \t]*\}[ \t]*\n/ " }\n" ]

let fs_types_title = IniFile.title "fs_types"

let fspath = Rx.fspath

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

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

let glob = Util.del_str lglob . store /[^\n"]+/ . Util.del_str rglob

let global_conf = global_defs | static_routes

let global_defs = block "global_defs" global_defs_field

let global_defs_field = let word_re = "smtp_server"|"lvs_id"|"router_id"|"vrrp_mcast_group4" in let ipv6_re = "vrrp_mcast_group6" in let num_re = "smtp_connect_timeout" in block "notification_email" email | field "notification_email_from" sto_email_addr | field word_re sto_word | field num_re sto_num | field ipv6_re sto_ipv6

let group = [ label "group" . Util.del_str "(" . store identifier_re . Util.del_str ")" ]

let group = [ Util.del_str ":" . label "group" . store no_colon . eol . entry_or_comment* ]

let group = let add = [ key "add" . Sep.space . store Rx.word ] in let contains = [ key "contains" . Sep.space . store Rx.word ] in let empty = [ key "empty" ] in let unused = [ key "unused" ] in [ key "group" . Sep.space . store Rx.word . Sep.space . (add | contains | empty | unused) . Util.eol ]

let group = kw_word /(EX)?GROUP/

let hash (lns:lens) = [ Util.indent . label "@hash" . store Rx.word . sep . block_newlines lns Util.comment . Util.eol ]

let header = [ label "@yaml" . Util.del_str "---" . (Sep.space . store Rx.space_in)? . eol ]

let home = [ label "home" . sto_to_col? . colon ]

let home = [ label "home" . sto_to_col? . colon ]

let host = /[^:# \n\t]+/

let host = kw_word /(EX)?HOST/

let host_alias = alias_entry "Host_Alias" "host" sto_to_com

let host_flags = [ space . key cmd_flags ]

let host_list = [ Util.indent . key ntp_source . space . store address_re . ( host_flags | host_options )* . eol ]

let host_options = [ space . key cmd_options . space . store number ]

let hostname = /[^-:#\(\), \n\t][^:#\(\), \n\t]*/

let hostname = [ label "hostname" . opt_hash . ( plus | [ Build.xchgs "-" "reverse" ] ) . hostnames . eol . entries ]

let hostnames = label_opt_list_or "hostname" (store Rx.word) comma "*"

let hour = [ label "hour" . store num ]

let http_check_field = let num_re = /connect_(timeout|port)/ | "nb_get_retry" | "delay_before_retry" in field num_re sto_num | block "url" http_url_check_field

let http_url_check_field = let word_re = "digest" in let num_re = "status_code" in let to_eol_re = "path" in field word_re sto_word | field num_re sto_num | field to_eol_re sto_to_eol

let hwcap = let hwcap_val = [ label "bit" . store Rx.integer ] . Sep.space . [ label "name" . store Rx.word ] in Build.key_value_line "hwcap" Sep.space hwcap_val

let hwtimestamp = [ Util.indent . key "hwtimestamp" . space . [ label "interface" . store no_space ] . ( space . ( [ key hwtimestamp_flags ] | [ key hwtimestamp_options . space . store no_space ] ) )* . eol ]