Commit 1d343207 authored by david's avatar david

Revision: cxml--devel--1.0--patch-48

Creator: David Lichteblau <>
Date: Thu Feb  5 15:43:56 CET 2004
Standard-date: 2004-02-05 14:43:56 GMT
Modified-files: xml/dom-impl.lisp
Summary: DOM:INSERT-DATA implementiert

DOM:INSERT-DATA implementiert
parent 166c5b55
......@@ -500,6 +500,21 @@
:start2 0 :end2 count))
(defmethod dom:insert-data ((node character-data) offset arg)
(assert-writeable node)
(setf arg (rod arg))
(with-slots (value) node
(unless (<= 0 offset (length value))
(dom-error :INDEX_SIZE_ERR "offset is invalid"))
(let ((new (make-array (+ (length value) (length arg))
:element-type (array-element-type value)))
(arglen (length arg)))
(replace new value :end1 offset)
(replace new arg :start1 offset)
(replace new value :start1 (+ offset arglen) :start2 offset)
(setf value new)))
;;; ATTR
;; hmm... value muss noch entities lesen und text-nodes in die hierarchie hngen.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment