|
@@ -9,3 +9,37 @@
|
|
|
(t (:default "libvirt")))
|
|
|
|
|
|
(use-foreign-library libvirt)
|
|
|
+
|
|
|
+(defcenum virtual-connect-close-reason
|
|
|
+ (:error 0)
|
|
|
+ (:eof 1)
|
|
|
+ (:keepalive 2)
|
|
|
+ (:client 3)
|
|
|
+ (:last 4))
|
|
|
+
|
|
|
+(defcunion virtual-typed-parameter-union
|
|
|
+ (int :int)
|
|
|
+ (unsigned-int :unsigned-int)
|
|
|
+ (long-long-int :long-long)
|
|
|
+ (unsigned-long-long-int :unsigned-long-long)
|
|
|
+ (double :double)
|
|
|
+ (boolean :char)
|
|
|
+ (string :string))
|
|
|
+
|
|
|
+(defcstruct virtual-typed-parameter
|
|
|
+ (field :string)
|
|
|
+ (type :int)
|
|
|
+ (value virtual-typed-parameter-union))
|
|
|
+
|
|
|
+(defcenum virtual-typed-parameter-flags
|
|
|
+ (:okay 4))
|
|
|
+
|
|
|
+(defcenum virtual-typed-parameter-type
|
|
|
+ (:int 1)
|
|
|
+ (:uint 2)
|
|
|
+ (:llong 3)
|
|
|
+ (:ullong 4)
|
|
|
+ (:double 5)
|
|
|
+ (:boolean 6)
|
|
|
+ (:string 7)
|
|
|
+ (:last 8))
|