April 2007 - cl-irc-cvs@common-lisp.net - mailman3.common-lisp.net

[cl-irc-cvs] r184 - trunk/test
by ehuelsmann＠common-lisp.net 19 Apr '07

19 Apr '07

Author: ehuelsmann Date: Thu Apr 19 17:54:49 2007 New Revision: 184 Modified: trunk/test/test-parse-message.lisp (contents, props changed) trunk/test/test-protocol.lisp (contents, props changed) Log: Harmonize keyword expansion in tests/ directory. Modified: trunk/test/test-parse-message.lisp ============================================================================== --- trunk/test/test-parse-message.lisp (original) +++ trunk/test/test-parse-message.lisp Thu Apr 19 17:54:49 2007 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See the LICENSE file for licensing information. Modified: trunk/test/test-protocol.lisp ============================================================================== --- trunk/test/test-protocol.lisp (original) +++ trunk/test/test-protocol.lisp Thu Apr 19 17:54:49 2007 @@ -1,5 +1,5 @@ ;;;; $Id$ -;;;; $Source$ +;;;; $URL$ ;;;; See the LICENSE file for licensing information.

1 0

[cl-irc-cvs] r183 - trunk
by ehuelsmann＠common-lisp.net 19 Apr '07

19 Apr '07

Author: ehuelsmann Date: Thu Apr 19 17:50:36 2007 New Revision: 183 Modified: trunk/package.lisp trunk/utility.lisp Log: No idea why I wrote this, but I think it's generally usefull: hostmask matching. Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Thu Apr 19 17:50:36 2007 @@ -86,6 +86,7 @@ :remove-user :self-message-p :user-eq-me-p + :mask-matches-p :pass :nick :user- Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Thu Apr 19 17:50:36 2007 @@ -473,3 +473,44 @@ (find-user connection (pop arguments)) (pop arguments)))) ops))))))))))) + +;;; +;;; Hostmask matcher +;;; + +(defun do-mask-match (mask hostname mask-consumed host-consumed) + (if (= (length mask) (1+ mask-consumed)) + ;; we're out of mask to match, hopefully, we're out of hostname too + (= (length hostname) (1+ host-consumed)) + (let ((mask-char (char mask (1+ mask-consumed)))) + (cond + ((eq mask-char #\?) + ;; match any character, if there is one + (do-mask-match mask hostname (1+ mask-consumed) (1+ host-consumed))) + ((eq mask-char #\*) + ;; match any number of characters (including zero) + (do ((match (do-mask-match mask hostname + (incf mask-consumed) + host-consumed) + (do-mask-match mask hostname + mask-consumed + (incf host-consumed)))) + ((or (= (length hostname) (1+ host-consumed)) + match) + match))) + ((= (1+ host-consumed) (length hostname)) + ;; we're out of hostname... + nil) + (t + ;; match other characters by exact matches + (when (eq mask-char (char hostname (1+ host-consumed))) + (do-mask-match mask hostname + (1+ mask-consumed) (1+ host-consumed)))))))) + + (defun mask-matches-p (mask hostname) + "Wildcard matching. + +Uses `*' to match any number of characters and `?' to match exactly any +one character. The routine does not enforce hostmask matching patterns, +but can be used for the purpose." + (do-mask-match mask hostname -1 -1))

1 0

[cl-irc-cvs] r182 - in public_html: . releases
by ehuelsmann＠common-lisp.net 19 Apr '07

19 Apr '07

Author: ehuelsmann Date: Thu Apr 19 16:31:12 2007 New Revision: 182 Added: public_html/releases/cl-irc-0.8.1.tar.gz (contents, props changed) public_html/releases/cl-irc-0.8.1.tar.gz.asc Modified: public_html/index.html public_html/releases/cl-irc_latest.tar.gz public_html/releases/cl-irc_latest.tar.gz.asc Log: Update the website according to the 0.8.1 release (and upload release files). Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Thu Apr 19 16:31:12 2007 @@ -5,7 +5,7 @@ <body> <div class="header"> - <h1>cl-irc 0.8.0</h1> + <h1>cl-irc 0.8.1</h1> </div> <div class="body"> @@ -28,7 +28,8 @@ <h2>News</h2> <div class="level"> <ul> - <li>Version 0.8.0 released (user and channel mode tracking, characterset support on the irc network) + <li>Version 0.8.1 released (small fixes: KICK message processing, channel mode tracking)</li> + <li>Version 0.8.0 released (user and channel mode tracking, characterset support on the irc network)</li> <li>Version 0.7.0 released (RPL_ISUPPORT, many small tweaks and fixes)</li> <li>Version 0.6.0 released (interim release while common-lisp.net was down)</li> <li>Version 0.5.0 released (package rename and minor changes)</li> Added: public_html/releases/cl-irc-0.8.1.tar.gz ============================================================================== Binary file. No diff available. Added: public_html/releases/cl-irc-0.8.1.tar.gz.asc ============================================================================== --- (empty file) +++ public_html/releases/cl-irc-0.8.1.tar.gz.asc Thu Apr 19 16:31:12 2007 @@ -0,0 +1,7 @@ +-----BEGIN PGP SIGNATURE----- +Version: GnuPG v1.4.6 (GNU/Linux) + +iD8DBQBGJ+yQi5O0Epaz9TkRAqNfAJ9zGgX2qWrUvNjew8xnrEry8yPhAwCeKEl9 +PaVl6xRO9UWtLQUqLWmCpBY= +=iOtY +-----END PGP SIGNATURE----- Modified: public_html/releases/cl-irc_latest.tar.gz ============================================================================== --- public_html/releases/cl-irc_latest.tar.gz (original) +++ public_html/releases/cl-irc_latest.tar.gz Thu Apr 19 16:31:12 2007 @@ -1 +1 @@ -link cl-irc-0.8.0.tar.gz \ No newline at end of file +link cl-irc-0.8.1.tar.gz \ No newline at end of file Modified: public_html/releases/cl-irc_latest.tar.gz.asc ============================================================================== --- public_html/releases/cl-irc_latest.tar.gz.asc (original) +++ public_html/releases/cl-irc_latest.tar.gz.asc Thu Apr 19 16:31:12 2007 @@ -1 +1 @@ -link cl-irc-0.8.0.tar.gz.asc \ No newline at end of file +link cl-irc-0.8.1.tar.gz.asc \ No newline at end of file

