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