2011-06-14 08:20:49 +00:00
|
|
|
(* /etc/libvirt/qemu-sanlock.conf *)
|
|
|
|
|
|
|
|
module Libvirt_sanlock =
|
|
|
|
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 ]
|
|
|
|
|
|
|
|
|
2020-07-09 04:42:21 +00:00
|
|
|
(* Each entry in the config is one of the following three ... *)
|
2011-06-14 08:29:00 +00:00
|
|
|
let entry = str_entry "disk_lease_dir"
|
|
|
|
| bool_entry "auto_disk_leases"
|
|
|
|
| int_entry "host_id"
|
|
|
|
| bool_entry "require_lease_for_disks"
|
2012-05-14 09:53:02 +00:00
|
|
|
| bool_entry "ignore_readonly_and_shared_disks"
|
2015-10-23 11:21:22 +00:00
|
|
|
| int_entry "io_timeout"
|
2012-10-23 14:34:21 +00:00
|
|
|
| str_entry "user"
|
|
|
|
| str_entry "group"
|
2011-06-14 08:20:49 +00: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/qemu-sanlock.conf"
|
|
|
|
. Util.stdexcl
|
|
|
|
|
|
|
|
let xfm = transform lns filter
|