[cxml-cvs] CVS closure-common

[dlichteblau]

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}")