- bknr-cvs@common-lisp.net - mailman3.common-lisp.net

[bknr-cvs] hans changed trunk/projects/hello-web/src/init.lisp
by BKNR Commits 04 Jun '10

04 Jun '10

Revision: 4552 Author: hans URL: http://bknr.net/trac/changeset/4552 Add :REQUEST-DISPATCHER argument to HUNCHENTOOT:ACCEPTOR instance creation argument list. U trunk/projects/hello-web/src/init.lisp Modified: trunk/projects/hello-web/src/init.lisp =================================================================== --- trunk/projects/hello-web/src/init.lisp 2010-05-23 05:29:01 UTC (rev 4551) +++ trunk/projects/hello-web/src/init.lisp 2010-06-04 05:37:39 UTC (rev 4552) @@ -24,5 +24,5 @@ (publish-hello-web) (when *webserver* (hunchentoot:stop *webserver*)) - (setq *webserver* (make-instance 'hunchentoot:acceptor :port port)) + (setq *webserver* (make-instance 'hunchentoot:acceptor :port port :request-dispatcher 'bknr.web:bknr-dispatch)) (hunchentoot:start *webserver*))

1 0

[bknr-cvs] hans changed trunk/projects/bknr-website/website/templates/
by BKNR Commits 23 May '10

23 May '10

Revision: 4551 Author: hans URL: http://bknr.net/trac/changeset/4551 remove advertisment for bknr.impex, add github reference U trunk/projects/bknr-website/website/templates/getting.xml U trunk/projects/bknr-website/website/templates/home.xml Modified: trunk/projects/bknr-website/website/templates/getting.xml =================================================================== --- trunk/projects/bknr-website/website/templates/getting.xml 2010-05-23 05:15:08 UTC (rev 4550) +++ trunk/projects/bknr-website/website/templates/getting.xml 2010-05-23 05:29:01 UTC (rev 4551) @@ -8,6 +8,9 @@ href="http://subversion.tigris.org" target="_new">Subversion</a> repository which is publicy accessible.</p> + <p>The datastore component of BKNR is also available + through <a href="http://github.com/hanshuebner/bknr-datastore">git</a>.</p> + <p>The BKNR repository contains the framework, all software packages used by BKNR as well as well as several real-world applications which have been deployed in the internet. The application sources are @@ -41,18 +44,4 @@ href="http://bknr.net/trac/timeline?milestone=on&ticket=on&changeset=on&a…">RSS feed</a> that contains information about commits to our repository and other project related events.</p> - -  </page> Modified: trunk/projects/bknr-website/website/templates/home.xml =================================================================== --- trunk/projects/bknr-website/website/templates/home.xml 2010-05-23 05:15:08 UTC (rev 4550) +++ trunk/projects/bknr-website/website/templates/home.xml 2010-05-23 05:29:01 UTC (rev 4551) @@ -19,7 +19,6 @@ <ul> <li>Persistence mechanism based on transaction logging, supporting immutable binary large objects and CLOS persistence.</li> - <li>XML processing facilities</li> <li>HTTP application environment with session handling and template engine</li> </ul> </p> @@ -49,18 +48,6 @@ implemented in a MOP metaclass and compatible with the BKNR metaclass for persistent objects. </p> - <h3>XML processing</h3> - <p> - BKNR integrates the Closure XML (CXML) parser using a CLOS metaclass - to provide for reading and writing XML files of objects. Combined - metaclasses are provided in order to allow for combinations like - indexed+persistent or indexed+xml. - </p> - <p> - CXML is also used for XHTML generation and XHTML template processing. - User-defined element handlers can be added to the XHTML generation to - support application-specific generation of dynamic content. - </p> <h3>Web application environment</h3> <p> BKNR uses the portable aserve web server implementation as HTTP

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/xml-impex/README
by BKNR Commits 23 May '10

23 May '10

