From 1c8b1a0ab8eb0890e4524ca188820a0d39158be8 Mon Sep 17 00:00:00 2001
From: dlichteblau
Date: Sun, 21 Oct 2007 14:16:24 +0000
Subject: [PATCH] More documentation bits and HAX fixes:
* xml/sax-handler.lisp: Remove namespace attributes in
HAX-to-SAX conversion. Signal a warning in deprecates methods,
not an error.
---
doc/index.xml | 15 +++++++++++++++
doc/sax.xml | 8 +++-----
xml/sax-handler.lisp | 11 ++++++++---
3 files changed, 26 insertions(+), 8 deletions(-)
diff --git a/doc/index.xml b/doc/index.xml
index 4675609..33fc17b 100644
--- a/doc/index.xml
+++ b/doc/index.xml
@@ -47,6 +47,12 @@
STP, an alternative to DOM
+
+ ⬗
+ Closure
+ HTML: cxml can be used together with its sister project
+ Closure HTML to convert between HTML and XHTML.
+
@@ -65,6 +71,15 @@
rel-2007-xx-yy
+ -
+ Moved runes into a separate project.
+
+ -
+ Incompatible SAX changes: Added new classes
+ sax:abstract-handler, sax:content-handler, sax:default-handler.
+ Implementations of SAX handlers should now subclass one of
+ these classes.
+
-
fixed make-source :buffering nil, thanks to Magnus Henoch for
the report
diff --git a/doc/sax.xml b/doc/sax.xml
index a0c8103..ba66303 100644
--- a/doc/sax.xml
+++ b/doc/sax.xml
@@ -79,13 +79,11 @@
-
pathname -- a Common Lisp pathname.
- Open the file specified by the pathname and create a source for
- the resulting stream. See below for information on how to
- close the stream.
+ Open the file specified by the pathname and parse its
+ contents as an XML document.
- stream -- a Common Lisp stream with element-type
- (unsigned-byte 8). See below for information on how to
- close the stream.
+ (unsigned-byte 8).
-
octets -- an (unsigned-byte 8) array.
diff --git a/xml/sax-handler.lisp b/xml/sax-handler.lisp
index 0c3f958..9e71e1a 100644
--- a/xml/sax-handler.lisp
+++ b/xml/sax-handler.lisp
@@ -291,9 +291,9 @@ Setting this variable has no effect unless both
nil)
(:method ((handler t) ,@args)
(declare (ignore ,@args))
- (error "deprecated SAX default method used by a handler ~
- that is not a subclass of SAX:ABSTRACT-HANDLER ~
- or HAX:ABSTRACT-HANDLER")
+ (warn "deprecated SAX default method used by a handler ~
+ that is not a subclass of SAX:ABSTRACT-HANDLER ~
+ or HAX:ABSTRACT-HANDLER")
nil)
(:method ((handler abstract-handler) ,@args)
(declare (ignore ,@args))
@@ -311,6 +311,11 @@ Setting this variable has no effect unless both
(define-event (start-element default-handler)
(namespace-uri local-name qname attributes)
+ (setf attributes
+ (remove "http://www.w3.org/2000/xmlns/"
+ attributes
+ :key #'attribute-namespace-uri
+ :test #'equal))
(hax:start-element handler local-name attributes))
(define-event (start-prefix-mapping content-handler)