Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
(if ( string element )
( display element )
( xml-write-tag element ))
( xml-write-data ( cdr lst ))))))
(xml-write-data ’("This goes inside" " and this goes too"))
This goes inside and this goes too
Agora nos falta um procedimento que receba uma estrutura XML (uma tag) e a
traduza.
( define xml-write-tag
( lambda ( tag-object )
( let (( tag-name ( car tag-object ))
( attr / start-data ( get-attr-list / start-data
( cdr tag-object ))))
( let (( attr ( car attr / start-data ))
( start-data ( cadr attr / start-data )))
( xml-write-open-tag tag-name attr )
( xml-write-data start-data ))
( xml-write-close-tag tag-name ))))
Testaremos nosso gerador de XML com uma variante simples de HTML:
( xml-write-tag ’( html ( head ( title "My HTML page "))
My HTML page
( body (h1 color " blue "
"My H1 heading ")
"My text !" )))
Versão Preliminar
My H1 heading
[ 27 de outubro de 2010 at 15:47 ]
71