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_qemu.aug

(* /etc/libvirt/qemu.conf *)

module Libvirtd_qemu =
   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 unlimited_val =  del /\"/ "\"" . store /unlimited/ . del /\"/ "\""
   let limits_entry (kw:string) = [ key kw . value_sep . unlimited_val ] |  [ key kw . value_sep . int_val ]

(* Config entry grouped by function - same order as example config *)
   let default_tls_entry = str_entry "default_tls_x509_cert_dir"
                 | bool_entry "default_tls_x509_verify"
                 | str_entry "default_tls_x509_secret_uuid"

let chardev_entry = bool_entry "chardev_tls"
                 | str_entry "chardev_tls_x509_cert_dir"
                 | bool_entry "chardev_tls_x509_verify"
                 | str_entry "chardev_tls_x509_secret_uuid"

let migrate_entry = str_entry "migrate_tls_x509_cert_dir"
                 | bool_entry "migrate_tls_x509_verify"
                 | str_entry "migrate_tls_x509_secret_uuid"

let nogfx_entry = bool_entry "nographics_allow_host_audio"

let remote_display_entry = int_entry "remote_display_port_min"
                 | int_entry "remote_display_port_max"
                 | int_entry "remote_websocket_port_min"
                 | int_entry "remote_websocket_port_max"

let device_entry = bool_entry "mac_filter"
                 | bool_entry "relaxed_acs_check"
                 | bool_entry "allow_disk_format_probing"
                 | str_entry "lock_manager"

let rpc_entry = int_entry "max_queued"
                 | int_entry "keepalive_interval"
                 | int_entry "keepalive_count"

let network_entry = str_entry "migration_address"
                 | int_entry "migration_port_min"
                 | int_entry "migration_port_max"
                 | str_entry "migration_host"

let log_entry = bool_entry "log_timestamp"

let nvram_entry = str_array_entry "nvram"

let gluster_debug_level_entry = int_entry "gluster_debug_level"

let memory_entry = str_entry "memory_backing_dir"

let vxhs_entry = bool_entry "vxhs_tls"
                 | str_entry "vxhs_tls_x509_cert_dir"

let nbd_entry = bool_entry "nbd_tls"
                | str_entry "nbd_tls_x509_cert_dir"

let swtpm_user_entry = str_entry "swtpm_user"
   let swtpm_group_entry = str_entry "swtpm_group"

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/qemu.conf"
              . Util.stdexcl

let xfm = transform lns filter

${this.title}

Code Editor : libvirtd_qemu.aug