Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
Começamos definido um procedimento xml-write-attribute que recebe uma lista
contendo dois elementos – um nome e um valor – e mostra a representação do atributo
XML.
( define xml-write-attribute
( lambda ( name-value )
( let (( name ( car name-value ))
( value ( cadr name-value )))
( display " ")
( display name )
( display " =\" ")
( display value )
( display "\"" ))))
(xml-write-attribute ’(href "http://nowhere"))
href=”http://nowhere”
O procedimento xml-write-open-tag recebe o nome de uma tag, sua lista de atributos,
e mostra a abertura da tag.
( define xml-write-open-tag
( lambda ( name attr )
( display "")
( newline )))
(xml-write-open-tag ’div ’((font "helvetica") (color "blue")))
O procedimento xml-write-close-tag fecha uma tag.
( define xml-write-close-tag
( lambda ( name )
( display " ")
( newline )))
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
69