Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
#f)
(( not (= ( string-prefix-length " HTTP "
( caddr lista ))
4))
( print " Not a real HTTP request ")
#f)
( else
( print " Serving " ( cadr lista ))
#t ))))
Quando o usuário tentar acessar URLs como http://exemplo.com/, o browser enviará
a requisição “GET /”. O procedimento trata-caminho transforma a string "/" em
"/index.html" Outras regras de reescrita poderiam ser incluídas aqui.
( define trata-caminho
( lambda ( str )
(if ( string = str "/")
"/ index . html "
str )))
O procedimento send-ok-headers envia o cabeçalho da resposta quando o servidor
tiver encontrado o arquivo HTML a ser transferido:
( define send-headers
( lambda ( out )
( display " HTTP /1.0 200 OK\n" out )
( display " Content-Type : text / html \n" out )))
O procedimento copia-arq recebe um nome de arquivo e uma porta de saída, verifica
se o arquivo existe, e envia a resposta adequada pela porta de saída.
Versão Preliminar
( define copia-arq
( lambda ( name out )
( let (( arquivo ( string-append * base * name )))
(if ( file-exists arquivo )
( let (( porta-arq ( open-input-file arquivo )))
( send-headers out )
( newline out )
( copia porta-arq out )
( close-input-port porta-arq ))
264
[ 27 de outubro de 2010 at 15:47 ]