+ | Yes ("qemu"::_) -> Next { state with network = Some QEMUUserNet }
+ | Yes _ | No | Help | Error -> Ask_again
+ | Back -> Prev
+ in
+
+ let ask_static_network_config state =
+ let interface, address, netmask, gateway, nameserver =
+ match state.static_network_config with
+ | Some (a,b,c,d,e) -> a,b,c,d,e
+ | None -> "eth0","","","","" in
+ match
+ form "Static network configuration" "Static network configuration"
+ 13 50 5 [
+ "Interface", 1, 0, interface, 1, 12, 8, 0;
+ "Address", 2, 0, address, 2, 12, 16, 0;
+ "Netmask", 3, 0, netmask, 3, 12, 16, 0;
+ "Gateway", 4, 0, gateway, 4, 12, 16, 0;
+ "Nameserver", 5, 0, nameserver, 5, 12, 16, 0;
+ ]
+ with
+ | Yes (interface::address::netmask::gateway::nameserver::_) ->
+ Next { state with
+ static_network_config = Some (interface, address, netmask,
+ gateway, nameserver) }