68 |
let get_value name conv = conv (List.assoc name assocs) in |
let get_value name conv = conv (List.assoc name assocs) in |
69 |
let network = try get_value "file_network" value_to_string |
let network = try get_value "file_network" value_to_string |
70 |
with _ -> "Donkey" in |
with _ -> "Donkey" in |
71 |
let network = network_find_by_name network in |
let network = |
72 |
|
try network_find_by_name network with e -> |
73 |
|
lprintf_nl () |
74 |
|
"Error %s for network %s while parsing file %s" |
75 |
|
(Printexc2.to_string e) |
76 |
|
network |
77 |
|
(get_value "file_filename" value_to_string); |
78 |
|
lprintf_nl () "This core is lacking support for network %s, exiting" network; |
79 |
|
exit_properly 70 |
80 |
|
in |
81 |
let file_state = |
let file_state = |
82 |
try |
try |
83 |
get_value "file_state" value_to_state |
get_value "file_state" value_to_state |