Re: element in mixed content

Subject: Re: element in mixed content
From: Chris Maden <crism@xxxxxxx>
Date: Fri, 3 Apr 1998 13:22:17 -0500
[Chris Maden]
> (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 was kind of dumb.  For some reason, I'm carrying around the
current node, which is never used.  Try this instead:

(let get-next-data ((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 (fsibling next-node)))
	       ""))))

-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


Current Thread
  • element in mixed content
    • Page Pressa - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id MAA05188Fri, 3 Apr 1998 12:32:29 -0500 (EST)
      • Chris Maden - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id NAA06526Fri, 3 Apr 1998 13:09:26 -0500 (EST)
        • Chris Maden - from mail1.ability.netby web4-1.ability.net (8.8.5/8.6.12) with ESMTP id NAA06876Fri, 3 Apr 1998 13:20:24 -0500 (EST) <=