DIRECTORYProcess USING [DisableAborts, DisableTimeout, EnableAborts, Milliseconds, MsecToTicks, SetTimeout];Synchronizer: DEFINITIONS LOCKS synchronizer USING synchronizer: HandleIMPORTS Process = BEGINmaximumLapse: Process.Milliseconds = LAST[Process.Milliseconds];Handle: TYPE = LONG POINTER TO Object;Object: TYPE = MONITORED RECORD [condition: CONDITION, count: CARDINAL];Initialize: ENTRY PROCEDURE [synchronizer: Handle, enableAbort, enableTimeout: BOOLEAN, lapse: Process.Milliseconds _ maximumLapse] = TRUSTED INLINE BEGINENABLE UNWIND => NULL;IF enableAbortTHEN Process.EnableAborts[pCondition: @synchronizer.condition]ELSE Process.DisableAborts[pCondition: @synchronizer.condition];IF enableTimeoutTHEN Process.SetTimeout[condition: @synchronizer.condition,ticks: Process.MsecToTicks[lapse]]ELSE Process.DisableTimeout[condition: @synchronizer.condition];synchronizer.count _ 0;END;Broadcast: ENTRY PROCEDURE [synchronizer: Handle] = INLINE BEGINENABLE UNWIND => NULL;synchronizer.count _ synchronizer.count + 1;BROADCAST synchronizer.condition;END;ForceTimeout: ENTRY PROCEDURE [synchronizer: Handle] = INLINE BEGINENABLE UNWIND => NULL;BROADCAST synchronizer.condition;END;Notify: ENTRY PROCEDURE [synchronizer: Handle] = INLINE BEGINENABLE UNWIND => NULL;synchronizer.count _ synchronizer.count + 1;NOTIFY synchronizer.condition;END;Wait: ENTRY PROCEDURE [synchronizer: Handle] RETURNS [timeout: BOOLEAN] = INLINEBEGINENABLE UNWIND => NULL;localCount: CARDINAL _ synchronizer.count;WAIT synchronizer.condition;RETURN[timeout: localCount = synchronizer.count];END;END.LOGWhen / Who / What.81/Claude Pany/Created.11-Apr-83 15:23:16 - Trowell - created SynchronizerImpl and removed INLINEs here for Sierra compiler bug workaround10-Oct-83  3:30:32 - Strickberger - Restored INLINEs and deleted Impl.  POINTER _ LONG POINTER for Klamath.29-Nov-84 16:47:32 - Strickberger - Modified to allow multiple Waits to return timeout correctly.  Add ForceTimeout.  Add copyright.19-Jul-85  1:25:43 - Strickberger - FixArrows.  B  File Synchronizer.mesaCopyright س Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986, 1987.  All rights reserved.Last edited by Strickberger 29-Nov-84 16:47:32Tim Diebert: January 6, 1987 2:39:43 pm PSTConstants:TYPEs:INLINE ENTRY PROCEDUREs:Tim Diebert: September 8, 1986 4:00:58 pm PDTConvert to Cedar ‌ت°  ک codeڑœ™Kڑœ]™]Kڑœ.™.K™+—Kک ڑدk	ک	Kڑœ‌œVکc—Kک ڑدnœ‌œ‌œ‌œکGKڑ‌œ
‌کKڑœ
™
—ک Kڑœ%‌œک@—ک Kڑœ™—ک Kڑ	œ‌œ‌œ‌œ‌œک&Kڑœ‌œ‌	œ‌œ‌	œ	‌œکH—ک Kڑœ™—ک ڑ‍
œ‌œ‌	œ4‌œ0‌œ‌œ‌کڑKڑ‌œ‌œ‌œکڑ‌œکKڑ‌œ:ک>Kڑ‌œ<ک@—ڑ‌œکKڑ‌œZک^Kڑ‌œ<ک@—KکKڑ‌œک——ک ڑ	‍	œ‌œ‌	œ‌œ‌ک@Kڑ‌œ‌œ‌œکKک,Kڑ‌	œک!Kڑ‌œک——ک ڑ	‍œ‌œ‌	œ‌œ‌کCKڑ‌œ‌œ‌œکKڑ‌	œک!Kڑ‌œک——ک ڑ	‍œ‌œ‌	œ‌œ‌ک=Kڑ‌œ‌œ‌œکKک,Kڑ‌œکKڑ‌œک——ک ڑ‍œ‌œ‌	œ‌œ‌œ‌کPKڑ‌کKڑ‌œ‌œ‌œکKڑœ‌œک*Kڑ‌œکKڑ‌œ+ک1Kڑ‌œک—Kڑ‌œک—Kک Kڑ‌کKکKکKکsKڑœH‌œ‌œ‌œکkKک„Kک.™-K™—K™ — …—    $    