added an IRC bot engine

3 files changed, 128 insertions, 6 deletions

diff --git a/chess-engine.el b/chess-engine.el
index 1f4c9c9..ad163c0 100644
--- a/chess-engine.el
+++ b/chess-engine.el
@@ -26,9 +26,11 @@
 (make-variable-buffer-local 'chess-engine-position)
 (make-variable-buffer-local 'chess-engine-game)
 
+(defvar chess-engine-process nil)
 (defvar chess-engine-last-pos nil)
 (defvar chess-engine-working nil)
 
+(make-variable-buffer-local 'chess-engine-process)
 (make-variable-buffer-local 'chess-engine-last-pos)
 (make-variable-buffer-local 'chess-engine-working)
 
@@ -84,6 +86,7 @@
 	(when (processp proc)
 	  (unless (memq (process-status proc) '(run open))
 	    (error "Failed to start chess engine process"))
+	  (setq chess-engine-process proc)
 	  (set-process-buffer proc (current-buffer))
 	  (set-process-filter proc 'chess-engine-filter))
 	(setq chess-engine-current-marker (point-marker)))
@@ -160,7 +163,7 @@
 (defun chess-engine-send (engine string)
   "Send the given STRING to ENGINE."
   (chess-with-current-buffer engine
-    (let ((proc (get-buffer-process (current-buffer))))
+    (let ((proc chess-engine-process))
       (if proc
 	  (if (memq (process-status proc) '(run open))
 	      (process-send-string proc string)
@@ -170,7 +173,7 @@
 (defun chess-engine-submit (engine string)
   "Submit the given STRING, so ENGINE sees it in its input stream."
   (chess-with-current-buffer engine
-    (let ((proc (get-buffer-process (current-buffer))))
+    (let ((proc chess-engine-process))
       (if (and (processp proc)
 	       (not (memq (process-status proc) '(run open))))
 	  (error "The engine you were using is no longer running"))
diff --git a/chess-irc.el b/chess-irc.el
new file mode 100644
index 0000000..7f432dd
--- /dev/null
+++ b/chess-irc.el
@@ -0,0 +1,119 @@
+;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+;;
+;; This transport uses an IRC bot to send/receive moves.
+;;
+;; $Revision$
+
+(require 'chess-network)
+
+(defgroup chess-irc nil
+  "Use an IRC bot for sending/receiving moves."
+  :group 'chess-engine)
+
+(defcustom chess-irc-host "irc.openprojects.net"
+  ""
+  :type 'string
+  :group 'chess-irc)
+
+(defcustom chess-irc-port 6667
+  ""
+  :type 'string
+  :group 'chess-irc)
+
+(defcustom chess-irc-nick "jwchess"
+  ""
+  :type 'string
+  :group 'chess-irc)
+
+(defvar chess-irc-regexp-alist chess-network-regexp-alist)
+
+(defvar chess-irc-process)
+(defvar chess-irc-engine)
+(defvar chess-irc-opponent)
+(defvar chess-irc-working nil)
+(defvar chess-irc-last-pos nil)
+
+(make-variable-buffer-local 'chess-irc-process)
+(make-variable-buffer-local 'chess-irc-engine)
+(make-variable-buffer-local 'chess-irc-opponent)
+(make-variable-buffer-local 'chess-irc-working)
+(make-variable-buffer-local 'chess-irc-last-pos)
+
+(defun chess-irc-handler (event &rest args)
+  "This is an example of a generic transport engine."
+  (cond
+   ((eq event 'initialize)
+    (message "Connecting to IRC server '%s:%d'..."
+	     chess-irc-host chess-irc-port)
+    (let ((engine (current-buffer)) proc)
+      (with-current-buffer (generate-new-buffer "*chess-irc*")
+	(setq chess-irc-engine engine
+	      proc (open-network-stream "*chess-irc*" (current-buffer)
+					chess-irc-host chess-irc-port))
+	(message "Connected, now logging in as '%s'..." chess-irc-nick)
+	(when (and proc (eq (process-status proc) 'open))
+	  (process-send-string proc (format "USER %s 0 * :%s\n"
+					    (user-login-name)
+					    (user-full-name)))
+	  (process-send-string proc (format "NICK %s\n" chess-irc-nick))
+	  (set-process-filter proc 'chess-irc-filter)
+	  (set-process-buffer proc (current-buffer))
+	  (set-marker (process-mark proc) (point))
+	  (message "Now ready to accept protocol" chess-irc-nick)))
+      (setq chess-irc-process proc))
+    nil)
+
+   ((eq event 'shutdown)
+    (ignore-errors
+      (process-send-string chess-irc-process "QUIT :Goodbye\n"))
+    (ignore-errors
+      (kill-buffer (process-buffer chess-irc-process))))
+
+   ((eq event 'send)
+    (process-send-string chess-irc-process
+			 (format "PRIVMSG %s :%s\n"
+				 chess-irc-opponent (car args))))
+   (t
+    (apply 'chess-network-handler event args))))
+
+;; This filter translates IRC syntax into basic chess-network protocol
+(defun chess-irc-filter (proc string)
+  (let ((buf (process-buffer proc)))
+    (when (buffer-live-p buf)
+      (with-current-buffer buf
+	(let ((moving (= (point) (process-mark proc))))
+	  (save-excursion
+	    ;; Insert the text, advancing the marker.
+	    (goto-char (process-mark proc))
+	    (insert string)
+	    (set-marker (process-mark proc) (point)))
+	  (if moving (goto-char (process-mark proc))))
+	(unless chess-irc-working
+	  (setq chess-irc-working t)
+	  (unwind-protect
+	      (progn
+		(if chess-irc-last-pos
+		    (goto-char chess-irc-last-pos)
+		  (goto-char (point-min)))
+		(beginning-of-line)
+		(while (not (eobp))
+		  (cond
+		   ((looking-at
+		     ":\\([^ \t\n!]+\\)!\\S-+ PRIVMSG \\(\\S-+\\) :\\(.+\\)")
+		    (let ((sender (match-string 1))
+			  (target (match-string 2))
+			  (msg (match-string 3)))
+		    (with-current-buffer chess-irc-engine
+		      (when (and (string= chess-irc-nick target)
+				 (or (null chess-irc-opponent)
+				     (string= chess-irc-opponent sender)))
+			(unless chess-irc-opponent
+			  (setq chess-irc-opponent sender))
+			(chess-engine-submit nil (concat msg "\n")))))))
+		  (forward-line)))
+	    (setq chess-irc-last-pos (point)
+		  chess-irc-working nil)))))))
+
+(provide 'chess-irc)
+
+;;; chess-irc.el ends here
diff --git a/chess-network.el b/chess-network.el
index 8c4f558..af833ee 100644
--- a/chess-network.el
+++ b/chess-network.el
@@ -35,10 +35,10 @@
 (defun chess-network-perform-move ()
   (let* ((move (match-string 1))
 	 (ply (chess-algebraic-to-ply (chess-engine-position nil) move)))
-    (unless ply
-      (error "Could not convert engine move: %s" move))
-    (let ((chess-network-now-moving t))
-      (funcall chess-engine-response-handler 'move ply))))
+    (if ply
+	(let ((chess-network-now-moving t))
+	  (funcall chess-engine-response-handler 'move ply))
+      (message "Received invalid move: %s" move))))
 
 (defun chess-network-handler (event &rest args)
   "Initialize the network chess engine."