From 6d2791b3feb439aaa50e5659a2cdb190083d932a Mon Sep 17 00:00:00 2001
From: Fabien Freling <public@ffreling.com>
Date: Mon, 8 Dec 2014 23:48:41 +0100
Subject: [PATCH] Incorporate Evaluate into irc

The code is a bit ugly in order to conform with the type system.
---
 ocaml/irc.ml | 28 ++++++++++++++++++++++------
 1 file changed, 22 insertions(+), 6 deletions(-)

diff --git a/ocaml/irc.ml b/ocaml/irc.ml
index 3a92822..e6ff5b7 100644
--- a/ocaml/irc.ml
+++ b/ocaml/irc.ml
@@ -4,7 +4,7 @@ module C = Irc_client_lwt.Client
 let host = "irc.freenode.net"
 let port = 6667
 let realname = "CheeseBot"
-let nick = "cheesebot"
+let nick = "cheesebot2"
 let username = nick
 let channel = "#cheeseburger"
 let message = "Hello, world!  This is a test from chesebot"
@@ -16,15 +16,31 @@ let string_opt_to_string = function
 let string_list_to_string string_list =
   Printf.sprintf "[%s]" (String.concat "; " string_list)
 
+let evaluate_string_opt = function
+  | None -> None
+  | Some s -> Evaluate.evaluate s
+
 let callback ~connection ~result =
   let open Irc_message in
   match result with
   | Message {prefix=prefix; command=command; params=params; trail=trail} ->
-    Lwt_io.printf "Got message: prefix=%s; command=%s; params=%s; trail=%s\n"
-      (string_opt_to_string prefix)
-      command
-      (string_list_to_string params)
-      (string_opt_to_string trail)
+    begin
+      Lwt_io.printf "Got message: prefix=%s; command=%s; params=%s; trail=%s\n"
+        (string_opt_to_string prefix)
+        command
+        (string_list_to_string params)
+        (string_opt_to_string trail);
+      match command with
+      | "PRIVMSG" -> 
+        begin
+          let response = evaluate_string_opt trail in
+          match response with
+          | None -> Lwt.return_unit
+          | Some s ->
+            C.send_privmsg ~connection ~target:channel ~message:s
+        end
+      | _ -> Lwt.return_unit
+    end
   | Parse_error (raw, error) ->
     Lwt_io.printf "Failed to parse \"%s\" because: %s" raw error