irc-bot/channel.ml

module String_map = 
  Map.Make (struct
              type t = string
              let compare = compare
            end)

type client = Iobuf.t * Irc.nuhost

type t = {name: string;
          modes: string ref;
          clients: client String_map.t}

let modes = "aimnqpsrtklb"

let channels = String_map.empty

let is_channel_name name =
  match name.[0] with
    | '#' | '&' | '!' | '+' ->
        true
    | _ ->
        false

let has_mode chan mode =
  String.contains !(chan.modes) mode

let handle_command iobuf (nick, username, hostname) cmd =
  match (Command.as_tuple cmd) with
    | _ -> 
        ()