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