cxml-cvs

cxml-cvs@common-lisp.net

425 discussions

[cxml-cvs] CVS cxml
by dlichteblau 02 Dec '07

02 Dec '07

Update of /project/cxml/cvsroot/cxml In directory clnet:/tmp/cvs-serv22350 Modified Files: cxml.asd Log Message: fixed the asdf-install workaround --- /project/cxml/cvsroot/cxml/cxml.asd 2007/10/07 14:45:07 1.21 +++ /project/cxml/cvsroot/cxml/cxml.asd 2007/12/02 20:55:11 1.22 @@ -2,11 +2,16 @@ (:use :asdf :cl)) (in-package :cxml-system) +(defclass dummy-cxml-component () ()) + +(defmethod asdf:component-name ((c dummy-cxml-component)) + :cxml) + ;; force loading of closure-common.asd, which installs *FEATURES* this ;; file depends on. Use MISSING-DEPENDENCY for asdf-install. (unless (find-system :closure-common nil) (error 'missing-dependency - :required-by :cxml + :required-by (make-instance 'dummy-cxml-component) :version nil :requires :closure-common))

1 0

[cxml-cvs] CVS cxml/xml
by dlichteblau 24 Nov '07

24 Nov '07

Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv31472 Modified Files: unparse.lisp xml-parse.lisp Log Message: fixed DTD serialization bugs, thanks to _3b for the report --- /project/cxml/cvsroot/cxml/xml/unparse.lisp 2007/11/18 18:43:11 1.23 +++ /project/cxml/cvsroot/cxml/xml/unparse.lisp 2007/11/24 00:04:16 1.24 @@ -286,6 +286,8 @@ (%write-rod "EMPTY" sink)) ((eq m :PCDATA) (%write-rod "#PCDATA" sink)) + ((eq m :ANY) + (%write-rod "ANY" sink)) ((atom m) (unparse-string m sink)) (t @@ -306,13 +308,13 @@ (%write-rune #/\) sink)) (* (walk (second m)) - (%write-rod #/* sink)) + (%write-rune #/* sink)) (+ (walk (second m)) - (%write-rod #/+ sink)) + (%write-rune #/+ sink)) (? (walk (second m)) - (%write-rod #/? sink))))))) + (%write-rune #/? sink))))))) (walk model)) (%write-rune #/> sink) (%write-rune #/U+000A sink)) --- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/10/14 18:40:26 1.74 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2007/11/24 00:04:16 1.75 @@ -1098,7 +1098,8 @@ (prog1 (setf (gethash element-name (dtd-elements dtd)) (make-elmdef :name element-name :content content-model)) - (sax:element-declaration (handler *ctx*) element-name content-model))) + (when content-model + (sax:element-declaration (handler *ctx*) element-name content-model)))) ((null content-model) e) (t @@ -2101,8 +2102,7 @@ (wf-error input "Malformed or invalid content model: ~S." (mu content))) (p/S? input) (expect input :\>) - (when *validate* - (define-element (dtd *ctx*) name content)) + (define-element (dtd *ctx*) name content) (list :element name content))) (defun maybe-compile-cspec (e)

1 0

[cxml-cvs] CVS closure-common
by dlichteblau 18 Nov '07

18 Nov '07

Update of /project/cxml/cvsroot/closure-common In directory clnet:/tmp/cvs-serv29467 Modified Files: hax.lisp Log Message: hax:unescaped --- /project/cxml/cvsroot/closure-common/hax.lisp 2007/10/21 17:49:23 1.4 +++ /project/cxml/cvsroot/closure-common/hax.lisp 2007/11/18 18:45:12 1.5 @@ -45,6 +45,7 @@ #:start-document #:start-element #:characters + #:unescaped #:end-element #:end-document #:comment @@ -118,6 +119,14 @@ (declare (ignore data)) nil)) +(defgeneric unescaped (handler data) + (:method ((handler null) data) + (declare (ignore data)) + nil) + (:method ((handler default-handler) data) + (declare (ignore data)) + nil)) + (defgeneric end-element (handler name) (:method ((handler null) name) (declare (ignore name)) @@ -170,6 +179,7 @@ @aboutfun{start-element} @aboutfun{end-element} @aboutfun{characters} + @aboutfun{unescaped} @aboutfun{comment} @aboutfun{end-document} @end{section}") @@ -205,6 +215,7 @@ @see{start-element} @see{end-element} @see{characters} + @see{unescaped} @see{comment}") (setf (documentation 'default-handler 'type) @@ -222,6 +233,7 @@ @see{start-element} @see{end-element} @see{characters} + @see{unescaped} @see{comment}") (setf (documentation 'standard-attribute 'type) @@ -315,6 +327,7 @@ @see{start-element} @see{end-element} @see{characters} + @see{unescaped} @see{comment} @see{end-document}") @@ -336,6 +349,7 @@ @see{start-document} @see{end-element} @see{characters} + @see{unescaped} @see{comment} @see{end-document}") @@ -351,6 +365,7 @@ @see{start-document} @see{start-element} @see{characters} + @see{unescaped} @see{comment} @see{end-document}") @@ -369,6 +384,23 @@ @see{comment} @see{end-document}") +(setf (documentation 'unescaped 'function) + "@arg[handler]{a HAX/SAX handler + (see @class{abstract-handler} for details)} + @arg[data]{rod/string} + @return{unspecified} + @short{Escaping bypass.} + + This event writes raw characters into a document. + + Beware dragons. + + @see{start-document} + @see{start-element} + @see{end-element} + @see{comment} + @see{end-document}") + (setf (documentation 'comment 'function) "@arg[handler]{a HAX/SAX handler (see @class{abstract-handler} for details)} @@ -382,6 +414,7 @@ @see{start-element} @see{end-element} @see{characters} + @see{unescaped} @see{end-document}") (setf (documentation 'end-document 'function) @@ -401,4 +434,5 @@ @see{start-element} @see{end-element} @see{characters} + @see{unescaped} @see{comment}")

1 0

[cxml-cvs] CVS cxml/xml
by dlichteblau 18 Nov '07

18 Nov '07

Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv28989/xml Modified Files: package.lisp sax-handler.lisp unparse.lisp Log Message: cxml:unescaped, sax:unescaped --- /project/cxml/cvsroot/cxml/xml/package.lisp 2007/10/14 17:50:11 1.20 +++ /project/cxml/cvsroot/cxml/xml/package.lisp 2007/11/18 18:43:11 1.21 @@ -61,6 +61,9 @@ #:cdata #:text #:doctype + #:processing-instruction + #:comment + #:unescaped #:xml-parse-error #:well-formedness-violation --- /project/cxml/cvsroot/cxml/xml/sax-handler.lisp 2007/10/21 14:43:20 1.13 +++ /project/cxml/cvsroot/cxml/xml/sax-handler.lisp 2007/11/18 18:43:11 1.14 @@ -64,6 +64,7 @@ #:start-prefix-mapping #:start-element #:characters + #:unescaped #:processing-instruction #:end-element #:end-prefix-mapping @@ -326,6 +327,10 @@ (data) (hax:characters handler data)) + (define-event (unescaped default-handler) + (data) + (hax:unescaped handler data)) + (define-event (processing-instruction default-handler) (target data) nil) @@ -461,6 +466,9 @@ (defmethod hax:characters ((handler abstract-handler) data) (sax:characters handler data)) +(defmethod hax:unescaped ((handler abstract-handler) data) + (sax:unescaped handler data)) + (defmethod hax:comment ((handler abstract-handler) str) (sax:comment handler str)) @@ -515,6 +523,9 @@ It is possible that the character content of an element is reported via multiple subsequent calls to this generic function.") +(setf (documentation 'unescaped 'function) + "Called for unescaped element content. Beware dragons.") + (setf (documentation 'processing-instruction 'function) "Called when a processing instruction is read. --- /project/cxml/cvsroot/cxml/xml/unparse.lisp 2007/10/21 17:07:23 1.22 +++ /project/cxml/cvsroot/cxml/xml/unparse.lisp 2007/11/18 18:43:11 1.23 @@ -459,6 +459,10 @@ (loop for c across data do (unparse-datachar c y)) (loop for c across data do (unparse-datachar-readable c y)))))))) +(defmethod sax:unescaped ((sink sink) data) + (maybe-close-tag sink) + (%write-rod data sink)) + (defmethod sax:comment ((sink sink) data) (maybe-close-tag sink) (unless (canonical sink) @@ -682,3 +686,17 @@ (maybe-emit-start-tag) (sax:characters *sink* (rod data)) data) + +(defun comment (data) + (maybe-emit-start-tag) + (sax:comment *sink* (rod data)) + data) + +(defun processing-instruction (target data) + (maybe-emit-start-tag) + (sax:processing-instruction *sink* (rod target) (rod data)) + data) + +(defun unescaped (str) + (maybe-emit-start-tag) + (sax:unescaped *sink* (rod str)))

1 0

[cxml-cvs] CVS cxml
by dlichteblau 18 Nov '07

18 Nov '07

Update of /project/cxml/cvsroot/cxml In directory clnet:/tmp/cvs-serv28989 Added Files: dist.sh Log Message: cxml:unescaped, sax:unescaped --- /project/cxml/cvsroot/cxml/dist.sh 2007/11/18 18:43:10 NONE +++ /project/cxml/cvsroot/cxml/dist.sh 2007/11/18 18:43:10 1.1 #!/bin/sh cd $(dirname $0) home=$(pwd) name=$(basename $home) dir=${name}-$(date --iso) TMPDIR=`mktemp -d /tmp/dist.XXXXXXXXXX` cleanup() { cd rm -rf $TMPDIR } trap cleanup exit cd $TMPDIR cvs -d "`cat $home/CVS/Root`" export -r HEAD -d "$dir" "$name" make -C $dir/doc tgz=$TMPDIR/${dir}.tgz tar czf $tgz $dir gpg -b -a $tgz mv $tgz $tgz.asc $home/

1 0

[cxml-cvs] CVS cxml/xml
by dlichteblau 18 Nov '07

18 Nov '07

Update of /project/cxml/cvsroot/cxml/xml In directory clnet:/tmp/cvs-serv28949/xml Modified Files: xmls-compat.lisp Log Message: fixed xmls compatibility for recent sax changes --- /project/cxml/cvsroot/cxml/xml/xmls-compat.lisp 2007/07/01 17:26:04 1.5 +++ /project/cxml/cvsroot/cxml/xml/xmls-compat.lisp 2007/11/18 18:43:00 1.6 @@ -61,7 +61,7 @@ ;;;; SAX-Handler (Parser) -(defclass xmls-builder () +(defclass xmls-builder (sax:default-handler) ((element-stack :initform nil :accessor element-stack) (root :initform nil :accessor root) (include-default-values :initform t

1 0

[cxml-cvs] CVS cxml/doc
by dlichteblau 21 Oct '07

21 Oct '07

Update of /project/cxml/cvsroot/cxml/doc In directory clnet:/tmp/cvs-serv8649 Modified Files: index.xml Log Message: release --- /project/cxml/cvsroot/cxml/doc/index.xml 2007/10/21 14:16:24 1.20 +++ /project/cxml/cvsroot/cxml/doc/index.xml 2007/10/21 18:39:40 1.21 @@ -69,7 +69,7 @@ refer to the <a href="installation.html#download"> installation instructions</a> for details. </div> - <p class="nomargin"><tt>rel-2007-xx-yy</tt></p> + <p class="nomargin"><tt>rel-2007-10-21</tt></p> <ul class="nomargin"> <li> Moved runes into a separate project.

1 0

[cxml-cvs] CVS closure-common
by dlichteblau 21 Oct '07

21 Oct '07

Update of /project/cxml/cvsroot/closure-common In directory clnet:/tmp/cvs-serv8224 Added Files: dist.sh Log Message: dist.sh script for release preparation --- /project/cxml/cvsroot/closure-common/dist.sh 2007/10/21 18:31:53 NONE +++ /project/cxml/cvsroot/closure-common/dist.sh 2007/10/21 18:31:53 1.1 #!/bin/sh cd $(dirname $0) home=$(pwd) name=$(basename $home) dir=${name}-$(date --iso) TMPDIR=`mktemp -d /tmp/dist.XXXXXXXXXX` cleanup() { cd rm -rf $TMPDIR } trap cleanup exit cd $TMPDIR cvs -d "`cat $home/CVS/Root`" export -r HEAD -d "$dir" "$name" tgz=$TMPDIR/${dir}.tgz tar czf $tgz $dir gpg -b -a $tgz mv $tgz $tgz.asc $home/

1 0

[cxml-cvs] CVS closure-common
by dlichteblau 21 Oct '07

21 Oct '07

Update of /project/cxml/cvsroot/closure-common In directory clnet:/tmp/cvs-serv1473 Modified Files: hax.lisp Log Message: typos --- /project/cxml/cvsroot/closure-common/hax.lisp 2007/10/21 17:07:38 1.3 +++ /project/cxml/cvsroot/closure-common/hax.lisp 2007/10/21 17:49:23 1.4 @@ -143,7 +143,7 @@ (setf (documentation (find-package :hax) t) "An event protocol for HTML serialization, this package is similar - to the HAX protocol defined by cxml for XML serialization. + to the SAX protocol defined by cxml for XML serialization. (Technically, this package should have been spelled SAH, but HAX sounds better.) @@ -305,7 +305,7 @@ @arg[public-id]{nil or the Public ID, a rod/string} @arg[system-id]{nil or the System ID/URI, a rod/string} @return{unspecified} - @short{Signals the beginning on an HTML document.} + @short{Signals the beginning of an HTML document.} This is the first event sent to any handler. @@ -326,7 +326,7 @@ @return{unspecified} @short{Signals the beginning of an HTML element.} - This event corresponds to the opening tag of an element. + This event corresponds to the opening tag of an element. Elements of the attribute list can have any class, but must implement the generic functions for attributes. See @class{standard-attribute} @@ -346,7 +346,7 @@ @return{unspecified} @short{Signals the end of an HTML element.} - This event corresponds to the closing tag of an element. + This event corresponds to the closing tag of an element. @see{start-document} @see{start-element} @@ -388,7 +388,7 @@ "@arg[handler]{a HAX/SAX handler (see @class{abstract-handler} for details)} @return{The return value of this function depends on the handler class.} - @short{Signals the end on an HTML document.} + @short{Signals the end of an HTML document.} This is the last event sent to any handler, and signals the end of serialization.

1 0

[cxml-cvs] CVS closure-common
by dlichteblau 21 Oct '07

21 Oct '07

Update of /project/cxml/cvsroot/closure-common In directory clnet:/tmp/cvs-serv27317 Modified Files: closure-common.asd hax.lisp utf8.lisp Log Message: hax:%want-strings-p --- /project/cxml/cvsroot/closure-common/closure-common.asd 2007/10/14 17:29:43 1.2 +++ /project/cxml/cvsroot/closure-common/closure-common.asd 2007/10/21 17:07:38 1.3 @@ -25,7 +25,6 @@ :rune-is-character)) (unless (or (<= #xD800 x #xDFFF) (and (< x char-code-limit) (code-char x))) - (print (code-char x)) (format t " no, reverting to octet strings.~%") (return :rune-is-integer))) *features*)) --- /project/cxml/cvsroot/closure-common/hax.lisp 2007/10/21 14:11:28 1.2 +++ /project/cxml/cvsroot/closure-common/hax.lisp 2007/10/21 17:07:38 1.3 @@ -9,15 +9,15 @@ ;;; Redistribution and use in source and binary forms, with or without ;;; modification, are permitted provided that the following conditions are -;;; met: -;;; +;;; met: +;;; ;;; 1. Redistributions of source code must retain the above copyright -;;; notice, this list of conditions and the following disclaimer. -;;; +;;; notice, this list of conditions and the following disclaimer. +;;; ;;; 2. Redistributions in binary form must reproduce the above copyright ;;; notice, this list of conditions and the following disclaimer in the ;;; documentation and/or other materials provided with the distribution -;;; +;;; ;;; THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED ;;; WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF ;;; MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. @@ -34,20 +34,23 @@ (:use :common-lisp) (:export #:abstract-handler #:default-handler - + #:make-attribute #:standard-attribute #:find-attribute #:attribute-name #:attribute-value #:attribute-specified-p - + #:start-document #:start-element #:characters #:end-element #:end-document - #:comment)) + #:comment + + #+rune-is-integer + #:%want-strings-p)) (in-package :hax) @@ -86,6 +89,11 @@ (defclass abstract-handler () ()) (defclass default-handler (abstract-handler) ()) +#+rune-is-integer +(defgeneric %want-strings-p (handler) + (:method ((handler null)) nil) + (:method ((handler abstract-handler)) t)) + (defgeneric start-document (handler name public-id system-id) (:method ((handler null) name public-id system-id) (declare (ignore name public-id system-id)) --- /project/cxml/cvsroot/closure-common/utf8.lisp 2007/05/26 21:55:58 1.3 +++ /project/cxml/cvsroot/closure-common/utf8.lisp 2007/10/21 17:07:38 1.4 @@ -29,7 +29,7 @@ (defun rod-reader (stream subchar arg) (runes::rod-string (runes::rod-reader stream subchar arg))) -(setf runes-system:*utf8-runes-readtable* +(setf closure-common-system:*utf8-runes-readtable* (let ((rt (copy-readtable))) (set-dispatch-macro-character #\# #\/ 'rune-reader rt) (set-dispatch-macro-character #\# #\" 'rod-reader rt)

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

cxml-cvs