[net-nittin-irc-cvs] CVS update: net-nittin-irc/event.lisp
Erik Enge
eenge at common-lisp.net
Sat Nov 22 18:55:54 UTC 2003
Update of /project/net-nittin-irc/cvsroot/net-nittin-irc
In directory common-lisp.net:/tmp/cvs-serv32206
Modified Files:
event.lisp
Log Message:
removing all those methods with basically no content
Date: Sat Nov 22 13:55:53 2003
Author: eenge
Index: net-nittin-irc/event.lisp
diff -u net-nittin-irc/event.lisp:1.7 net-nittin-irc/event.lisp:1.8
--- net-nittin-irc/event.lisp:1.7 Fri Nov 14 11:13:21 2003
+++ net-nittin-irc/event.lisp Sat Nov 22 13:55:53 2003
@@ -1,4 +1,4 @@
-;;;; $Id: event.lisp,v 1.7 2003/11/14 16:13:21 eenge Exp $
+;;;; $Id: event.lisp,v 1.8 2003/11/22 18:55:53 eenge Exp $
;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/event.lisp,v $
;;;; See LICENSE for licensing information.
@@ -20,813 +20,53 @@
(stream (client-stream connection)))
(client-log connection message)))
-(defmethod irc-message-event ((message irc-rpl_welcome-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_yourhost-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_created-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_myinfo-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_bounce-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_tracelink-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceconnecting-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_tracehandshake-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceunknown-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceoperator-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceuser-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceservice-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_tracenewtype-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceclass-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_tracereconnect-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statslinkinfo-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statscommands-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statscline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsnline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsiline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statskline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsqline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsyline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofstats-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_umodeis-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsdline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_option-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endoptions-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_serviceinfo-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofservices-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_service-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_servlist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_servlistend-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsvline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statslline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsonline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statshline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statssline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsping-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsbline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsuline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_statsdebug-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_luserclient-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_luserop-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_luserunknown-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_luserchannels-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_luserme-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_adminme-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_adminloc1-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_adminloc2-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_adminemail-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_tracelog-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_traceend-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_tryagain-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_localusers-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_globalusers-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_mode-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endmode-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_sitelist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_clientcapab-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_noservicehost-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_none-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_away-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_userhost-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_ison-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_unaway-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_noaway-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoisuser-message))
- (apply-to-hooks message)
- (client-log (connection message) message)
- (let ((user (find-user (connection message) (second (arguments message))))
- (realname (trailing-argument message))
- (username (third (arguments message)))
- (hostname (fourth (arguments message))))
- (setf (realname user) realname)
- (setf (username user) username)
- (setf (hostname user) hostname)))
-
-(defmethod irc-message-event ((message irc-rpl_whoisserver-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoisoperator-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whowasuser-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofwho-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoischanop-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoisidle-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofwhois-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoischannels-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_liststart-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_list-message))
- (apply-to-hooks message)
- (client-log (connection message) message)
- (let ((connection (connection message))
- (channel (second (arguments message)))
- (user-count (parse-integer (or (third (arguments message)) "0")))
- (topic (trailing-argument message)))
- (pushnew (or (find-channel connection channel)
- (make-channel :name channel
- :topic topic
- :user-count user-count))
- (channel-list connection))))
-
-(defmethod irc-message-event ((message irc-rpl_listend-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_channelmodeis-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_uniqopis-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoisoperprivs-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoisrealhost-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_creationtime-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_notopic-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_topic-message))
- (apply-to-hooks message)
- (client-log (connection message) message)
- (setf (topic (find-channel (connection message)
- (second (arguments message))))
- (trailing-argument message)))
-
-(defmethod irc-message-event ((message irc-rpl_topicwhotime-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_inviting-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_summoning-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_invitelist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofinvitelist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_exceptlist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofexceptlist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_version-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_whoreply-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_namreply-message))
- (apply-to-hooks message)
- (client-log (connection message) message)
- (let ((channel (find-channel (connection message) (car (last (arguments message))))))
- (dolist (nickname (tokenize-string (trailing-argument message)))
- (add-user channel
- (find-or-make-user (connection message)
- (canonicalize-nickname nickname)
- :username (user message)
- :hostname (host message))))))
-
-(defmethod irc-message-event ((message irc-rpl_killdone-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_closing-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_closeend-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofnames-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_links-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endoflinks-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_banlist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofbanlist-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofwhowas-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_info-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_motd-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_infostart-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofinfo-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_motdstart-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofmotd-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_map-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofmap-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_forward-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_youreoper-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_rehashing-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_yourservice-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_myportis-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_time-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_usersstart-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_users-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_endofusers-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_nousers-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-rpl_message-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-;;
-;; Error events
-;;
-
-(defmethod irc-message-event ((message irc-err_nosuchnick-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nosuchserver-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nosuchchannel-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_cannotsendtochan-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_toomanychannels-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_wasnosuchnick-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nosuchservice-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_noorigin-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_services_offline-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_norecipient-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_notexttosend-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_notoplevel-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_wildtoplevel-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_badmask-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_unknowncommand-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nomotd-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_noadmininfo-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_fileerror-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nonicknamegiven-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_erroneusnickname-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nicknameinuse-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nickcollision-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_unavailresource-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_bannickchange-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_usernotinchannel-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_notonchannel-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_useronchannel-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nologin-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_summondisabled-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_userdisabled-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_targetninvite-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_sourceninvite-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_notregistered-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_needmoreparams-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_alreadyregistered-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nopermforhost-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_passwdmismatch-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_yourebannedcreep-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_youwillbebanned-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_keyset-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_channelisfull-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_unknownmode-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_inviteonlychan-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_bannedfromchan-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_badchannelkey-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_badchanmask-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nochanmodes-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_banlistfull-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_badchanname-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_throttled-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_noprivileges-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_chanoprivsneeded-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_cantkillserver-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_restricted-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_uniqopprivsneeded-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_no_op_split-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_need_umode-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_nooperhost-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_umodeunknownflag-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_usersdontmatch-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_ghostedclient-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_blocking_notid-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_sitelistfull-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_maxmapnodes-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
-(defmethod irc-message-event ((message irc-err_maxforwarding-message))
+(defmethod irc-message-event ((message irc-rpl_whoisuser-message))
(apply-to-hooks message)
- (client-log (connection message) message))
+ (client-log (connection message) message)
+ (let ((user (find-user (connection message) (second (arguments message))))
+ (realname (trailing-argument message))
+ (username (third (arguments message)))
+ (hostname (fourth (arguments message))))
+ (setf (realname user) realname)
+ (setf (username user) username)
+ (setf (hostname user) hostname)))
-(defmethod irc-message-event ((message irc-err_noforwarding-message))
+(defmethod irc-message-event ((message irc-rpl_list-message))
(apply-to-hooks message)
- (client-log (connection message) message))
+ (client-log (connection message) message)
+ (let ((connection (connection message))
+ (channel (second (arguments message)))
+ (user-count (parse-integer (or (third (arguments message)) "0")))
+ (topic (trailing-argument message)))
+ (pushnew (or (find-channel connection channel)
+ (make-channel :name channel
+ :topic topic
+ :user-count user-count))
+ (channel-list connection))))
-(defmethod irc-message-event ((message irc-err_nounidentified-message))
+(defmethod irc-message-event ((message irc-rpl_topic-message))
(apply-to-hooks message)
- (client-log (connection message) message))
+ (client-log (connection message) message)
+ (setf (topic (find-channel (connection message)
+ (second (arguments message))))
+ (trailing-argument message)))
-(defmethod irc-message-event ((message irc-err_last_err_msg-message))
+(defmethod irc-message-event ((message irc-rpl_namreply-message))
(apply-to-hooks message)
- (client-log (connection message) message))
+ (client-log (connection message) message)
+ (let ((channel (find-channel (connection message) (car (last (arguments message))))))
+ (dolist (nickname (tokenize-string (trailing-argument message)))
+ (add-user channel
+ (find-or-make-user (connection message)
+ (canonicalize-nickname nickname)
+ :username (user message)
+ :hostname (host message))))))
(defmethod irc-message-event ((message irc-ping-message))
(apply-to-hooks message)
(client-log (connection message) message)
(pong (connection message) (trailing-argument message) ))
-(defmethod irc-message-event ((message irc-error-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
(defmethod irc-message-event ((message irc-join-message))
(apply-to-hooks message)
(client-log (connection message) message)
@@ -878,10 +118,6 @@
(format nil "Could not find user with nick ~A~%"
(source message)))))))
-(defmethod irc-message-event ((message irc-notice-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
;; if we don't know about the user, we should probably add him here to
;; the dangling-users as he is messaging us without being on a channel
;; we are.
@@ -889,10 +125,6 @@
(apply-to-hooks message)
(client-log (connection message) message))
-(defmethod irc-message-event ((message irc-mode-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
(defmethod irc-message-event ((message irc-kick-message))
(apply-to-hooks message)
(client-log (connection message) message)
@@ -903,10 +135,6 @@
(remove-channel connection channel)
(remove-user channel user))))
-;;
-;; CTCP events
-;;
-
(defmethod irc-message-event ((message ctcp-time-message))
(apply-to-hooks message)
(client-log (connection message) message)
@@ -918,10 +146,6 @@
(make-time-message second minute hour date month year day)))
(source message))))
-(defmethod irc-message-event ((message ctcp-action-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
(defmethod irc-message-event ((message ctcp-source-message))
(apply-to-hooks message)
(client-log (connection message) message)
@@ -956,10 +180,6 @@
(format nil "VERSION ~A" *ctcp-version*))
(source message)))
-(defmethod irc-message-event ((message ctcp-userinfo-message))
- (apply-to-hooks message)
- (client-log (connection message) message))
-
(defmethod irc-message-event ((message ctcp-ping-message))
(apply-to-hooks message)
(client-log (connection message) message)
@@ -968,10 +188,6 @@
:notice (make-ctcp-message
(format nil "PING ~A" (trailing-argument message)))
(source message)))
-
-;;
-;; DCC events (which are a variant of CTCP events)
-;;
(defmethod irc-message-event ((message ctcp-dcc-chat-request-message))
(apply-to-hooks message)
More information about the Net-nittin-irc-cvs
mailing list