DIRECTORY PlotOps USING [Handle]; PlotMonitor: CEDAR MONITOR EXPORTS PlotOps = { Lock: PUBLIC ENTRY PROC [handle: PlotOps.Handle] = { ENABLE UNWIND => NULL; IF handle = NIL THEN RETURN; WHILE handle.locked DO WAIT handle.unlocked; ENDLOOP; handle.locked _ TRUE; }; -- Lock Unlock: PUBLIC ENTRY PROC [handle: PlotOps.Handle] = { ENABLE UNWIND => NULL; IF handle # NIL THEN { handle.locked _ FALSE; BROADCAST handle.unlocked; }; }; -- Unlock }. CHANGE LOG. Created by: SChen in Cedar5. SChen, July 22, 1985 6:22:31 pm PDT, => Cedar6.0. šFile: PlotMonitor.mesa, Copyright (C) 1985 by Xerox Corporation. All rights reserved. Last Edited by: Sweetsun Chen, July 22, 1985 6:24:32 pm PDT ΚD˜JšœV™Všœ™Icode™+J™—šΟk ˜ Jšœœ ˜J˜—šœ œ˜Jšœ ˜—J˜šΟnœœœœ˜4Jšœœœ˜Jšœ œœœ˜Jšœœœœ˜5Jšœœ˜JšœΟc˜ —J˜šžœœœœ˜6Jšœœœ˜šœ œœ˜Jšœœ˜Jš œ˜J˜—JšœŸ ˜ —J˜J˜šœœ˜ J˜J˜1—J˜—…—ϊ