/[mldonkey]/mldonkey/src/daemon/common/commonComplexOptions.ml
ViewVC logotype

Diff of /mldonkey/src/daemon/common/commonComplexOptions.ml

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

revision 1.33 by spiralvoice, Tue Sep 13 09:49:39 2005 UTC revision 1.34 by spiralvoice, Sat Sep 17 15:23:08 2005 UTC
# Line 68  module FileOption = struct Line 68  module FileOption = struct
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

Legend:
Removed from v.1.33  
changed lines
  Added in v.1.34

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