xenops: extend Vif.t with defaults when needed

Signed-off-by: Rob Hoes <[email protected]>

Author: robhoes

xen/xenops_interface.ml

@@ -93,6 +93,8 @@ module Network = struct
 		| Local of string (** name of a local switch *)
 		| Remote of string * string (** vm.id * switch *)
 	type ts = t list
+	
+	let default_t = Local "xenbr0"
 end
 
 module Pci = struct
@@ -437,20 +439,26 @@ module Vif = struct
 		| Unspecified4
 		| Static4 of string list * string option (* a list of CIDRs and optionally a gateway *)
 
+	let default_ipv4_configuration = Unspecified4
+
 	type ipv6_configuration =
 		| Unspecified6
 		| Static6 of string list * string option (* a list of CIDRs and optionally a gateway *)
 
+	let default_ipv6_configuration = Unspecified6
+
 	type locked_addresses = {
-        	ipv4: string list;
-        	ipv6: string list;
+		ipv4: string list;
+		ipv6: string list;
 	}
 
-        type locking_mode =
-        	| Unlocked (* all traffic permitted *)
+	type locking_mode =
+		| Unlocked (* all traffic permitted *)
 		| Disabled (* no traffic permitted *)
 		| Locked of locked_addresses
 
+	let default_locking_mode = Unlocked
+
 	type t = {
 		id: id;
 		position: int;
@@ -466,6 +474,23 @@ module Vif = struct
 		ipv6_configuration: ipv6_configuration;
 	}
 
+	let default_t = {
+		id = "", "";
+		position = 0;
+		mac = "fe:ff:ff:ff:ff:ff";
+		carrier = true;
+		mtu = 1500;
+		rate = None;
+		backend = Network.default_t;
+		other_config = [];
+		locking_mode = default_locking_mode;
+		extra_private_keys = [];
+		ipv4_configuration = default_ipv4_configuration;
+		ipv6_configuration = default_ipv6_configuration;
+	}
+
+	let t_of_rpc rpc = Rpc.struct_extend rpc (rpc_of_t default_t) |> t_of_rpc
+
 	type state = {
 		active: bool;
 		plugged: bool;