cl-irc-cvs

cl-irc-cvs@common-lisp.net

220 discussions

[cl-irc-cvs] r171 - branches/eenge
by ehuelsmann＠common-lisp.net 06 Jan '07

06 Jan '07

Author: ehuelsmann Date: Sat Jan 6 08:38:56 2007 New Revision: 171 Removed: branches/eenge/ Log: Remove eenge branch manufactured by cvs2svn (Initial import branch).

1 0

[cl-irc-cvs] r170 - trunk
by ehuelsmann＠common-lisp.net 06 Jan '07

06 Jan '07

Author: ehuelsmann Date: Sat Jan 6 08:31:05 2007 New Revision: 170 Modified: trunk/protocol.lisp Log: Refactor START-BACKGROUND-MESSAGE-HANDLER. Deprecate threading functions, because - It makes cl-irc less implementation dependent. - Users might want to use portability layers such as CLIM-SYS or BORDEAUX-THREADS - Our implementation doesn't implement error handling - Our implementation will never correctly handle errors from user-code (ie errors raised in event-handlers) Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Sat Jan 6 08:31:05 2007 @@ -185,7 +185,6 @@ (defgeneric client-raw-log (connection message)) (defgeneric connectedp (connection)) (defgeneric read-message (connection)) -(defgeneric start-process (function name)) (defgeneric read-irc-message (connection)) (defgeneric send-irc-message (connection command &rest arguments)) (defgeneric get-hooks (connection class)) @@ -276,7 +275,9 @@ (defvar *process-count* 0) -(defmethod start-process (function name) +(defun start-process (function name) + "Internal helper for the DEPRECATED function +START-BACKGROUND-MESSAGE-HANDLER and therefore DEPRECATED itself." (declare (ignorable name)) #+allegro (mp:process-run-function name function) #+cmu (mp:make-process function :name name) @@ -287,30 +288,41 @@ (defun start-background-message-handler (connection) "Read messages from the `connection', parse them and dispatch -irc-message-event on them. Returns background process ID if available." - (flet (#-(and sbcl (not sb-thread)) - (do-loop () (read-message-loop connection))) +irc-message-event on them. Returns background process ID if available. + +This function has been DEPRECATED. The function body is meant as an +example for library users on handling connection input. Users +are strongly encouraged to implement error handling (which is lacking +from the prototype given here." + (warn "START-BACKGROUND-MESSAGE-HANDLER has been deprecated and +is up for removal in a next release.") + + #+(and sbcl (not sb-thread)) + (flet ((select-handler (fd) + (declare (ignore fd)) + (if (listen (network-stream connection)) + (read-message connection) + ;; select() returns with no + ;; available data if the stream + ;; has been closed on the other + ;; end (EPIPE) + (sb-sys:invalidate-descriptor + (sb-sys:fd-stream-fd + (network-stream connection)))))) + (sb-sys:add-fd-handler (sb-sys:fd-stream-fd + (network-stream connection)) + :input #'select-handler)) + + #-(and sbcl (not sb-thread)) + (flet ((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)) - (sb-sys:add-fd-handler (sb-sys:fd-stream-fd - (network-stream connection)) - :input (lambda (fd) - (declare (ignore fd)) - (if (listen (network-stream connection)) - (read-message connection) - ;; select() returns with no - ;; available data if the stream - ;; has been closed on the other - ;; end (EPIPE) - (sb-sys:invalidate-descriptor - (sb-sys:fd-stream-fd - (network-stream connection))))))))) + (start-process #'do-loop name)))) (defun stop-background-message-handler (process) - "Stops a background message handler process returned by the start function." + "Stops a background message handler process returned by the start function. + +Just as its cousin START-BACKGROUND-MESSAGE-HANDLER, +this function is DEPRECATED." (declare (ignorable process)) #+cmu (mp:destroy-process process) #+allegro (mp:process-kill process)

1 0

[cl-irc-cvs] r169 - trunk
by ehuelsmann＠common-lisp.net 06 Jan '07

06 Jan '07

