Programação Funcional e Concorrente com Scheme

notas de aula -
Jerônimo C. Pellegrini
( define fila-vip ( make-q ))
( define fila-comum ( make-q ))
( define emite
( lambda ( ticket )
( thread-sleep ! 0.100)
( print " Emitindo ticket : " ticket )))
( define print-loop
( lambda ()
( mutex-lock ! filas )
( cond (( not ( empty-queue fila-vip ))
( emite ( dequeue ! fila-vip ))
( mutex-unlock ! filas )
( print-loop ))
(( not ( empty-queue fila-comum ))
( emite ( dequeue ! fila-comum ))
( mutex-unlock ! filas )
( print-loop ))
( else
( mutex-unlock ! filas )
( print-loop )))))
( define produz-vip
( let (( num 0))
( lambda ()
( set ! num (+ 1 num ))
( mutex-lock ! filas )
( set ! fila-vip ( enqueue ! fila-vip num ))
( mutex-unlock ! filas )
( produz-vip ))))
Versão Preliminar
( define produz-comum
( let (( num 0))
( lambda ()
( set ! num (- num 1))
( mutex-lock ! filas )
234
[ 27 de outubro de 2010 at 15:47 ]