Revision: 4550 Author: hans URL: http://bknr.net/trac/changeset/4550 Add README describing the broken state of bknr.impex A trunk/bknr/datastore/src/xml-impex/README Added: trunk/bknr/datastore/src/xml-impex/README =================================================================== --- trunk/bknr/datastore/src/xml-impex/README (rev 0) +++ trunk/bknr/datastore/src/xml-impex/README 2010-05-23 05:15:08 UTC (rev 4550) @@ -0,0 +1,4 @@ +The xml-impex facility has regressed over the years as it has +not been used. It is kept until a later reorganization as some +projects still depend on it being compilable. Please do not +expect the nice tutorial to work.

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/xml-impex/
by BKNR Commits 23 May '10

23 May '10

Revision: 4549 Author: hans URL: http://bknr.net/trac/changeset/4549 some more trivial corrections, still not working U trunk/bknr/datastore/src/xml-impex/tutorial.lisp U trunk/bknr/datastore/src/xml-impex/xml-import.lisp Modified: trunk/bknr/datastore/src/xml-impex/tutorial.lisp =================================================================== --- trunk/bknr/datastore/src/xml-impex/tutorial.lisp 2010-05-23 05:12:46 UTC (rev 4548) +++ trunk/bknr/datastore/src/xml-impex/tutorial.lisp 2010-05-23 05:13:41 UTC (rev 4549) @@ -35,7 +35,7 @@ ;;; BKNR to your `asdf:*central-registry*', and load the indices ;;; module by evaluating the following form: -(asdf:oos 'asdf:load-op :bknr-impex) +(asdf:oos 'asdf:load-op :bknr.impex) ;;; Then switch to the `bknr.impex' package to try out the tutorial. Modified: trunk/bknr/datastore/src/xml-impex/xml-import.lisp =================================================================== --- trunk/bknr/datastore/src/xml-impex/xml-import.lisp 2010-05-23 05:12:46 UTC (rev 4548) +++ trunk/bknr/datastore/src/xml-impex/xml-import.lisp 2010-05-23 05:13:41 UTC (rev 4549) @@ -90,7 +90,7 @@ (setf (gethash slot slots) value))))))) (defmethod importer-finalize ((handler xml-class-importer) - (node xml-node)) + (node xml-node)) (with-slots (data children) node (cond ((and data

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/xml-impex/xml-
by BKNR Commits 23 May '10

23 May '10

Revision: 4548 Author: hans URL: http://bknr.net/trac/changeset/4548 Try to resurrect bknr.impex, but not done. U trunk/bknr/datastore/src/xml-impex/xml-class.lisp U trunk/bknr/datastore/src/xml-impex/xml-import.lisp Modified: trunk/bknr/datastore/src/xml-impex/xml-class.lisp =================================================================== --- trunk/bknr/datastore/src/xml-impex/xml-class.lisp 2010-05-23 05:12:23 UTC (rev 4547) +++ trunk/bknr/datastore/src/xml-impex/xml-class.lisp 2010-05-23 05:12:46 UTC (rev 4548) @@ -9,7 +9,8 @@ (unique-id-reader :initarg :unique-id-reader :initform nil :documentation "if set to a function, this signals that the function can be used as a unique index-reader when -used in XML update operations."))) +used in XML update operations.") + (dtd-name :reader xml-class-dtd-name))) (defmethod xml-class-unique-id-slot ((class xml-class)) (first (slot-value class 'unique-id-slot))) @@ -130,12 +131,14 @@ (error "Class ~A has more than one parent slot: ~A." class parent-slots)) (first parent-slots))) -(defmethod initialize-instance :after ((class xml-class) &key element &allow-other-keys) - (setf (xml-class-element class) (or (first element) (string-downcase (class-name class)))) +(defmethod initialize-instance :after ((class xml-class) &key element dtd-name) + (setf (slot-value class 'dtd-name) (symbol-value (first dtd-name)) + (xml-class-element class) (or (first element) (string-downcase (class-name class)))) (xml-class-finalize class)) -(defmethod reinitialize-instance :after ((class xml-class) &key element &allow-other-keys) - (setf (xml-class-element class) (or (first element) (string-downcase (class-name class)))) +(defmethod reinitialize-instance :after ((class xml-class) &key element dtd-name) + (setf (slot-value class 'dtd-name) (symbol-value (first dtd-name)) + (xml-class-element class) (or (first element) (string-downcase (class-name class)))) (xml-class-finalize class)) (defmethod xml-class-finalize ((class xml-class)) Modified: trunk/bknr/datastore/src/xml-impex/xml-import.lisp =================================================================== --- trunk/bknr/datastore/src/xml-impex/xml-import.lisp 2010-05-23 05:12:23 UTC (rev 4547) +++ trunk/bknr/datastore/src/xml-impex/xml-import.lisp 2010-05-23 05:12:46 UTC (rev 4548) @@ -182,6 +182,7 @@ (dolist (class classes) (setf (gethash (xml-class-element class) class-hash) class)) (let ((importer (make-instance importer-class + :dtd (parse-dtd-file (xml-class-dtd-name (first classes))) :class-hash class-hash))) (cxml:parse-file xml-file (cxml:make-recoder importer recoder)) (importer-root-elt importer))))

