cl-irc-cvs

cl-irc-cvs@common-lisp.net

220 discussions

[cl-irc-cvs] r152 - trunk
by ehuelsmann＠common-lisp.net 14 May '06

14 May '06

Author: ehuelsmann Date: Sun May 14 09:56:19 2006 New Revision: 152 Modified: trunk/event.lisp trunk/protocol.lisp trunk/utility.lisp Log: Fix SBCL compile warnings, at least one of which was a bug. Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Sun May 14 09:56:19 2006 @@ -129,8 +129,13 @@ (defmethod default-hook ((message irc-rpl_namreply-message)) (let* ((connection (connection message))) (destructuring-bind - (nick chan-mode channel names) + (nick chan-visibility channel names) (arguments message) + (declare (ignore nick chan-visibility)) + ;; chan-visibility is (member '= '@ '*) + ;; '= == public + ;; '@ == secret + ;; '* == private (let ((channel (find-channel connection channel))) (unless (has-mode-p channel 'namreply-in-progress) (add-mode channel 'namreply-in-progress @@ -205,6 +210,7 @@ (destructuring-bind (channel &optional text) arguments + (declare (ignore text)) (let ((channel (find-channel connection channel)) (user (find-user connection source))) (when (and user channel) @@ -225,11 +231,10 @@ (destructuring-bind (target channel &rest mode-arguments) arguments - (declare (ignore target)) (let* ((channel (find-channel connection channel)) (mode-changes (when channel - (parse-mode-arguments connection channel arguments + (parse-mode-arguments connection channel mode-arguments :server-p (user connection))))) (dolist (change mode-changes) (destructuring-bind @@ -281,7 +286,7 @@ (destructuring-bind (channel nick &optional reason) arguments - (declare (ignore arguments)) + (declare (ignore reason)) (let* ((channel (find-channel connection channel)) (user (find-user connection nick))) (when (and user channel) Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Sun May 14 09:56:19 2006 @@ -260,6 +260,7 @@ (defvar *process-count* 0) (defmethod start-process (function name) + (declare (ignorable name)) #+allegro (mp:process-run-function name function) #+cmu (mp:make-process function :name name) #+lispworks (mp:process-run-function name nil function) @@ -273,6 +274,7 @@ (flet (#-(and sbcl (not sb-thread)) (do-loop () (read-message-loop connection))) (let ((name (format nil "irc-hander-~D" (incf *process-count*)))) + (declare (ignorable name)) #+(or allegro cmu lispworks sb-thread openmcl armedbear) (start-process #'do-loop name) #+(and sbcl (not sb-thread)) @@ -292,6 +294,7 @@ (defun stop-background-message-handler (process) "Stops a background message handler process returned by the start function." + (declare (ignorable process)) #+cmu (mp:destroy-process process) #+allegro (mp:process-kill process) #+sb-thread (sb-thread:destroy-thread process) Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Sun May 14 09:56:19 2006 @@ -121,12 +121,13 @@ (let ((read-fun (if (subtypep (stream-element-type stream) 'integer) (if non-blocking #'read-byte-no-hang #'read-byte) (if non-blocking #'read-char-no-hang #'read-char))) - (limit-pos 0) + (limit-vector (coerce limit '(vector * t))) (targ-max (1- (length target))) (limit-max (length limit)) (limit-cur 0) (targ-cur -1)) - (declare (optimize (speed 3) (debug 0))) + (declare (optimize (speed 3) (debug 0)) + (type fixnum targ-cur)) ;; In SBCL read-char is a buffered operations (depending on ;; stream creation parameters), so this loop should be quite efficient ;; For others, if this becomes an efficiency problem, please report... @@ -135,7 +136,7 @@ do (return (values target targ-cur t)) else do (setf (elt target (incf targ-cur)) next-elt) - (if (eql next-elt (elt limit limit-cur)) + (if (eql next-elt (aref limit-vector limit-cur)) (incf limit-cur) (setf limit-cur 0))

1 0

[cl-irc-cvs] r151 - trunk
by ehuelsmann＠common-lisp.net 13 May '06

13 May '06

Author: ehuelsmann Date: Sat May 13 03:56:53 2006 New Revision: 151 Modified: trunk/cl-irc.asd trunk/package.lisp trunk/protocol.lisp trunk/utility.lisp trunk/variable.lisp Log: Resolve issue #2: Start guessing the message encoding. On some lisps, reading character data mismatching the stream external format would break server communication. Modified: trunk/cl-irc.asd ============================================================================== --- trunk/cl-irc.asd (original) +++ trunk/cl-irc.asd Sat May 13 03:56:53 2006 @@ -16,7 +16,7 @@ :version "0.5.2" :licence "MIT" :description "Common Lisp interface to the IRC protocol" - :depends-on (:split-sequence :trivial-sockets) + :depends-on (:split-sequence :trivial-sockets :flexi-streams) :properties ((#:author-email . "cl-irc-devel(a)common-lisp.net") (#:date . "$Date$") ((#:albert #:output-dir) . "doc/api-doc/") Modified: trunk/package.lisp ============================================================================== --- trunk/package.lisp (original) +++ trunk/package.lisp Sat May 13 03:56:53 2006 @@ -41,6 +41,7 @@ :user-count :users :network-stream + :output-stream :client-stream :channels :add-hook Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Sat May 13 03:56:53 2006 @@ -117,7 +117,11 @@ (network-stream :initarg :network-stream :accessor network-stream - :documentation "Stream used to talk to the IRC server.") + :documentation "Stream used to talk binary to the IRC server.") + (output-stream + :initarg :output-stream + :accessor output-stream + :documentation "Stream used to send messages to the IRC server") (server-capabilities :initform *default-isupport-values* :accessor server-capabilities @@ -186,12 +190,18 @@ (user nil) (server-name "") (network-stream nil) + (outgoing-external-format *default-outgoing-external-format*) (client-stream t) (hooks nil)) - (let ((connection (make-instance connection-type + (let* ((output-stream (flexi-streams:make-flexi-stream + network-stream + :element-type 'character + :external-format (external-format-fixup outgoing-external-format))) + (connection (make-instance connection-type :user user :server-name server-name :network-stream network-stream + :output-stream output-stream :client-stream client-stream))) (dolist (hook hooks) (add-hook connection (car hook) (cadr hook))) @@ -292,13 +302,40 @@ (defun read-message-loop (connection) (loop while (read-message connection))) +(defun try-decode-line (line external-formats) + (loop for external-format in external-formats + for decoded = nil + for error = nil + do (multiple-value-setq (decoded error) + (handler-case + (flexi-streams:with-input-from-sequence (in line) + (let ((flexi (flexi-streams:make-flexi-stream in +;; :element-type 'character + :external-format + (external-format-fixup external-format)))) + (read-line flexi nil nil))) + (flexi-streams:flexi-stream-encoding-error () + nil))) + if decoded + do (return decoded))) + (defmethod read-irc-message ((connection connection)) "Read and parse an IRC-message from the `connection'." (handler-case - (let ((message (create-irc-message - (read-line (network-stream connection) t)))) - (setf (connection message) connection) - message) + (multiple-value-bind + (buf buf-len) + ;; Note: we cannot use read-line here (or any other + ;; character based functions), since they may cause conversion + (read-sequence-until (network-stream connection) + (make-array 1024 + :element-type '(unsigned-byte 8) + :fill-pointer t) + '(13 10)) + (setf (fill-pointer buf) buf-len) + (print buf) + (let* ((message (create-irc-message (try-decode-line buf *default-incoming-external-formats*)))) + (setf (connection message) connection) + message)) (end-of-file ()))) ;; satisfy read-message-loop assumption of nil when no more messages @@ -307,8 +344,8 @@ "Turn the arguments into a valid IRC message and send it to the server, via the `connection'." (let ((raw-message (apply #'make-irc-message command arguments))) - (write-sequence raw-message (network-stream connection)) - (force-output (network-stream connection)) + (write-sequence raw-message (output-stream connection)) + (force-output (output-stream connection)) raw-message)) (defmethod get-hooks ((connection connection) (class symbol)) Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Sat May 13 03:56:53 2006 @@ -54,9 +54,8 @@ parameters." (let ((*print-circle* nil)) (format nil - "~A~{ ~A~}~@[ :~A~]~A~A" - command (butlast arguments) (car (last arguments)) - #\Return #\Linefeed))) + "~A~{ ~A~}~@[ :~A~]~%" + command (butlast arguments) (car (last arguments))))) (defun make-ctcp-message (string) "Return a valid IRC CTCP message, as a string, composed by @@ -104,7 +103,45 @@ (defun socket-connect (server port) "Create a socket connected to `server':`port' and return stream for it." - (trivial-sockets:open-stream server port)) + (trivial-sockets:open-stream server port :element-type '(unsigned-byte 8))) + +(defun external-format-fixup (format) + (let ((new-format (copy-list format))) + (setf (getf (cdr new-format) :eol-style) :crlf) + new-format)) + +(defun read-byte-no-hang (stream &optional eof-error-p eof-value) + (declare (optimize (speed 3) (debug 0) (safety 0))) + (when (listen stream) + (read-byte stream eof-error-p eof-value))) + +(defun read-sequence-until (stream target limit &key non-blocking) + "Reads data from `stream' into `target' until the subsequence +`limit' is reached or `target' is not large enough to hold the data." + (let ((read-fun (if (subtypep (stream-element-type stream) 'integer) + (if non-blocking #'read-byte-no-hang #'read-byte) + (if non-blocking #'read-char-no-hang #'read-char))) + (limit-pos 0) + (targ-max (1- (length target))) + (limit-max (length limit)) + (limit-cur 0) + (targ-cur -1)) + (declare (optimize (speed 3) (debug 0))) + ;; In SBCL read-char is a buffered operations (depending on + ;; stream creation parameters), so this loop should be quite efficient + ;; For others, if this becomes an efficiency problem, please report... + (loop for next-elt = (funcall read-fun stream nil nil) + if (null next-elt) + do (return (values target targ-cur t)) + else do + (setf (elt target (incf targ-cur)) next-elt) + (if (eql next-elt (elt limit limit-cur)) + (incf limit-cur) + (setf limit-cur 0)) + + if (or (= targ-cur targ-max) + (= limit-cur limit-max)) + do (return (values target (1+ targ-cur) nil))))) (defun substring (string start &optional end) (let* ((end-index (if end end (length string))) Modified: trunk/variable.lisp ============================================================================== --- trunk/variable.lisp (original) +++ trunk/variable.lisp Sat May 13 03:56:53 2006 @@ -41,6 +41,25 @@ ("PREFIX" ,*default-isupport-PREFIX*) ("TARGMAX"))) +(defparameter *default-outgoing-external-format* '(:utf-8) + "The external-format we use to encode outgoing messages. This + should be an external format spec that flexi-streams accepts. + + :eol-style will always be overridden to be :crlf as required + by the IRC protocol.") + +(defparameter *default-incoming-external-formats* '((:utf-8 :eol-style :crlf) + (:latin1 :eol-style :crlf)) + "The external-formats we use to decode incoming messages. This should + be a list of external format specs that flexi-streams accepts. + + The external formats are tried in order, until one decodes the + message without encoding errors. Note that the last external + format should be a single-byte one with most or even all valid + codepoints (such as latin-1). + + :eol-style will always be overridden to be :crlf as required by the + IRC protocol.") (defvar *dcc-connections* nil)

1 0

[cl-irc-cvs] r150 - trunk
by ehuelsmann＠common-lisp.net 08 May '06

08 May '06

Author: ehuelsmann Date: Mon May 8 17:35:07 2006 New Revision: 150 Removed: trunk/TODO Log: Remove TODO, now that all issues have been moved into the bug tracker.

1 0

[cl-irc-cvs] r149 - trunk
by ehuelsmann＠common-lisp.net 05 May '06

05 May '06

Author: ehuelsmann Date: Fri May 5 17:46:25 2006 New Revision: 149 Modified: trunk/event.lisp trunk/parse-message.lisp trunk/protocol.lisp trunk/utility.lisp Log: More efficient string manipulation. Also remove dependency on #\Return character at the end of each line (making cl-irc windows EOL translating lisp implementation compatible). Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Fri May 5 17:46:25 2006 @@ -82,8 +82,8 @@ (mapcar #'(lambda (x) (let ((eq-pos (position #\= x))) (if eq-pos - (list (subseq x 0 eq-pos) - (subseq x (1+ eq-pos))) + (list (substring x 0 eq-pos) + (substring x (1+ eq-pos))) (list x)))) capabilities) (server-capabilities connection)) :initial-value '())) Modified: trunk/parse-message.lisp ============================================================================== --- trunk/parse-message.lisp (original) +++ trunk/parse-message.lisp Fri May 5 17:46:25 2006 @@ -58,7 +58,7 @@ "Assuming `string' is a valid IRC message this function returns the trailing-argument part of the message. Returns nil if the trailing-argument part is not present." - (cut-between string #\: '(#\Return) :start start)) + (cut-between string #\: '(#\Return) :start start :cut-to-end t)) (defun combine-arguments-and-trailing (string &key (start 0)) (multiple-value-bind Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Fri May 5 17:46:25 2006 @@ -687,7 +687,7 @@ (second (assoc "PREFIX" (server-capabilities connection) :test #'string=)))) - (subseq nickname 1) + (substring nickname 1) nickname)) (defun normalize-nickname (connection string) Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Fri May 5 17:46:25 2006 @@ -115,10 +115,11 @@ :displaced-index-offset start))) -(defun cut-between (string start-char end-chars &key (start 0) (cut-extra t)) +(defun cut-between (string start-char end-chars + &key (start 0) (cut-extra t) (cut-to-end nil)) "If `start-char' is not nil, cut string between `start-char' and any of the `end-chars', from `start'. If `start-char' is nil, cut from -`start' until any of the `end-chars'. +`start' until any of the `end-chars' (or sting-end when `cut-to-end' is true). If `cut-extra' is t, we will cut from start + 1 instead of just `start'. @@ -126,9 +127,10 @@ When there is no string matching the input parameters `start' and nil will be returned, otherwise `end-position' and the string are returned." - (let ((end-position (position-if #'(lambda (char) - (member char end-chars)) - string :start (1+ start))) + (let ((end-position (or (position-if #'(lambda (char) + (member char end-chars)) + string :start (1+ start)) + (when cut-to-end (length string)))) (cut-from (if cut-extra (1+ start) start))) @@ -142,8 +144,11 @@ (substring string cut-from end-position)) (values start nil))))) -(defun cut-before (string substring end-chars &key (start 0) (cut-extra t)) - "Cut `string' before `substring' or any of the `end-chars', from `start'. +(defun cut-before (string substring end-chars + &key (start 0) (cut-extra t) (cut-to-end nil)) + "Cut `string' before `substring' or any of the `end-chars', from `start', +if none of substring or end-chars are found, until the end of the string +when `cut-to-end' is true. If `cut-extra' is t, we will cut from start + 1 instead of just `start'. @@ -157,9 +162,10 @@ (substring string (if (and cut-extra (< start end-position)) (1+ start) start) end-position)) - (let ((end-position (position-if #'(lambda (x) - (member x end-chars)) - string :start (1+ start))) + (let ((end-position (or (position-if #'(lambda (x) + (member x end-chars)) + string :start (1+ start)) + (when cut-to-end (length string)))) (cut-from (if cut-extra (1+ start) start))) (if end-position (values end-position @@ -240,8 +246,8 @@ (let ((closing-paren-pos (position #\) prefix))) (when (and (eq (elt prefix 0) #\( ) closing-paren-pos) - (let ((prefixes (subseq prefix (1+ closing-paren-pos))) - (modes (subseq prefix 1 closing-paren-pos))) + (let ((prefixes (substring prefix (1+ closing-paren-pos))) + (modes (substring prefix 1 closing-paren-pos))) (when (= (length prefixes) (length modes)) (values prefixes modes)))))) @@ -355,7 +361,7 @@ (do ((changes (pop arguments) (pop arguments))) ((null changes) (values ops nil)) (let* ((this-op (char changes 0)) - (modes (subseq changes 1)) + (modes (substring changes 1)) (param-req (if (char= this-op #\+) #'mode-desc-param-on-set-p #'mode-desc-param-on-unset-p)))

1 0

[cl-irc-cvs] r148 - trunk
by ehuelsmann＠common-lisp.net 03 May '06

03 May '06

Author: ehuelsmann Date: Wed May 3 17:12:42 2006 New Revision: 148 Modified: trunk/parse-message.lisp trunk/utility.lisp Log: Make message parsing more memory efficient by using displaced arrays. Partially resolve issue #7. Modified: trunk/parse-message.lisp ============================================================================== --- trunk/parse-message.lisp (original) +++ trunk/parse-message.lisp Wed May 3 17:12:42 2006 @@ -112,8 +112,8 @@ (defun ctcp-type-p (string type) "Is the `string' actually a representation of the CTCP `type'?" - (if (string-equal (subseq string 1 (min (length string) - (1+ (length (symbol-name type))))) + (if (string-equal (substring string 1 (min (length string) + (1+ (length (symbol-name type))))) type) type nil)) Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Wed May 3 17:12:42 2006 @@ -106,6 +106,14 @@ "Create a socket connected to `server':`port' and return stream for it." (trivial-sockets:open-stream server port)) +(defun substring (string start &optional end) + (let* ((end-index (if end end (length string))) + (seq-len (- end-index start))) + (make-array seq-len + :element-type (array-element-type string) + :displaced-to string + :displaced-index-offset start))) + (defun cut-between (string start-char end-chars &key (start 0) (cut-extra t)) "If `start-char' is not nil, cut string between `start-char' and any @@ -127,11 +135,11 @@ (if (and end-position start-char) (if (eql (char string start) start-char) (values end-position - (subseq string cut-from end-position)) + (substring string cut-from end-position)) (values start nil)) (if end-position (values end-position - (subseq string cut-from end-position)) + (substring string cut-from end-position)) (values start nil))))) (defun cut-before (string substring end-chars &key (start 0) (cut-extra t)) @@ -146,7 +154,7 @@ (let ((end-position (search substring string :start2 start))) (if end-position (values (+ end-position (1- (length substring))) - (subseq string (if (and cut-extra + (substring string (if (and cut-extra (< start end-position)) (1+ start) start) end-position)) (let ((end-position (position-if #'(lambda (x) @@ -155,7 +163,7 @@ (cut-from (if cut-extra (1+ start) start))) (if end-position (values end-position - (subseq string cut-from end-position)) + (substring string cut-from end-position)) (values start nil))))))

1 0

[cl-irc-cvs] r147 - public_html
by ehuelsmann＠common-lisp.net 26 Apr '06

26 Apr '06

Author: ehuelsmann Date: Wed Apr 26 11:29:34 2006 New Revision: 147 Modified: public_html/index.html Log: Mention Subversion instead of CVS; the links were alright, just not the text. Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Wed Apr 26 11:29:34 2006 @@ -59,10 +59,10 @@ cl-irc_latest.tar.gz</a> </tt>.</p> - <p>There is also <a href="http://common-lisp.net/faq.shtml#checkout">anonymous CVS + <p>There is also <a href="http://common-lisp.net/faq.shtml#checkout">anonymous Subversion </a> and <a href="http://common-lisp.net/websvn/listing.php?repname=cl-irc&path=%2F&s…"> - ViewCVS + WebSVN </a>. </p> </div>

1 0

[cl-irc-cvs] r146 - public_html
by ehuelsmann＠common-lisp.net 09 Apr '06

09 Apr '06

Author: ehuelsmann Date: Sat Apr 8 18:13:34 2006 New Revision: 146 Modified: public_html/index.html Log: Update for xhtml conformance and the move to Subversion. Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Sat Apr 8 18:13:34 2006 @@ -1,5 +1,5 @@ <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head> - <link rel="stylesheet" href="style.css" type="text/css"> + <link rel="stylesheet" href="style.css" type="text/css" /> <title>cl-irc</title></head> @@ -19,18 +19,20 @@ other implementations with little or no extra code.</p> <p>The code is released under an <a - href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cl-irc/LICENSE?rev=HEAD&cvsroot=…">MIT-style - license</a>. I need to mention that Jochen Schmidt laid the + href="http://common-lisp.net/websvn/filedetails.php?repname=cl-irc&path=%2Ftr…" + >MIT-style license</a>. I need to mention that Jochen Schmidt laid the groundwork for this library with his <a href="http://www.sf.net/projects/weird-irc">Weird-IRC</a> IRC client and that therefore some of the code is copyright him.</p> <h2>News</h2> <div class="level"> + <ul> <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> + </ul> </div> <h2>Features</h2> @@ -58,7 +60,8 @@ </tt>.</p> <p>There is also <a href="http://common-lisp.net/faq.shtml#checkout">anonymous CVS - </a> and <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-irc"> + </a> and + <a href="http://common-lisp.net/websvn/listing.php?repname=cl-irc&path=%2F&s…"> ViewCVS </a>. </p>

1 0

[cl-irc-cvs] r145 - public_html
by ehuelsmann＠common-lisp.net 08 Apr '06

08 Apr '06

Author: ehuelsmann Date: Sat Apr 8 17:43:29 2006 New Revision: 145 Added: public_html/ public_html/index.html public_html/style.css public_html/valid-xhtml11.png (contents, props changed) public_html/vcss.png (contents, props changed) Log: Import website. Added: public_html/index.html ============================================================================== --- (empty file) +++ public_html/index.html Sat Apr 8 17:43:29 2006 @@ -0,0 +1,115 @@ +<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"><html xmlns="http://www.w3.org/1999/xhtml"><head> + <link rel="stylesheet" href="style.css" type="text/css"> + <title>cl-irc</title></head> + + + <body> + <div class="header"> + <h1>cl-irc 0.7.0</h1> + </div> + <div class="body"> + + <p>cl-irc is a Common Lisp IRC client library that + 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 + other implementations with little or no extra code.</p> + + <p>The code is released under an <a + href="http://common-lisp.net/cgi-bin/viewcvs.cgi/cl-irc/LICENSE?rev=HEAD&cvsroot=…">MIT-style + license</a>. I need to mention that Jochen Schmidt laid the + groundwork for this library with his <a + href="http://www.sf.net/projects/weird-irc">Weird-IRC</a> IRC + client and that therefore some of the code is copyright him.</p> + + <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> + + <h2>Features</h2> + <div class="level"> + <ul> + <li>implements all commands in the RFCs</li> + <li>extra convenience commands such as op/deop, ban, ignore, etc.</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> + </ul> + </div> + + <h2>Installation</h2> + <div class="level"> + <p>If you have <a href="http://www.cliki.net/asdf-install"> + asdf-install</a>, just: + </p> + <pre>$ asdf-install cl-irc</pre> + + <p>cl-irc can manually be downloaded from here: + <tt><a href="ftp://common-lisp.net/pub/project/cl-irc/cl-irc_latest.tar.gz"> + cl-irc_latest.tar.gz</a> + </tt>.</p> + + <p>There is also <a href="http://common-lisp.net/faq.shtml#checkout">anonymous CVS + </a> and <a href="http://common-lisp.net/cgi-bin/viewcvs.cgi/?cvsroot=cl-irc"> + ViewCVS + </a>. + </p> + </div> + + <h2>Contact</h2> + <div class="level"> + <p>Questions, feature requests, and bug-reports are welcome on + <tt><a href="mailto:cl-irc-devel@common-lisp.net"> + cl-irc-devel(a)common-lisp.net</a></tt>.</p> + </div> + + <h2>Sample usage</h2> + <div class="level"> + <pre> + * (require :cl-irc) + + * (in-package :irc) + + * (defvar connection (connect :nickname "mynick" + :server "irc.somewhere.org")) + + * (read-message-loop connection) + +;; That's it. Interrupt the read-message-loop and do: + + * (join connection "#lisp") + +;; etc. (look at command.lisp) to operate the library. After issuing +;; a command, you need to get back on the feed: + + * (read-message-loop connection) + +;; If you need to do something on every join, do: + + * (defun my-hook (message) + <do-something>) + + * (add-hook connection 'irc-join-message #'my-hook) + +;; and it will be run next time the library receives an +;; irc-join-message. For a full list of messages you can hook into, +;; look at event.lisp. + +;; Your connection object will get updated by the library with regards +;; to users joining/parting channels, you joining/parting channels, +;; etc. Look at protocol.lisp's connection object for slots and +;; methods. + </pre> + </div> + + + </div> + </body></html> Added: public_html/style.css ============================================================================== --- (empty file) +++ public_html/style.css Sat Apr 8 17:43:29 2006 @@ -0,0 +1,59 @@ +body { + font-family: sans-serif; + background-color: white; + color: black; + margin: 0; + padding: 0; +} + +.header * { + color: black; + background-color: #cc4422; + margin: 0; + padding: 0.5em; +} + +h1 { + text-align: right; +} + +.info { + text-align: left; + font-weight: bold; + line-height: 1em; +} + +.body { + margin: 2em 1em; +} + +.level { + margin: 1em; +} + +p { + margin: 1em 0em; + padding: 0em; +} + +a { + color: maroon; +} + +ul { + margin: 1em; + padding: 0em; +} + +pre { + margin: 0em; + padding: 1em; + border: 1px solid; + background-color: #eeeeee; + vertical-align: baseline; +} + +img { + border: 0; +} + Added: public_html/valid-xhtml11.png ============================================================================== Binary file. No diff available. Added: public_html/vcss.png ============================================================================== Binary file. No diff available.

1 0

[cl-irc-cvs] CVS cl-irc
by ehuelsmann 09 Mar '06

09 Mar '06

Update of /project/cl-irc/cvsroot/cl-irc In directory clnet:/tmp/cvs-serv9136 Modified Files: event.lisp Log Message: The topic text is optional. --- /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/22 18:59:13 1.24 +++ /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/03/09 21:32:20 1.25 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.24 2006/02/22 18:59:13 ehuelsmann Exp $ +;;;; $Id: event.lisp,v 1.25 2006/03/09 21:32:20 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $ ;;;; See LICENSE for licensing information. @@ -121,7 +121,7 @@ (defmethod default-hook ((message irc-rpl_topic-message)) (destructuring-bind - (target channel topic) + (target channel &optional topic) (arguments message) (declare (ignore target)) (setf (topic (find-channel (connection message) channel)) topic)))

1 0

[cl-irc-cvs] CVS cl-irc
by ehuelsmann 22 Feb '06

22 Feb '06

Update of /project/cl-irc/cvsroot/cl-irc In directory common-lisp:/tmp/cvs-serv598 Modified Files: protocol.lisp event.lisp Log Message: Prevent ctcp request loops: NOTICE messages are responses. By Andreas Fuchs. --- /project/cl-irc/cvsroot/cl-irc/protocol.lisp 2006/02/22 18:55:18 1.38 +++ /project/cl-irc/cvsroot/cl-irc/protocol.lisp 2006/02/22 18:59:13 1.39 @@ -1,4 +1,4 @@ -;;;; $Id: protocol.lisp,v 1.38 2006/02/22 18:55:18 ehuelsmann Exp $ +;;;; $Id: protocol.lisp,v 1.39 2006/02/22 18:59:13 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/protocol.lisp,v $ ;;;; See LICENSE for licensing information. @@ -932,6 +932,12 @@ (declare (ignore type)) (find-class 'standard-ctcp-message)) +(defmethod ctcp-request-p ((message ctcp-mixin)) + (string= (command message) :privmsg)) + +(defmethod ctcp-reply-p ((message ctcp-mixin)) + (string= (command message) :notice)) + (defmethod client-log ((connection connection) (message ctcp-mixin) &optional (prefix "")) (let ((stream (client-stream connection))) (format stream "~A~A: ~A (~A): ~A~{ ~A~} \"~A\"~%" --- /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/22 18:54:18 1.23 +++ /project/cl-irc/cvsroot/cl-irc/event.lisp 2006/02/22 18:59:13 1.24 @@ -1,4 +1,4 @@ -;;;; $Id: event.lisp,v 1.23 2006/02/22 18:54:18 ehuelsmann Exp $ +;;;; $Id: event.lisp,v 1.24 2006/02/22 18:59:13 ehuelsmann Exp $ ;;;; $Source: /project/cl-irc/cvsroot/cl-irc/event.lisp,v $ ;;;; See LICENSE for licensing information. @@ -289,52 +289,52 @@ (remove-channel user channel) (remove-user channel user))))))) -(defmethod default-hook ((message ctcp-time-message)) - (multiple-value-bind - (second minute hour date month year day) - (get-decoded-time) - (send-irc-message - (connection message) - :notice (source message) - (make-ctcp-message - (format nil "TIME ~A" - (make-time-message second minute hour date month year day)))))) - -(defmethod default-hook ((message ctcp-source-message)) - (send-irc-message - (connection message) - :notice - (source message) - (make-ctcp-message - (format nil "SOURCE ~A:~A:~A" - *download-host* - *download-directory* - *download-file*)))) - -(defmethod default-hook ((message ctcp-finger-message)) - (let* ((user (user (connection message))) - (finger-info (if (not (zerop (length (realname user)))) - (realname user) - (nickname user)))) - (send-irc-message - (connection message) - :notice (source message) - (make-ctcp-message - (format nil "FINGER ~A" finger-info))))) - -(defmethod default-hook ((message ctcp-version-message)) - (send-irc-message - (connection message) - :notice (source message) - (make-ctcp-message - (format nil "VERSION ~A" *ctcp-version*)))) - -(defmethod default-hook ((message ctcp-ping-message)) - (send-irc-message - (connection message) - :notice (source message) - (make-ctcp-message - (format nil "PING ~A" (car (last (arguments message))))))) +(macrolet ((define-ctcp-reply-hook ((message-var message-type) &body body) + `(defmethod default-hook ((,message-var ,message-type)) + (when (ctcp-request-p ,message-var) + ,@body)))) + (define-ctcp-reply-hook (message ctcp-time-message) + (multiple-value-bind + (second minute hour date month year day) + (get-decoded-time) + (send-irc-message + (connection message) + :notice (source message) + (make-ctcp-message + (format nil "TIME ~A" + (make-time-message second minute hour date month year day)))))) + (define-ctcp-reply-hook (message ctcp-source-message) + (send-irc-message + (connection message) + :notice + (source message) + (make-ctcp-message + (format nil "SOURCE ~A:~A:~A" + *download-host* + *download-directory* + *download-file*)))) + (define-ctcp-reply-hook (message ctcp-finger-message) + (let* ((user (user (connection message))) + (finger-info (if (not (zerop (length (realname user)))) + (realname user) + (nickname user)))) + (send-irc-message + (connection message) + :notice (source message) + (make-ctcp-message + (format nil "FINGER ~A" finger-info))))) + (define-ctcp-reply-hook (message ctcp-version-message) + (send-irc-message + (connection message) + :notice (source message) + (make-ctcp-message + (format nil "VERSION ~A" *ctcp-version*)))) + (define-ctcp-reply-hook (message ctcp-ping-message) + (send-irc-message + (connection message) + :notice (source message) + (make-ctcp-message + (format nil "PING ~A" (car (last (arguments message)))))))) (defmethod irc-message-event (connection (message ctcp-dcc-chat-request-message)) (declare (ignore connection))

1 0

← Newer
1
...
7
8
9
10
11
12
13
...
22
Older →

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

cl-irc-cvs