Expanded notion of channels

TODO

@@ -1 +1,3 @@
-* 
+* Modify Ocs_port to use Buffer instead of String
+
+

bot.ml

@@ -84,11 +84,11 @@ let handle_command iobuf cmd =
     | (_, "PING", _, text) ->
         write iobuf "PONG" [] text
     | (_, "001", _, _) ->
-        write iobuf "JOIN" ["#bot"] None
+        write iobuf "JOIN" ["+bot"] None
     | (Some sender, "JOIN", [], Some chan) ->
         write iobuf "PRIVMSG" [chan] (Some "hi asl")
     | (Some sender, "PRIVMSG", [target], Some text) ->
-        if target.[0] = '#' then
+        if Irc.is_channel target then
           handle_privmsg iobuf sender target text
     | _ ->
         ()

irc.ml

@@ -8,6 +8,11 @@ let dbg msg a =
   prerr_endline ("[" ^ msg ^ "]");
   a
 
+let is_channel str =
+  match str with
+    | '#' | '+' | '&' -> true
+    | _ -> false
+
 let string_map f s =
   let l = String.length s in
   if l = 0 then

irc.mli

@@ -5,6 +5,7 @@ val name : string ref
 val version : string
 val start_time : float
 
+val is_channel : string -> bool
 val uppercase : string -> string
 val lowercase : string -> string
 val truncate : string -> int -> string