mirror of https://github.com/nealey/irc-bot
25 lines
455 B
OCaml
25 lines
455 B
OCaml
|
open Unixqueue
|
||
|
|
|
||
|
|
class ircd_connection (ues : unix_event_system) fd =
|
||
|
|
object (self)
|
||
|
|
inherit Connection.connection ues fd
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
let main () =
|
||
|
|
let ues = new unix_event_system () in
|
||
|
|
let handle_connection fd =
|
||
|
|
prerr_endline "hi!";
|
||
|
|
let c = new ircd_connection ues fd in
|
||
|
|
c#debug true
|
||
|
|
in
|
||
|
|
Connection.establish_server
|
||
|
|
ues
|
||
|
|
handle_connection
|
||
|
|
(Unix.ADDR_INET (Unix.inet_addr_any, 7777));
|
||
|
|
ues#run ()
|
||
|
|
|
||
|
|
let _ =
|
||
|
|
main ()
|
||
|
|
|