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

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

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

revision 1.14 by spiralvoice, Mon May 30 00:08:11 2005 UTC revision 1.15 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC
# Line 182  let client_enter_upload_queue client = Line 182  let client_enter_upload_queue client =
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)
# Line 214  let new_client_ops network = Line 214  let new_client_ops network =
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

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