Monitor: Problemas Clássicos
- Leitores/Escritores (cont.)
StartWrite: Entry; if #Reading?=0|activeWriter then wait(OkToWrite); activeWriter=true; end StartWrite; EndWrite: Entry; activeWriter=false; if ?empty(OkToRead) then signal(OkToRead) else signal(OkToWrite); end EndWrite; end FileAccess;