Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
( define show-one-option
( lambda ( pair out )
( display ( car pair ) out )
( display " -- " out )
( display ( list-ref pair 1) out )
( newline out )))
( define show-options
( lambda ( option-alist out )
( for-each ( lambda ( option )
( show-one-option option out ))
option-alist )))
Se definirmos agora uma lista de associação com pares de opção e texto a ser
mostrado,
( define options ’( (-h " show help ")
(-v " verbose ")
(-n "no action , just simulate ") ))
Podemos enviar para (current-output-port) ou para uma string, como mostra o
seguinte trecho.
( let (( o-port ( open-output-string )))
( show-options options o-port )
( close-output-port o-port )
( get-output-string o-port ))
2.2 um gerador de xml
Nosso programa se restringirá a gerar XML da seguinte forma:
texto ... mais texto
Versão Preliminar
[ 27 de outubro de 2010 at 15:47 ]
67