OSCL/closure-common
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hax:unescaped

Browse Source
This commit is contained in:
dlichteblau
2007-11-18 18:45:12 +00:00
parent cf13c4cfe4
commit 2a41e7611f
1 changed files with 34 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
hax.lisp
View File

@ -45,6 +45,7 @@
#:start-document #:start-document
#:start-element #:start-element
#:characters #:characters
#:unescaped
#:end-element #:end-element
#:end-document #:end-document
#:comment #:comment
@ -118,6 +119,14 @@
(declare (ignore data)) (declare (ignore data))
nil)) 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) (defgeneric end-element (handler name)
(:method ((handler null) name) (:method ((handler null) name)
(declare (ignore name)) (declare (ignore name))
@ -170,6 +179,7 @@
@aboutfun{start-element} @aboutfun{start-element}
@aboutfun{end-element} @aboutfun{end-element}
@aboutfun{characters} @aboutfun{characters}
@aboutfun{unescaped}
@aboutfun{comment} @aboutfun{comment}
@aboutfun{end-document} @aboutfun{end-document}
@end{section}") @end{section}")
@ -205,6 +215,7 @@
@see{start-element} @see{start-element}
@see{end-element} @see{end-element}
@see{characters} @see{characters}
@see{unescaped}
@see{comment}") @see{comment}")
(setf (documentation 'default-handler 'type) (setf (documentation 'default-handler 'type)
@ -222,6 +233,7 @@
@see{start-element} @see{start-element}
@see{end-element} @see{end-element}
@see{characters} @see{characters}
@see{unescaped}
@see{comment}") @see{comment}")
(setf (documentation 'standard-attribute 'type) (setf (documentation 'standard-attribute 'type)
@ -315,6 +327,7 @@
@see{start-element} @see{start-element}
@see{end-element} @see{end-element}
@see{characters} @see{characters}
@see{unescaped}
@see{comment} @see{comment}
@see{end-document}") @see{end-document}")
@ -336,6 +349,7 @@
@see{start-document} @see{start-document}
@see{end-element} @see{end-element}
@see{characters} @see{characters}
@see{unescaped}
@see{comment} @see{comment}
@see{end-document}") @see{end-document}")
@ -351,6 +365,7 @@
@see{start-document} @see{start-document}
@see{start-element} @see{start-element}
@see{characters} @see{characters}
@see{unescaped}
@see{comment} @see{comment}
@see{end-document}") @see{end-document}")
@ -369,6 +384,23 @@
@see{comment} @see{comment}
@see{end-document}") @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) (setf (documentation 'comment 'function)
"@arg[handler]{a HAX/SAX handler "@arg[handler]{a HAX/SAX handler
(see @class{abstract-handler} for details)} (see @class{abstract-handler} for details)}
@ -382,6 +414,7 @@
@see{start-element} @see{start-element}
@see{end-element} @see{end-element}
@see{characters} @see{characters}
@see{unescaped}
@see{end-document}") @see{end-document}")
(setf (documentation 'end-document 'function) (setf (documentation 'end-document 'function)
@ -401,4 +434,5 @@
@see{start-element} @see{start-element}
@see{end-element} @see{end-element}
@see{characters} @see{characters}
@see{unescaped}
@see{comment}") @see{comment}")