November 2003 - net-nittin-irc-cvs@lists.common-lisp.net

[net-nittin-irc-cvs] CVS update: net-nittin-irc/command.lisp net-nittin-irc/package.lisp
by Brian Mastenbrook 14 Nov '03

14 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv6743 Modified Files: command.lisp package.lisp Log Message: Added logging-stream to connect; exported irc-message class and slots. Date: Fri Nov 14 15:23:53 2003 Author: bmastenbrook Index: net-nittin-irc/command.lisp diff -u net-nittin-irc/command.lisp:1.4 net-nittin-irc/command.lisp:1.5 --- net-nittin-irc/command.lisp:1.4 Fri Nov 14 14:28:00 2003 +++ net-nittin-irc/command.lisp Fri Nov 14 15:23:53 2003 @@ -1,4 +1,4 @@ -;;;; $Id: command.lisp,v 1.4 2003/11/14 19:28:00 bmastenbrook Exp $ +;;;; $Id: command.lisp,v 1.5 2003/11/14 20:23:53 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $ ;;;; See LICENSE for licensing information. @@ -185,7 +185,8 @@ (realname nil) (mode 0) (server *default-irc-server*) - (port *default-irc-server-port*)) + (port *default-irc-server-port*) + (logging-stream t)) "Connect to server and return a connection object." (let* ((socket #+sbcl (connect-to-server-socket server port) #-sbcl nil) @@ -201,6 +202,7 @@ :realname realname)) (connection (make-connection :server-socket socket :server-stream stream + :client-stream logging-stream :user user :server-name server))) (nick connection nickname) Index: net-nittin-irc/package.lisp diff -u net-nittin-irc/package.lisp:1.6 net-nittin-irc/package.lisp:1.7 --- net-nittin-irc/package.lisp:1.6 Fri Nov 14 14:28:00 2003 +++ net-nittin-irc/package.lisp Fri Nov 14 15:23:53 2003 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.6 2003/11/14 19:28:00 bmastenbrook Exp $ +;;;; $Id: package.lisp,v 1.7 2003/11/14 20:23:53 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -28,6 +28,16 @@ :get-hooks :make-user :change-nickname + :irc-message + :source + :user + :host + :command + :arguments + :trailing-argument + :connection + :received-time + :raw-message-string :make-connection :make-channel :client-log

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/protocol.lisp
by Brian Mastenbrook 14 Nov '03

14 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv2599 Modified Files: protocol.lisp Log Message: Move *print-case* let to right place Date: Fri Nov 14 15:12:13 2003 Author: bmastenbrook Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.9 net-nittin-irc/protocol.lisp:1.10 --- net-nittin-irc/protocol.lisp:1.9 Fri Nov 14 14:28:00 2003 +++ net-nittin-irc/protocol.lisp Fri Nov 14 15:12:12 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.9 2003/11/14 19:28:00 bmastenbrook Exp $ +;;;; $Id: protocol.lisp,v 1.10 2003/11/14 20:12:12 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -475,14 +475,14 @@ (defclass irc-error-reply (irc-message) ()) -(let ((*print-case* :upcase)) - (defmacro define-irc-message (command) +(defmacro define-irc-message (command) + (let ((*print-case* :upcase)) (let ((name (intern (format nil "IRC-~A-MESSAGE" command)))) `(progn - (defmethod find-irc-message-class ((type (eql ,command))) - (find-class ',name)) - (export ',name) - (defclass ,name (irc-message) ()))))) + (defmethod find-irc-message-class ((type (eql ,command))) + (find-class ',name)) + (export ',name) + (defclass ,name (irc-message) ()))))) (defun create-irc-message-classes (class-list) (dolist (class class-list) @@ -523,14 +523,14 @@ (defclass standard-ctcp-message (ctcp-mixin message) ()) -(let ((*print-case* :upcase)) - (defmacro define-ctcp-message (ctcp-command) +(defmacro define-ctcp-message (ctcp-command) + (let ((*print-case* :upcase)) (let ((name (intern (format nil "CTCP-~A-MESSAGE" ctcp-command)))) `(progn - (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) - (find-class ',name)) - (export ',name) - (defclass ,name (ctcp-mixin irc-message) ()))))) + (defmethod find-ctcp-message-class ((type (eql ,ctcp-command))) + (find-class ',name)) + (export ',name) + (defclass ,name (ctcp-mixin irc-message) ()))))) (defun create-ctcp-message-classes (class-list) (dolist (class class-list)

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/Mop_Sym.txt net-nittin-irc/example/clhs.lisp
by Brian Mastenbrook 14 Nov '03

14 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv19401 Added Files: Mop_Sym.txt clhs.lisp Log Message: Added a sample IRC bot named clhs. Date: Fri Nov 14 14:37:05 2003 Author: bmastenbrook

1 0

[net-nittin-irc-cvs] CVS update: Directory change: net-nittin-irc/example
by Brian Mastenbrook 14 Nov '03

14 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv16506/example Log Message: Directory /project/net-nittin-irc/cvsroot/net-nittin-irc/example added to the repository Date: Fri Nov 14 14:29:50 2003 Author: bmastenbrook New directory net-nittin-irc/example added

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/command.lisp net-nittin-irc/package.lisp net-nittin-irc/protocol.lisp
by Brian Mastenbrook 14 Nov '03

14 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv15254 Modified Files: command.lisp package.lisp protocol.lisp Log Message: Add asynchronous message handling on SBCL Date: Fri Nov 14 14:28:01 2003 Author: bmastenbrook Index: net-nittin-irc/command.lisp diff -u net-nittin-irc/command.lisp:1.3 net-nittin-irc/command.lisp:1.4 --- net-nittin-irc/command.lisp:1.3 Fri Nov 7 10:40:19 2003 +++ net-nittin-irc/command.lisp Fri Nov 14 14:28:00 2003 @@ -1,4 +1,4 @@ -;;;; $Id: command.lisp,v 1.3 2003/11/07 15:40:19 eenge Exp $ +;;;; $Id: command.lisp,v 1.4 2003/11/14 19:28:00 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $ ;;;; See LICENSE for licensing information. @@ -170,11 +170,15 @@ :protocol :tcp))) (sb-bsd-sockets:socket-connect s (car (sb-bsd-sockets:host-ent-addresses (sb-bsd-sockets:get-host-by-name host))) port) - (sb-bsd-sockets:socket-make-stream s - :element-type 'character - :input t - :output t - :buffering :none))) + s)) + +#+sbcl +(defun socket-stream (socket) + (sb-bsd-sockets:socket-make-stream socket + :element-type 'character + :input t + :output t + :buffering :none)) (defun connect (&key (nickname *default-nickname*) (username nil) @@ -183,17 +187,20 @@ (server *default-irc-server*) (port *default-irc-server-port*)) "Connect to server and return a connection object." - (let* ((stream #+lispworks (comm:open-tcp-stream server port :errorp t) + (let* ((socket #+sbcl (connect-to-server-socket server port) + #-sbcl nil) + (stream #+lispworks (comm:open-tcp-stream server port :errorp t) #+cmu (sys:make-fd-stream (ext:connect-to-inet-socket server port) :input t :output t :element-type 'character) #+allegro (socket:make-socket :remote-host server :remote-port port) - #+sbcl (connect-to-server-socket server port)) + #+sbcl (socket-stream socket)) (user (make-user :nickname nickname :username username :realname realname)) - (connection (make-connection :server-stream stream + (connection (make-connection :server-socket socket + :server-stream stream :user user :server-name server))) (nick connection nickname) Index: net-nittin-irc/package.lisp diff -u net-nittin-irc/package.lisp:1.5 net-nittin-irc/package.lisp:1.6 --- net-nittin-irc/package.lisp:1.5 Fri Nov 14 11:13:21 2003 +++ net-nittin-irc/package.lisp Fri Nov 14 14:28:00 2003 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.5 2003/11/14 16:13:21 eenge Exp $ +;;;; $Id: package.lisp,v 1.6 2003/11/14 19:28:00 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -11,6 +11,7 @@ (:nicknames :irc) (:export :read-message-loop :read-message + :add-asynchronous-message-handler :send-message :server-name :server-stream Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.8 net-nittin-irc/protocol.lisp:1.9 --- net-nittin-irc/protocol.lisp:1.8 Fri Nov 14 11:13:21 2003 +++ net-nittin-irc/protocol.lisp Fri Nov 14 14:28:00 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.8 2003/11/14 16:13:21 eenge Exp $ +;;;; $Id: protocol.lisp,v 1.9 2003/11/14 19:28:00 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -28,6 +28,10 @@ :initarg :server-name :accessor server-name :initform "Unknown server") + (server-socket + :initarg :server-socket + :accessor server-socket + :documentation "Socket used to talk to the IRC server.") (server-stream :initarg :server-stream :accessor server-stream @@ -72,6 +76,7 @@ (defun make-connection (&key (user nil) (server-name "") + (server-socket nil) (server-stream nil) (client-stream t) (channels nil) @@ -84,6 +89,7 @@ (connection (make-instance 'connection :user user :server-name server-name + :server-socket server-socket :server-stream server-stream :client-stream client-stream :channels channels @@ -103,6 +109,16 @@ (let ((stream (server-stream connection))) (and (streamp stream) (open-stream-p stream)))) + +(defmethod add-asynchronous-message-handler ((connection connection)) + #+sbcl + (sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor + (server-socket connection)) + (lambda (fd) + (declare (ignore fd)) + (read-messsage connection))) + #-sbcl + (error "add-asynchronous-message-handler is not supported now on non-SBCL")) (defmethod read-message ((connection connection)) (let ((read-more-p t))

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/TODO net-nittin-irc/event.lisp net-nittin-irc/package.lisp net-nittin-irc/protocol.lisp net-nittin-irc/variable.lisp
by Erik Enge 14 Nov '03

14 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv27042 Modified Files: TODO event.lisp package.lisp protocol.lisp variable.lisp Log Message: adding support for return code 320 from dancerd fixing a bug related to nickname changes that would leave the connection object in an inconsistent state Date: Fri Nov 14 11:13:22 2003 Author: eenge Index: net-nittin-irc/TODO diff -u net-nittin-irc/TODO:1.6 net-nittin-irc/TODO:1.7 --- net-nittin-irc/TODO:1.6 Mon Nov 10 12:25:38 2003 +++ net-nittin-irc/TODO Fri Nov 14 11:13:21 2003 @@ -11,3 +11,13 @@ equivalence of two nicknames or channel names. So when we do FIND-USER etc. we need to be mindful of this fact. + + - Need to optimize the user approach. When joining ten high-volume + (2000+ users total) channels there seems to be O(n) or somesuch + performance because of, I'm guessing, the way FIND-USER works. + + - If a message (as in PRIVMSG) is longer than 512 characters + (including carriage return and linefeed) we should probably split + the message into several on behalf of the user. + + - Add ignore Index: net-nittin-irc/event.lisp diff -u net-nittin-irc/event.lisp:1.6 net-nittin-irc/event.lisp:1.7 --- net-nittin-irc/event.lisp:1.6 Mon Nov 10 12:25:38 2003 +++ net-nittin-irc/event.lisp Fri Nov 14 11:13:21 2003 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.6 2003/11/10 17:25:38 eenge Exp $ +;;;; $Id: event.lisp,v 1.7 2003/11/14 16:13:21 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $ ;;;; See LICENSE for licensing information. @@ -868,15 +868,15 @@ (defmethod irc-message-event ((message irc-nick-message)) (apply-to-hooks message) (client-log (connection message) message) - (when (self-message-p message) - (setf (nickname (user (connection message))) - (trailing-argument message))) - (let ((user (find-user (connection message) (source message)))) - (if user - (setf (nickname user) (trailing-argument message)) - (client-raw-log (connection message) - (format nil "Could not find user with nick ~A~%" - (source message)))))) + (if (self-message-p message) + (change-nickname (connection message) (user (connection message)) + (trailing-argument message)) + (let ((user (find-user (connection message) (source message)))) + (if user + (change-nickname (connection message) user (trailing-argument message)) + (client-raw-log (connection message) + (format nil "Could not find user with nick ~A~%" + (source message))))))) (defmethod irc-message-event ((message irc-notice-message)) (apply-to-hooks message) Index: net-nittin-irc/package.lisp diff -u net-nittin-irc/package.lisp:1.4 net-nittin-irc/package.lisp:1.5 --- net-nittin-irc/package.lisp:1.4 Mon Nov 10 12:25:38 2003 +++ net-nittin-irc/package.lisp Fri Nov 14 11:13:21 2003 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.4 2003/11/10 17:25:38 eenge Exp $ +;;;; $Id: package.lisp,v 1.5 2003/11/14 16:13:21 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -26,6 +26,7 @@ :remove-hooks :get-hooks :make-user + :change-nickname :make-connection :make-channel :client-log Index: net-nittin-irc/protocol.lisp diff -u net-nittin-irc/protocol.lisp:1.7 net-nittin-irc/protocol.lisp:1.8 --- net-nittin-irc/protocol.lisp:1.7 Mon Nov 10 12:25:38 2003 +++ net-nittin-irc/protocol.lisp Fri Nov 14 11:13:21 2003 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.7 2003/11/10 17:25:38 eenge Exp $ +;;;; $Id: protocol.lisp,v 1.8 2003/11/14 16:13:21 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -323,7 +323,7 @@ (setf (channels connection) (remove channel (channels connection)))) (defmethod remove-users ((channel channel)) - (setf (users channel) (make-hash-table :test #'equal))) + (clrhash (users channel))) ;; ;; User @@ -388,7 +388,7 @@ (remhash (nickname user) (users channel))) (defmethod remove-user-everywhere ((connection connection) (user user)) - (dolist (channel (all-channels connection)) + (dolist (channel (channels connection)) (remove-user channel user))) (defmethod find-or-make-user ((connection connection) nickname &key (username "") @@ -398,6 +398,16 @@ :username username :hostname hostname :realname realname))) + +(defmethod change-nickname ((connection connection) (user user) new-nickname) + (dolist (channel (channels connection)) + (let ((old-user (gethash (nickname user) (users channel)))) + (when old-user + (remhash (nickname user) (users channel)) + (setf (nickname user) new-nickname) + (add-user channel user)))) + (when (equal user (user connection)) + (setf (nickname user) new-nickname))) ;; IRC Message ;; Index: net-nittin-irc/variable.lisp diff -u net-nittin-irc/variable.lisp:1.4 net-nittin-irc/variable.lisp:1.5 --- net-nittin-irc/variable.lisp:1.4 Fri Nov 7 10:40:19 2003 +++ net-nittin-irc/variable.lisp Fri Nov 14 11:13:21 2003 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.4 2003/11/07 15:40:19 eenge Exp $ +;;;; $Id: variable.lisp,v 1.5 2003/11/14 16:13:21 eenge Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/variable.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -110,6 +110,7 @@ (317 :rpl_whoisidle) (318 :rpl_endofwhois) (319 :rpl_whoischannels) + (320 :rpl_whoisidentified) ; Seen in dancer ircd source (321 :rpl_liststart) (322 :rpl_list) (323 :rpl_listend)

