OSCL/CXML
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

klacks xml:base fixes

Browse Source
This commit is contained in:
dlichteblau
2007-03-04 21:41:07 +00:00
parent e0e54c172f
commit c43b58dd3e
3 changed files with 35 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
klacks/klacks.lisp
View File

@ -40,10 +40,10 @@
;;;(defgeneric klacks:current-characters (source))
(defgeneric klacks:current-cdata-section-p (source))
(defgeneric current-line-number (source))
(defgeneric current-column-number (source))
(defgeneric current-system-id (source))
(defgeneric current-xml-base (source))
(defgeneric klacks:current-line-number (source))
(defgeneric klacks:current-column-number (source))
(defgeneric klacks:current-system-id (source))
(defgeneric klacks:current-xml-base (source))
(defmacro klacks:with-open-source ((var source) &body body)
`(let ((,var ,source))
@ -131,9 +131,25 @@
(when document
(return document)))))
(defclass klacksax (sax:sax-parser)
((source :initarg :source)))
(defmethod sax:line-number ((parser klacksax))
(klacks:current-line-number (slot-value parser 'source)))
(defmethod sax:column-number ((parser klacksax))
(klacks:current-column-number (slot-value parser 'source)))
(defmethod sax:system-id ((parser klacksax))
(klacks:current-system-id (slot-value parser 'source)))
(defmethod sax:xml-base ((parser klacksax))
(klacks:current-xml-base (slot-value parser 'source)))
(defun klacks:serialize-element (source handler &key (document-events t))
(unless (eq (klacks:peek source) :start-element)
(error "not at start of element"))
(sax:register-sax-parser handler (make-instance 'klacksax :source source))
(when document-events
(sax:start-document handler))
(labels ((recurse ()