mirror of https://github.com/nealey/irc-bot
19 lines
454 B
OCaml
19 lines
454 B
OCaml
|
open Irc
|
||
|
|
||
|
(* ==========================================
|
||
|
* Server stuff
|
||
|
*)
|
||
|
let create () =
|
||
|
{clients_by_name = Hashtbl.create 25;
|
||
|
clients_by_file_descr = Hashtbl.create 25;
|
||
|
channels_by_name = Hashtbl.create 10}
|
||
|
|
||
|
let get_client_by_name srv name =
|
||
|
Hashtbl.find srv.clients_by_name name
|
||
|
|
||
|
let get_client_by_file_descr srv fd =
|
||
|
Hashtbl.find srv.clients_by_file_descr fd
|
||
|
|
||
|
let get_channel_by_name srv name =
|
||
|
Hashtbl.find srv.channels_by_name name
|