/[mldonkey]/mldonkey/src/utils/lib/options.ml4
ViewVC logotype

Diff of /mldonkey/src/utils/lib/options.ml4

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.14 by spiralvoice, Tue Jun 28 23:17:08 2005 UTC revision 1.15 by spiralvoice, Fri Aug 26 21:12:23 2005 UTC
# Line 210  and parse_once_value i = parser Line 210  and parse_once_value i = parser
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
# Line 253  let really_load filename sections = Line 253  let really_load filename sections =
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
# Line 267  let really_load filename sections = Line 267  let really_load filename sections =
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 =
# Line 296  let really_load filename sections = Line 296  let really_load filename sections =
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

Legend:
Removed from v.1.14  
changed lines
  Added in v.1.15

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26