From krosenberg at common-lisp.net Thu Jan 1 08:09:15 2004 From: krosenberg at common-lisp.net (Kevin Rosenberg) Date: Thu, 01 Jan 2004 03:09:15 -0500 Subject: [net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp Message-ID: Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv25153 Modified Files: protocol.lisp Log Message: separate out start-process for use in programs using cl-irc library Date: Thu Jan 1 03:09:15 2004 Author: krosenberg Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.32 net-nittin-irc/protocol.lisp:1.33 --- net-nittin-irc/protocol.lisp:1.32 Thu Dec 18 14:43:08 2003 +++ net-nittin-irc/protocol.lisp Thu Jan 1 03:09:15 2004 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.32 2003/12/18 19:43:08 krosenberg Exp $ +;;;; $Id: protocol.lisp,v 1.33 2004/01/01 08:09:15 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -121,15 +121,20 @@ (stream-error () (setf read-more-p nil))))) (defvar *process-count* 0) + +(defmethod start-process (function name) + #+allegro (mp:process-run-function name function) + #+cmu (mp:make-process function :name name) + #+lispworks (mp:process-run-function name nil function) + #+sb-thread (sb-thread:make-thread function)) + (defmethod start-background-message-handler ((connection connection)) "Read messages from the `connection', parse them and dispatch irc-message-event on them. Returns background process ID if available." (flet ((do-loop () (read-message-loop connection))) (let ((name (format nil "irc-hander-~D" (incf *process-count*)))) - #+allegro (mp:process-run-function name #'do-loop) - #+cmu (mp:make-process #'do-loop :name name) - #+lispworks (mp:process-run-function name nil #'do-loop) - #+sb-thread (sb-thread:make-thread #'do-loop) + #+(or allegro cmu lispworks sb-thread) + (start-process #'do-loop name) #+(and sbcl (not sb-thread)) (sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor (server-socket connection)) From krosenberg at common-lisp.net Thu Jan 1 19:46:17 2004 From: krosenberg at common-lisp.net (Kevin Rosenberg) Date: Thu, 01 Jan 2004 14:46:17 -0500 Subject: [net-nittin-irc-cvs] CVS update: net-nittin-irc/event.lisp net-nittin-irc/protocol.lisp Message-ID: Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv8257 Modified Files: event.lisp protocol.lisp Log Message: add :kill, :error, and :pong message classes Date: Thu Jan 1 14:46:17 2004 Author: krosenberg Index: net-nittin-irc/event.lisp diff -u net-nittin-irc/event.lisp:1.14 net-nittin-irc/event.lisp:1.15 --- net-nittin-irc/event.lisp:1.14 Tue Nov 25 08:04:33 2003 +++ net-nittin-irc/event.lisp Thu Jan 1 14:46:17 2004 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.14 2003/11/25 13:04:33 eenge Exp $ +;;;; $Id: event.lisp,v 1.15 2004/01/01 19:46:17 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $ ;;;; See LICENSE for licensing information. @@ -12,7 +12,7 @@ (defmethod irc-message-event ((message irc-message)) (apply-to-hooks message) - (client-log (connection message) message "UNHANLDED-EVENT:")) + (client-log (connection message) message "UNHANDLED-EVENT:")) (defmethod default-hook ((message irc-rpl_whoisuser-message)) (let ((user (find-user (connection message) Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.33 net-nittin-irc/protocol.lisp:1.34 --- net-nittin-irc/protocol.lisp:1.33 Thu Jan 1 03:09:15 2004 +++ net-nittin-irc/protocol.lisp Thu Jan 1 14:46:17 2004 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.33 2004/01/01 08:09:15 krosenberg Exp $ +;;;; $Id: protocol.lisp,v 1.34 2004/01/01 19:46:17 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -536,7 +536,8 @@ ;; should perhaps wrap this in an eval-when? (create-irc-message-classes (mapcar #'second *reply-names*)) (create-irc-message-classes '(:privmsg :notice :kick :topic :error - :mode :ping :nick :join :part :quit)) + :mode :ping :nick :join :part :quit :kill + :pong)) (defmethod find-irc-message-class (type) (find-class 'irc-message)) From krosenberg at common-lisp.net Sun Jan 4 11:22:51 2004 From: krosenberg at common-lisp.net (Kevin Rosenberg) Date: Sun, 04 Jan 2004 06:22:51 -0500 Subject: [net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp Message-ID: Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv12417 Modified Files: protocol.lisp Log Message: add more messages Date: Sun Jan 4 06:22:51 2004 Author: krosenberg Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.34 net-nittin-irc/protocol.lisp:1.35 --- net-nittin-irc/protocol.lisp:1.34 Thu Jan 1 14:46:17 2004 +++ net-nittin-irc/protocol.lisp Sun Jan 4 06:22:50 2004 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.34 2004/01/01 19:46:17 krosenberg Exp $ +;;;; $Id: protocol.lisp,v 1.35 2004/01/04 11:22:50 krosenberg Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -537,7 +537,7 @@ (create-irc-message-classes (mapcar #'second *reply-names*)) (create-irc-message-classes '(:privmsg :notice :kick :topic :error :mode :ping :nick :join :part :quit :kill - :pong)) + :pong :invite)) (defmethod find-irc-message-class (type) (find-class 'irc-message))