clhp-cvs

clhp-cvs@common-lisp.net

120 discussions

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

02 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv18549 Modified Files: cgi.lisp ChangeLog Log Message: (a-list-value): Convenience macro for getting the values of a-lists Date: Thu Oct 2 13:43:06 2003 Author: aventimiglia Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.3 clhp/cgi.lisp:1.4 --- clhp/cgi.lisp:1.3 Wed Oct 1 10:32:45 2003 +++ clhp/cgi.lisp Thu Oct 2 13:43:06 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: cgi.lisp,v 1.3 2003/10/01 14:32:45 aventimiglia Exp $") + "$Id: cgi.lisp,v 1.4 2003/10/02 17:43:06 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -42,6 +42,10 @@ ex: (EXPLODE-STRING (\"Hello\") --> (#\H #\e #\l #\l #\o)" `(concatenate 'list ,string)) +(defmacro a-list-value (key a-list) + "returns the value from a (KEY . VALUE) A-LIST" + `(cdr (assoc ,key ,a-list))) + ;; External Symbol section (defvar *server-env* nil @@ -89,7 +93,8 @@ (setf *server-env* ext:*environment-list* *query-vars* (let ((request-method (make-keyword - (cdr (assoc :REQUEST_METHOD *server-env*))))) + (a-list-value :REQUEST_METHOD + *server-env*)))) (cond ((eql request-method :POST) (query-to-a-list (post-data))) @@ -147,8 +152,7 @@ (defun get-data () "Returns GET data (QUERY_STRING) as an exploded string" - (explode-string - (cdr (assoc :QUERY_STRING *server-env*)))) + (explode-string (a-list-value :QUERY_STRING *server-env*))) ;; The closure makes sure we don't try to read from stdin twice (let ((get-switch nil) @@ -161,7 +165,7 @@ get-switch t post-char-list (read-n-chars (read-from-string - (cdr (assoc :CONTENT_LENGTH *server-env*))))) + (a-list-value :CONTENT_LENGTH *server-env*)))) post-char-list) post-char-list))) Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.5 clhp/ChangeLog:1.6 --- clhp/ChangeLog:1.5 Wed Oct 1 15:12:21 2003 +++ clhp/ChangeLog Thu Oct 2 13:43:06 2003 @@ -1,3 +1,8 @@ +2003-10-02 <ant(a)afghan.dogpound> + + * cgi.lisp (a-list-value): Convenience macro for getting the + values of a-lists + 2003-10-01 <ant(a)afghan.dogpound> * tests/cgi-test.lisp: Beginning tests for CGI package, right now

1 0

[clhp-cvs] CVS update: clhp/ChangeLog
by Anthony Ventimiglia 01 Oct '03

01 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv12708 Modified Files: ChangeLog Log Message: Date: Wed Oct 1 15:12:21 2003 Author: aventimiglia Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.4 clhp/ChangeLog:1.5 --- clhp/ChangeLog:1.4 Wed Oct 1 10:34:10 2003 +++ clhp/ChangeLog Wed Oct 1 15:12:21 2003 @@ -1,5 +1,9 @@ 2003-10-01 <ant(a)afghan.dogpound> + * tests/cgi-test.lisp: Beginning tests for CGI package, right now + the code in tests/cgi-test.lisp has to be called interactively, + but it does do some of the job + * clhp.lisp, cgi.lisp: converted to easier defpackage construct. 2003-09-23 <ant(a)afghan.dogpound>

1 0

[clhp-cvs] CVS update: clhp/TODO
by Anthony Ventimiglia 01 Oct '03

01 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv12285 Modified Files: TODO Log Message: Beginning tests for CGI package, right now the code in tests/cgi-test.lisp has to be called interactively, but it does do some of the job Date: Wed Oct 1 15:11:33 2003 Author: aventimiglia Index: clhp/TODO diff -u clhp/TODO:1.5 clhp/TODO:1.6 --- clhp/TODO:1.5 Wed Oct 1 10:01:47 2003 +++ clhp/TODO Wed Oct 1 15:11:33 2003 @@ -1,10 +1,14 @@ -$Id: TODO,v 1.5 2003/10/01 14:01:47 aventimiglia Exp $ -*- outline -*- +$Id: TODO,v 1.6 2003/10/01 19:11:33 aventimiglia Exp $ -*- outline -*- * 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 + * COMPILE-CGI This is just a convenience function that will compile and save fasl files with the .clcgi extension. @@ -18,7 +22,10 @@ the HTTP headers generated by CLHP. * TAG - This has to be done with a macro. + This is pretty nice right now, but I would like to implement it + possibly as a reader macro, where something like #<a href="/" #<b + "Click Me">> yields <a href="/"><b>Click Me</b></a>. The problem is + getting embedded reader macros to work properly. * Error handling This will be the biggest ongoing project, lets try to create every @@ -38,10 +45,13 @@ to be done in CLHP, at least not right away. * Pre-release check list -** version numbering +** version numbering VERSION in Makefile and *CLHP-VERSION* in clhp.lisp should be set. Eventually I'd like to set up a nice way to have this all happen automatically. I think the best way to do this is to make the whole build process more lisp dependent. The other option is - to go automake with it. + to go automake with it. + + The way it works now is very nice, in fact, I don't think Automake + could do it so well.

1 0

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

01 Oct '03

Update of /project/clhp/cvsroot/clhp/tests In directory common-lisp.net:/tmp/cvs-serv12285/tests Added Files: cgi-test.lisp Log Message: Beginning tests for CGI package, right now the code in tests/cgi-test.lisp has to be called interactively, but it does do some of the job Date: Wed Oct 1 15:11:33 2003 Author: aventimiglia

1 0

[clhp-cvs] CVS update: clhp/ChangeLog
by Anthony Ventimiglia 01 Oct '03

01 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv13933 Modified Files: ChangeLog Log Message: Finally got defpackage to work properly. Date: Wed Oct 1 10:34:10 2003 Author: aventimiglia Index: clhp/ChangeLog diff -u clhp/ChangeLog:1.3 clhp/ChangeLog:1.4 --- clhp/ChangeLog:1.3 Tue Sep 23 22:11:16 2003 +++ clhp/ChangeLog Wed Oct 1 10:34:10 2003 @@ -1,3 +1,7 @@ +2003-10-01 <ant(a)afghan.dogpound> + + * clhp.lisp, cgi.lisp: converted to easier defpackage construct. + 2003-09-23 <ant(a)afghan.dogpound> * clhp.lisp: Created XML-ELEMENT structure and exported all it's

1 0

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

01 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv12354 Modified Files: clhp.lisp cgi.lisp Log Message: Finally got defpackage to work properly. Date: Wed Oct 1 10:32:45 2003 Author: aventimiglia Index: clhp/clhp.lisp diff -u clhp/clhp.lisp:1.8 clhp/clhp.lisp:1.9 --- clhp/clhp.lisp:1.8 Tue Sep 23 22:11:16 2003 +++ clhp/clhp.lisp Wed Oct 1 10:32:45 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: clhp.lisp,v 1.8 2003/09/24 02:11:16 aventimiglia Exp $") + "$Id: clhp.lisp,v 1.9 2003/10/01 14:32:45 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -21,21 +21,16 @@ ;; email: aventimigli(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ -;; This is here to make clean compilation (eval-when (:compile-toplevel) - (when (find-package :clhp) - (delete-package :clhp)) - ;; Since CGU us used and we may be building this before it's installed, - ;; We'll need to load it. (unless (find-package :cgi) (load "cgi"))) -(make-package :CLHP) - -(in-package :CLHP) -(export '(PARSE *CLHP-VERSION* ECHO INCLUDE XML-ELEMENT MAKE-XML-ELEMENT - COPY-XML-ELEMENT XML-ELEMENT-ATTRIBUTES XML-ELEMENT-NAME - XML-ELEMENT-CONTENTS XML-ELEMENT-P TAG)) +(defpackage :clhp + (:use :cgi :cl) + (:export #:parse #:*clhp-version* #:echo #:include #:xml-element + #:make-xml-element #:copy-xml-element #:xml-element-attributes + #:xml-element-name #:xml-element-contents #:xml-element-p #:tag)) +(in-package :clhp) ;; This elaborate reader macro converts the cvs Date keywords and ;; translates it into a 8 digit date code for marking the cvs version. @@ -43,7 +38,7 @@ ;; will override the CVS keyword (defconstant *CLHP-VERSION* #.(or nil ; Set this for releases - (let* ((trimmed (string-trim "$ Date:" "$Date: 2003/09/24 02:11:16 $")) + (let* ((trimmed (string-trim "$ Date:" "$Date: 2003/10/01 14:32:45 $")) (date (subseq trimmed 0 (search " " trimmed)))) (concatenate 'string (subseq date 0 4) Index: clhp/cgi.lisp diff -u clhp/cgi.lisp:1.2 clhp/cgi.lisp:1.3 --- clhp/cgi.lisp:1.2 Fri Sep 19 01:57:19 2003 +++ clhp/cgi.lisp Wed Oct 1 10:32:45 2003 @@ -1,5 +1,5 @@ (ext:file-comment - "$Id: cgi.lisp,v 1.2 2003/09/19 05:57:19 aventimiglia Exp $") + "$Id: cgi.lisp,v 1.3 2003/10/01 14:32:45 aventimiglia Exp $") ;; ;; CLHP the Common Lisp Hypertext Preprocessor ;; (C) 2003 Anthony J Ventimiglia @@ -21,14 +21,11 @@ ;; email: aventimigli(a)common-lisp.net ;; HomePage: http://common-lisp.net/project/clhp/ -;; This is here to make clean compilation -(eval-when (:compile-toplevel) - (when (find-package :cgi) - (delete-package :cgi))) +(defpackage :cgi + (:use :cl) + (:export #:*server-env* #:*query-vars* #:header #:debug #:init)) -(make-package "CGI") (in-package :cgi) -(export '(*SERVER-ENV* *QUERY-VARS* HEADER DEBUG INIT)) (defmacro make-keyword (name) "Translates a string into a keyword: (MAKE-KEYWORD \"foo\") -->

1 0

[clhp-cvs] CVS update: Directory change: clhp/tests
by Anthony Ventimiglia 01 Oct '03

01 Oct '03

Update of /project/clhp/cvsroot/clhp/tests In directory common-lisp.net:/tmp/cvs-serv8903/tests Log Message: Directory /project/clhp/cvsroot/clhp/tests added to the repository Date: Wed Oct 1 10:26:44 2003 Author: aventimiglia New directory clhp/tests added

1 0

[clhp-cvs] CVS update: clhp/BUGS clhp/TODO
by Anthony Ventimiglia 01 Oct '03

01 Oct '03

Update of /project/clhp/cvsroot/clhp In directory common-lisp.net:/tmp/cvs-serv24710 Modified Files: TODO Added Files: BUGS Log Message: Added some documentation, including BUGS page, which should be considered part of the TODO list, only with a high priority. Date: Wed Oct 1 10:01:47 2003 Author: aventimiglia Index: clhp/TODO diff -u clhp/TODO:1.4 clhp/TODO:1.5 --- clhp/TODO:1.4 Mon Sep 29 13:05:11 2003 +++ clhp/TODO Wed Oct 1 10:01:47 2003 @@ -1,4 +1,9 @@ -$Id: TODO,v 1.4 2003/09/29 17:05:11 aventimiglia Exp $ -*- outline -*- +$Id: TODO,v 1.5 2003/10/01 14:01:47 aventimiglia Exp $ -*- outline -*- + +* 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. * COMPILE-CGI This is just a convenience function that will compile and save fasl

1 0

[clhp-cvs] CVS update: public_html/index.clhp
by Anthony Ventimiglia 29 Sep '03

29 Sep '03

Update of /project/clhp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv26185 Modified Files: index.clhp Log Message: Even better way to use ed Date: Mon Sep 29 13:21:11 2003 Author: aventimiglia Index: public_html/index.clhp diff -u public_html/index.clhp:1.2 public_html/index.clhp:1.3 --- public_html/index.clhp:1.2 Mon Sep 29 13:15:40 2003 +++ public_html/index.clhp Mon Sep 29 13:21:11 2003 @@ -9,10 +9,7 @@ #| $ lisp -core /usr/lib/cmucl/clhp.core \ -eval '(clhp:parse "index.clhp")(quit)' > index.html && \ - ed index.html << EOF -1,3d -wq -EOF + echo -e "1,3d\nwq\n" | ed index.html |# ;; The HTTP Headers will have to be deleted from the resulting file.

1 0

[clhp-cvs] CVS update: public_html/index.clhp
by Anthony Ventimiglia 29 Sep '03

29 Sep '03

Update of /project/clhp/cvsroot/public_html In directory common-lisp.net:/tmp/cvs-serv23096 Modified Files: index.clhp Log Message: Imporved the build command shown in comment, this is really temporary Date: Mon Sep 29 13:15:40 2003 Author: aventimiglia Index: public_html/index.clhp diff -u public_html/index.clhp:1.1.1.1 public_html/index.clhp:1.2 --- public_html/index.clhp:1.1.1.1 Mon Sep 29 13:02:21 2003 +++ public_html/index.clhp Mon Sep 29 13:15:40 2003 @@ -6,9 +6,14 @@ ;; these pages through the CLHP parser, and use the resulting pages ;; for the web site with the following command: ;; -;; $ lisp -core /usr/lib/cmucl/clhp.core \ -;; -eval '(clhp:parse "index.clhp")(quit)' > index.html -;; +#| +$ lisp -core /usr/lib/cmucl/clhp.core \ + -eval '(clhp:parse "index.clhp")(quit)' > index.html && \ + ed index.html << EOF +1,3d +wq +EOF +|# ;; The HTTP Headers will have to be deleted from the resulting file. (defvar *title* "CLHP the Common Lisp Hypertext Preprocessor")

1 0

← Newer
1
...
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

2004

2003

clhp-cvs