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

[Cl-irc-cvs] CVS update: cl-irc/variable.lisp
by ehuelsmann＠common-lisp.net 27 Mar '05

27 Mar '05

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv17080 Modified Files: variable.lisp Log Message: Rename 2 modes. They go by the names 'except' and 'invite' in the protocol. Date: Sun Mar 27 21:21:29 2005 Author: ehuelsmann Index: cl-irc/variable.lisp diff -u cl-irc/variable.lisp:1.5 cl-irc/variable.lisp:1.6 --- cl-irc/variable.lisp:1.5 Sun Mar 20 17:55:36 2005 +++ cl-irc/variable.lisp Sun Mar 27 21:21:28 2005 @@ -1,4 +1,4 @@ -;;;; $Id: variable.lisp,v 1.5 2005/03/20 16:55:36 ehuelsmann Exp $ +;;;; $Id: variable.lisp,v 1.6 2005/03/27 19:21:28 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/variable.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -74,8 +74,8 @@ (#\l . :limit) (#\k . :key) (#\b . :ban) - (#\e . :ban-except) - (#\I . :invite-except))) + (#\e . :except) + (#\I . :invite))) (defparameter *char-to-user-modes-map* '((#\a . :away)

1 0

[Cl-irc-cvs] CVS update: public_html/index.html
by ehuelsmann＠common-lisp.net 24 Mar '05

24 Mar '05

Update of /project/cl-irc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv9544 Modified Files: index.html Log Message: Update site with latest releases. Date: Fri Mar 25 00:26:42 2005 Author: ehuelsmann Index: public_html/index.html diff -u public_html/index.html:1.2 public_html/index.html:1.3 --- public_html/index.html:1.2 Mon Jan 5 15:22:39 2004 +++ public_html/index.html Fri Mar 25 00:26:42 2005 @@ -5,7 +5,7 @@ <body> <div class="header"> - <h1>cl-irc 0.5.0</h1> + <h1>cl-irc 0.7.0</h1> </div> <div class="body"> @@ -27,6 +27,8 @@ <h2>News</h2> <div class="level"> + <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> <li>Version 0.4.0 released (some documentation, beginnings of a test suite, better performance)</li> </div>

1 0

[Cl-irc-cvs] CVS update: cl-irc/protocol.lisp cl-irc/package.lisp
by ehuelsmann＠common-lisp.net 21 Mar '05

21 Mar '05

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv16287 Modified Files: protocol.lisp package.lisp Log Message: Cleanup. * package.lisp: Remove exported but undefined symbols. * protocol.lisp: Remove deprecated method. Date: Mon Mar 21 23:32:35 2005 Author: ehuelsmann Index: cl-irc/protocol.lisp diff -u cl-irc/protocol.lisp:1.19 cl-irc/protocol.lisp:1.20 --- cl-irc/protocol.lisp:1.19 Mon Mar 21 20:41:42 2005 +++ cl-irc/protocol.lisp Mon Mar 21 23:32:35 2005 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.19 2005/03/21 19:41:42 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.20 2005/03/21 22:32:35 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -749,14 +749,6 @@ (do-property-list (prop val (modes channel)) (when (and val (eq (value-type val) :user)) (unset-mode channel prop user)))) - -(defmethod remove-channel ((channel channel) (user user)) - "Remove `channel' from `user'." - (warn - (concatenate 'string - "use of depricated API (remove-channel channel user): " - "(remove-channel user channel) is now preferred")) - (remove-channel user channel)) (defmethod remove-channel ((user user) (channel channel)) "Remove `channel' from `user'." Index: cl-irc/package.lisp diff -u cl-irc/package.lisp:1.6 cl-irc/package.lisp:1.7 --- cl-irc/package.lisp:1.6 Sun Mar 20 17:55:36 2005 +++ cl-irc/package.lisp Mon Mar 21 23:32:35 2005 @@ -1,4 +1,4 @@ -;;;; $Id: package.lisp,v 1.6 2005/03/20 16:55:36 ehuelsmann Exp $ +;;;; $Id: package.lisp,v 1.7 2005/03/21 22:32:35 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/package.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -15,7 +15,6 @@ :start-background-message-handler :stop-background-message-handler :socket-connect - :send-message :server-name :no-such-reply :irc-mode @@ -41,9 +40,6 @@ :server-stream :client-stream :channels - :configuration - :dangling-users - :channel-list :add-hook :remove-hook :remove-hooks

1 0

[Cl-irc-cvs] CVS update: cl-irc/protocol.lisp
by ehuelsmann＠common-lisp.net 21 Mar '05

21 Mar '05

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv6182 Modified Files: protocol.lisp Log Message: Don't apply 'key' to 'value'. Date: Mon Mar 21 20:41:42 2005 Author: ehuelsmann Index: cl-irc/protocol.lisp diff -u cl-irc/protocol.lisp:1.18 cl-irc/protocol.lisp:1.19 --- cl-irc/protocol.lisp:1.18 Mon Mar 21 19:14:32 2005 +++ cl-irc/protocol.lisp Mon Mar 21 20:41:42 2005 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.18 2005/03/21 18:14:32 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.19 2005/03/21 19:41:42 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -77,8 +77,8 @@ (defmethod has-value-p ((mode single-value-mode) value &key (key #'identity) (test #'equal)) (funcall test - (funcall key (value mode)) - (funcall key value))) + value + (funcall key (value mode)))) ;; mode class for holding lists of values

1 0

[Cl-irc-cvs] CVS update: cl-irc/parse-message.lisp
by ehuelsmann＠common-lisp.net 21 Mar '05

21 Mar '05

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv1647 Modified Files: parse-message.lisp Log Message: Revert accidental commit. Date: Mon Mar 21 19:15:52 2005 Author: ehuelsmann Index: cl-irc/parse-message.lisp diff -u cl-irc/parse-message.lisp:1.5 cl-irc/parse-message.lisp:1.6 --- cl-irc/parse-message.lisp:1.5 Mon Mar 21 19:14:32 2005 +++ cl-irc/parse-message.lisp Mon Mar 21 19:15:52 2005 @@ -1,4 +1,4 @@ -;;;; $Id: parse-message.lisp,v 1.5 2005/03/21 18:14:32 ehuelsmann Exp $ +;;;; $Id: parse-message.lisp,v 1.6 2005/03/21 18:15:52 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/parse-message.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -151,12 +151,12 @@ (ctcp (ctcp-message-type trailing-argument))) (when command (cond -;; (nil ;(irc-error-reply-p command) -;; ;; Disable for now, as it prevents adding hooks for some useful -;; ;; error types -;; (progn -;; (setf command (find-reply-name (parse-integer command))) -;; (setf class 'irc-error-reply))) + (nil ;(irc-error-reply-p command) + ;; Disable for now, as it prevents adding hooks for some useful + ;; error types + (progn + (setf command (find-reply-name (parse-integer command))) + (setf class 'irc-error-reply))) ((numeric-reply-p command) (progn (setf command (find-reply-name (parse-integer command)))

1 0

[Cl-irc-cvs] CVS update: cl-irc/parse-message.lisp cl-irc/protocol.lisp cl-irc/utility.lisp
by ehuelsmann＠common-lisp.net 21 Mar '05

21 Mar '05

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp.net:/tmp/cvs-serv1050 Modified Files: parse-message.lisp protocol.lisp utility.lisp Log Message: Explicitly use a boolean-value-mode class instead of hiding the same behaviour in single-value-mode. Date: Mon Mar 21 19:14:33 2005 Author: ehuelsmann Index: cl-irc/parse-message.lisp diff -u cl-irc/parse-message.lisp:1.4 cl-irc/parse-message.lisp:1.5 --- cl-irc/parse-message.lisp:1.4 Sat Jan 1 15:25:17 2005 +++ cl-irc/parse-message.lisp Mon Mar 21 19:14:32 2005 @@ -1,4 +1,4 @@ -;;;; $Id: parse-message.lisp,v 1.4 2005/01/01 14:25:17 ehuelsmann Exp $ +;;;; $Id: parse-message.lisp,v 1.5 2005/03/21 18:14:32 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/parse-message.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -151,12 +151,12 @@ (ctcp (ctcp-message-type trailing-argument))) (when command (cond - (nil ;(irc-error-reply-p command) - ;; Disable for now, as it prevents adding hooks for some useful - ;; error types - (progn - (setf command (find-reply-name (parse-integer command))) - (setf class 'irc-error-reply))) +;; (nil ;(irc-error-reply-p command) +;; ;; Disable for now, as it prevents adding hooks for some useful +;; ;; error types +;; (progn +;; (setf command (find-reply-name (parse-integer command))) +;; (setf class 'irc-error-reply))) ((numeric-reply-p command) (progn (setf command (find-reply-name (parse-integer command))) Index: cl-irc/protocol.lisp diff -u cl-irc/protocol.lisp:1.17 cl-irc/protocol.lisp:1.18 --- cl-irc/protocol.lisp:1.17 Sun Mar 20 17:55:36 2005 +++ cl-irc/protocol.lisp Mon Mar 21 19:14:32 2005 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.17 2005/03/20 16:55:36 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.18 2005/03/21 18:14:32 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -45,12 +45,29 @@ (setf (value mode) nil)) +;; mode class for holding boolean values + +(defclass boolean-value-mode (irc-mode) ()) + +(defmethod set-mode-value ((mode boolean-value-mode) value) + (declare (ignore value)) + (setf (value mode) t)) + +(defmethod unset-mode-value ((mode boolean-value-mode) value) + (declare (ignore value)) + (setf (value mode) nil)) + +(defmethod has-value-p ((mode boolean-value-mode) value + &key key test) + (declare (ignore value key test)) + (value mode)) + ;; mode class for holding single values (defclass single-value-mode (irc-mode) ()) (defmethod set-mode-value ((mode single-value-mode) value) - (setf (value mode) (or value t))) + (setf (value mode) value)) (defmethod unset-mode-value ((mode single-value-mode) value) (when (or (null value) Index: cl-irc/utility.lisp diff -u cl-irc/utility.lisp:1.5 cl-irc/utility.lisp:1.6 --- cl-irc/utility.lisp:1.5 Sun Mar 20 17:55:36 2005 +++ cl-irc/utility.lisp Mon Mar 21 19:14:32 2005 @@ -1,4 +1,4 @@ -;;;; $Id: utility.lisp,v 1.5 2005/03/20 16:55:36 ehuelsmann Exp $ +;;;; $Id: utility.lisp,v 1.6 2005/03/21 18:14:32 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/utility.lisp,v $ ;;;; See the LICENSE file for licensing information. @@ -208,7 +208,7 @@ ;; C type mode from CHANMODES (t nil nil single-value-mode) ;; D type mode from CHANMODES - (nil nil nil single-value-mode)))) + (nil nil nil boolean-value-mode)))) (do ((mode (pop modes-list) (pop modes-list)) (mode-desc (pop mode-descs) (pop mode-descs))) ((null mode-desc) mode-desc-recs)

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/ppc-assem.lisp-expr cl-irc/example/sus.lisp-expr
by bmastenbrook＠common-lisp.net 23 Jan '05

23 Jan '05

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Added Files: ppc-assem.lisp-expr sus.lisp-expr Log Message: GOD DAMNIT Date: Sun Jan 23 08:38:48 2005 Author: bmastenbrook

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/cliki.lisp cl-irc/example/specbot.lisp
by Brian Mastenbrook 23 Nov '04

23 Nov '04

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/home/bmastenbrook/cl-irc/example Modified Files: cliki.lisp specbot.lisp Log Message: apropos searching; new module for specbot? Date: Tue Nov 23 03:54:08 2004 Author: bmastenbrook Index: cl-irc/example/cliki.lisp diff -u cl-irc/example/cliki.lisp:1.27 cl-irc/example/cliki.lisp:1.28 --- cl-irc/example/cliki.lisp:1.27 Wed Oct 20 22:21:33 2004 +++ cl-irc/example/cliki.lisp Tue Nov 23 03:54:08 2004 @@ -1,4 +1,4 @@ - ;;;; $Id: cliki.lisp,v 1.27 2004/10/20 20:21:33 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.28 2004/11/23 02:54:08 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -70,6 +70,14 @@ (push (cons term defn) *aliases*) (write-top-definition :of *aliases* :type :alias)) +(defun cliki-apropos (search-string) + (let ((found (remove-duplicates + (loop for (term . defn) in *small-definitions* + if (search search-string defn :test #'string-equal) + collect term) :test #'string-equal))) + (if found (format nil "Matches: ~{~S~^ ~}" found) + "No Matches"))) + (defvar *lookup-depth* 0) (defvar *followed-aliases* nil) @@ -416,7 +424,10 @@ (format nil "If you say multiple words to me which I don't recognize and it's not found as a lookup, you might get a sarcastic reply. Don't abuse this too much."))) ("advice" . ,(lambda (nick) - (format nil "Try saying something like ``~A: advice #11904'' to get some advice." nick))))) + (format nil "Try saying something like ``~A: advice #11904'' to get some advice." nick))) + ("apropos" . + ,(lambda (nick) + (format nil "Try ``~A: apropos foo'' to search for all small definitions containing ''foo''." nick))))) (defun cliki-bot-help (nick) (format nil "There are multiple help modules. Try ``/msg ~A help kind'', where kind is one of: ~{\"~A\"~^, ~}." @@ -650,6 +661,9 @@ (if (scan "^(?i)(?i)do my bidding!*$" first-pass) "Yes, my master.") (if (scan "^(?i)chant(\\s|!|\\?|\\.|$)*" first-pass) (format nil "MORE ~A" *more*)) + (let ((str (nth-value 1 (scan-to-strings "^(?i)apropos\\s+(.+\\S)\\s*$" first-pass)))) + (and str + (cliki-apropos (elt str 0)))) (if (scan "^(?i)advice$" first-pass) (random-advice)) (let ((str (nth-value 1 (scan-to-strings "^(?i)advise\\s+(for\\s+|)(\\S+)$" first-pass)))) Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.11 cl-irc/example/specbot.lisp:1.12 --- cl-irc/example/specbot.lisp:1.11 Tue Nov 16 23:45:27 2004 +++ cl-irc/example/specbot.lisp Tue Nov 23 03:54:08 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.11 2004/11/16 22:45:27 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.12 2004/11/23 02:54:08 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $ ;;;; specbot.lisp - an example IRC bot for cl-irc @@ -112,9 +112,15 @@ (format nil "To use the ~A bot, say something like \"database term\", where database is one of (~{~S~^, ~}) and term is the desired lookup. The available databases are:" *nickname* (mapcar #'second *spec-providers*))) - (loop for (a b c d) on *spec-providers* by #'cddddr - do (privmsg *connection* destination - "~@{~{~*~S, ~A~}~}~}" a b c d)) + (loop for i from 1 for j in *spec-providers* + with elts = nil + do (push j elts) + if (zerop (mod i 4)) + do (progn + (privmsg *connection* destination + (format nil "~{~{~*~S, ~A~}~^; ~}" + (nreverse elts))) + (setf elts nil))) ) (loop for type in *spec-providers* for actual-fun = (if (typep (first type) 'symbol)

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/specbot.lisp
by Brian Mastenbrook 16 Nov '04

16 Nov '04

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/tmp/cvs-serv3826/example Modified Files: specbot.lisp Log Message: better help Date: Tue Nov 16 23:45:28 2004 Author: bmastenbrook Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.10 cl-irc/example/specbot.lisp:1.11 --- cl-irc/example/specbot.lisp:1.10 Tue Nov 16 23:35:02 2004 +++ cl-irc/example/specbot.lisp Tue Nov 16 23:45:27 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.10 2004/11/16 22:35:02 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.11 2004/11/16 22:45:27 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $ ;;;; specbot.lisp - an example IRC bot for cl-irc @@ -109,12 +109,13 @@ (member to-lookup '("help" "help?") :test #'string-equal)) (progn (privmsg *connection* destination - (format nil "To use the ~A bot, say something like \"database term\", where database is one of (~{~S~^, ~}) and term is the desired lookup." + (format nil "To use the ~A bot, say something like \"database term\", where database is one of (~{~S~^, ~}) and term is the desired lookup. The available databases are:" *nickname* (mapcar #'second *spec-providers*))) - (privmsg *connection* destination - (format nil "The available databases are: ~{~{~*~S, ~A~}~^; ~}" - *spec-providers*))) + (loop for (a b c d) on *spec-providers* by #'cddddr + do (privmsg *connection* destination + "~@{~{~*~S, ~A~}~}~}" a b c d)) + ) (loop for type in *spec-providers* for actual-fun = (if (typep (first type) 'symbol) (first type)

1 0

[Cl-irc-cvs] CVS update: cl-irc/example/specbot.lisp
by Brian Mastenbrook 16 Nov '04

16 Nov '04

Update of /project/cl-irc/cvsroot/cl-irc/example In directory common-lisp.net:/tmp/cvs-serv3365/example Modified Files: specbot.lisp Log Message: cocoa lookup Date: Tue Nov 16 23:35:03 2004 Author: bmastenbrook Index: cl-irc/example/specbot.lisp diff -u cl-irc/example/specbot.lisp:1.9 cl-irc/example/specbot.lisp:1.10 --- cl-irc/example/specbot.lisp:1.9 Tue Oct 26 03:38:49 2004 +++ cl-irc/example/specbot.lisp Tue Nov 16 23:35:02 2004 @@ -1,4 +1,4 @@ -;;;; $Id: specbot.lisp,v 1.9 2004/10/26 01:38:49 bmastenbrook Exp $ +;;;; $Id: specbot.lisp,v 1.10 2004/11/16 22:35:02 bmastenbrook Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/example/specbot.lisp,v $ ;;;; specbot.lisp - an example IRC bot for cl-irc @@ -46,6 +46,11 @@ (funcall (intern "SYMBOL-LOOKUP" :r5rs-lookup) str))) +(defun cocoa-lookup (str) + (and (find-package :cocoa-lookup) + (funcall (intern "SYMBOL-LOOKUP" :cocoa-lookup) + str))) + (defun elisp-lookup (str) (and (find-package :elisp-lookup) (funcall (intern "SYMBOL-LOOKUP" :elisp-lookup) @@ -59,6 +64,7 @@ (defvar *spec-providers* '((clhs-lookup "clhs" "The Common Lisp HyperSpec") (r5rs-lookup "r5rs" "The Revised 5th Ed. Report on the Algorithmic Language Scheme") + (cocoa-lookup "cocoa" "Classes in the Cocoa Foundation and Application kits") (elisp-lookup "elisp" "GNU Emacs Lisp Reference Manual") (clim-lookup "clim" "Common Lisp Interface Manager II Specification")))

1 0