Monitor: Problemas Clássicos
- O BUFFER Circular (cont)
Spool: Entry(Contents); declare(Contents)character(*)varying; if #Full=#Buffers then wait(BufferVacant); Buffer(Tail)=Contents; Tail=mod(Tail,#Buffers)+1; #Full=#Full+1; signal(BufferOccupied); end Spool;