January 2006 - cxml-cvs@common-lisp.net - mailman3.common-lisp.net

[cxml-cvs] CVS cxml
by dlichteblau 24 Jan '06

24 Jan '06

Update of /project/cxml/cvsroot/cxml In directory common-lisp:/tmp/cvs-serv28505 Modified Files: cxml.asd Log Message: linearized the runes system --- /project/cxml/cvsroot/cxml/cxml.asd 2005/12/29 00:31:30 1.10 +++ /project/cxml/cvsroot/cxml/cxml.asd 2006/01/24 19:35:58 1.11 @@ -38,21 +38,20 @@ :pathname (merge-pathnames "runes/" (make-pathname :name nil :type nil :defaults *load-truename*)) + :serial t :components ((:file "package") - (:file "definline" :depends-on ("package")) + (:file "definline") (:file runes :pathname #-rune-is-character "runes" - #+rune-is-character "characters" - :depends-on ("package" "definline")) - #+rune-is-integer (:file "utf8" :depends-on ("package")) - (:file "syntax" :depends-on ("package" "definline" runes)) - (:file "encodings" :depends-on ("package")) - (:file "encodings-data" :depends-on ("package" "encodings")) - (:file "xstream" - :depends-on ("package" "definline" "syntax" "encodings-data")) - (:file "ystream" :depends-on (runes)))) + #+rune-is-character "characters") + #+rune-is-integer (:file "utf8") + (:file "syntax") + (:file "encodings") + (:file "encodings-data") + (:file "xstream") + (:file "ystream"))) (asdf:defsystem :cxml-xml :default-component-class closure-source-file

1 0

[cxml-cvs] CVS cxml
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml In directory common-lisp:/tmp/cvs-serv24614 Modified Files: README.html Log Message: <li>Serialization fixes (thanks to Nathan Bird).</li> --- /project/cxml/cvsroot/cxml/README.html 2006/01/23 21:53:24 1.20 +++ /project/cxml/cvsroot/cxml/README.html 2006/01/23 21:54:44 1.21 @@ -107,6 +107,10 @@ <a name="changes"/> <h2>Recent Changes</h2> + <p class="nomargin"><tt>rel-2006-xx-yy</tt></p> + <ul class="nomargin"> + <li>Serialization fixes (thanks to Nathan Bird).</li> + </ul> <p class="nomargin"><tt>rel-2006-01-05</tt></p> <ul class="nomargin"> <li>Implemented DOM 2 Core.</li>

1 0

[cxml-cvs] CVS cxml/dom
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml/dom In directory common-lisp:/tmp/cvs-serv24587/dom Modified Files: dom-impl.lisp Log Message: mode line oder wie das heisst --- /project/cxml/cvsroot/cxml/dom/dom-impl.lisp 2005/12/30 14:21:44 1.36 +++ /project/cxml/cvsroot/cxml/dom/dom-impl.lisp 2006/01/23 21:54:07 1.37 @@ -1,4 +1,4 @@ -;;;; dom-impl.lisp -- Implementation of DOM 1 Core +;;;; dom-impl.lisp -- Implementation of DOM 1 Core -*- package: rune-dom -*- ;;;; ;;;; This file is part of the CXML parser, released under Lisp-LGPL. ;;;; See file COPYING for details.

1 0

[cxml-cvs] CVS cxml
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml In directory common-lisp:/tmp/cvs-serv24521 Modified Files: README.html Log Message: header --- /project/cxml/cvsroot/cxml/README.html 2006/01/04 23:51:18 1.19 +++ /project/cxml/cvsroot/cxml/README.html 2006/01/23 21:53:24 1.20 @@ -7,9 +7,10 @@ </head> <body> <div class="sidebar"> - <p> - <a href="README.html">CXML Homepage</a> - </p> + <div class="sidebar-title"> + <a href="README.html">Closure XML</a> + </div> + <div class="sidebar-main"> <ul class="main"> <li> <a href="doc/installation.html">Installing Closure XML</a> @@ -53,6 +54,7 @@ </ul> </li> </ul> + </div> </div> <h1>Closure XML Parser</h1>

1 0

[cxml-cvs] CVS cxml/doc
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml/doc In directory common-lisp:/tmp/cvs-serv24521/doc Modified Files: cxml.css dom.html installation.html quickstart.html using.html xmls-compat.html Log Message: header --- /project/cxml/cvsroot/cxml/doc/cxml.css 2005/12/30 20:47:32 1.4 +++ /project/cxml/cvsroot/cxml/doc/cxml.css 2006/01/23 21:53:24 1.5 @@ -1,5 +1,26 @@ div.sidebar { float: right; + min-width: 15%; + padding: 0pt 5pt 5pt 5pt; + font-family: helvetica; +} + +div.sidebar-title { + font-weight: bold; + background-color: #9c0000; + border: solid #9c0000; + border-top-width: 1px; + border-bottom-width: 0px; + border-left-width: 4px; + border-right-width: 0px; + margin: 0em 2pt 1px 2em; +} + +div.sidebar-title a { + color: #ffffff; +} + +div.sidebar-main { background-color: #eeeeee; border: solid #9c0000; border-top-width: 0px; @@ -7,9 +28,8 @@ border-left-width: 4px; border-right-width: 0px; margin: 0em 2pt 1em 2em; - min-width: 15%; - padding: 0pt 5pt 5pt 5pt; - font-family: helvetica; + padding-top: 2px; + padding-left: 2px; } div.sidebar ul.main { --- /project/cxml/cvsroot/cxml/doc/dom.html 2005/12/30 16:08:25 1.7 +++ /project/cxml/cvsroot/cxml/doc/dom.html 2006/01/23 21:53:24 1.8 @@ -7,9 +7,10 @@ </head> <body> <div class="sidebar"> - <p> - <a href="../README.html">CXML Homepage</a> - </p> + <div class="sidebar-title"> + <a href="README.html">Closure XML</a> + </div> + <div class="sidebar-main"> <ul class="main"> <li> <a href="installation.html">Installing Closure XML</a> @@ -53,6 +54,7 @@ </ul> </li> </ul> + </div> </div> <h1>The DOM implementation</h1> --- /project/cxml/cvsroot/cxml/doc/installation.html 2005/12/30 16:08:25 1.9 +++ /project/cxml/cvsroot/cxml/doc/installation.html 2006/01/23 21:53:24 1.10 @@ -7,9 +7,10 @@ </head> <body> <div class="sidebar"> - <p> - <a href="../README.html">CXML Homepage</a> - </p> + <div class="sidebar-title"> + <a href="README.html">Closure XML</a> + </div> + <div class="sidebar-main"> <ul class="main"> <li> <a href="installation.html">Installing Closure XML</a> @@ -53,6 +54,7 @@ </ul> </li> </ul> + </div> </div> <h1>Installation of Closure XML</h1> --- /project/cxml/cvsroot/cxml/doc/quickstart.html 2005/12/30 16:08:25 1.6 +++ /project/cxml/cvsroot/cxml/doc/quickstart.html 2006/01/23 21:53:24 1.7 @@ -7,9 +7,10 @@ </head> <body> <div class="sidebar"> - <p> - <a href="../README.html">CXML Homepage</a> - </p> + <div class="sidebar-title"> + <a href="README.html">Closure XML</a> + </div> + <div class="sidebar-main"> <ul class="main"> <li> <a href="installation.html">Installing Closure XML</a> @@ -53,6 +54,7 @@ </ul> </li> </ul> + </div> </div> <h1>Quick-Start Example</h1> --- /project/cxml/cvsroot/cxml/doc/using.html 2005/12/30 16:08:25 1.13 +++ /project/cxml/cvsroot/cxml/doc/using.html 2006/01/23 21:53:24 1.14 @@ -7,9 +7,10 @@ </head> <body> <div class="sidebar"> - <p> - <a href="../README.html">CXML Homepage</a> - </p> + <div class="sidebar-title"> + <a href="README.html">Closure XML</a> + </div> + <div class="sidebar-main"> <ul class="main"> <li> <a href="installation.html">Installing Closure XML</a> @@ -53,6 +54,7 @@ </ul> </li> </ul> + </div> </div> <h1>Using the SAX parser</h1> --- /project/cxml/cvsroot/cxml/doc/xmls-compat.html 2005/12/30 16:08:25 1.4 +++ /project/cxml/cvsroot/cxml/doc/xmls-compat.html 2006/01/23 21:53:24 1.5 @@ -7,9 +7,10 @@ </head> <body> <div class="sidebar"> - <p> - <a href="../README.html">CXML Homepage</a> - </p> + <div class="sidebar-title"> + <a href="README.html">Closure XML</a> + </div> + <div class="sidebar-main"> <ul class="main"> <li> <a href="installation.html">Installing Closure XML</a> @@ -53,6 +54,7 @@ </ul> </li> </ul> + </div> </div> <h1>XMLS Builder</h1>

1 0

[cxml-cvs] CVS cxml/xml
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp:/tmp/cvs-serv24317 Modified Files: catalog.lisp Log Message: catalog fixes and workarounds --- /project/cxml/cvsroot/cxml/xml/catalog.lisp 2005/12/17 22:30:19 1.3 +++ /project/cxml/cvsroot/cxml/xml/catalog.lisp 2006/01/23 21:49:42 1.4 @@ -222,8 +222,8 @@ (defun parse-catalog-file (uri) (handler-case (parse-catalog-file/strict uri) - (file-error () nil) - (xml-parse-error () nil))) + ((or file-error xml-parse-error) (c) + (warn "ignoring catalog error: ~A" c)))) (defparameter *catalog-dtd* (let* ((cxml @@ -248,9 +248,8 @@ :element-type '(unsigned-byte 8) :direction :input)) (parse-stream s - (make-recoder (make-instance 'catalog-parser :uri uri) - #'rod-to-utf8-string) - :validate t + (make-instance 'catalog-parser :uri uri) + :validate nil :dtd (make-extid nil dtd-sysid) :root #"catalog" :entity-resolver #'entity-resolver))))) @@ -284,7 +283,11 @@ (setf lname (or lname qname)) ;; we can dispatch on lnames only because we validate against the DTD, ;; which disallows other namespaces. - (push (string-or (get-attribute/lname "prefer" attrs) (prefer handler)) + (push (let ((new (get-attribute/lname "prefer" attrs))) + (cond + ((equal new "public") :public) + ((equal new "system") :system) + ((null new) (prefer handler)))) (prefer-stack handler)) (push (string-or (get-attribute/lname "base" attrs) (base handler)) (base-stack handler))

1 0

[cxml-cvs] CVS cxml/xml
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp:/tmp/cvs-serv24181 Modified Files: unparse.lisp Log Message: indentation fixes for unicode ports (thanks to Nathan Bird) --- /project/cxml/cvsroot/cxml/xml/unparse.lisp 2005/12/29 00:38:00 1.7 +++ /project/cxml/cvsroot/cxml/xml/unparse.lisp 2006/01/23 21:48:27 1.8 @@ -347,7 +347,7 @@ (defun sink-fresh-line (sink) (unless (zerop (ystream-column (sink-ystream sink))) - (%write-rune 10 sink) + (%write-rune #/U+000A sink) ;newline (indent sink))) (defun maybe-close-tag (sink) @@ -440,7 +440,7 @@ (defun indent (sink) (dotimes (x (current-indentation sink)) - (%write-rune 32 sink))) + (%write-rune #/U+0020 sink))) ; space (defun start-indentation-block (sink) (incf (current-indentation sink) (indentation sink))) @@ -464,7 +464,7 @@ (when need-whitespace-p (if (< (+ (ystream-column (sink-ystream sink)) w (- pos)) (width sink)) - (%write-rune 32 sink) + (%write-rune #/U+0020 sink) (sink-fresh-line sink))) (loop with y = (sink-ystream sink) @@ -473,7 +473,7 @@ (setf need-whitespace-p (< w n)) (setf pos next)))) (t - (%write-rune 32 sink)))))) + (%write-rune #/U+0020 sink)))))) (defun unparse-string (str sink) (let ((y (sink-ystream sink)))

1 0

[cxml-cvs] CVS cxml/runes
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml/runes In directory common-lisp:/tmp/cvs-serv24141 Modified Files: ystream.lisp Log Message: fixed character stream ystreams (thanks to Nathan Bird) --- /project/cxml/cvsroot/cxml/runes/ystream.lisp 2005/12/29 00:37:59 1.3 +++ /project/cxml/cvsroot/cxml/runes/ystream.lisp 2006/01/23 21:46:15 1.4 @@ -180,7 +180,9 @@ (target-stream nil)) (defmethod flush-ystream ((ystream character-stream-ystream)) - (write-string (ystream-in-buffer ystream) (ystream-target-stream ystream)) + (write-string (ystream-in-buffer ystream) + (ystream-target-stream ystream) + :end (ystream-in-ptr ystream)) (setf (ystream-in-ptr ystream) 0)) (defmethod close-ystream ((ystream character-stream-ystream))

1 0

[cxml-cvs] CVS cxml/xml
by dlichteblau 23 Jan '06

23 Jan '06

Update of /project/cxml/cvsroot/cxml/xml In directory common-lisp:/tmp/cvs-serv24111 Modified Files: xml-parse.lisp Log Message: * give simple strings to puri * accept &rest arguments in parse-rod --- /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2005/12/29 00:31:36 1.58 +++ /project/cxml/cvsroot/cxml/xml/xml-parse.lisp 2006/01/23 21:45:48 1.59 @@ -2011,7 +2011,7 @@ ;; :FILE and NIL anway. (when (eql (search "file://" str) 0) (setf str (subseq str (length "file://")))) - (puri:parse-uri str)) + (puri:parse-uri (coerce str 'simple-string))) (defun p/system-literal (input) (let* ((rod (p/id input)) @@ -3026,8 +3026,8 @@ (p/ext-subset zstream) (dtd *ctx*))))) -(defun parse-rod (string handler) - (parse-xstream (string->xstream string) handler)) +(defun parse-rod (string handler &rest args) + (apply #'parse-xstream (string->xstream string) handler args)) (defun string->xstream (string) (make-rod-xstream (string-rod string)))

1 0

[cxml-cvs] CVS update: cxml/README.html
by dlichteblau＠common-lisp.net 04 Jan '06

04 Jan '06

Update of /project/cxml/cvsroot/cxml In directory common-lisp.net:/tmp/cvs-serv27730 Modified Files: README.html Log Message: release Date: Thu Jan 5 00:51:20 2006 Author: dlichteblau Index: cxml/README.html diff -u cxml/README.html:1.18 cxml/README.html:1.19 --- cxml/README.html:1.18 Fri Dec 30 17:08:24 2005 +++ cxml/README.html Thu Jan 5 00:51:18 2006 @@ -105,7 +105,7 @@ <a name="changes"/> <h2>Recent Changes</h2> - <p class="nomargin"><tt>rel-2005-xx-yy</tt></p> + <p class="nomargin"><tt>rel-2006-01-05</tt></p> <ul class="nomargin"> <li>Implemented DOM 2 Core.</li> <li>Error handling overhaul.</li>

1 0