1 0

[net-nittin-irc-cvs] CVS update: public_html/index.html
by Erik Enge 12 Nov '03

12 Nov '03

Update of /project/net-nittin-irc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv5918 Modified Files: index.html Log Message: fixing link for mailinglist Date: Wed Nov 12 14:32:00 2003 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.6 public_html/index.html:1.7 --- public_html/index.html:1.6 Wed Nov 12 09:51:07 2003 +++ public_html/index.html Wed Nov 12 14:31:59 2003 @@ -59,8 +59,8 @@ <h2>Contact</h2> <div class="level"> <p>Questions, feature requests, and bug-reports are welcome on - <tt><a href="mailto:net-nittin-net-devel@common-lisp.net"> - net-nittin-net-devel(a)common-lisp.net</a></tt>.</p> + <tt><a href="mailto:net-nittin-irc-devel@common-lisp.net"> + net-nittin-irc-devel(a)common-lisp.net</a></tt>.</p> </div> <h2>Sample usage</h2>

1 0

[net-nittin-irc-cvs] CVS update: public_html/index.html
by Erik Enge 12 Nov '03

12 Nov '03

Update of /project/net-nittin-irc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv12404 Modified Files: index.html Log Message: oops, only partial DCC support Date: Wed Nov 12 09:51:08 2003 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.5 public_html/index.html:1.6 --- public_html/index.html:1.5 Tue Nov 11 09:01:50 2003 +++ public_html/index.html Wed Nov 12 09:51:07 2003 @@ -10,8 +10,9 @@ <div class="body"> <p>net-nittin-irc is a Common Lisp IRC client library that - features DCC, CTCP and all relevant commands from the IRC RFCs - (<a href="http://www.faqs.org/rfcs/rfc2810.html">RFC2810</a>, <a + features (partial) DCC, CTCP and all relevant commands from the + IRC RFCs (<a + href="http://www.faqs.org/rfcs/rfc2810.html">RFC2810</a>, <a href="http://www.faqs.org/rfcs/rfc2811.html">RFC2811</a> and <a href="http://www.faqs.org/rfcs/rfc2812.html">RFC2812</a>). It uses ASDF and has been tested mostly on SBCL but should work for @@ -29,7 +30,7 @@ <ul> <li>implements all commands in the RFCs</li> <li>extra convenience commands such as op/deop, ban, ignore, etc.</li> - <li>DCC SEND/CHAT support</li> + <li>partial DCC SEND/CHAT support</li> <li>event driven model with hooks makes interfacing easy</li> <li>the user can keep multiple connections</li> <li>all CTCP commands</li>

1 0

[net-nittin-irc-cvs] CVS update: public_html/index.html
by Erik Enge 11 Nov '03

11 Nov '03

Update of /project/net-nittin-irc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv24548 Modified Files: index.html Log Message: removing validating links Date: Tue Nov 11 09:01:50 2003 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.4 public_html/index.html:1.5 --- public_html/index.html:1.4 Tue Nov 11 08:35:15 2003 +++ public_html/index.html Tue Nov 11 09:01:50 2003 @@ -101,15 +101,6 @@ </pre> </div> - <hr> - - <div class="level"> - <a href="http://validator.w3.org/check/referer" class="separate"> - <img src="valid-xhtml11.png" alt="Valid XHTML 1.1!" height="31" width="88"></a> - - <a href="http://jigsaw.w3.org/css-validator/" class="separate"> - <img src="vcss.png" alt="Valid CSS!" height="31" width="88"></a> - </div> </div> </body></html>

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/LICENSE
by Erik Enge 11 Nov '03

11 Nov '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv13372 Modified Files: LICENSE Log Message: adding me as copyright holder Date: Tue Nov 11 08:35:41 2003 Author: eenge Index: net-nittin-irc/LICENSE diff -u net-nittin-irc/LICENSE:1.1.1.1 net-nittin-irc/LICENSE:1.2 --- net-nittin-irc/LICENSE:1.1.1.1 Mon Nov 3 12:00:54 2003 +++ net-nittin-irc/LICENSE Tue Nov 11 08:35:41 2003 @@ -1,4 +1,5 @@ Copyright (c) 2002 Jochen Schmidt +Copyright (c) 2003 Erik Enge Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions

1 0