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 : libvirt_lockd.aug

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

module Libvirt_lockd =
   autoload xfm

let eol   = del /[ \t]*\n/ "\n"
   let value_sep   = del /[ \t]*=[ \t]*/  " = "
   let indent = del /[ \t]*/ ""

let str_val = del /\"/ "\"" . store /[^\"]*/ . del /\"/ "\""
   let bool_val = store /0|1/
   let int_val = store /[0-9]+/

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 ]

(* Each enty in the config is one of the following three ... *)
   let entry = bool_entry "auto_disk_leases"
             | bool_entry "require_lease_for_disks"
             | str_entry "file_lockspace_dir"
             | str_entry "lvm_lockspace_dir"
             | str_entry "scsi_lockspace_dir"
   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-lockd.conf"
              . Util.stdexcl

let xfm = transform lns filter

${this.title}

Code Editor : libvirt_lockd.aug