Changeset 25 for trunk

Timestamp:

03/18/04 21:57:25 (21 years ago)

Author:

Erik Huelsmann

Message:

Eliminate load warnings generated by (asdf:operate 'asdf:load-op :cl-irc)
(mostly) by adding defgenerics.

• command.lisp: Add defgenerics.

• event.lisp: Add defgenerics.

• protocol.lisp: Add defgenerics. Remove duplicates from *reply-names* before feeding to create-irc-message-classes.

Location:

trunk

Files:

• command.lisp (modified) (1 diff)
• event.lisp (modified) (1 diff)
• protocol.lisp (modified) (7 diffs)

trunk/command.lisp ¶

@@ -5 +5 @@
 
 (in-package :irc)
+
+(defgeneric pass (connection password))
+(defgeneric nick (connection new-nickname))
+(defgeneric user- (connection username mode &optional realname))
+(defgeneric oper (connection name password))
+(defgeneric mode (connection nickname mode))
+(defgeneric op (connection channel nickname))
+(defgeneric deop (connection channel nickname))
+(defgeneric voice (connection channel user))
+(defgeneric devoice (connection channel nickname))
+(defgeneric ban (connection channel mask))
+(defgeneric unban (connection channel mask))
+(defgeneric service (connection nickname distribution info))
+(defgeneric quit (connection &optional message))
+(defgeneric squit (connection server comment))
+(defgeneric join (connection channel))
+(defgeneric multi-join (connection channels))
+(defgeneric part (connection channel))
+(defgeneric part-all (connection))
+(defgeneric topic- (connection channel topic))
+(defgeneric names (connection channel &optional target))
+(defgeneric list- (connection &optional channel target))
+(defgeneric invite (connection user channel))
+(defgeneric kick (connection channel user &optional comment))
+(defgeneric privmsg (connection channel message))
+(defgeneric notice (connection target message))
+(defgeneric motd- (connection &optional target))
+(defgeneric lusers (connection &optional mask target))
+(defgeneric version (connection &optional target))
+(defgeneric stats (connection &optional query target))
+(defgeneric links (connection &optional remote-server server-mask))
+(defgeneric time- (connection &optional target))
+(defgeneric trace- (connection &optional target))
+(defgeneric admin (connection &optional target))
+(defgeneric info (connection &optional target))
+(defgeneric servlist (connection &optional mask type))
+(defgeneric squery (connection service-name text))
+(defgeneric who (connection &optional mask o))
+(defgeneric whois (connection mask &optional target))
+(defgeneric whowas (connection nickname &optional count target))
+(defgeneric kill (connection user &optional comment))
+(defgeneric ping (connection server))
+(defgeneric pong (connection server &optional server2))
+(defgeneric error- (connection message))
+(defgeneric away (connection message))
+(defgeneric rehash (connection))
+(defgeneric die (connection))
+(defgeneric restart- (connection))
+(defgeneric summon (connection nickname &optional target channel))
+(defgeneric users- (connection &optional target))
+(defgeneric wallops (connection message))
+(defgeneric userhost (connection nickname))
+(defgeneric ison (connection user))
+(defgeneric ctcp (connection target message))
+(defgeneric ctcp-chat-initiate (connection nickname))
+
 
 (defmethod pass ((connection connection) (password string))

trunk/event.lisp ¶

@@ -14 +14 @@
   (apply-to-hooks message)
   (client-log (connection message) message "UNHANDLED-EVENT:"))
+
+
+(defgeneric default-hook (message)
+  (:documentation "Minimum action to be executed upon reception
+of the IRC message to keep the connection, channel and user
+objects in sync."))
 
 (defmethod default-hook ((message irc-rpl_whoisuser-message))

trunk/protocol.lisp ¶

@@ -62 +62 @@
     (princ (server-name object) stream)))
 
+(defgeneric add-default-hooks (connection))
+(defgeneric client-raw-log (connection message))
+(defgeneric connectedp (connection))
+(defgeneric read-message (connection))
+(defgeneric start-process (function name))
+(defgeneric start-background-message-handler (connection))
+(defgeneric read-message-loop (connection))
+(defgeneric read-irc-message (connection))
+(defgeneric send-irc-message (connection command
+                             &optional trailing-argument &rest arguments))
+(defgeneric get-hooks (connection class))
+(defgeneric add-hook (connection class hook))
+(defgeneric remove-hook (connection class hook))
+(defgeneric remove-hooks (connection class))
+(defgeneric remove-all-hooks (connection))
+
 (defun make-connection (&key (user nil)
                              (server-name "")
@@ -239 +255 @@
   #-sbcl
   (warn "make-dcc-connection not supported for this implementation."))
+
+(defgeneric dcc-close (connection))
+(defgeneric send-dcc-message (connection message))
 
 (defmethod read-message ((connection dcc-connection))
@@ -324 +343 @@
     channel))
 
+(defgeneric find-channel (connection channel))
+(defgeneric remove-all-channels (connection))
+(defgeneric add-channel (connection channel))
+(defgeneric remove-channel (connection channel))
+(defgeneric remove-users (channel))
+
 (defmethod find-channel ((connection connection) (channel string))
   "Return channel as designated by `channel'.  If no such channel can
@@ -409 +434 @@
          (new-string (substitute #\~ #\^ new-string)))
     (string-downcase new-string)))
+
+(defgeneric find-user (connection nickname))
+(defgeneric add-user (object user))
+(defgeneric remove-all-users (connection))
+(defgeneric remove-user (object user))
+(defgeneric remove-user-everywhere (connection user))
+(defgeneric find-or-make-user (connection nickname 
+                                          &key username hostname realname))
+(defgeneric change-nickname (connection user new-nickname))
 
 (defmethod find-user ((connection connection) (nickname string))
@@ -522 +556 @@
     (format stream "~A ~A" (source object) (command object))))
 
+(defgeneric self-message-p (message))
+(defgeneric find-irc-message-class (type))
+(defgeneric client-log (connection message &optional prefix))
+(defgeneric apply-to-hooks (message))
+
 (defmethod self-message-p ((message irc-message))
   "Did we send this message?"
@@ -552 +591 @@
 
 ;; should perhaps wrap this in an eval-when?
-(create-irc-message-classes (mapcar #'second *reply-names*))
+(create-irc-message-classes (remove-duplicates
+                             (mapcar #'second *reply-names*)))
 (create-irc-message-classes '(:privmsg :notice :kick :topic :error
                               :mode :ping :nick :join :part :quit :kill
@@ -586 +626 @@
 
 (defclass standard-ctcp-message (ctcp-mixin message) ())
+
+(defgeneric find-ctcp-message-class (type))
 
 (defmacro define-ctcp-message (ctcp-command)