October 2003 - clhp-cvs@common-lisp.net - mailman3.common-lisp.net

[clhp-cvs] CVS update: clhp/clhp.lisp clhp/cgi.lisp clhp/TODO clhp/NEWS clhp/Makefile clhp/ChangeLog
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv31434 Modified Files: clhp.lisp cgi.lisp TODO NEWS Makefile ChangeLog Log Message: 0.1.1 release Date: Wed Oct 15 10:44:04 2003 Author: aventimiglia Index: clhp/clhp.lisp diff -u clhp/clhp.lisp:1.12 clhp/clhp.lisp:1.13 --- clhp/clhp.lisp:1.12 Wed Oct 15 08:50:52 2003 +++ clhp/clhp.lisp Wed Oct 15 10:44:04 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: clhp.lisp,v 1.12 2003/10/15 12:50:52 aventimiglia Exp $") + "$Id: clhp.lisp,v 1.13 2003/10/15 14:44:04 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -25,7 +25,8 @@ (unless (find-package :cgi) (load "cgi"))) -(defpackage :clhp +(defpackage #:net.common-lisp.aventimiglia.clhp + (:nicknames :clhp) (:use :cgi :cl) (:import-from :cgi #:cond-bind #:list-to-a-list) (:export #:parse #:*clhp-version* #:echo #:include #:xml-element @@ -38,8 +39,8 @@ ;; by changing the NIL in the first part of the OR, a release number ;; will override the CVS keyword (defconstant *CLHP-VERSION* - #.(or nil ; Set this for releases - (let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/15 12:50:52 $")) + #.(or "0.1.1alpha" ; Set this for releases + (let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/15 14:44:04 $")) (date (subseq trimmed 0 (search " " trimmed)))) (concatenate 'string (subseq date 0 4) Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.9 clhp/cgi.lisp:1.10 --- clhp/cgi.lisp:1.9 Wed Oct 15 08:50:52 2003 +++ clhp/cgi.lisp Wed Oct 15 10:44:04 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.9 2003/10/15 12:50:52 aventimiglia Exp $") +#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.10 2003/10/15 14:44:04 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -20,7 +20,8 @@ ;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ -(defpackage :cgi +(defpackage #:net.common-lisp.aventimiglia.cgi + (:nicknames #:cgi) (:use :cl) (:export #:*server-env* #:*query-vars* #:header #:debug #:init)) Index: clhp/TODO diff -u clhp/TODO:1.6 clhp/TODO:1.7 --- clhp/TODO:1.6 Wed Oct 1 15:11:33 2003 +++ clhp/TODO Wed Oct 15 10:44:04 2003 @@ -1,13 +1,14 @@ -$Id: TODO,v 1.6 2003/10/01 19:11:33 aventimiglia Exp $ -*- outline -*- +$Id: TODO,v 1.7 2003/10/15 14:44:04 aventimiglia Exp $ -*- outline -*- + +* Convert *QUERY-VARS* and *SERVER-ENV* to hashes + I should probably make interface functions to access them, actually + I should make them read-only maybe encapsulate a hash in a class and + only allow reading from external functions * Test suite - Write a test suite, in lisp that will run test on clhp components, - this will be used during development, to make sure everything is - working properly. - - This is in thw works is tests/, I think I'll refine it a bit and - make it it's own package. There is still more work to be done, and - that's a whole different can of beans +** Complete suite for :cgi +** Write suite for :clhp +** Refine :test-suite * COMPILE-CGI This is just a convenience function that will compile and save fasl @@ -34,6 +35,7 @@ should not stop the entire page from parsing, it should just fail for that form, report the error (and the offendding form) and continue at the next reasonable point. + * Differences from PHP Some differences I should keep, like you can't end blocks in the Index: clhp/NEWS diff -u clhp/NEWS:1.2 clhp/NEWS:1.3 --- clhp/NEWS:1.2 Fri Sep 19 01:57:19 2003 +++ clhp/NEWS Wed Oct 15 10:44:04 2003 @@ -1,5 +1,35 @@ +$Id: NEWS,v 1.3 2003/10/15 14:44:04 aventimiglia Exp $ -*- outline -*- -Wed Sep 17 15:17:02 EDT 2003 -- CLHP package migrated from my local -server to common-lisp.net +* Wed Sep 17 15:17:02 EDT 2003 -- CLHP package migrated from my local + server to common-lisp.net -Fri Sep 19 01:56:45 EDT 2003 -- 0.1.0alpha released +* Fri Sep 19 01:56:45 EDT 2003 -- 0.1.0alpha released + +* Wed Oct 15 10:08:33 EDT 2003 -- 0.1.1alpha release + See ChangeLog for details, but here's a rundown of the new stuff: +** Converted CGI:*SERVER-ENV* and CGI:*QUERY-VARS* + In the previous version these had been cons type a-lists ((like + . this)) I've converted them to List type a-lists ((like this)), + don't get used to it though, since eventually I'll probably end up + making them into Hashtables. +** XML-ELEMENT structure + This structure along with it's PPRINT function and the TAG macro, + creating ax XML element is as east as: (TAG 'REMARK "this") +** Somewhat better error reporting. + When the parser encounters Lisp errors, it tries its best to print + a good message and take up at the next reasonable place it can. +** Internals stuff + This isn't of much interest unless you want to hack the code. +** Pakcage names + The package names were changed to more descriptive + :net.common-lisp.aventimiglia.{cgi,clhp}, but I've still retained + :CLHP and :CGI as nicknames so there is not any change to the + interface +*** Code cleanup -- working to make all this more readable. +*** Test-suite -- + The new tests/ directory contains a test-suite package and a + test for the :CGI library. I really just decided to write my own + test suite since I didn't really want to deal with learning + someone elses. In the future I'm going to write tests for :CLHP + + Index: clhp/Makefile diff -u clhp/Makefile:1.11 clhp/Makefile:1.12 --- clhp/Makefile:1.11 Wed Oct 15 10:05:57 2003 +++ clhp/Makefile Wed Oct 15 10:44:04 2003 @@ -1,4 +1,4 @@ -# $Id: Makefile,v 1.11 2003/10/15 14:05:57 aventimiglia Exp $ +# $Id: Makefile,v 1.12 2003/10/15 14:44:04 aventimiglia Exp $ # # CLHP the Common Lisp Hypertext Preprocessor # (C) 2003 Anthony J Ventimiglia @@ -69,7 +69,8 @@ RECURSIVE_SUBDIRS = examples tests EXTRADIST=config/binfmt-test.lisp config/build-core.lisp config/lispc.lisp \ config/runclcgi.src examples/Makefile examples/clhp-test.lisp \ - examples/index.clhp examples/test.lisp Makefile + examples/index.clhp examples/test.lisp Makefile tests/Makefile \ + tests/cgi-test.lisp tests/test-suite.lisp DISTFILES=$(SOURCES) $(DOCS) $(EXTRADIST) Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.11 clhp/ChangeLog:1.12 --- clhp/ChangeLog:1.11 Tue Oct 14 18:47:30 2003 +++ clhp/ChangeLog Wed Oct 15 10:44:04 2003 @@ -1,3 +1,13 @@ +2003-10-15 <ant(a)afghan.dogpound> + + * cgi.lisp, clhp.lisp: Changed real package names to a more exact + one ala java style. They still have :CGI and :CLHP for nicknames. + + * tests/test-suite.lisp (run-tests): Moved test-suite out of + cgi-test into its own file, now I can write tests for clhp as + well. Modified Makefiles to deal with the new directory. Now + running make check from the toplevel runs the tests. + 2003-10-14 <ant(a)afghan.dogpound> * cgi.lisp (debug): Changed format string to ~S so objects will be @@ -67,4 +77,4 @@ used to create tables from (CONS . TYPE) a-lists. Also added some comments. -$Id: ChangeLog,v 1.11 2003/10/14 22:47:30 aventimiglia Exp $ \ No newline at end of file +$Id: ChangeLog,v 1.12 2003/10/15 14:44:04 aventimiglia Exp $ \ No newline at end of file

1 0

[clhp-cvs] CVS update: clhp/examples/Makefile
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp/examples In directory common-lisp.net:/tmp/cvs-serv10945/examples Modified Files: Makefile Log Message: Moved test-suite out of cgi-test into its own file, now I can write tests for clhp as well. Modified Makefiles to deal with the new directory. Now running make check from the toplevel runs the tests. Date: Wed Oct 15 10:05:57 2003 Author: aventimiglia Index: clhp/examples/Makefile diff -u clhp/examples/Makefile:1.3 clhp/examples/Makefile:1.4 --- clhp/examples/Makefile:1.3 Wed Oct 15 08:50:51 2003 +++ clhp/examples/Makefile Wed Oct 15 10:05:57 2003 @@ -1,4 +1,4 @@ -# $Id: Makefile,v 1.3 2003/10/15 12:50:51 aventimiglia Exp $ +# $Id: Makefile,v 1.4 2003/10/15 14:05:57 aventimiglia Exp $ # # CLHP the Common Lisp Hypertext Preprocessor # (C) 2003 Anthony J Ventimiglia @@ -57,7 +57,8 @@ all: $(BINS) -.PHONY: all clean install uninstall clean-all clean-backups check-install-path +.PHONY: all clean install uninstall clean-all clean-backups \ + check-install-path check %.x86f: %.lisp $(LISPC) $<

1 0

[clhp-cvs] CVS update: clhp/Makefile
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv10945 Modified Files: Makefile Log Message: Moved test-suite out of cgi-test into its own file, now I can write tests for clhp as well. Modified Makefiles to deal with the new directory. Now running make check from the toplevel runs the tests. Date: Wed Oct 15 10:05:58 2003 Author: aventimiglia Index: clhp/Makefile diff -u clhp/Makefile:1.10 clhp/Makefile:1.11 --- clhp/Makefile:1.10 Wed Oct 15 08:50:52 2003 +++ clhp/Makefile Wed Oct 15 10:05:57 2003 @@ -1,4 +1,4 @@ -# $Id: Makefile,v 1.10 2003/10/15 12:50:52 aventimiglia Exp $ +# $Id: Makefile,v 1.11 2003/10/15 14:05:57 aventimiglia Exp $ # # CLHP the Common Lisp Hypertext Preprocessor # (C) 2003 Anthony J Ventimiglia @@ -65,7 +65,8 @@ TESTS=config/binfmt-test.clcgi DOCS=COPYING INSTALL ChangeLog NEWS README TODO -SUBDIRS=config examples +SUBDIRS=config examples tests +RECURSIVE_SUBDIRS = examples tests EXTRADIST=config/binfmt-test.lisp config/build-core.lisp config/lispc.lisp \ config/runclcgi.src examples/Makefile examples/clhp-test.lisp \ examples/index.clhp examples/test.lisp Makefile @@ -80,11 +81,13 @@ TARROOT=clhp-$(VERSION) TARBALL=$(TARROOT).tar.gz +RECURSIVE_TARGETS=clean-recursive clean-all-recursive check-recursive + all: $(LISPCBIN) $(LIBS) $(CORE) $(RUNCGI) .PHONY: all install uninstall clean clean-all clean-backups install-dirs \ install-source install-source-dirs uninstall-files uninstall-dirs \ - install-core tests clean-dist + install-core tests clean-dist $(RECURSIVE_TARGETS) check %.x86f: %.lisp $(LISPC) $< @@ -97,6 +100,8 @@ if test ! -x $$file; then $(CHMOD) -v a+x $$file ; fi \ done +check: $(CORE) check-recursive + $(LISPCBIN): config/lispc.lisp $(CORE): $(SOURCES) config/build-core.lisp @@ -175,9 +180,9 @@ tar cvf $$tarfile $(TARROOT) ; \ gzip $$tarfile -clean-all: clean clean-backups clean-dist +clean-all: clean-all-recursive clean clean-backups clean-dist -clean: +clean: clean-recursive for f in $(LIBS) $(LISPCBIN) $(CORE) $(CORE).BAK $(RUNCGI) \ $(TESTS) $(TARBALL); \ do \ @@ -186,8 +191,22 @@ $(MAKE) -C examples clean find -iname "*.tar.gz" -exec rm -v {} \; -clean-backups: +clean-backups: find -iname "*~" -exec rm -v {} \; clean-dist: if test -d $(TARROOT); then rm -rv $(TARROOT); fi + +$(RECURSIVE_TARGETS): + @set fnord $(MAKEFLAGS); amf=$$2 \ + dot_seen=no ; \ + target=`echo $@ | sed s/-recursive//`; \ + list='$(RECURSIVE_SUBDIRS)' ; for subdir in $$list; do \ + echo ">>>>> Making $$target in $$subdir"; \ + (cd $$subdir && $(MAKE) $$target) || \ + case "$$amf" in \ + *=*) exit 1 ;; \ + *k*) exit 1 ;; \ + *) exit 1 ;; \ + esac ; \ + done \ No newline at end of file

1 0

[clhp-cvs] CVS update: clhp/tests/test-suite.lisp clhp/tests/Makefile clhp/tests/cgi-test.lisp
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp/tests In directory common-lisp.net:/tmp/cvs-serv10945/tests Modified Files: cgi-test.lisp Added Files: test-suite.lisp Makefile Log Message: Moved test-suite out of cgi-test into its own file, now I can write tests for clhp as well. Modified Makefiles to deal with the new directory. Now running make check from the toplevel runs the tests. Date: Wed Oct 15 10:05:57 2003 Author: aventimiglia Index: clhp/tests/cgi-test.lisp diff -u clhp/tests/cgi-test.lisp:1.7 clhp/tests/cgi-test.lisp:1.8 --- clhp/tests/cgi-test.lisp:1.7 Wed Oct 15 08:50:51 2003 +++ clhp/tests/cgi-test.lisp Wed Oct 15 10:05:56 2003 @@ -27,144 +27,12 @@ (eval-when (:load-toplevel :compile-toplevel) (unless (find-package :cgi) - (load "library:cgi"))) + (load "library:cgi")) + (unless (find-package :net.common-lisp.aventimiglia.test-suite) + (load "test-suite")) + (when (find-package :clhp) (delete-package :clhp))) -;; These macros Used for run-test methods -(defmacro call-if-function (form) - `(when (functionp ,form) (funcall ,form))) - -(defmacro test-return (test &rest args) - `(cons (test-data-symbol data) - (if ,test - (progn (princ 'ok stream) (terpri) :OK) - (progn (princ 'failed stream) (format stream ,@args) - (terpri) :FAILED)))) - -(defclass test-data () - ((symbol :initform NIL - :type symbol - :reader test-data-symbol - :initarg :symbol - :documentation "The symbol name to be tested") - (pre-function :initform NIL - :type (or function nil) - :reader test-data-pre-function - :initarg :pre-function - :documentation "Function to be called prior to running tests") - (post-function :initform NIL - :type (or function nil) - :reader test-data-post-function - :initarg :post-function - :documentation "Function to be called after running tests")) - (:documentation "Abstract supertype for CLASS, STRUCTURE, VARIABLE -and FUNCTION test-data")) - -(defclass function-test-data (test-data) - ((test-args :initform NIL - :type list - :reader function-test-data-test-args - :initarg :test-args - :documentation "A list of arguments to be passed to the -function for testing") - (result-form :initform NIL - :reader function-test-data-result-form - :initarg :result-form - :documentation "The expected return value when SYMBOL -is called with TEST-ARGS")) - (:documentation "A class to test functions or macros, taking -TEST-ARGS as a list of arguments to call the function with and -expecting RESULT-FORM to be the result")) - -(defclass output-function-test-data (function-test-data) - ((output :initform NIL - :type string - :reader output-function-test-data-output - :initarg :output - :documentation "A string which should be equal to the output")) - (:documentation "A subclass of function-test-data for testing macros -or functions, but this is used when thye output to *STANDARD-OUTPUT* -must be tested as well.")) - -(defclass side-effect-function-test-data (function-test-data) - ((var-list :initform NIL - :type list - :reader side-effect-function-test-data-var-list - :initarg :var-list - :documentation "An a-list of ((SYMBOL VALUE)) pairs. All -Symbols should be EQUAL to the VALUES after test function is -evaluated.")) - (:documentation "A subclass of function-test-data used to test -functions which have side effects of setting global variables.")) - -;; It's important that the RUN-TEST methods below all use DATA as the -;; TEST-DATA object name, because some of the macros defined at the -;; top of the file are hard coded to use the common names. - - -(defmethod run-test ((data function-test-data) - &optional (stream *standard-output*)) - (unwind-protect - (progn - (call-if-function (test-data-pre-function data)) - (let* ((test-form (cons (test-data-symbol data) - (function-test-data-test-args data))) - (result (eval test-form))) - (format stream "~S --> ~S : " test-form result) - (let ((test-result (function-test-data-result-form data))) - (test-return (equal result test-result) - "~S expected" test-result)))) - (call-if-function (test-data-post-function data)))) - -(defmethod run-test ((data output-function-test-data) - &optional (stream *standard-output*)) - (unwind-protect - (progn - (call-if-function (test-data-pre-function data)) - (let* ((test-form (cons (test-data-symbol data) - (function-test-data-test-args data))) - (output (make-array 0 :element-type 'base-char - :fill-pointer 0 :adjustable t)) - (result (with-output-to-string - (*standard-output* output) - (eval test-form)))) - (format stream "~S --> ~S ~S : " test-form output result) - (let ((test-output (output-function-test-data-output data)) - (test-result (function-test-data-result-form data))) - (test-return (and (equal result test-result) - (string= output test-output)) - "~S -> ~S expected" test-output test-result)))) - (call-if-function (test-data-post-function data)))) - -(defmethod run-test ((data side-effect-function-test-data) - &optional stream) - (unwind-protect - (progn - (call-if-function (test-data-pre-function data)) - (let* ((test-form (cons (test-data-symbol data) - (function-test-data-test-args data))) - (result (eval test-form)) - (test-var-list (side-effect-function-test-data-var-list - data)) - (vars (mapcar #'(lambda (c) (car c)) test-var-list)) - (var-list (mapcar - #'(lambda (|v|) (list |v| (eval |v|))) vars))) - (format stream "~S --> ~S ~S : " - test-form result var-list) - (let ((test-result (output-function-test-data-output data))) - (test-return (and (equal result test-result) - (equal test-var-list var-list)) - "~S and ~S expected" test-result test-var-list)))) - (call-if-function (test-data-post-function data)))) - -;; Example -;(defvar list-test (make-instance 'function-test-data -; :symbol 'list -; :test-args '(1 2 3 4 5) -; :result-form '(1 2 3 4 5))) -; -;* (run-test list-test) -;> (LIST 1 2 3 4 5) --> (1 2 3 4 5) : OK -;> (LIST . :OK ) +(use-package :test-suite) (defvar *cgi-tests*) @@ -229,6 +97,10 @@ :test-args '('(list 1 2 3)) :output (format nil "(CGI:DEBUG: (LIST 1 2 3) --> (1 2 3))~%")) + (make-instance 'function-test-data + :symbol 'cgi::ca-list-to-a-list + :test-args '('((a . 1)(b . 2)(c . 3))) + :result-form '((a 1)(b 2)(c 3))) (make-instance 'output-function-test-data :symbol 'cgi:header :output (format nil @@ -249,11 +121,8 @@ (fmakunbound 'cgi:header) (load "library:cgi")) :symbol 'cgi:header - :output "") - (make-instance 'function-test-data - :symbol 'cgi::ca-list-to-a-list - :test-args '('((a . 1)(b . 2)(c . 3))) - :result-form '((a 1)(b 2)(c 3))))) + :output ""))) + ; (make-instance 'side-effect-function-test-data ; :symbol 'cgi:init ; :pre-function #'(lambda () @@ -266,5 +135,8 @@ ; :var-list '((cgi:*server-env* t))))) ; -(defun run () - (mapcar #'run-test *cgi-tests*)) \ No newline at end of file +(eval-when (load) + (unix:unix-exit (cadr (multiple-value-list (run-tests *cgi-tests*))))) + + + \ No newline at end of file

1 0

[clhp-cvs] CVS update: clhp/config/runclcgi.src clhp/config/lispc.lisp clhp/config/build-core.lisp clhp/config/binfmt-test.lisp
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp/config In directory common-lisp.net:/tmp/cvs-serv31909/config Modified Files: runclcgi.src lispc.lisp build-core.lisp binfmt-test.lisp Log Message: Fixed type with my name in copyright headers Date: Wed Oct 15 08:50:52 2003 Author: aventimiglia Index: clhp/config/runclcgi.src diff -u clhp/config/runclcgi.src:1.3 clhp/config/runclcgi.src:1.4 --- clhp/config/runclcgi.src:1.3 Fri Sep 19 00:49:19 2003 +++ clhp/config/runclcgi.src Wed Oct 15 08:50:52 2003 @@ -17,7 +17,7 @@ # License along with this library; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# email: aventimigli(a)common-lisp.net +# email: aventimiglia(a)common-lisp.net # HomePage: http://common-lisp.net/project/clhp/ # Index: clhp/config/lispc.lisp diff -u clhp/config/lispc.lisp:1.2 clhp/config/lispc.lisp:1.3 --- clhp/config/lispc.lisp:1.2 Wed Sep 17 16:25:11 2003 +++ clhp/config/lispc.lisp Wed Oct 15 08:50:52 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: lispc.lisp,v 1.2 2003/09/17 20:25:11 aventimiglia Exp $") + "$Id: lispc.lisp,v 1.3 2003/10/15 12:50:52 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -18,7 +18,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ ;; This isn't really necessary, but it creates an exit code if there Index: clhp/config/build-core.lisp diff -u clhp/config/build-core.lisp:1.2 clhp/config/build-core.lisp:1.3 --- clhp/config/build-core.lisp:1.2 Wed Sep 17 14:19:52 2003 +++ clhp/config/build-core.lisp Wed Oct 15 08:50:52 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: build-core.lisp,v 1.2 2003/09/17 18:19:52 aventimiglia Exp $") + "$Id: build-core.lisp,v 1.3 2003/10/15 12:50:52 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -18,7 +18,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ Index: clhp/config/binfmt-test.lisp diff -u clhp/config/binfmt-test.lisp:1.2 clhp/config/binfmt-test.lisp:1.3 --- clhp/config/binfmt-test.lisp:1.2 Fri Sep 19 00:49:19 2003 +++ clhp/config/binfmt-test.lisp Wed Oct 15 08:50:52 2003 @@ -1,4 +1,4 @@ -;; $Id: binfmt-test.lisp,v 1.2 2003/09/19 04:49:19 aventimiglia Exp $ +;; $Id: binfmt-test.lisp,v 1.3 2003/10/15 12:50:52 aventimiglia Exp $ ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -17,7 +17,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ ;;

1 0

[clhp-cvs] CVS update: clhp/examples/test.lisp clhp/examples/index.clhp clhp/examples/clhp-test.lisp clhp/examples/Makefile
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp/examples In directory common-lisp.net:/tmp/cvs-serv31909/examples Modified Files: test.lisp index.clhp clhp-test.lisp Makefile Log Message: Fixed type with my name in copyright headers Date: Wed Oct 15 08:50:51 2003 Author: aventimiglia Index: clhp/examples/test.lisp diff -u clhp/examples/test.lisp:1.2 clhp/examples/test.lisp:1.3 --- clhp/examples/test.lisp:1.2 Fri Sep 19 00:49:19 2003 +++ clhp/examples/test.lisp Wed Oct 15 08:50:51 2003 @@ -15,11 +15,11 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ (ext:file-comment - "$Id: test.lisp,v 1.2 2003/09/19 04:49:19 aventimiglia Exp $") + "$Id: test.lisp,v 1.3 2003/10/15 12:50:51 aventimiglia Exp $") (cgi:init) (cgi:header :extra (list "Content-Language: en")) @@ -33,5 +33,5 @@ (cgi:debug '(cgi::post-data)) (cgi:debug '(cgi::post-data)))) -(format t "~%--------~% $Date: 2003/09/19 04:49:19 $~%") +(format t "~%--------~% $Date: 2003/10/15 12:50:51 $~%") Index: clhp/examples/index.clhp diff -u clhp/examples/index.clhp:1.5 clhp/examples/index.clhp:1.6 --- clhp/examples/index.clhp:1.5 Tue Sep 23 10:44:37 2003 +++ clhp/examples/index.clhp Wed Oct 15 08:50:51 2003 @@ -20,7 +20,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ ;; This example page is probably not representative of anything that Index: clhp/examples/clhp-test.lisp diff -u clhp/examples/clhp-test.lisp:1.2 clhp/examples/clhp-test.lisp:1.3 --- clhp/examples/clhp-test.lisp:1.2 Fri Sep 19 00:49:19 2003 +++ clhp/examples/clhp-test.lisp Wed Oct 15 08:50:51 2003 @@ -1,4 +1,4 @@ -;; $Id: clhp-test.lisp,v 1.2 2003/09/19 04:49:19 aventimiglia Exp $ +;; $Id: clhp-test.lisp,v 1.3 2003/10/15 12:50:51 aventimiglia Exp $ ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -17,7 +17,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ Index: clhp/examples/Makefile diff -u clhp/examples/Makefile:1.2 clhp/examples/Makefile:1.3 --- clhp/examples/Makefile:1.2 Thu Sep 18 16:57:29 2003 +++ clhp/examples/Makefile Wed Oct 15 08:50:51 2003 @@ -1,5 +1,24 @@ -# $Id: Makefile,v 1.2 2003/09/18 20:57:29 aventimiglia Exp $ +# $Id: Makefile,v 1.3 2003/10/15 12:50:51 aventimiglia Exp $ # +# CLHP the Common Lisp Hypertext Preprocessor +# (C) 2003 Anthony J Ventimiglia +# +# This library is free software; you can redistribute it and/or +# modify it under the terms of the GNU Lesser General Public +# License as published by the Free Software Foundation; either +# version 2.1 of the License, or (at your option) any later version. +# +# This library is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +# Lesser General Public License for more details. +# +# You should have received a copy of the GNU Lesser General Public +# License along with this library; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA +# +# email: aventimiglia(a)common-lisp.net +# HomePage: http://common-lisp.net/project/clhp/ # This is where lisp sources will be installed SRCDIR=/usr/lib/cmucl/source/clhp

1 0

[clhp-cvs] CVS update: clhp/start-clcgi.lisp clhp/clhp.lisp clhp/cgi.lisp clhp/Makefile
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv31909 Modified Files: start-clcgi.lisp clhp.lisp cgi.lisp Makefile Log Message: Fixed type with my name in copyright headers Date: Wed Oct 15 08:50:52 2003 Author: aventimiglia Index: clhp/start-clcgi.lisp diff -u clhp/start-clcgi.lisp:1.2 clhp/start-clcgi.lisp:1.3 --- clhp/start-clcgi.lisp:1.2 Thu Sep 18 16:57:30 2003 +++ clhp/start-clcgi.lisp Wed Oct 15 08:50:52 2003 @@ -1,4 +1,4 @@ -;; $Id: start-clcgi.lisp,v 1.2 2003/09/18 20:57:30 aventimiglia Exp $ +;; $Id: start-clcgi.lisp,v 1.3 2003/10/15 12:50:52 aventimiglia Exp $ ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -17,7 +17,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ ;; This came from a hacked version of a program Paul Foley posted at Index: clhp/clhp.lisp diff -u clhp/clhp.lisp:1.11 clhp/clhp.lisp:1.12 --- clhp/clhp.lisp:1.11 Wed Oct 8 11:43:33 2003 +++ clhp/clhp.lisp Wed Oct 15 08:50:52 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: clhp.lisp,v 1.11 2003/10/08 15:43:33 aventimiglia Exp $") + "$Id: clhp.lisp,v 1.12 2003/10/15 12:50:52 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -18,7 +18,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ (eval-when (:compile-toplevel) @@ -39,7 +39,7 @@ ;; will override the CVS keyword (defconstant *CLHP-VERSION* #.(or nil ; Set this for releases - (let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/08 15:43:33 $")) + (let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/15 12:50:52 $")) (date (subseq trimmed 0 (search " " trimmed)))) (concatenate 'string (subseq date 0 4) Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.8 clhp/cgi.lisp:1.9 --- clhp/cgi.lisp:1.8 Tue Oct 14 18:47:30 2003 +++ clhp/cgi.lisp Wed Oct 15 08:50:52 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.8 2003/10/14 22:47:30 aventimiglia Exp $") +#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.9 2003/10/15 12:50:52 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -17,7 +17,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ (defpackage :cgi Index: clhp/Makefile diff -u clhp/Makefile:1.9 clhp/Makefile:1.10 --- clhp/Makefile:1.9 Thu Oct 2 22:44:30 2003 +++ clhp/Makefile Wed Oct 15 08:50:52 2003 @@ -1,4 +1,4 @@ -# $Id: Makefile,v 1.9 2003/10/03 02:44:30 aventimiglia Exp $ +# $Id: Makefile,v 1.10 2003/10/15 12:50:52 aventimiglia Exp $ # # CLHP the Common Lisp Hypertext Preprocessor # (C) 2003 Anthony J Ventimiglia @@ -17,7 +17,7 @@ # License along with this library; if not, write to the Free Software # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA # -# email: aventimigli(a)common-lisp.net +# email: aventimiglia(a)common-lisp.net # HomePage: http://common-lisp.net/project/clhp/ # This is where lisp sources will be installed

1 0

[clhp-cvs] CVS update: clhp/tests/cgi-test.lisp
by Anthony Ventimiglia 15 Oct '03

15 Oct '03

Update of /project/clhp/cvsroot/clhp/tests In directory common-lisp.net:/tmp/cvs-serv31909/tests Modified Files: cgi-test.lisp Log Message: Fixed type with my name in copyright headers Date: Wed Oct 15 08:50:51 2003 Author: aventimiglia Index: clhp/tests/cgi-test.lisp diff -u clhp/tests/cgi-test.lisp:1.6 clhp/tests/cgi-test.lisp:1.7 --- clhp/tests/cgi-test.lisp:1.6 Wed Oct 8 11:43:32 2003 +++ clhp/tests/cgi-test.lisp Wed Oct 15 08:50:51 2003 @@ -17,7 +17,7 @@ ;; License along with this library; if not, write to the Free Software ;; Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA ;; -;; email: aventimigli(a)common-lisp.net +;; email: aventimiglia(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ ;; Test suite to for the :CGI package. The aim of this is to test all

1 0

[clhp-cvs] CVS update: clhp/cgi.lisp clhp/ChangeLog
by Anthony Ventimiglia 14 Oct '03

14 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv1953 Modified Files: cgi.lisp ChangeLog Log Message: (debug): Changed format string to ~S so objects will be printed more accuratley Date: Tue Oct 14 18:47:30 2003 Author: aventimiglia Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.7 clhp/cgi.lisp:1.8 --- clhp/cgi.lisp:1.7 Wed Oct 8 11:43:33 2003 +++ clhp/cgi.lisp Tue Oct 14 18:47:30 2003 @@ -1,4 +1,4 @@ -#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.7 2003/10/08 15:43:33 aventimiglia Exp $") +#+cmu (ext:file-comment "$Id: cgi.lisp,v 1.8 2003/10/14 22:47:30 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -33,7 +33,7 @@ (defmacro debug (expression) "Print out EXPRESSION and the result of (EVAL EXPRESSION)" - `(format t "(CGI:DEBUG: ~a --> ~a)~%" ,expression (eval ,expression))) + `(format t "(CGI:DEBUG: ~s --> ~s)~%" ,expression (eval ,expression))) (defmacro explode-string (string) "Converts a string to a list of chars, this is an aux function used Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.10 clhp/ChangeLog:1.11 --- clhp/ChangeLog:1.10 Wed Oct 8 11:43:33 2003 +++ clhp/ChangeLog Tue Oct 14 18:47:30 2003 @@ -1,3 +1,8 @@ +2003-10-14 <ant(a)afghan.dogpound> + + * cgi.lisp (debug): Changed format string to ~S so objects will be + printed more accuratley + 2003-10-08 <ant(a)afghan.dogpound> * cgi.lisp, clhp.lisp (cond-bind): Addedd COND-BIND, basically @@ -62,4 +67,4 @@ used to create tables from (CONS . TYPE) a-lists. Also added some comments. -$Id: ChangeLog,v 1.10 2003/10/08 15:43:33 aventimiglia Exp $ \ No newline at end of file +$Id: ChangeLog,v 1.11 2003/10/14 22:47:30 aventimiglia Exp $ \ No newline at end of file

1 0

[clhp-cvs] CVS update: clhp/config/.cvsignore
by Anthony Ventimiglia 14 Oct '03

14 Oct '03

Update of /project/clhp/cvsroot/clhp/config In directory common-lisp.net:/tmp/cvs-serv1953/config Added Files: .cvsignore Log Message: (debug): Changed format string to ~S so objects will be printed more accuratley Date: Tue Oct 14 18:47:29 2003 Author: aventimiglia

1 0