> How about the following?
>
> (de <text> Prg
> (prin "<text")
> (while (atom (car Prg))
> (prin " " (pop 'Prg) "=\"" (eval (pop 'Prg) 1) "\"") )
> (prin ">")
> (run Prg) # the text, or other elements
> (prinl "</text>") )
>
> Then you could write
>
> : (<text> id 123 dx (+ 3 4) dy (* 3 4)
> (prin "No font and color arguments yet") )
> <text id="123" dx="7" dy="12">No font and color arguments yet</text>
That's nice. It could even be:
(de <xml> Prg
(prin "<" (pop 'Prg))
(while (atom (car Prg))
(prin " " (pop 'Prg) "=\"" (eval (pop 'Prg) 1) "\"") )
(prin ">")
(run Prg) # the text, or other elements
(prinl "</text>") )
(<xml> text id 123 dx (+ 3 4) dy (* 3 4)
(prin "No font and color arguments yet") )
:-)
Tomas
--
UNSUBSCRIBE: mailto:[EMAIL PROTECTED]
