Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( let (( valor ( random 100)))
(! canal valor ))
( loop ))))
O processo mostra espera por valores do canal e os imprime imediatamente:
( define mostra
( lambda ( canal )
( let loop ()
( let (( valor ( canal )))
( display valor )
( newline ))
( loop ))))
Para executar os processos em paralelo, é necessário primeiro criar um canal e iniciar
os dois processos, passando a cada um deles uma ponta do canal:
( let ((c ( make-channel )))
( let ((a ( channel-left c))
(b ( channel-right c )))
( parallel
( mostra a)
( produz b ))))
Implementaremos um canal com fechos. As variáveis nos fechos são dois objetos,
representando os dados disponíveis em cada ponta e quatro semáforos, usados para
controlar o acesso ao canal por um rendez-vous.
( define make-channel
( lambda ()
( let (( data-left #f)
Versão Preliminar
( data-right #f)
( writers-right ( make-mutex ))
( writers-left ( make-mutex ))
( read-left-ok ( make-semaphore 0))
( write-left-ok ( make-semaphore 0))
( read-right-ok ( make-semaphore 0))
( write-right-ok ( make-semaphore 0)))
( let (( write-right
284
[ 27 de outubro de 2010 at 15:47 ]