From dlichteblau at common-lisp.net Wed Jan 4 23:51:23 2006
From: dlichteblau at common-lisp.net (David Lichteblau)
Date: Thu, 5 Jan 2006 00:51:23 +0100 (CET)
Subject: [cxml-cvs] CVS update: cxml/README.html
Message-ID: <20060104235123.3FA338855E@common-lisp.net>
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 @@
Recent Changes
- rel-2005-xx-yy
+ rel-2006-01-05
- Implemented DOM 2 Core.
- Error handling overhaul.
From dlichteblau at common-lisp.net Mon Jan 23 21:45:48 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:45:48 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/xml
Message-ID: <20060123214548.B8D221E1F4@common-lisp.net>
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)))
From dlichteblau at common-lisp.net Mon Jan 23 21:46:15 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:46:15 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/runes
Message-ID: <20060123214615.C3BC51E1F6@common-lisp.net>
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))
From dlichteblau at common-lisp.net Mon Jan 23 21:48:27 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:48:27 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/xml
Message-ID: <20060123214827.7B9451E1F6@common-lisp.net>
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)))
From dlichteblau at common-lisp.net Mon Jan 23 21:49:42 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:49:42 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/xml
Message-ID: <20060123214942.AAA821E1F7@common-lisp.net>
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))
From dlichteblau at common-lisp.net Mon Jan 23 21:53:24 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:53:24 -0600 (CST)
Subject: [cxml-cvs] CVS cxml
Message-ID: <20060123215324.2C9541E20A@common-lisp.net>
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 @@
Closure XML Parser
From dlichteblau at common-lisp.net Mon Jan 23 21:53:24 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:53:24 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/doc
Message-ID: <20060123215324.88E0F1E20A@common-lisp.net>
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 @@
The DOM implementation
--- /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 @@
Installation of Closure XML
--- /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 @@
Quick-Start Example
--- /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 @@
Using the SAX parser
--- /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 @@
XMLS Builder
From dlichteblau at common-lisp.net Mon Jan 23 21:54:07 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:54:07 -0600 (CST)
Subject: [cxml-cvs] CVS cxml/dom
Message-ID: <20060123215407.597DD1E1DA@common-lisp.net>
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.
From dlichteblau at common-lisp.net Mon Jan 23 21:54:45 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Mon, 23 Jan 2006 15:54:45 -0600 (CST)
Subject: [cxml-cvs] CVS cxml
Message-ID: <20060123215445.1004C1E1F0@common-lisp.net>
Update of /project/cxml/cvsroot/cxml
In directory common-lisp:/tmp/cvs-serv24614
Modified Files:
README.html
Log Message:
- Serialization fixes (thanks to Nathan Bird).
--- /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 @@
Recent Changes
+ rel-2006-xx-yy
+
+ - Serialization fixes (thanks to Nathan Bird).
+
rel-2006-01-05
- Implemented DOM 2 Core.
From dlichteblau at common-lisp.net Tue Jan 24 19:35:58 2006
From: dlichteblau at common-lisp.net (dlichteblau)
Date: Tue, 24 Jan 2006 13:35:58 -0600 (CST)
Subject: [cxml-cvs] CVS cxml
Message-ID: <20060124193558.F3AAAB6B9@common-lisp.net>
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