[net-nittin-irc-cvs] CVS update: net-nittin-irc/command.lisp net-nittin-irc/package.lisp net-nittin-irc/protocol.lisp
Brian Mastenbrook
bmastenbrook at common-lisp.net
Fri Nov 14 20:35:03 UTC 2003
Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv12718
Modified Files:
command.lisp package.lisp protocol.lisp
Log Message:
Untabify files, per kire.
Date: Fri Nov 14 15:35:01 2003
Author: bmastenbrook
Index: net-nittin-irc/command.lisp
diff -u net-nittin-irc/command.lisp:1.5 net-nittin-irc/command.lisp:1.6
--- net-nittin-irc/command.lisp:1.5 Fri Nov 14 15:23:53 2003
+++ net-nittin-irc/command.lisp Fri Nov 14 15:35:01 2003
@@ -1,4 +1,4 @@
-;;;; $Id: command.lisp,v 1.5 2003/11/14 20:23:53 bmastenbrook Exp $
+;;;; $Id: command.lisp,v 1.6 2003/11/14 20:35:01 bmastenbrook Exp $
;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/command.lisp,v $
;;;; See LICENSE for licensing information.
@@ -175,10 +175,10 @@
#+sbcl
(defun socket-stream (socket)
(sb-bsd-sockets:socket-make-stream socket
- :element-type 'character
- :input t
- :output t
- :buffering :none))
+ :element-type 'character
+ :input t
+ :output t
+ :buffering :none))
(defun connect (&key (nickname *default-nickname*)
(username nil)
@@ -186,11 +186,11 @@
(mode 0)
(server *default-irc-server*)
(port *default-irc-server-port*)
- (logging-stream t))
+ (logging-stream t))
"Connect to server and return a connection object."
(let* ((socket #+sbcl (connect-to-server-socket server port)
- #-sbcl nil)
- (stream #+lispworks (comm:open-tcp-stream server port :errorp t)
+ #-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
@@ -201,8 +201,8 @@
:username username
:realname realname))
(connection (make-connection :server-socket socket
- :server-stream stream
- :client-stream logging-stream
+ :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.7 net-nittin-irc/package.lisp:1.8
--- net-nittin-irc/package.lisp:1.7 Fri Nov 14 15:23:53 2003
+++ net-nittin-irc/package.lisp Fri Nov 14 15:35:01 2003
@@ -1,4 +1,4 @@
-;;;; $Id: package.lisp,v 1.7 2003/11/14 20:23:53 bmastenbrook Exp $
+;;;; $Id: package.lisp,v 1.8 2003/11/14 20:35:01 bmastenbrook Exp $
;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/package.lisp,v $
;;;; See the LICENSE file for licensing information.
@@ -11,7 +11,7 @@
(:nicknames :irc)
(:export :read-message-loop
:read-message
- :add-asynchronous-message-handler
+ :add-asynchronous-message-handler
:send-message
:server-name
:server-stream
@@ -28,16 +28,16 @@
:get-hooks
:make-user
:change-nickname
- :irc-message
- :source
- :user
- :host
- :command
- :arguments
- :trailing-argument
- :connection
- :received-time
- :raw-message-string
+ :irc-message
+ :source
+ :user
+ :host
+ :command
+ :arguments
+ :trailing-argument
+ :connection
+ :received-time
+ :raw-message-string
:make-connection
:make-channel
:client-log
Index: net-nittin-irc/protocol.lisp
diff -u net-nittin-irc/protocol.lisp:1.11 net-nittin-irc/protocol.lisp:1.12
--- net-nittin-irc/protocol.lisp:1.11 Fri Nov 14 15:24:39 2003
+++ net-nittin-irc/protocol.lisp Fri Nov 14 15:35:01 2003
@@ -1,4 +1,4 @@
-;;;; $Id: protocol.lisp,v 1.11 2003/11/14 20:24:39 bmastenbrook Exp $
+;;;; $Id: protocol.lisp,v 1.12 2003/11/14 20:35:01 bmastenbrook Exp $
;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/protocol.lisp,v $
;;;; See LICENSE for licensing information.
@@ -76,7 +76,7 @@
(defun make-connection (&key (user nil)
(server-name "")
- (server-socket nil)
+ (server-socket nil)
(server-stream nil)
(client-stream t)
(channels nil)
@@ -89,7 +89,7 @@
(connection (make-instance 'connection
:user user
:server-name server-name
- :server-socket server-socket
+ :server-socket server-socket
:server-stream server-stream
:client-stream client-stream
:channels channels
@@ -113,10 +113,10 @@
(defmethod add-asynchronous-message-handler ((connection connection))
#+sbcl
(sb-sys:add-fd-handler (sb-bsd-sockets:socket-file-descriptor
- (server-socket connection))
- :input (lambda (fd)
- (declare (ignore fd))
- (read-messsage connection)))
+ (server-socket connection))
+ :input (lambda (fd)
+ (declare (ignore fd))
+ (read-message connection)))
#-sbcl
(error "add-asynchronous-message-handler is not supported now on non-SBCL"))
@@ -479,10 +479,10 @@
(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)
@@ -527,10 +527,10 @@
(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)
More information about the Net-nittin-irc-cvs
mailing list