32 |
open BTOptions |
open BTOptions |
33 |
open BTGlobals |
open BTGlobals |
34 |
|
|
35 |
|
(* prints a new logline with date, module and starts newline *) |
36 |
|
let lprintf_nl () = |
37 |
|
lprintf "%s[BT] " |
38 |
|
(log_time ()); lprintf_nl2 |
39 |
|
|
40 |
module ClientOption = struct |
module ClientOption = struct |
41 |
|
|
42 |
let value_to_client file v = |
let value_to_client file v = |
165 |
(get_value "file_sources" ( |
(get_value "file_sources" ( |
166 |
value_to_list (ClientOption.of_value file))) |
value_to_list (ClientOption.of_value file))) |
167 |
with e -> |
with e -> |
168 |
lprintf_nl "[BT]: Exception %s while loading sources" |
lprintf_nl () "Exception %s while loading sources" |
169 |
(Printexc2.to_string e); |
(Printexc2.to_string e); |
170 |
); |
); |
171 |
|
|
212 |
Int64Swarmer.swarmer_to_value swarmer assocs |
Int64Swarmer.swarmer_to_value swarmer assocs |
213 |
with |
with |
214 |
e -> |
e -> |
215 |
lprintf_nl "BTComplexOptions: exception %s in file_to_value" |
lprintf_nl () "exception %s in file_to_value" |
216 |
(Printexc2.to_string e); raise e |
(Printexc2.to_string e); raise e |
217 |
|
|
218 |
let old_files = |
let old_files = |