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) -> |