Author: ehuelsmann Date: Sat Jan 6 06:08:56 2007 New Revision: 169 Modified: trunk/command.lisp Log: Allow reason specification when parting channels/a channel. Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp (original) +++ trunk/command.lisp Sat Jan 6 06:08:56 2007 @@ -21,8 +21,8 @@ (defgeneric squit (connection server comment)) (defgeneric join (connection channel &key password)) (defgeneric multi-join (connection channels)) -(defgeneric part (connection channel)) -(defgeneric part-all (connection)) +(defgeneric part (connection channel &optional reason)) +(defgeneric part-all (connection &optional reason)) (defgeneric topic- (connection channel topic)) (defgeneric names (connection channel &optional target)) (defgeneric list- (connection &optional channel target)) @@ -159,16 +159,17 @@ (dolist (channel channels) (join connection channel))) -(defmethod part ((connection connection) (channel string)) - (send-irc-message connection :part channel)) +(defmethod part ((connection connection) (channel string) &optional reason) + (apply #'send-irc-message + connection :part channel (when reason (list reason)))) -(defmethod part ((connection connection) (channel channel)) - (part connection (name channel))) +(defmethod part ((connection connection) (channel channel) &optional reason) + (part connection (name channel) reason)) ;; utility function not part of the RFC -(defmethod part-all ((connection connection)) +(defmethod part-all ((connection connection) &optional reason) (dolist (channel (channels connection)) - (part connection (name channel)))) + (part connection (name channel) reason))) (defmethod topic- ((connection connection) (channel string) (topic string)) (send-irc-message connection :topic channel topic))

1 0

[cl-irc-cvs] r168 - trunk
by ehuelsmann＠common-lisp.net 05 Jan '07

05 Jan '07

Author: ehuelsmann Date: Fri Jan 5 06:25:40 2007 New Revision: 168 Modified: trunk/event.lisp trunk/protocol.lisp Log: Fix several compile-warnings in SBCL. Modified: trunk/event.lisp ============================================================================== --- trunk/event.lisp (original) +++ trunk/event.lisp Fri Jan 5 06:25:40 2007 @@ -155,7 +155,7 @@ (destructuring-bind (nick chan-visibility channel names) (arguments message) - (declare (ignore nick chan-visibility)) + (declare (ignore nick)) (let ((channel (find-channel connection channel))) (setf (visibility channel) (or (car (assoc chan-visibility Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Fri Jan 5 06:25:40 2007 @@ -972,6 +972,8 @@ (defclass standard-ctcp-message (ctcp-mixin irc-message) ()) (defgeneric find-ctcp-message-class (type)) +(defgeneric ctcp-request-p (message)) +(defgeneric ctcp-reply-p (message)) (eval-when (:compile-toplevel :load-toplevel :execute) (defun define-ctcp-message (ctcp-command)

1 0

[cl-irc-cvs] r167 - trunk
by ehuelsmann＠common-lisp.net 05 Jan '07

05 Jan '07

Author: ehuelsmann Date: Fri Jan 5 04:03:51 2007 New Revision: 167 Modified: trunk/protocol.lisp Log: Remove forgotten socket-connect call. Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Fri Jan 5 04:03:51 2007 @@ -456,7 +456,8 @@ (output-stream t)) (make-instance 'dcc-connection :user user - :network-stream (socket-connect remote-address remote-port) + :network-stream (usocket:socket-connect remote-address + remote-port) :output-stream output-stream)) (defgeneric dcc-close (connection))

1 0

[cl-irc-cvs] r166 - trunk
by ehuelsmann＠common-lisp.net 05 Jan '07

05 Jan '07

Author: ehuelsmann Date: Thu Jan 4 18:20:49 2007 New Revision: 166 Modified: trunk/CREDITS Log: Credit Andreas Fuchs for the many patches he sent in. Modified: trunk/CREDITS ============================================================================== --- trunk/CREDITS (original) +++ trunk/CREDITS Thu Jan 4 18:20:49 2007 @@ -3,3 +3,4 @@ Jochen Schmidt Kevin Rosenberg Erik Huelsmann +Andreas Fuchs

1 0

[cl-irc-cvs] r165 - trunk
by ehuelsmann＠common-lisp.net 04 Jan '07

04 Jan '07

Author: ehuelsmann Date: Thu Jan 4 17:48:22 2007 New Revision: 165 Modified: trunk/cl-irc.asd trunk/command.lisp trunk/protocol.lisp trunk/utility.lisp Log: Change trivial-sockets dependency to usocket as discussed many moons ago. This commit adds support for all usocket supported lisps, except that they're not all supported by (cl-irc::start-process ...). Modified: trunk/cl-irc.asd ============================================================================== --- trunk/cl-irc.asd (original) +++ trunk/cl-irc.asd Thu Jan 4 17:48:22 2007 @@ -16,7 +16,7 @@ :version "0.5.2" :licence "MIT" :description "Common Lisp interface to the IRC protocol" - :depends-on (:split-sequence :trivial-sockets :flexi-streams) + :depends-on (:split-sequence :usocket :flexi-streams) :properties ((#:author-email . "cl-irc-devel(a)common-lisp.net") (#:date . "$Date$") ((#:albert #:output-dir) . "doc/api-doc/") Modified: trunk/command.lisp ============================================================================== --- trunk/command.lisp (original) +++ trunk/command.lisp Thu Jan 4 17:48:22 2007 @@ -249,8 +249,11 @@ (connection-type 'connection) (logging-stream t)) "Connect to server and return a connection object." - (let* ((stream (socket-connect server port)) + (let* ((socket (usocket:socket-connect server port + :element-type 'flexi-streams:octet)) + (stream (usocket:socket-stream socket)) (connection (make-connection :connection-type connection-type + :socket socket :network-stream stream :client-stream logging-stream :server-name server)) Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Thu Jan 4 17:48:22 2007 @@ -122,6 +122,9 @@ :initarg :server-port :accessor server-port :initform *default-irc-server-port*) + (socket + :initarg :socket + :documentation "Slot to store socket (for internal use only).") (network-stream :initarg :network-stream :accessor network-stream @@ -199,6 +202,7 @@ (password nil) (server-name "") (server-port nil) + (socket nil) (network-stream nil) (outgoing-external-format *default-outgoing-external-format*) (client-stream t) @@ -212,6 +216,7 @@ :password password :server-name server-name :server-port server-port + :socket socket :network-stream network-stream :output-stream output-stream :client-stream client-stream))) Modified: trunk/utility.lisp ============================================================================== --- trunk/utility.lisp (original) +++ trunk/utility.lisp Thu Jan 4 17:48:22 2007 @@ -101,10 +101,6 @@ (fourth (ldb (byte 8 0) integer))) (vector first second third fourth))) -(defun socket-connect (server port) - "Create a socket connected to `server':`port' and return stream for it." - (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)

1 0

[cl-irc-cvs] r164 - public_html
by ehuelsmann＠common-lisp.net 29 Oct '06

29 Oct '06

Author: ehuelsmann Date: Sun Oct 29 16:16:50 2006 New Revision: 164 Modified: public_html/index.html Log: Update link to latest binaries. Modified: public_html/index.html ============================================================================== --- public_html/index.html (original) +++ public_html/index.html Sun Oct 29 16:16:50 2006 @@ -55,7 +55,7 @@ <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"> + <tt><a href="http://common-lisp.net/project/cl-irc/cl-irc_latest.tar.gz"> cl-irc_latest.tar.gz</a> </tt>.</p>

1 0

[cl-irc-cvs] CVS public_html
by eenge 29 Aug '06

29 Aug '06

Update of /project/cl-irc/cvsroot/public_html In directory clnet:/home/eenge/public_html/cl-irc Modified Files: index.html Log Message: adding project members listing to index.html --- /project/cl-irc/cvsroot/public_html/index.html 2005/03/24 23:26:42 1.3 +++ /project/cl-irc/cvsroot/public_html/index.html 2006/08/29 14:01:44 1.4 @@ -71,6 +71,9 @@ cl-irc-devel(a)common-lisp.net</a></tt>.</p> </div> + <h2>Project members</h2> + <pre></pre> + <h2>Sample usage</h2> <div class="level"> <pre>

1 0

[cl-irc-cvs] r163 - trunk
by ehuelsmann＠common-lisp.net 19 Jun '06

19 Jun '06

Author: ehuelsmann Date: Mon Jun 19 15:05:53 2006 New Revision: 163 Modified: trunk/protocol.lisp Log: Fix type quoting bug reported by rpgoldman at real-time dot com. Modified: trunk/protocol.lisp ============================================================================== --- trunk/protocol.lisp (original) +++ trunk/protocol.lisp Mon Jun 19 15:05:53 2006 @@ -509,7 +509,7 @@ :initarg :visibility :accessor visibility :initform nil - :type '(member nil :public :private :secret :unknown)) + :type (member nil :public :private :secret :unknown)) (users :initarg :users :accessor users

1 0

← Newer
1
...
5
6
7
8
9
10
11
...
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