1 0

[cl-irc-cvs] r181 - tags/0.8.1
by ehuelsmann＠common-lisp.net 19 Apr '07

19 Apr '07

Author: ehuelsmann Date: Thu Apr 19 16:30:37 2007 New Revision: 181 Added: tags/0.8.1/ - copied from r179, trunk/ Modified: tags/0.8.1/cl-irc.asd tags/0.8.1/variable.lisp Log: Tag 0.8.1, a minor fixes release. Modified: tags/0.8.1/cl-irc.asd ============================================================================== --- trunk/cl-irc.asd (original) +++ tags/0.8.1/cl-irc.asd Thu Apr 19 16:30:37 2007 @@ -13,7 +13,7 @@ (defsystem cl-irc :name "cl-irc" :author "Erik Enge & Contributors" - :version "0.8-dev" + :version "0.8.1" :licence "MIT" :description "Common Lisp interface to the IRC protocol" :depends-on (:split-sequence :usocket :flexi-streams) Modified: tags/0.8.1/variable.lisp ============================================================================== --- trunk/variable.lisp (original) +++ tags/0.8.1/variable.lisp Thu Apr 19 16:30:37 2007 @@ -10,7 +10,7 @@ (defconstant +soh+ #.(code-char 1)) -(defparameter *version* "0.8.0-dev") +(defparameter *version* "0.8.1") (defparameter *ctcp-version* (format nil "CL IRC library, cl-irc:~A:~A ~A" *version* (machine-type) (machine-version)))

1 0

[cl-irc-cvs] r180 - trunk
by ehuelsmann＠common-lisp.net 19 Apr '07

19 Apr '07

Author: ehuelsmann Date: Thu Apr 19 16:12:44 2007 New Revision: 180 Removed: trunk/.cvsignore Log: Remove - now unused - .cvsignore file. The contents has already moved to the svn:ignore property.

1 0

[cl-irc-cvs] r179 - trunk
by ehuelsmann＠common-lisp.net 18 Apr '07

18 Apr '07

Author: ehuelsmann Date: Wed Apr 18 14:57:32 2007 New Revision: 179 Modified: trunk/event.lisp trunk/package.lisp trunk/protocol.lisp Log: KICK messages generally don't originate at the user being kicked. Fixed. Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Wed Apr 18 14:57:32 2007 @@ -315,7 +315,7 @@ (let* ((channel (find-channel connection channel)) (user (find-user connection nick))) (when (and user channel) - (if (self-message-p message) + (if (user-eq-me-p connection user) (remove-channel user channel) (remove-user channel user))))))) Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Wed Apr 18 14:57:32 2007 @@ -85,6 +85,7 @@ :remove-all-users :remove-user :self-message-p + :user-eq-me-p :pass :nick :user- Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Wed Apr 18 14:57:32 2007 @@ -914,6 +914,7 @@ (car (last (arguments message)))) (defgeneric self-message-p (message)) +(defgeneric user-eq-me-p (connection user)) (defgeneric find-irc-message-class (type)) (defgeneric client-log (connection message &optional prefix)) (defgeneric apply-to-hooks (message)) @@ -923,6 +924,13 @@ (string-equal (source message) (nickname (user (connection message))))) +(defmethod user-eq-me-p (connection (user user)) + (eq user (user connection))) + +(defmethod user-eq-me-p (connection (user string)) + (let ((user (find-user connection user))) + (user-eq-me-p connection user))) + (defclass irc-error-reply (irc-message) ()) (eval-when (:compile-toplevel :load-toplevel :execute)

1 0