182 |
let ni n m = |
let ni n m = |
183 |
let s = Printf.sprintf "Client.%s not implemented by %s" |
let s = Printf.sprintf "Client.%s not implemented by %s" |
184 |
m n.network_name in |
m n.network_name in |
185 |
lprintf "%s\n" s; |
lprintf_nl "%s" s; |
186 |
s |
s |
187 |
|
|
188 |
let fni n m = failwith (ni n m) |
let fni n m = failwith (ni n m) |
214 |
c |
c |
215 |
|
|
216 |
let check_client_implementations () = |
let check_client_implementations () = |
217 |
lprintf "\n---- Methods not implemented for CommonClient ----\n\n"; |
lprintf_nl "\n---- Methods not implemented for CommonClient ----\n"; |
218 |
List.iter (fun (c, cc) -> |
List.iter (fun (c, cc) -> |
219 |
let n = c.op_client_network.network_name in |
let n = c.op_client_network.network_name in |
220 |
lprintf "\n Network %s\n\n" n; |
lprintf_nl "\n Network %s\n" n; |
221 |
if c.op_client_to_option == cc.op_client_to_option then |
if c.op_client_to_option == cc.op_client_to_option then |
222 |
lprintf "op_client_to_option\n"; |
lprintf_nl "op_client_to_option"; |
223 |
if c.op_client_info == cc.op_client_info then |
if c.op_client_info == cc.op_client_info then |
224 |
lprintf "op_client_info\n"; |
lprintf_nl "op_client_info"; |
225 |
if c.op_client_say == cc.op_client_say then |
if c.op_client_say == cc.op_client_say then |
226 |
lprintf "op_client_say\n"; |
lprintf_nl "op_client_say"; |
227 |
if c.op_client_files == cc.op_client_files then |
if c.op_client_files == cc.op_client_files then |
228 |
lprintf "op_client_files\n"; |
lprintf_nl "op_client_files"; |
229 |
if c.op_client_disconnect == cc.op_client_disconnect then |
if c.op_client_disconnect == cc.op_client_disconnect then |
230 |
lprintf "op_client_disconnect\n"; |
lprintf_nl "op_client_disconnect"; |
231 |
if c.op_client_connect == cc.op_client_connect then |
if c.op_client_connect == cc.op_client_connect then |
232 |
lprintf "op_client_connect\n"; |
lprintf_nl "op_client_connect"; |
233 |
if c.op_client_clear_files == cc.op_client_clear_files then |
if c.op_client_clear_files == cc.op_client_clear_files then |
234 |
lprintf "op_client_clear_files\n"; |
lprintf_nl "op_client_clear_files"; |
235 |
if c.op_client_browse == cc.op_client_browse then |
if c.op_client_browse == cc.op_client_browse then |
236 |
lprintf "op_client_browse\n"; |
lprintf_nl "op_client_browse"; |
237 |
) !clients_ops; |
) !clients_ops; |
238 |
lprint_newline () |
lprintf_nl "" |
239 |
|
|
240 |
let client_find num = |
let client_find num = |
241 |
H.find clients_by_num (as_client { dummy_client_impl with |
H.find clients_by_num (as_client { dummy_client_impl with |