<html><head> <link rel="stylesheet" href="style.css" type="text/css"> <meta content="text/html; charset=iso-8859-1" http-equiv="Content-Type"> <link rel="Start" href="index.html"> <link title="Index of types" rel=Appendix href="index_types.html"> <link title="Index of exceptions" rel=Appendix href="index_exceptions.html"> <link title="Index of values" rel=Appendix href="index_values.html"> <link title="Index of modules" rel=Appendix href="index_modules.html"> <link title="Libvirt" rel="Chapter" href="Libvirt.html"> <link title="Libvirt_version" rel="Chapter" href="Libvirt_version.html"><title>Libvirt</title> </head> <body> <code class="code"><span class="keyword">sig</span><br> <span class="keyword">type</span> uuid = string<br> <span class="keyword">type</span> xml = string<br> <span class="keyword">type</span> filename = string<br> <span class="keyword">val</span> get_version : ?driver:string <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> int * int<br> <span class="keyword">val</span> uuid_length : int<br> <span class="keyword">val</span> uuid_string_length : int<br> <span class="keyword">type</span> rw = [ <span class="keywordsign">`</span><span class="constructor">R</span> <span class="keywordsign">|</span> <span class="keywordsign">`</span><span class="constructor">W</span> ]<br> <span class="keyword">type</span> ro = [ <span class="keywordsign">`</span><span class="constructor">R</span> ]<br> <span class="keyword">module</span> <span class="constructor">Connect</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>rw t<br> <span class="keyword">type</span> node_info = {<br> model : string;<br> memory : int64;<br> cpus : int;<br> mhz : int;<br> nodes : int;<br> sockets : int;<br> cores : int;<br> threads : int;<br> }<br> <span class="keyword">val</span> connect : ?name:string <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t<br> <span class="keyword">val</span> connect_readonly :<br> ?name:string <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.ro <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t<br> <span class="keyword">val</span> close : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_type : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_version : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_hostname : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_uri : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_max_vcpus :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> ?type_:string <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_domains : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int array<br> <span class="keyword">val</span> num_of_domains : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_capabilities : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml<br> <span class="keyword">val</span> num_of_defined_domains : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_defined_domains :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string array<br> <span class="keyword">val</span> num_of_networks : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_networks : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string array<br> <span class="keyword">val</span> num_of_defined_networks : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_defined_networks :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string array<br> <span class="keyword">val</span> num_of_pools : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_pools : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string array<br> <span class="keyword">val</span> num_of_defined_pools : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_defined_pools :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string array<br> <span class="keyword">val</span> get_node_info :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.node_info<br> <span class="keyword">val</span> node_get_free_memory : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int64<br> <span class="keyword">val</span> node_get_cells_free_memory :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int64 array<br> <span class="keyword">val</span> maxcpus_of_node_info : <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.node_info <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> cpumaplen : int <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> use_cpu : string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> unuse_cpu : string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> cpu_usable : string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> bool<br> <span class="keyword">external</span> const :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.ro <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t<br> = <span class="string">"%identity"</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Domain</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>rw t<br> <span class="keyword">type</span> state =<br> <span class="constructor">InfoNoState</span><br> <span class="keywordsign">|</span> <span class="constructor">InfoRunning</span><br> <span class="keywordsign">|</span> <span class="constructor">InfoBlocked</span><br> <span class="keywordsign">|</span> <span class="constructor">InfoPaused</span><br> <span class="keywordsign">|</span> <span class="constructor">InfoShutdown</span><br> <span class="keywordsign">|</span> <span class="constructor">InfoShutoff</span><br> <span class="keywordsign">|</span> <span class="constructor">InfoCrashed</span><br> <span class="keyword">type</span> info = {<br> state : <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.state;<br> max_mem : int64;<br> memory : int64;<br> nr_virt_cpu : int;<br> cpu_time : int64;<br> }<br> <span class="keyword">type</span> vcpu_state = <span class="constructor">VcpuOffline</span> <span class="keywordsign">|</span> <span class="constructor">VcpuRunning</span> <span class="keywordsign">|</span> <span class="constructor">VcpuBlocked</span><br> <span class="keyword">type</span> vcpu_info = {<br> number : int;<br> vcpu_state : <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.vcpu_state;<br> vcpu_time : int64;<br> cpu : int;<br> }<br> <span class="keyword">type</span> sched_param = string * <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.sched_param_value<br> <span class="keyword">and</span> sched_param_value =<br> <span class="constructor">SchedFieldInt32</span> <span class="keyword">of</span> int32<br> <span class="keywordsign">|</span> <span class="constructor">SchedFieldUInt32</span> <span class="keyword">of</span> int32<br> <span class="keywordsign">|</span> <span class="constructor">SchedFieldInt64</span> <span class="keyword">of</span> int64<br> <span class="keywordsign">|</span> <span class="constructor">SchedFieldUInt64</span> <span class="keyword">of</span> int64<br> <span class="keywordsign">|</span> <span class="constructor">SchedFieldFloat</span> <span class="keyword">of</span> float<br> <span class="keywordsign">|</span> <span class="constructor">SchedFieldBool</span> <span class="keyword">of</span> bool<br> <span class="keyword">type</span> typed_param = string * <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.typed_param_value<br> <span class="keyword">and</span> typed_param_value =<br> <span class="constructor">TypedFieldInt32</span> <span class="keyword">of</span> int32<br> <span class="keywordsign">|</span> <span class="constructor">TypedFieldUInt32</span> <span class="keyword">of</span> int32<br> <span class="keywordsign">|</span> <span class="constructor">TypedFieldInt64</span> <span class="keyword">of</span> int64<br> <span class="keywordsign">|</span> <span class="constructor">TypedFieldUInt64</span> <span class="keyword">of</span> int64<br> <span class="keywordsign">|</span> <span class="constructor">TypedFieldFloat</span> <span class="keyword">of</span> float<br> <span class="keywordsign">|</span> <span class="constructor">TypedFieldBool</span> <span class="keyword">of</span> bool<br> <span class="keywordsign">|</span> <span class="constructor">TypedFieldString</span> <span class="keyword">of</span> string<br> <span class="keyword">type</span> migrate_flag = <span class="constructor">Live</span><br> <span class="keyword">type</span> memory_flag = <span class="constructor">Virtual</span><br> <span class="keyword">type</span> list_flag = <span class="constructor">ListActive</span> <span class="keywordsign">|</span> <span class="constructor">ListInactive</span> <span class="keywordsign">|</span> <span class="constructor">ListAll</span><br> <span class="keyword">type</span> block_stats = {<br> rd_req : int64;<br> rd_bytes : int64;<br> wr_req : int64;<br> wr_bytes : int64;<br> errs : int64;<br> }<br> <span class="keyword">type</span> interface_stats = {<br> rx_bytes : int64;<br> rx_packets : int64;<br> rx_errs : int64;<br> rx_drop : int64;<br> tx_bytes : int64;<br> tx_packets : int64;<br> tx_errs : int64;<br> tx_drop : int64;<br> }<br> <span class="keyword">val</span> max_peek : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> create_linux :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> lookup_by_id : <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> lookup_by_uuid :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.uuid <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> lookup_by_uuid_string :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> lookup_by_name :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> destroy : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> free : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> suspend : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> resume : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> save : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.filename <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> restore : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.filename <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> core_dump : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.filename <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> shutdown : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> reboot : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_name : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_uuid : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.uuid<br> <span class="keyword">val</span> get_uuid_string : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_id : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> get_os_type : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_max_memory : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int64<br> <span class="keyword">val</span> set_max_memory : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int64 <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_memory : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int64 <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_info : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.info<br> <span class="keyword">val</span> get_xml_desc : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml<br> <span class="keyword">val</span> get_scheduler_type : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> string * int<br> <span class="keyword">val</span> get_scheduler_parameters :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.sched_param array<br> <span class="keyword">val</span> set_scheduler_parameters :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.sched_param array <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> define_xml :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> undefine : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> create : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_autostart : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> set_autostart : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> set_vcpus : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> pin_vcpu : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_vcpus :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span><br> int <span class="keywordsign">-></span> int <span class="keywordsign">-></span> int * <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.vcpu_info array * string<br> <span class="keyword">val</span> get_cpu_stats :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.typed_param list array<br> <span class="keyword">val</span> get_max_vcpus : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> attach_device : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> detach_device : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> migrate :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span><br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.migrate_flag list <span class="keywordsign">-></span><br> ?dname:string <span class="keywordsign">-></span><br> ?uri:string <span class="keywordsign">-></span> ?bandwidth:int <span class="keywordsign">-></span> unit <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t<br> <span class="keyword">val</span> block_stats :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.block_stats<br> <span class="keyword">val</span> interface_stats :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.interface_stats<br> <span class="keyword">val</span> block_peek :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span><br> string <span class="keywordsign">-></span> int64 <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> memory_peek :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.memory_flag list <span class="keywordsign">-></span><br> int64 <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string <span class="keywordsign">-></span> int <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> const :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.ro <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t = <span class="string">"%identity"</span><br> <span class="keyword">val</span> get_domains :<br> ([> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="keyword">as</span> <span class="keywordsign">'</span>a) <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.list_flag list <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t list<br> <span class="keyword">val</span> get_domains_and_infos :<br> ([> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="keyword">as</span> <span class="keywordsign">'</span>a) <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.list_flag list <span class="keywordsign">-></span><br> (<span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.t * <span class="constructor">Libvirt</span>.<span class="constructor">Domain</span>.info) list<br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Network</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>rw t<br> <span class="keyword">val</span> lookup_by_name :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t<br> <span class="keyword">val</span> lookup_by_uuid :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.uuid <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t<br> <span class="keyword">val</span> lookup_by_uuid_string :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t<br> <span class="keyword">val</span> create_xml :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t<br> <span class="keyword">val</span> define_xml :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span><br> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t<br> <span class="keyword">val</span> undefine : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> create : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> destroy : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> free : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_name : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_uuid : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.uuid<br> <span class="keyword">val</span> get_uuid_string : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_xml_desc : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml<br> <span class="keyword">val</span> get_bridge_name : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_autostart : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> set_autostart : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> const :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.ro <span class="constructor">Libvirt</span>.<span class="constructor">Network</span>.t<br> = <span class="string">"%identity"</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Pool</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>rw t<br> <span class="keyword">type</span> pool_state = <span class="constructor">Inactive</span> <span class="keywordsign">|</span> <span class="constructor">Building</span> <span class="keywordsign">|</span> <span class="constructor">Running</span> <span class="keywordsign">|</span> <span class="constructor">Degraded</span><br> <span class="keyword">type</span> pool_build_flags = <span class="constructor">New</span> <span class="keywordsign">|</span> <span class="constructor">Repair</span> <span class="keywordsign">|</span> <span class="constructor">Resize</span><br> <span class="keyword">type</span> pool_delete_flags = <span class="constructor">Normal</span> <span class="keywordsign">|</span> <span class="constructor">Zeroed</span><br> <span class="keyword">type</span> pool_info = {<br> state : <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.pool_state;<br> capacity : int64;<br> allocation : int64;<br> available : int64;<br> }<br> <span class="keyword">val</span> lookup_by_name :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> <span class="keyword">val</span> lookup_by_uuid :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.uuid <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> <span class="keyword">val</span> lookup_by_uuid_string :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> <span class="keyword">val</span> create_xml :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> <span class="keyword">val</span> define_xml :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.rw <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> <span class="keyword">val</span> build :<br> [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.pool_build_flags <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> undefine : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> create : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> destroy : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> delete : [> <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> free : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> refresh : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> get_name : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_uuid : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.uuid<br> <span class="keyword">val</span> get_uuid_string : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_info : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.pool_info<br> <span class="keyword">val</span> get_xml_desc : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml<br> <span class="keyword">val</span> get_autostart : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> bool<br> <span class="keyword">val</span> set_autostart : [ <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> bool <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> num_of_volumes : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> int<br> <span class="keyword">val</span> list_volumes : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> int <span class="keywordsign">-></span> string array<br> <span class="keyword">external</span> const : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.ro <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> = <span class="string">"%identity"</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Volume</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> <span class="keywordsign">'</span>rw t<br> <span class="keyword">type</span> vol_type = <span class="constructor">File</span> <span class="keywordsign">|</span> <span class="constructor">Block</span><br> <span class="keyword">type</span> vol_delete_flags = <span class="constructor">Normal</span> <span class="keywordsign">|</span> <span class="constructor">Zeroed</span><br> <span class="keyword">type</span> vol_info = {<br> typ : <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.vol_type;<br> capacity : int64;<br> allocation : int64;<br> }<br> <span class="keyword">val</span> lookup_by_name : <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t<br> <span class="keyword">val</span> lookup_by_key :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t<br> <span class="keyword">val</span> lookup_by_path :<br> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> string <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t<br> <span class="keyword">val</span> pool_of_volume : <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> <span class="keywordsign">'</span>a <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t<br> <span class="keyword">val</span> get_name : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_key : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_path : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_info : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.vol_info<br> <span class="keyword">val</span> get_xml_desc : [ <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml<br> <span class="keyword">val</span> create_xml : [ <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Pool</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.xml <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> delete : [ <span class="keywordsign">`</span><span class="constructor">W</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> free : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">external</span> const :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.ro <span class="constructor">Libvirt</span>.<span class="constructor">Volume</span>.t = <span class="string">"%identity"</span><br> <span class="keyword">end</span><br> <span class="keyword">module</span> <span class="constructor">Virterror</span> :<br> <span class="keyword">sig</span><br> <span class="keyword">type</span> code =<br> <span class="constructor">VIR_ERR_OK</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INTERNAL_ERROR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_MEMORY</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_SUPPORT</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_UNKNOWN_HOST</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_CONNECT</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_CONN</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_DOMAIN</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_ARG</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_OPERATION_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_GET_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_POST_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_HTTP_ERROR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_SEXPR_SERIAL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_XEN</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_XEN_CALL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_OS_TYPE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_KERNEL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_ROOT</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_SOURCE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_TARGET</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_NAME</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_OS</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_DEVICE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_XENSTORE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_DRIVER_FULL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_CALL_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_XML_ERROR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_DOM_EXIST</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_OPERATION_DENIED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_OPEN_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_READ_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_PARSE_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_CONF_SYNTAX</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_WRITE_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_XML_DETAIL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_NETWORK</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NETWORK_EXIST</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_SYSTEM_ERROR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_RPC</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_GNUTLS_ERROR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_WAR_NO_NETWORK</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_DOMAIN</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_NETWORK</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_MAC</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_AUTH_FAILED</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_STORAGE_POOL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_INVALID_STORAGE_VOL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_WAR_NO_STORAGE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_STORAGE_POOL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_NO_STORAGE_VOL</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_UNKNOWN</span> <span class="keyword">of</span> int<br> <span class="keyword">val</span> string_of_code : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.code <span class="keywordsign">-></span> string<br> <span class="keyword">type</span> domain =<br> <span class="constructor">VIR_FROM_NONE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_XEN</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_XEND</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_XENSTORE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_SEXPR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_XML</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_DOM</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_RPC</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_PROXY</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_CONF</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_QEMU</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_NET</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_TEST</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_REMOTE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_OPENVZ</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_XENXM</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_STATS_LINUX</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_STORAGE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_FROM_UNKNOWN</span> <span class="keyword">of</span> int<br> <span class="keyword">val</span> string_of_domain : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.domain <span class="keywordsign">-></span> string<br> <span class="keyword">type</span> level =<br> <span class="constructor">VIR_ERR_NONE</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_WARNING</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_ERROR</span><br> <span class="keywordsign">|</span> <span class="constructor">VIR_ERR_UNKNOWN_LEVEL</span> <span class="keyword">of</span> int<br> <span class="keyword">val</span> string_of_level : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.level <span class="keywordsign">-></span> string<br> <span class="keyword">type</span> t = {<br> code : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.code;<br> domain : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.domain;<br> message : string option;<br> level : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.level;<br> str1 : string option;<br> str2 : string option;<br> str3 : string option;<br> int1 : int32;<br> int2 : int32;<br> }<br> <span class="keyword">val</span> to_string : <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.t <span class="keywordsign">-></span> string<br> <span class="keyword">val</span> get_last_error : unit <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.t option<br> <span class="keyword">val</span> get_last_conn_error :<br> [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.t option<br> <span class="keyword">val</span> reset_last_error : unit <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> reset_last_conn_error : [> <span class="keywordsign">`</span><span class="constructor">R</span> ] <span class="constructor">Libvirt</span>.<span class="constructor">Connect</span>.t <span class="keywordsign">-></span> unit<br> <span class="keyword">val</span> no_error : unit <span class="keywordsign">-></span> <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.t<br> <span class="keyword">end</span><br> <span class="keyword">exception</span> <span class="constructor">Virterror</span> <span class="keyword">of</span> <span class="constructor">Libvirt</span>.<span class="constructor">Virterror</span>.t<br> <span class="keyword">exception</span> <span class="constructor">Not_supported</span> <span class="keyword">of</span> string<br> <span class="keyword">val</span> map_ignore_errors : (<span class="keywordsign">'</span>a <span class="keywordsign">-></span> <span class="keywordsign">'</span>b) <span class="keywordsign">-></span> <span class="keywordsign">'</span>a list <span class="keywordsign">-></span> <span class="keywordsign">'</span>b list<br> <span class="keyword">end</span></code></body></html>