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