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

trailing whitespace weg

Browse Source
This commit is contained in:
dlichteblau
2005-11-26 22:15:10 +00:00
parent 241b24ac25
commit 55af866ae9
1 changed files with 75 additions and 97 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
xml/xml-parse.lisp
View File

@ -670,14 +670,21 @@
;;;; DTD ;;;; DTD
;;;; ;;;;
(define-condition parser-error (simple-error) ()) (define-condition parse-error (simple-error) ())
(define-condition validity-error (parser-error) ()) (define-condition well-formedness-violation (parse-error) ())
(define-condition end-of-xstream (well-formedness-violation) ())
(define-condition validity-error (parse-error) ())
(defun validity-error (x &rest args) (defun validity-error (x &rest args)
(error 'validity-error (error 'validity-error
:format-control "Validity constraint violated: ~@?" :format-control "Validity constraint violated: ~@?"
:format-arguments (list x args))) :format-arguments (list x args)))
(defun wf-error (x &rest args)
(error 'well-formedness-violation
:format-control "Validity constraint violated: ~@?"
:format-arguments (list x args)))
(defvar *validate* t) (defvar *validate* t)
(defvar *markup-declaration-external-p* nil) (defvar *markup-declaration-external-p* nil)
@ -3550,25 +3557,6 @@
:local-name local-name :local-name local-name
:specified-p specified-p))))) :specified-p specified-p)))))
;;; Faster constructors
;; Since using the general DOM interface to construct the parsed trees
;; may turn out to be quite expensive (That depends on the underlying
;; DOM implementation). A particular DOM implementation may choose to
;; implement an XML:FAST-CONSTRUCTORS method:
;; XML:FAST-CONSTRUCTORS document [method]
;;
;; Return an alist of constructors suitable for the document `document'.
;;
;; (:MAKE-TEXT document parent data)
;; (:MAKE-PROCESSING-INSTRUCTION document parent target content)
;; (:MAKE-NODE document parent attributes content)
;; [`attributes' now in turn is an alist]
;; (:MAKE-CDATA document parent data)
;; (:MAKE-COMMENT document parent data)
;;
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;; System Identifier Protocol ;; System Identifier Protocol
@ -3592,18 +3580,8 @@
;; `base' yielding an absolute system identifier suitable for ;; `base' yielding an absolute system identifier suitable for
;; OPEN-SYS-ID. ;; OPEN-SYS-ID.
;; xstream Controller Protocol
;;
;;
#||
(defun xml-parse (system-id &key document standalone-p)
)
||#
;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;
;;; SAX validation handler ;;; SAX validation handler
(defclass validator () (defclass validator ()