1 0

[bknr-cvs] hans changed trunk/bknr/datastore/src/
by BKNR Commits 23 May '10

23 May '10

Revision: 4547 Author: hans URL: http://bknr.net/trac/changeset/4547 correct typos/charset U trunk/bknr/datastore/src/data/txn.lisp U trunk/bknr/datastore/src/utils/utils.lisp Modified: trunk/bknr/datastore/src/data/txn.lisp =================================================================== --- trunk/bknr/datastore/src/data/txn.lisp 2010-05-23 05:11:46 UTC (rev 4546) +++ trunk/bknr/datastore/src/data/txn.lisp 2010-05-23 05:12:23 UTC (rev 4547) @@ -595,7 +595,7 @@ :log-buffer (flex:make-in-memory-input-stream buffer)))) (define-condition rollback-failed (error) - ((transaction :initarg transaction) + ((transaction :initarg :transaction) (original-error :initarg :original-error)) (:report (lambda (e stream) (with-slots (transaction original-error) e Modified: trunk/bknr/datastore/src/utils/utils.lisp =================================================================== --- trunk/bknr/datastore/src/utils/utils.lisp 2010-05-23 05:11:46 UTC (rev 4546) +++ trunk/bknr/datastore/src/utils/utils.lisp 2010-05-23 05:12:23 UTC (rev 4547) @@ -6,7 +6,7 @@ ,@(when doc (list doc)))) ;;; date format -;; Zeitzone für Mail-Zeitstempel +;; Zeitzone fuer Mail-Zeitstempel (defparameter *mail-timezone* "+0100") (defun format-date-time (&optional universal-time &key stream

1 0

[bknr-cvs] hans changed trunk/bknr/web/src/web/menu.lisp
by BKNR Commits 23 May '10

23 May '10

Revision: 4546 Author: hans URL: http://bknr.net/trac/changeset/4546 Remove unix-namestring invocation from SBCL variant. U trunk/bknr/web/src/web/menu.lisp Modified: trunk/bknr/web/src/web/menu.lisp =================================================================== --- trunk/bknr/web/src/web/menu.lisp 2010-05-19 20:00:13 UTC (rev 4545) +++ trunk/bknr/web/src/web/menu.lisp 2010-05-23 05:11:46 UTC (rev 4546) @@ -43,8 +43,7 @@ (declare (ignore menu-name)) (let* ((menu (bknr.impex:parse-xml-file #+cmu (ext:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #+sbcl (sb-int:unix-namestring (merge-pathnames config *default-pathname-defaults*)) - #-(or cmu sbcl) (namestring (probe-file (merge-pathnames config *default-pathname-defaults*))) + #-cmu (namestring (probe-file (merge-pathnames config *default-pathname-defaults*))) *menu-def-classes*))) (html ((:div :class container-class)

1 0

[bknr-cvs] edi changed tags/thirdparty/drakma-1.2.1/
by BKNR Commits 19 May '10

19 May '10

Revision: 4545 Author: edi URL: http://bknr.net/trac/changeset/4545 Tag Drakma 1.2.1 A tags/thirdparty/drakma-1.2.1/

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/CHANGELOG.txt
by BKNR Commits 19 May '10

19 May '10

