2008-09-04 14:44:23 +04:00
(* /etc/libvirt/libvirtd.conf *)
module Libvirtd =
autoload xfm
let eol = del /[ \t]*\n/ "\n"
let value_sep = del /[ \t]*=[ \t]*/ " = "
let indent = del /[ \t]*/ ""
let array_sep = del /,[ \t\n]*/ ", "
let array_start = del /\[[ \t\n]*/ "[ "
let array_end = del /\]/ "]"
let str_val = del /\"/ "\"" . store /[^\"]*/ . del /\"/ "\""
let bool_val = store /0|1/
2008-12-05 01:18:44 +03:00
let int_val = store /[0-9]+/
2008-09-04 14:44:23 +04:00
let str_array_element = [ seq "el" . str_val ] . del /[ \t\n]*/ ""
let str_array_val = counter "el" . array_start . ( str_array_element . ( array_sep . str_array_element ) * ) ? . array_end
let str_entry (kw:string) = [ key kw . value_sep . str_val ]
let bool_entry (kw:string) = [ key kw . value_sep . bool_val ]
2008-12-05 01:18:44 +03:00
let int_entry (kw:string) = [ key kw . value_sep . int_val ]
2008-09-04 14:44:23 +04:00
let str_array_entry (kw:string) = [ key kw . value_sep . str_array_val ]
(* Config entry grouped by function - same order as example config *)
let network_entry = bool_entry "listen_tls"
| bool_entry "listen_tcp"
| str_entry "tls_port"
| str_entry "tcp_port"
| str_entry "listen_addr"
| bool_entry "mdns_adv"
| str_entry "mdns_name"
let sock_acl_entry = str_entry "unix_sock_group"
| str_entry "unix_sock_ro_perms"
| str_entry "unix_sock_rw_perms"
2009-02-09 20:52:38 +03:00
| str_entry "unix_sock_dir"
2008-09-04 14:44:23 +04:00
let authentication_entry = str_entry "auth_unix_ro"
| str_entry "auth_unix_rw"
| str_entry "auth_tcp"
| str_entry "auth_tls"
let certificate_entry = str_entry "key_file"
| str_entry "cert_file"
| str_entry "ca_file"
| str_entry "crl_file"
let authorization_entry = bool_entry "tls_no_verify_certificate"
2011-07-21 14:13:11 +04:00
| bool_entry "tls_no_sanity_certificate"
2008-09-04 14:44:23 +04:00
| str_array_entry "tls_allowed_dn_list"
| str_array_entry "sasl_allowed_username_list"
2008-12-05 01:18:44 +03:00
let processing_entry = int_entry "min_workers"
| int_entry "max_workers"
| int_entry "max_clients"
2009-01-20 22:25:15 +03:00
| int_entry "max_requests"
| int_entry "max_client_requests"
2011-08-12 16:04:31 +04:00
| int_entry "prio_workers"
2008-09-04 14:44:23 +04:00
2008-12-22 15:57:35 +03:00
let logging_entry = int_entry "log_level"
| str_entry "log_filters"
| str_entry "log_outputs"
2012-05-25 14:18:24 +04:00
| int_entry "log_buffer_size"
2008-12-22 15:57:35 +03:00
2010-09-15 17:44:11 +04:00
let auditing_entry = int_entry "audit_level"
| bool_entry "audit_logging"
2011-08-24 17:33:34 +04:00
let keepalive_entry = int_entry "keepalive_interval"
| int_entry "keepalive_count"
| bool_entry "keepalive_required"
2012-05-25 14:18:24 +04:00
let misc_entry = str_entry "host_uuid"
2008-09-04 14:44:23 +04:00
(* Each enty in the config is one of the following three ... *)
let entry = network_entry
| sock_acl_entry
| authentication_entry
| certificate_entry
| authorization_entry
2008-12-05 01:18:44 +03:00
| processing_entry
2008-12-22 15:57:35 +03:00
| logging_entry
2010-09-15 17:44:11 +04:00
| auditing_entry
2011-08-24 17:33:34 +04:00
| keepalive_entry
2012-05-25 14:18:24 +04:00
| misc_entry
2008-09-04 14:44:23 +04:00
let comment = [ label "#comment" . del /#[ \t]*/ "# " . store /([^ \t\n][^\n]*)?/ . del /\n/ "\n" ]
let empty = [ label "#empty" . eol ]
let record = indent . entry . eol
let lns = ( record | comment | empty ) *
let filter = incl "/etc/libvirt/libvirtd.conf"
. Util.stdexcl
let xfm = transform lns filter