Programação Funcional e Concorrente com Scheme

notas de aula - Jerônimo C. Pellegrini
ping
pong
(resume pong
’hello)
(resume ping
’hello)
8.6 multitarefa não-preemptiva
(resume pong
’hello)
. . .
Uma das mais importantes aplicações de continuações é a implementação de threads.
Nesta seção desenvolveremos um sistema multitarefa simples usando continuações.
Guardaremos os processos em uma lista:
( define processos ’())
Para adicionar o argumento à lista processos definimos enfilera-processo.
( define enfilera-processo
( lambda ( proc )
( set ! processos ( append processos ( list proc )))))
O procedimento start retira um processo da lista e o excuta.
( define start
( lambda ()
( let ((p ( car processos )))
( set ! processos ( cdr processos ))
(p ))))
Pause se lembra de onde estava, inclui o contexto atual no final da fila, depois chama
start (pega o proximo).
( define pause
( lambda ()
( call /cc
Versão Preliminar
( lambda (k)
( enfilera-processo ( lambda () (k #f )))
( start )))))
210
[ 27 de outubro de 2010 at 15:47 ]