210 |
begin |
begin |
211 |
try Hashtbl.find once_values i with Not_found -> |
try Hashtbl.find once_values i with Not_found -> |
212 |
lprintf "Error in saved file: @%Ld@ not defined\n" i; |
lprintf "Error in saved file: @%Ld@ not defined\n" i; |
213 |
exit 2 |
exit 70 |
214 |
end |
end |
215 |
| [< 'Kwd "="; v = parse_option >] -> |
| [< 'Kwd "="; v = parse_option >] -> |
216 |
begin |
begin |
253 |
Printf.eprintf "An error may have occurred during previous configuration save.\n"; |
Printf.eprintf "An error may have occurred during previous configuration save.\n"; |
254 |
Printf.eprintf "Please, check your configurations files, and rename/remove this file\n"; |
Printf.eprintf "Please, check your configurations files, and rename/remove this file\n"; |
255 |
Printf.eprintf "before restarting\n"; |
Printf.eprintf "before restarting\n"; |
256 |
exit 1 |
exit 70 |
257 |
end |
end |
258 |
else |
else |
259 |
let ic = open_in filename in |
let ic = open_in filename in |
267 |
e -> |
e -> |
268 |
Printf.eprintf "Syntax error while parsing file %s at pos %d:(%s)\n" |
Printf.eprintf "Syntax error while parsing file %s at pos %d:(%s)\n" |
269 |
filename (Stream.count s) (Printexc2.to_string e); |
filename (Stream.count s) (Printexc2.to_string e); |
270 |
exit 2 |
exit 70 |
271 |
in |
in |
272 |
Hashtbl.clear once_values; |
Hashtbl.clear once_values; |
273 |
let affect_option o = |
let affect_option o = |
296 |
lprintf "\n"; |
lprintf "\n"; |
297 |
lprintf " in %s\n" filename; |
lprintf " in %s\n" filename; |
298 |
lprintf "Aborting\n."; |
lprintf "Aborting\n."; |
299 |
exit 2 |
exit 70 |
300 |
in |
in |
301 |
|
|
302 |
(* The options are affected by sections, from the first defined one to |
(* The options are affected by sections, from the first defined one to |