Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
O procedimento make-host cria variáveis hostname e ip, depois retorna métodos para
acessá-las.
( define make-host
( lambda () ;; quando make-host for chamada,
( let (( hostname "") ;; Crie duas variáveis novas neste
(ip "")) ;; ambiente
( lambda ( msg ) ;; e retorne uma função de 1 argumento
;; com acesso às variáveis
( case msg
(( get-hostname ) ( lambda () hostname ))
(( get-ip ) ( lambda () ip ))
(( set-hostname ) ( lambda ( new-name )
( set ! hostname new-name )))
(( set-ip ) ( lambda ( new-ip )
( set ! ip new-ip ))))))))
A função devolvida por make-host é um fecho.
( define msg
( lambda ( obj . args )
(( obj msg args ))))
Damos então dar nomes aos métodos:
( define get-hostname
( lambda ( host )
( msg host ’ get-hostname )))
( define set-hostname
( lambda ( host name )
( msg host ’ get-hostname name )))
Versão Preliminar
Este sistema de objetos pode suportar herança. Por exemplo, “server” pode herdar os
atributos e métodos de host:
( define make-server
( lambda ()
( let (( listen ’(80 22))
( my-host ( make-host )))
[ 27 de outubro de 2010 at 15:47 ]
107