Gecko [ hubnogueira.com.br ]

Name	Size	Permission
dist	[ DIR ]	drwxr-xr-x
tests	[ DIR ]	drwxr-xr-x
abrt.aug	422 B	-rw-r--r--
libreport.aug	1.37 KB	-rw-r--r--
libvirt_lockd.aug	1.15 KB	-rw-r--r--
libvirtd.aug	4.51 KB	-rw-r--r--
libvirtd_qemu.aug	6 KB	-rw-r--r--
virtlockd.aug	1.63 KB	-rw-r--r--
virtlogd.aug	1.71 KB	-rw-r--r--

Code Editor : libvirtd.aug

(* /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/
   let int_val = store /-?[0-9]+/
   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 ]
   let int_entry      (kw:string) = [ key kw . value_sep . int_val ]
   let str_array_entry (kw:string) = [ key kw . value_sep . str_array_val ]

let sock_acl_entry = str_entry "unix_sock_group"
                      | str_entry "unix_sock_ro_perms"
                      | str_entry "unix_sock_rw_perms"
                      | str_entry "unix_sock_admin_perms"
                      | str_entry "unix_sock_dir"

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 admin_processing_entry = int_entry "admin_min_workers"
                              | int_entry "admin_max_workers"
                              | int_entry "admin_max_clients"
                              | int_entry "admin_max_queued_clients"
                              | int_entry "admin_max_client_requests"

let logging_entry = int_entry "log_level"
                     | str_entry "log_filters"
                     | str_entry "log_outputs"

let auditing_entry = int_entry "audit_level"
                      | bool_entry "audit_logging"

let keepalive_entry = int_entry "keepalive_interval"
                       | int_entry "keepalive_count"
                       | bool_entry "keepalive_required"

let admin_keepalive_entry = int_entry "admin_keepalive_interval"
                             | int_entry "admin_keepalive_count"
                             | bool_entry "admin_keepalive_required"

let misc_entry = str_entry "host_uuid"
                  | str_entry "host_uuid_source"
                  | int_entry "ovs_timeout"

let record = indent . entry . eol

let lns = ( record | comment | empty ) *

let filter = incl "/etc/libvirt/libvirtd.conf"
              . Util.stdexcl

let xfm = transform lns filter

${this.title}

Code Editor : libvirtd.aug