December 2003 - net-nittin-irc-cvs@lists.common-lisp.net

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/logger.lisp
by Kevin Rosenberg 14 Dec '03

14 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv671 Added Files: logger.lisp Log Message: initial upload Date: Sat Dec 13 22:54:12 2003 Author: krosenberg

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/LICENSE
by Brian Mastenbrook 13 Dec '03

13 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc In directory common-lisp.net:/tmp/cvs-serv25758 Modified Files: LICENSE Log Message: Add myself (so people know who this guy is who wrote the example programs) Date: Sat Dec 13 18:51:23 2003 Author: bmastenbrook Index: net-nittin-irc/LICENSE diff -u net-nittin-irc/LICENSE:1.3 net-nittin-irc/LICENSE:1.4 --- net-nittin-irc/LICENSE:1.3 Sat Nov 22 13:41:03 2003 +++ net-nittin-irc/LICENSE Sat Dec 13 18:51:23 2003 @@ -1,5 +1,5 @@ Copyright (c) 2002 Jochen Schmidt -Copyright (c) 2003 Erik Enge +Copyright (c) 2003 Erik Enge and Brian Mastenbrook Redistribution and use in source and binary forms, with or without modification, are permitted provided that the following conditions @@ -22,4 +22,5 @@ For further details contact the authors of this software. - Erik Enge, erik(a)nittin.net \ No newline at end of file + Erik Enge, erik(a)nittin.net + Brian Mastenbrook, bmastenb(a)indiana.edu \ No newline at end of file

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp
by Brian Mastenbrook 13 Dec '03

