Update of /project/cxml/cvsroot/cxml/xml
In directory common-lisp.net:/tmp/cvs-serv3876/xml
Modified Files:
xml-parse.lisp
Log Message:
kommentaraenderungen
Date: Mon Nov 28 23:22:52 2005
Author: dlichteblau
Index: cxml/xml/xml-parse.lisp
diff -u cxml/xml/xml-parse.lisp:1.42 cxml/xml/xml-parse.lisp:1.43
--- cxml/xml/xml-parse.lisp:1.42 Sun Nov 27 21:59:00 2005
+++ cxml/xml/xml-parse.lisp Mon Nov 28 23:22:52 2005
@@ -11,6 +11,7 @@
;;; © copyright 2003 by Henrik Motakef
;;; © copyright 2004 knowledgeTools Int. GmbH
;;; © copyright 2004 David Lichteblau
+;;; © copyright 2005 David Lichteblau
;;; This library is free software; you can redistribute it and/or
;;; modify it under the terms of the GNU Library General Public
@@ -91,29 +92,8 @@
;; :cdata <rod>
-
-
-;;; NOTES
-;;
-;; Stream buffers as well as RODs are supposed to be encoded in
-;; UTF-16.
-
-;; where does the time go?
-;; DATA-RUNE-P
-;; CANON-NOT-CDATA-ATTVAL
-;; READ-ATTVAL (MUFFLE)
-;; CLOSy DOM
-;; UTF-8 decoder (13%)
-;; READ-ATTVAL (10%)
-;;
-
;;; TODO
;;
-;; o Improve error messages:
-;; - line and column number counters
-;; - better texts
-;; - better handling of errors (no crash'n burn behaviour)
-;;
;; o provide for a faster DOM
;;
;; o morph zstream into a context object and thus also get rid of
@@ -132,7 +112,7 @@
;;
;; o max depth together with circle detection
;; (or proof, that our circle detection is enough).
-;; [gemeint ist wohl zstream-push--david]
+;; [gemeint ist zstream-push--david]
;;
;; o better extensibility wrt character representation, one may want to
;; have
@@ -259,39 +239,6 @@
(defmacro with-open-xfile ((stream &rest open-args) &body body)
`(call-with-open-xfile (lambda (,stream) .,body) .,open-args))
-
-;;; Decoders
-
-;; The decoders share a common signature:
-;;
-;; DECODE input input-start input-end
-;; output output-start output-end
-;; eof-p
-;; -> first-not-written ; first-not-read
-;;
-;; These decode functions should decode as much characters off `input'
-;; into the `output' as possible and return the indexes to the first
-;; not read and first not written element of `input' and `output'
-;; respectively. If there are not enough bytes in `input' to decode a
-;; full character, decoding shold be abandomed; the caller has to
-;; ensure that the remaining bytes of `input' are passed to the
-;; decoder again with more bytes appended.
-;;
-;; `eof-p' now in turn indicates, if the given input sequence, is all
-;; the producer does have and might be used to produce error messages
-;; in case of incomplete codes or decided what to do.
-;;
-;; Decoders are expected to handle the various CR/NL conventions and
-;; canonicalize each end of line into a single NL rune (#xA) in good
-;; old Lisp tradition.
-;;
-
-;; TODO: change this to an encoding class, which then might carry
-;; additional state. Stateless encodings could been represented by
-;; keywords. e.g.
-;;
-;; defmethod DECODE-SEQUENCE ((encoding (eql :utf-8)) ...)
-;;
;;;; -------------------------------------------------------------------
;;;; Rechnen mit Runen