Re: element in mixed content

[Chris Maden <crism@xxxxxxx>]

[Page Pressa]
> I'm trying to find the location of an element when it is within
> mixed content. I want to know if there is data occurring after the
> inline element and to get that string.
> 
> For instance,
> 
> <p>blah blah blah<mark>blah blah blah</p>
>                        ^            ^
>                        |____________|
>                               |
>                             gimme
> 
> where Mark is EMPTY.

This is kind of gross, but it's the best I can come up with right now:

Assume that the <mark> element has been located, and assigned to
mark-element.

(let get-next-data ((this-node mark-element)
		    (next-node (fsibling mark-element)))
     (if (node-list-empty? next-node)
	 ""
	 (let ((next-char (char next-node)))
	   (if next-char
	       (string-append next-char
			      (get-next-data next-node
					     (fsibling next-node)))
	       ""))))

This will skip over any other empty elements, child elements,
processing instructions, and entities, but grab all of the direct
characters until the end of the element.  It assumes the following two
procedures:

;; (fsibling snl) returns the immediately following sibling of a node.
(define (fsibling snl)
  (node-list-first (follow snl)))

;; (char snl) returns the character of a node if any, or #f.
(define (char snl)
  (node-property 'char
		 snl
		 default: #f))

This is mostly untested; use at your own risk.

-Chris
-- 
<!NOTATION SGML.Geek PUBLIC "-//Anonymous//NOTATION SGML Geek//EN">
<!ENTITY crism PUBLIC "-//O'Reilly//NONSGML Christopher R. Maden//EN"
"<URL>http://www.oreilly.com/people/staff/crism/ <TEL>+1.617.499.7487
<USMAIL>90 Sherman Street, Cambridge, MA 02140 USA" NDATA SGML.Geek>


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist