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

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

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

revision 1.21 by spiralvoice, Tue Sep 6 11:29:10 2005 UTC revision 1.22 by spiralvoice, Mon Sep 19 10:09:05 2005 UTC
# Line 196  let escape_char c = (List.assq c !networ Line 196  let escape_char c = (List.assq c !networ
196  let network_commands = ref ([] : (string * string * CommonTypes.arg_kind * string) list)  let network_commands = ref ([] : (string * string * CommonTypes.arg_kind * string) list)
197    
198  let commands_by_kind = Hashtbl.create 11  let commands_by_kind = Hashtbl.create 11
199    
200    let _ =
201         Heap.add_memstat "CommonNetwork" (fun level buf ->
202          Printf.bprintf buf "  networks_by_name: %d\n" (Hashtbl.length networks_by_name);
203          Printf.bprintf buf "  networks_by_num: %d\n" (Hashtbl.length networks_by_num);
204          Printf.bprintf buf "  commands_by_kind: %d\n" (Hashtbl.length commands_by_kind);
205         )
206        
207  let register_commands list =  let register_commands list =
208    List.iter (fun (s, n, f, h) ->    List.iter (fun (s, n, f, h) ->

Legend:
Removed from v.1.21  
changed lines
  Added in v.1.22

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