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

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

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

revision 1.16 by spiralvoice, Tue May 17 13:18:05 2005 UTC revision 1.17 by spiralvoice, Thu Jul 7 00:25:45 2005 UTC
# Line 53  and 'a server_ops = { Line 53  and 'a server_ops = {
53  let ni n m =  let ni n m =
54    let s = Printf.sprintf "Server.%s not implemented by %s"    let s = Printf.sprintf "Server.%s not implemented by %s"
55        m n.network_name in        m n.network_name in
56    lprintf "%s\n" s;    lprintf_nl "%s" s;
57    s    s
58        
59  let fni n m =  failwith (ni n m)  let fni n m =  failwith (ni n m)
# Line 189  let new_server_ops network = Line 189  let new_server_ops network =
189        
190    
191  let check_server_implementations () =  let check_server_implementations () =
192    lprintf "\n----- Methods not implemented for CommonServer ----\n\n";    lprintf_nl "\n----- Methods not implemented for CommonServer ----\n";
193    List.iter (fun (c, cc) ->    List.iter (fun (c, cc) ->
194        let n = c.op_server_network.network_name in        let n = c.op_server_network.network_name in
195        lprintf "\n  Network %s\n\n" n;        lprintf_nl "\n  Network %s\n" n;
196        if c.op_server_remove == cc.op_server_remove then        if c.op_server_remove == cc.op_server_remove then
197          lprintf "op_server_remove\n";          lprintf_nl "op_server_remove";
198        if c.op_server_to_option == cc.op_server_to_option then        if c.op_server_to_option == cc.op_server_to_option then
199          lprintf "op_server_to_option\n";          lprintf_nl "op_server_to_option";
200        if c.op_server_info == cc.op_server_info then        if c.op_server_info == cc.op_server_info then
201          lprintf "op_server_info\n";          lprintf_nl "op_server_info";
202        if c.op_server_sort == cc.op_server_sort then        if c.op_server_sort == cc.op_server_sort then
203          lprintf "op_server_sort\n";          lprintf_nl "op_server_sort";
204        if c.op_server_connect == cc.op_server_connect then        if c.op_server_connect == cc.op_server_connect then
205          lprintf "op_server_connect\n";          lprintf_nl "op_server_connect";
206        if c.op_server_disconnect == cc.op_server_disconnect then        if c.op_server_disconnect == cc.op_server_disconnect then
207          lprintf "op_server_disconnect\n";          lprintf_nl "op_server_disconnect";
208        if c.op_server_find_user == cc.op_server_find_user then        if c.op_server_find_user == cc.op_server_find_user then
209          lprintf "op_server_find_user\n";          lprintf_nl "op_server_find_user";
210        if c.op_server_query_users == cc.op_server_query_users then        if c.op_server_query_users == cc.op_server_query_users then
211          lprintf "op_server_query_users\n";          lprintf_nl "op_server_query_users";
212        if c.op_server_users == cc.op_server_users then        if c.op_server_users == cc.op_server_users then
213          lprintf "op_server_users\n";          lprintf_nl "op_server_users";
214        if c.op_server_cid == cc.op_server_cid then        if c.op_server_cid == cc.op_server_cid then
215          lprintf "op_server_cid\n";          lprintf_nl "op_server_cid";
216        if c.op_server_rename == cc.op_server_rename then        if c.op_server_rename == cc.op_server_rename then
217          lprintf "op_server_rename\n";          lprintf_nl "op_server_rename";
218        if c.op_server_set_preferred == cc.op_server_set_preferred then        if c.op_server_set_preferred == cc.op_server_set_preferred then
219          lprintf "op_server_set_preferred\n";          lprintf_nl "op_server_set_preferred";
220    ) !servers_ops;    ) !servers_ops;
221    lprint_newline ()    lprintf_nl ""
222    
223  let server_find (num : int) =  let server_find (num : int) =
224    H.find servers_by_num  (as_server { dummy_server_impl with    H.find servers_by_num  (as_server { dummy_server_impl with

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

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