libvirtd_qemu.aug 2.7 KB
Newer Older
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
(* /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/
16
   let int_val = store /[0-9]+/
17 18 19 20 21
   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 ]
22
   let int_entry       (kw:string) = [ key kw . value_sep . int_val ]
23 24 25 26 27
   let str_array_entry (kw:string) = [ key kw . value_sep . str_array_val ]


   (* Config entry grouped by function - same order as example config *)
   let vnc_entry = str_entry "vnc_listen"
28
                 | bool_entry "vnc_auto_unix_socket"
29 30 31
                 | bool_entry "vnc_tls"
                 | str_entry "vnc_tls_x509_cert_dir"
                 | bool_entry "vnc_tls_x509_verify"
32
                 | str_entry "vnc_password"
33 34
                 | bool_entry "vnc_sasl"
                 | str_entry "vnc_sasl_dir"
35
                 | str_entry "security_driver"
36 37
                 | str_entry "user"
                 | str_entry "group"
38
                 | bool_entry "dynamic_ownership"
39 40
                 | str_array_entry "cgroup_controllers"
                 | str_array_entry "cgroup_device_acl"
41
                 | str_entry "save_image_format"
42
                 | str_entry "dump_image_format"
H
Hu Tao 已提交
43
                 | str_entry "auto_dump_path"
44 45
                 | bool_entry "auto_dump_bypass_cache"
                 | bool_entry "auto_start_bypass_cache"
46
                 | str_entry "hugetlbfs_mount"
47
                 | bool_entry "relaxed_acs_check"
48
                 | bool_entry "vnc_allow_host_audio"
49
                 | bool_entry "clear_emulator_capabilities"
50
                 | bool_entry "allow_disk_format_probing"
51
                 | bool_entry "set_process_name"
52
                 | int_entry "max_processes"
53
                 | str_entry "lock_manager"
54 55 56 57 58 59 60 61 62 63 64 65 66 67

   (* Each enty in the config is one of the following three ... *)
   let entry = vnc_entry
   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