Revision: 4544 Author: edi URL: http://bknr.net/trac/changeset/4544 And Zach as well U trunk/thirdparty/drakma/CHANGELOG.txt Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2010-05-19 19:55:46 UTC (rev 4543) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2010-05-19 19:57:12 UTC (rev 4544) @@ -1,6 +1,6 @@ Version 1.2.1 2010-05-19 -Fix a couple of typos (thanks to Stelian Ionescu and Giovanni Gigante) +Fix a couple of typos (thanks to Stelian Ionescu, Giovanni Gigante, and Zach Beane) Version 1.2.0 2010-05-19

1 0

[bknr-cvs] edi changed trunk/thirdparty/drakma/
by BKNR Commits 19 May '10

19 May '10

Revision: 4543 Author: edi URL: http://bknr.net/trac/changeset/4543 Bugfix release 1.2.1 U trunk/thirdparty/drakma/CHANGELOG.txt U trunk/thirdparty/drakma/doc/index.html U trunk/thirdparty/drakma/drakma.asd U trunk/thirdparty/drakma/request.lisp U trunk/thirdparty/drakma/util.lisp Modified: trunk/thirdparty/drakma/CHANGELOG.txt =================================================================== --- trunk/thirdparty/drakma/CHANGELOG.txt 2010-05-19 15:40:13 UTC (rev 4542) +++ trunk/thirdparty/drakma/CHANGELOG.txt 2010-05-19 19:55:46 UTC (rev 4543) @@ -1,3 +1,7 @@ +Version 1.2.1 +2010-05-19 +Fix a couple of typos (thanks to Stelian Ionescu and Giovanni Gigante) + Version 1.2.0 2010-05-19 Introduced *REMOVE-DUPLICATE-COOKIES-P* (Ryan Davis) Modified: trunk/thirdparty/drakma/doc/index.html =================================================================== --- trunk/thirdparty/drakma/doc/index.html 2010-05-19 15:40:13 UTC (rev 4542) +++ trunk/thirdparty/drakma/doc/index.html 2010-05-19 19:55:46 UTC (rev 4543) @@ -656,7 +656,7 @@ Drakma together with this documentation can be downloaded from <a href="http://weitz.de/files/drakma.tar.gz">http://weitz.de/files/drakma.tar.gz</a>. -The current version is 1.2.0. Drakma can be installed +The current version is 1.2.1. Drakma can be installed via <a href="http://www.cliki.net/asdf">ASDF</a> and depends on the open source libraries <a href="http://www.cliki.net/cl-base64">CL-BASE64</a> (use Modified: trunk/thirdparty/drakma/drakma.asd =================================================================== --- trunk/thirdparty/drakma/drakma.asd 2010-05-19 15:40:13 UTC (rev 4542) +++ trunk/thirdparty/drakma/drakma.asd 2010-05-19 19:55:46 UTC (rev 4543) @@ -38,7 +38,7 @@ (in-package :drakma-asd) -(defvar *drakma-version-string* "1.2.0" +(defvar *drakma-version-string* "1.2.1" "Drakma's version number as a string.") ;; we export its name so we can import it later Modified: trunk/thirdparty/drakma/request.lisp =================================================================== --- trunk/thirdparty/drakma/request.lisp 2010-05-19 15:40:13 UTC (rev 4542) +++ trunk/thirdparty/drakma/request.lisp 2010-05-19 19:55:46 UTC (rev 4543) @@ -487,6 +487,9 @@ (when (and use-ssl ;; don't attach SSL to existing streams (not stream)) + #+:lispworks + (comm:attach-ssl http-stream :ssl-side :client) + #-:lispworks (setq http-stream (make-ssl-stream http-stream))) (cond (stream (setf (flexi-stream-element-type http-stream) Modified: trunk/thirdparty/drakma/util.lisp =================================================================== --- trunk/thirdparty/drakma/util.lisp 2010-05-19 15:40:13 UTC (rev 4542) +++ trunk/thirdparty/drakma/util.lisp 2010-05-19 19:55:46 UTC (rev 4543) @@ -331,7 +331,7 @@ "Attaches SSL to the stream HTTP-STREAM and returns the SSL stream \(which will not be equal to HTTP-STREAM)." #+:allegro - (socket:make-ssl-client-stream http-stream)) + (socket:make-ssl-client-stream http-stream) #-:allegro (let ((s http-stream)) (cl+ssl:make-ssl-client-stream

1 0