[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/clhs.lisp
Brian Mastenbrook
bmastenbrook at common-lisp.net
Fri Nov 14 20:35:22 UTC 2003
Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example
In directory common-lisp.net:/tmp/cvs-serv13083
Modified Files:
clhs.lisp
Log Message:
Untabify, per kire.
Date: Fri Nov 14 15:35:22 2003
Author: bmastenbrook
Index: net-nittin-irc/example/clhs.lisp
diff -u net-nittin-irc/example/clhs.lisp:1.1 net-nittin-irc/example/clhs.lisp:1.2
--- net-nittin-irc/example/clhs.lisp:1.1 Fri Nov 14 14:37:05 2003
+++ net-nittin-irc/example/clhs.lisp Fri Nov 14 15:35:22 2003
@@ -1,4 +1,4 @@
-;;;; $Id: clhs.lisp,v 1.1 2003/11/14 19:37:05 bmastenbrook Exp $
+;;;; $Id: clhs.lisp,v 1.2 2003/11/14 20:35:22 bmastenbrook Exp $
;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/clhs.lisp,v $
;;;; clhs.lisp - an example IRC bot for net-nittin-irc
@@ -32,10 +32,10 @@
(defparameter *mop-map-file* #p"Mop_Sym.txt")
(defparameter *mop-root* "http://www.alu.org/mop/")
-
+
(defun add-clhs-section-to-table (&rest numbers)
(let ((key (format nil "~{~d~^.~}" numbers))
- (target (concatenate 'string *hyperspec-root* (format nil "Body/~2,'0d_~(~{~36r~}~).htm" (car numbers) (mapcar #'(lambda (x) (+ x 9)) (cdr numbers))))))
+ (target (concatenate 'string *hyperspec-root* (format nil "Body/~2,'0d_~(~{~36r~}~).htm" (car numbers) (mapcar #'(lambda (x) (+ x 9)) (cdr numbers))))))
(setf (gethash key *table*) target)))
(defun valid-target (&rest numbers)
@@ -47,85 +47,85 @@
;; populate the table with the symbols from the Map file
;; this bit is easy and portable.
(do ((symbol-name (read-line s nil s) (read-line s nil s))
- (url (read-line s nil s) (read-line s nil s)))
- ((eq url s) 'done)
+ (url (read-line s nil s) (read-line s nil s)))
+ ((eq url s) 'done)
(setf (gethash symbol-name *table*) (concatenate 'string *hyperspec-root* (subseq url 3))))
;; add in section references.
(let ((*default-pathname-defaults* *hyperspec-pathname*))
;; Yuk. I know. Fixes welcome.
(loop for section from 0 to 27
- do (add-clhs-section-to-table section)
- do (loop named s for s1 from 1 to 17
- unless (valid-target section s1)
- do (return-from s nil)
- do (add-clhs-section-to-table section s1)
- do (loop named ss for s2 from 1 to 17
- unless (valid-target section s1 s2)
- do (return-from ss nil)
- do (add-clhs-section-to-table section s1 s2)
- do (loop named sss for s3 from 1 to 17
- unless (valid-target section s1 s2 s3)
- do (return-from sss nil)
- do (add-clhs-section-to-table section s1 s2 s3)
- do (loop named ssss for s4 from 1 to 17
- unless (valid-target section s1 s2 s3 s4)
- do (return-from ssss nil)
- do (add-clhs-section-to-table section s1 s2 s3 s4)
- do (loop named sssss for s5 from 1 to 17
- unless (valid-target section s1 s2 s3 s4 s5)
- do (return-from sssss nil)
- do (add-clhs-section-to-table section s1 s2 s3 s4 s5))))))))
+ do (add-clhs-section-to-table section)
+ do (loop named s for s1 from 1 to 17
+ unless (valid-target section s1)
+ do (return-from s nil)
+ do (add-clhs-section-to-table section s1)
+ do (loop named ss for s2 from 1 to 17
+ unless (valid-target section s1 s2)
+ do (return-from ss nil)
+ do (add-clhs-section-to-table section s1 s2)
+ do (loop named sss for s3 from 1 to 17
+ unless (valid-target section s1 s2 s3)
+ do (return-from sss nil)
+ do (add-clhs-section-to-table section s1 s2 s3)
+ do (loop named ssss for s4 from 1 to 17
+ unless (valid-target section s1 s2 s3 s4)
+ do (return-from ssss nil)
+ do (add-clhs-section-to-table section s1 s2 s3 s4)
+ do (loop named sssss for s5 from 1 to 17
+ unless (valid-target section s1 s2 s3 s4 s5)
+ do (return-from sssss nil)
+ do (add-clhs-section-to-table section s1 s2 s3 s4 s5))))))))
;; format directives
(loop for code from 32 to 127
- do (setf (gethash (format nil "format:~A" (code-char code)) *table*)
- (concatenate 'string
- *hyperspec-root*
- (case (code-char code)
- ((#\c #\C) "Body/22_caa.htm")
- ((#\%) "Body/22_cab.htm")
- ((#\&) "Body/22_cac.htm")
- ((#\|) "Body/22_cad.htm")
- ((#\~) "Body/22_cae.htm")
- ((#\r #\R) "Body/22_cba.htm")
- ((#\d #\D) "Body/22_cbb.htm")
- ((#\b #\B) "Body/22_cbc.htm")
- ((#\o #\O) "Body/22_cbd.htm")
- ((#\x #\X) "Body/22_cbe.htm")
- ((#\f #\F) "Body/22_cca.htm")
- ((#\e #\E) "Body/22_ccb.htm")
- ((#\g #\G) "Body/22_ccc.htm")
- ((#\$) "Body/22_ccd.htm")
- ((#\a #\A) "Body/22_cda.htm")
- ((#\s #\S) "Body/22_cdb.htm")
- ((#\w #\W) "Body/22_cdc.htm")
- ((#\_) "Body/22_cea.htm")
- ((#\<) "Body/22_ceb.htm")
- ((#\i #\I) "Body/22_cec.htm")
- ((#\/) "Body/22_ced.htm")
- ((#\t #\T) "Body/22_cfa.htm")
- ;; FIXME
- ((#\<) "Body/22_cfb.htm")
- ((#\>) "Body/22_cfc.htm")
- ((#\*) "Body/22_cga.htm")
- ((#\[) "Body/22_cgb.htm")
- ((#\]) "Body/22_cgc.htm")
- ((#\{) "Body/22_cgd.htm")
- ((#\}) "Body/22_cge.htm")
- ((#\?) "Body/22_cgf.htm")
- ((#\() "Body/22_cha.htm")
- ((#\)) "Body/22_chb.htm")
- ((#\p #\P) "Body/22_chc.htm")
- ((#\;) "Body/22_cia.htm")
- ((#\^) "Body/22_cib.htm")
- ((#\Newline) "Body/22_cic.htm")
- (t "Body/22_c.htm")))))
+ do (setf (gethash (format nil "format:~A" (code-char code)) *table*)
+ (concatenate 'string
+ *hyperspec-root*
+ (case (code-char code)
+ ((#\c #\C) "Body/22_caa.htm")
+ ((#\%) "Body/22_cab.htm")
+ ((#\&) "Body/22_cac.htm")
+ ((#\|) "Body/22_cad.htm")
+ ((#\~) "Body/22_cae.htm")
+ ((#\r #\R) "Body/22_cba.htm")
+ ((#\d #\D) "Body/22_cbb.htm")
+ ((#\b #\B) "Body/22_cbc.htm")
+ ((#\o #\O) "Body/22_cbd.htm")
+ ((#\x #\X) "Body/22_cbe.htm")
+ ((#\f #\F) "Body/22_cca.htm")
+ ((#\e #\E) "Body/22_ccb.htm")
+ ((#\g #\G) "Body/22_ccc.htm")
+ ((#\$) "Body/22_ccd.htm")
+ ((#\a #\A) "Body/22_cda.htm")
+ ((#\s #\S) "Body/22_cdb.htm")
+ ((#\w #\W) "Body/22_cdc.htm")
+ ((#\_) "Body/22_cea.htm")
+ ((#\<) "Body/22_ceb.htm")
+ ((#\i #\I) "Body/22_cec.htm")
+ ((#\/) "Body/22_ced.htm")
+ ((#\t #\T) "Body/22_cfa.htm")
+ ;; FIXME
+ ((#\<) "Body/22_cfb.htm")
+ ((#\>) "Body/22_cfc.htm")
+ ((#\*) "Body/22_cga.htm")
+ ((#\[) "Body/22_cgb.htm")
+ ((#\]) "Body/22_cgc.htm")
+ ((#\{) "Body/22_cgd.htm")
+ ((#\}) "Body/22_cge.htm")
+ ((#\?) "Body/22_cgf.htm")
+ ((#\() "Body/22_cha.htm")
+ ((#\)) "Body/22_chb.htm")
+ ((#\p #\P) "Body/22_chc.htm")
+ ((#\;) "Body/22_cia.htm")
+ ((#\^) "Body/22_cib.htm")
+ ((#\Newline) "Body/22_cic.htm")
+ (t "Body/22_c.htm")))))
;; glossary.
)
;; MOP
(with-open-file (s *mop-map-file*)
(do ((symbol-name (read-line s nil s) (read-line s nil s))
- (url (read-line s nil s) (read-line s nil s)))
- ((eq url s) 'done)
+ (url (read-line s nil s) (read-line s nil s)))
+ ((eq url s) 'done)
(setf (gethash (concatenate 'string "MOP:" symbol-name) *table*) (concatenate 'string *mop-root* url)))))
(defvar *clhs-connection*)
@@ -135,7 +135,7 @@
`(let ((it ,test))
(if it ,conseq
(symbol-macrolet ((it ,test))
- ,else))))
+ ,else))))
(defun spec-lookup (str)
(aif (gethash str *table*)
@@ -147,10 +147,10 @@
(defun msg-hook (message)
(if (string-equal (first (arguments message)) *clhs-nickname*)
(if (eql (search *clhs-attention-prefix* (trailing-argument message) :test #'char-equal) 0)
- (privmsg *clhs-connection* (source message) (spec-lookup (subseq (trailing-argument message) (length *clhs-attention-prefix*))))
- (privmsg *clhs-connection* (source message) (spec-lookup (trailing-argument message))))
+ (privmsg *clhs-connection* (source message) (spec-lookup (subseq (trailing-argument message) (length *clhs-attention-prefix*))))
+ (privmsg *clhs-connection* (source message) (spec-lookup (trailing-argument message))))
(if (search *clhs-attention-prefix* (trailing-argument message) :test #'char-equal)
- (privmsg *clhs-connection* (first (arguments message)) (spec-lookup (subseq (trailing-argument message) (length *clhs-attention-prefix*)))))))
+ (privmsg *clhs-connection* (first (arguments message)) (spec-lookup (subseq (trailing-argument message) (length *clhs-attention-prefix*)))))))
(defun start-clhs-bot (nick server &rest channels)
(populate-table)
More information about the Net-nittin-irc-cvs
mailing list