13 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv23428 Modified Files: cliki.lisp Log Message: Minor fixes Date: Sat Dec 13 18:44:34 2003 Author: bmastenbrook Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.4 net-nittin-irc/example/cliki.lisp:1.5 --- net-nittin-irc/example/cliki.lisp:1.4 Sat Dec 13 18:08:26 2003 +++ net-nittin-irc/example/cliki.lisp Sat Dec 13 18:44:33 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.4 2003/12/13 23:08:26 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.5 2003/12/13 23:44:33 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -24,11 +24,13 @@ (defun write-small-definitions () (with-open-file (sd-file "sd.lisp-expr" :direction :output :if-exists :supersede) (mapc #'(lambda (defn) - (prin1 defn sd-file)) *small-definitions*))) + (prin1 defn sd-file) + (format sd-file "~%")) *small-definitions*))) (defun write-top-definition () (with-open-file (sd-file "sd.lisp-expr" :direction :output :if-exists :append) - (prin1 (car *small-definitions*) sd-file))) + (prin1 (car *small-definitions*) sd-file) + (format sd-file "~%"))) (defun add-small-definition (term defn) (push (cons term defn) *small-definitions*) @@ -131,7 +133,7 @@ (defparameter *cliki-attention-prefix* "cliki: ") -(defparameter *cliki-bot-help* "The CLiki bot supplies small definitions and performs lookups on CLiki. To add a term for IRC, try saying ``cliki: add \"term\" as: definition''.") +(defparameter *cliki-bot-help* "The CLiki bot supplies small definitions and performs lookups on CLiki. To use it, try ``cliki: term?''. To add a term for IRC, try saying ``cliki: add \"term\" as: definition''; otherwise, edit the corresponding CLiki page.") (defun cliki-lookup (term-with-question) (let ((first-pass (regex-replace-all "^(\\s*)([^?]+)(\\?*)$" term-with-question "\\2")))

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp
by Brian Mastenbrook 13 Dec '03

13 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv4884 Modified Files: cliki.lisp Log Message: Add small definitions functionality. Date: Sat Dec 13 18:08:28 2003 Author: bmastenbrook Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.3 net-nittin-irc/example/cliki.lisp:1.4 --- net-nittin-irc/example/cliki.lisp:1.3 Sat Dec 13 09:03:39 2003 +++ net-nittin-irc/example/cliki.lisp Sat Dec 13 18:08:26 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.3 2003/12/13 14:03:39 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.4 2003/12/13 23:08:26 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -10,6 +10,30 @@ (defpackage :cliki (:use :common-lisp :irc :sb-bsd-sockets :cl-ppcre)) (in-package :cliki) +(defvar *small-definitions* nil) + +(defun read-small-definitions () + (setf *small-definitions* nil) + (with-open-file (sd-file "sd.lisp-expr" :direction :input :if-does-not-exist nil) + (when sd-file + (block nil + (loop (let ((defn (read sd-file nil))) + (if defn (push defn *small-definitions*) + (return (setf *small-definitions* (nreverse *small-definitions*)))))))))) + +(defun write-small-definitions () + (with-open-file (sd-file "sd.lisp-expr" :direction :output :if-exists :supersede) + (mapc #'(lambda (defn) + (prin1 defn sd-file)) *small-definitions*))) + +(defun write-top-definition () + (with-open-file (sd-file "sd.lisp-expr" :direction :output :if-exists :append) + (prin1 (car *small-definitions*) sd-file))) + +(defun add-small-definition (term defn) + (push (cons term defn) *small-definitions*) + (write-small-definitions)) + (defun url-port (url) (assert (string-equal url "http://" :end1 7)) (let ((port-start (position #\: url :start 7))) @@ -107,11 +131,22 @@ (defparameter *cliki-attention-prefix* "cliki: ") +(defparameter *cliki-bot-help* "The CLiki bot supplies small definitions and performs lookups on CLiki. To add a term for IRC, try saying ``cliki: add \"term\" as: definition''.") + (defun cliki-lookup (term-with-question) (let ((first-pass (regex-replace-all "^(\\s*)([^?]+)(\\?*)$" term-with-question "\\2"))) (setf first-pass (regex-replace-all "\\s\\s+" first-pass "")) (setf first-pass (regex-replace-all "\\s*$" first-pass "")) - (concatenate 'string first-pass ": " (cliki-first-sentence first-pass)))) + (if (scan "^add \"([^\"]+)\" as: (.+)$" first-pass) + (let ((term (regex-replace "^add \"([^\"]+)\" .*$" first-pass "\\1")) + (defn (regex-replace "^add \"[^\"]+\" as: (.+)$" first-pass "\\1"))) + (add-small-definition term defn) + "OK, done.") + (concatenate 'string first-pass ": " + (or + (if (string-equal first-pass "help") *cliki-bot-help*) + (cdr (assoc first-pass *small-definitions* :test #'string-equal)) + (cliki-first-sentence first-pass)))))) (defun valid-cliki-message (message) (eql (search *cliki-attention-prefix* (trailing-argument message) :test #'char-equal) 0))

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp
by Brian Mastenbrook 13 Dec '03

13 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv9160 Modified Files: cliki.lisp Log Message: Fixed handling in the case of an end-of-file. Date: Sat Dec 13 09:03:40 2003 Author: bmastenbrook Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.2 net-nittin-irc/example/cliki.lisp:1.3 --- net-nittin-irc/example/cliki.lisp:1.2 Sat Dec 13 08:11:34 2003 +++ net-nittin-irc/example/cliki.lisp Sat Dec 13 09:03:39 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.2 2003/12/13 13:11:34 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.3 2003/12/13 14:03:39 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -33,7 +33,7 @@ (let ((stream (socket-make-stream s :input t :output t :buffering :full))) ;; we are exceedingly unportable about proper line-endings here. ;; Anyone wishing to run this under non-SBCL should take especial care - (format stream "GET ~A HTTP/1.0~%Host: ~A~%~%" url host) + (format stream "GET ~A HTTP/1.0~%Host: ~A~%User-Agent: CLiki Bot~%~%" url host) (force-output stream) (list (let* ((l (read-line stream)) @@ -52,7 +52,7 @@ (setf str (regex-replace-all " " str "%20")) (setf str (regex-replace-all "," str "%2C")) (setf str (regex-replace-all "`" str "%60")) - (format t "hi ~A~%" str) + ;(format t "hi ~A~%" str) str) (defun cliki-first-sentence (term) @@ -76,19 +76,23 @@ (let ((first-line "")) (loop for i from 1 to 5 do ;; scan the first 5 lines (progn - (setf first-line (concatenate 'string first-line (read-line stream))) + (multiple-value-bind (next-line missing-newline-p) + (read-line stream nil) + (if next-line + (setf first-line (concatenate 'string first-line next-line (string #\newline))) + (return-from cliki-return (format nil "The end of the page was reached before a definition was found in ~A" cliki-url)))) (setf first-line (regex-replace-all "\\r" first-line " ")) (setf first-line (regex-replace-all "\\n" first-line " ")) (setf first-line (regex-replace-all "_\$([^)]*)\$" first-line "\\1")) (setf first-line (regex-replace-all "\\*\$([^)]*)\$" first-line "\\1")) (setf first-line (regex-replace-all "<[^>]+>" first-line "")) - (setf first-line (regex-replace-all "^([^.]+)\\..*$" first-line "\\1.")) + (setf first-line (regex-replace-all "^(([^.]|\\.\\S)+)\\.\\s+.*$" first-line "\\1.")) (setf first-line (regex-replace-all "(\\s)\\s+" first-line "\\1")) (setf first-line (regex-replace-all "^\\s(.+)$" first-line "\\1")) - (when (scan "^[^.]+\\.$" first-line) + (when (scan "^([^.]|\\.\\S)+\\.$" first-line) (setf first-line (concatenate 'string first-line " " cliki-url)) (return-from cliki-return first-line)))) - (format nil "No definition was found in the first 5 lines of ~A." cliki-url))) + (format nil "No definition was found in the first 5 lines of ~A" cliki-url))) (if stream (close stream))))) (condition (c &rest whatever) (return-from cliki-return (format nil "An error was encountered in lookup.")))))))

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp
by Brian Mastenbrook 13 Dec '03

13 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv23336 Modified Files: cliki.lisp Log Message: Fixed a string parsing bug. Date: Sat Dec 13 08:11:34 2003 Author: bmastenbrook Index: net-nittin-irc/example/cliki.lisp diff -u net-nittin-irc/example/cliki.lisp:1.1 net-nittin-irc/example/cliki.lisp:1.2 --- net-nittin-irc/example/cliki.lisp:1.1 Sat Dec 13 00:38:42 2003 +++ net-nittin-irc/example/cliki.lisp Sat Dec 13 08:11:34 2003 @@ -1,4 +1,4 @@ -;;;; $Id: cliki.lisp,v 1.1 2003/12/13 05:38:42 bmastenbrook Exp $ +;;;; $Id: cliki.lisp,v 1.2 2003/12/13 13:11:34 bmastenbrook Exp $ ;;;; $Source: /project/net-nittin-irc/cvsroot/net-nittin-irc/example/cliki.lisp,v $ ;;;; cliki.lisp - CLiki as an infobot; only works on SBCL. @@ -82,7 +82,7 @@ (setf first-line (regex-replace-all "_\$([^)]*)\$" first-line "\\1")) (setf first-line (regex-replace-all "\\*\$([^)]*)\$" first-line "\\1")) (setf first-line (regex-replace-all "<[^>]+>" first-line "")) - (setf first-line (regex-replace-all "^([^.]+)\\.\\s*.*$" first-line "\\1.")) + (setf first-line (regex-replace-all "^([^.]+)\\..*$" first-line "\\1.")) (setf first-line (regex-replace-all "(\\s)\\s+" first-line "\\1")) (setf first-line (regex-replace-all "^\\s(.+)$" first-line "\\1")) (when (scan "^[^.]+\\.$" first-line)

1 0

[net-nittin-irc-cvs] CVS update: net-nittin-irc/example/cliki.lisp
by Brian Mastenbrook 13 Dec '03

13 Dec '03

Update of /project/net-nittin-irc/cvsroot/net-nittin-irc/example In directory common-lisp.net:/tmp/cvs-serv26017 Added Files: cliki.lisp Log Message: Code to use cliki as an infobot (very cool, requires SBCL for the HTTP stuff, which was shamelessly stolen from asdf-install). Date: Sat Dec 13 00:38:42 2003 Author: bmastenbrook

1 0

[net-nittin-irc-cvs] CVS update: public_html/index.html
by Erik Enge 01 Dec '03

01 Dec '03

Update of /project/net-nittin-irc/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv10419 Modified Files: index.html Log Message: s/setf/defvar Date: Mon Dec 1 09:49:34 2003 Author: eenge Index: public_html/index.html diff -u public_html/index.html:1.8 public_html/index.html:1.9 --- public_html/index.html:1.8 Wed Nov 26 07:38:23 2003 +++ public_html/index.html Mon Dec 1 09:49:34 2003 @@ -75,8 +75,8 @@ * (in-package :irc) - * (setf connection (connect :nickname "mynick" - :server "irc.somewhere.org")) + * (defvar connection (connect :nickname "mynick" + :server "irc.somewhere.org")) * (read-message-loop connection)

1 0