DIRECTORYAscii USING[SP, TAB, CR],BasicTime USING[Period, Now, Update, GMT],Booting USING[RollbackProc, RegisterProcs],Convert USING[CardFromRope, TimeFromRope, Error],FS USING[Error, StreamOpen],IO USING[STREAM, GetChar, Close, PutRope, EndOfStream],Process USING[Pause, SecondsToTicks, Detach],Rope USING[ROPE, Concat, FromChar, Equal, Match],ViewerClasses USING[Viewer],ViewerEvents USING[RegisterEventProc, ViewerEvent],ViewerIO USING[CreateViewerStreams],ViewerOps USING[BlinkIcon, DestroyViewer],ViewerTools USING[MakeNewTextViewer];Reminder: CEDAR MONITORIMPORTS BasicTime, Booting, Convert, FS, IO, Process, Rope,ViewerEvents, ViewerIO, ViewerOps, ViewerTools= BEGIN OPEN Ascii, Rope, ViewerClasses, ViewerEvents, ViewerOps;Event: TYPE = REF EventObj;EventObj: TYPE = RECORD[text: ROPE,timeRope: ROPE,timeToStartNotification: BasicTime.GMT,newStartTime: BOOL _ TRUE,repetitionInterval: INT _ 0,duration: INT _ 0,viewer: Viewer _ NIL];ParameterClass: TYPE = {message, repeat, duration--minutes--, until, time};eventList: LIST OF Event _ NIL;FormatError: ERROR = CODE;Construct: ENTRY Booting.RollbackProc ={ ENABLE UNWIND => NULL;fileStream: IO.STREAM _ NIL;timeRope: ROPE _ NIL;{  -- for EXITS clauseIF eventList # NILTHEN FOR el: LIST OF Event _ eventList, el.rest UNTIL el = NILDO IF el.first.viewer # NIL AND NOT el.first.viewer.destroyedTHEN DestroyViewer[el.first.viewer];ENDLOOP;eventList _ NIL;fileStream _ FS.StreamOpen["Reminders.txt" ! FS.Error => GOTO noReminderFile];DO time: BasicTime.GMT;text: ROPE;class: ParameterClass;repetitionInterval: INT _ 0;duration: INT _ 0;timeRope _ ReadTimeRope[fileStream];IF timeRope = NIL THEN EXIT;time _ Convert.TimeFromRope[timeRope			! Convert.Error => GOTO timeRopeFormatError];[class, text] _ ReadParameter[fileStream ! FormatError => GOTO formatError];UNTIL class = messageDO SELECT class FROMrepeat => IF Equal[s1: text, s2: "HOURLY", case: FALSE]THEN {repetitionInterval _ LONG[60*60]}ELSE IF Equal[s1: text, s2: "DAILY", case: FALSE]THEN {repetitionInterval _ LONG[60*60]*24}ELSE IF Equal[s1: text, s2: "WEEKLY", case: FALSE]THEN {repetitionInterval _ LONG[60*60]*24*7}ELSE IF Equal[s1: text, s2: "YEARLY", case: FALSE]THEN {repetitionInterval _ LONG[60*60]*24*7*52}ELSE GOTO formatError;duration => duration _ Convert.CardFromRope[text]*60;until =>duration_ BasicTime.Period[	to: Convert.TimeFromRope[text	! Convert.Error => GOTO formatError],	from: time];ENDCASE;[class, text] _ ReadParameter[fileStream ! FormatError => GOTO formatError];ENDLOOP;{  latest: BasicTime.GMT _ time;IF repetitionInterval > 0 THENWHILE BasicTime.Period[from: latest, to: BasicTime.Now[]] >= repetitionIntervalDO latest _ BasicTime.Update[latest, repetitionInterval] ENDLOOP;eventList _ CONS[NEW[EventObj _ [timeToStartNotification: latest,timeRope: timeRope,text: text,repetitionInterval: repetitionInterval,duration: duration]],eventList];};ENDLOOP;fileStream.Close[];EXITS formatError => {out: IO.STREAM _ ViewerIO.CreateViewerStreams["Reminder Error"].out;eventList _ NIL;out.PutRope["Reminder: Format error in Reminders.txt\n"];};timeRopeFormatError => {out: IO.STREAM _ ViewerIO.CreateViewerStreams["Reminder Error"].out;eventList _ NIL;out.PutRope["Reminder: Unintelligible time: "];out.PutRope[timeRope];out.PutRope["\n"];};noReminderFile => {out: IO.STREAM _ ViewerIO.CreateViewerStreams["Reminder Error"].out;eventList _ NIL;out.PutRope["Reminder: Can't find the file named Reminders.txt\n"];};};};CheckSavedFile: PROC[viewer: Viewer, event: ViewerEvent, before: BOOL] RETURNS[abort: BOOL _ FALSE] ={IF Match[object: viewer.name, pattern: "*Reminders.txt*", case: FALSE] THEN Construct[NIL]};IsBreak: PROC[ch: CHAR] RETURNS[BOOL] ={RETURN[ch = SP OR ch = TAB OR ch = CR OR ch = '[ OR ch = ']]};ReadParameter: PROC[fileStream: IO.STREAM]RETURNS[parameterClass: ParameterClass _ message, text: ROPE _ NIL] ={ ch: CHAR _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];WHILE IsBreak[ch]DO ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];ENDLOOP;IF ch # '"THEN {text _ NIL;UNTIL IsBreak[ch]DO text _ Concat[base: text, rest: FromChar[ch]];ch _ fileStream.GetChar[! IO.EndOfStream => EXIT];ENDLOOP;SELECT TRUE FROMEqual[s1: text, s2: "REPEAT:", case: FALSE]=> {parameterClass _ repeat;WHILE IsBreak[ch]DO ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];ENDLOOP;text _ NIL;UNTIL IsBreak[ch]DO text _ Concat[base: text, rest: FromChar[ch]];ch _ fileStream.GetChar[! IO.EndOfStream => EXIT];ENDLOOP;};Equal[s1: text, s2: "DURATION:", case: FALSE]=> {parameterClass _ duration;WHILE IsBreak[ch]DO ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];ENDLOOP;text _ NIL;UNTIL IsBreak[ch]DO text _ Concat[base: text, rest: FromChar[ch]];ch _ fileStream.GetChar[! IO.EndOfStream => EXIT];ENDLOOP;};Equal[s1: text, s2: "UNTIL:", case: FALSE]=> {parameterClass _ until;text _ ReadTimeRope[fileStream]};Equal[s1: text, s2: "TIME:", case: FALSE]=> {parameterClass _ time;text _ ReadTimeRope[fileStream]};Equal[s1: text, s2: "MESSAGE:", case: FALSE]=> {parameterClass _ message;UNTIL ch = '"DO ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];ENDLOOP;text _ NIL;UNTIL ch = '"DO text _ Concat[base: text, rest: FromChar[ch]];ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];ENDLOOP;};ENDCASE => ERROR FormatError;RETURN;};parameterClass _ message;ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];UNTIL ch = '"DO text _ Concat[base: text, rest: FromChar[ch]];ch _ fileStream.GetChar[! IO.EndOfStream => GOTO formatError];ENDLOOP;EXITS formatError => ERROR FormatError;};ReadTimeRope: PROC[fileStream: IO.STREAM] RETURNS[ans: ROPE _ NIL] = {ch: CHAR _ fileStream.GetChar[! IO.EndOfStream => GOTO exit];WHILE ch = SP OR ch = TAB OR ch = CRDO ch _ fileStream.GetChar[! IO.EndOfStream => GOTO exit];ENDLOOP;UNTIL ch = CR OR ch = ']DO ans _ Concat[base: ans, rest: FromChar[ch]];ch _ fileStream.GetChar[! IO.EndOfStream => GOTO exit];ENDLOOP;EXITS exit => NULL;};EventMinder: PROC = {DO EnterEventMinder[]; Process.Pause[Process.SecondsToTicks[3]]; ENDLOOP;};EnterEventMinder: ENTRY PROC ={ ENABLE UNWIND => NULL;now: BasicTime.GMT = BasicTime.Now[];FOR el: LIST OF Event _ eventList, el.rest UNTIL el = NILDO   -- for each event.startTime: BasicTime.GMT;IF el.first.repetitionInterval > 0 THEN { -- compute the most recent startTimelatest: BasicTime.GMT _ el.first.timeToStartNotification;WHILE BasicTime.Period[from: latest, to: BasicTime.Now[]] >= el.first.repetitionIntervalDOlatest _ BasicTime.Update[latest, el.first.repetitionInterval];el.first.newStartTime _ TRUE;ENDLOOP;el.first.timeToStartNotification _ latest;};startTime _ el.first.timeToStartNotification;IF BasicTime.Period[from: startTime, to: now] > 0 THEN {IF el.first.newStartTimeAND (el.first.duration = 0  -- means forever	 OR BasicTime.Period[from: startTime, to: now] < el.first.duration)AND (el.first.viewer = NIL OR el.first.viewer.destroyed)THEN {el.first.newStartTime _ FALSE;el.first.viewer _ ViewerTools.MakeNewTextViewer[[ name: el.first.text,data: Concat[base: el.first.timeRope, rest: Concat[": ", el.first.text]] ]];};IF el.first.duration # 0  -- 0 means foreverAND BasicTime.Period[from: startTime, to: now] > el.first.durationAND el.first.viewer # NILAND NOT el.first.viewer.destroyedTHEN DestroyViewer[el.first.viewer];IF el.first.viewer # NILAND (NOT el.first.viewer.destroyed)AND el.first.viewer.iconicTHEN BlinkIcon[el.first.viewer];};ENDLOOP;};[] _ RegisterEventProc[CheckSavedFile, save, $Text, FALSE];TRUSTED {Booting.RegisterProcs[r: Construct]};TRUSTED {Process.Detach[FORK EventMinder[]]};Construct[NIL];END.July 29, 1982 5:00 pmREPEAT: DAILYDURATION: 60"Time to go home."July 28, 1982 1:00 pmREPEAT: WEEKLYDURATION: 30"Dealer at 1:15"July 30, 1982 1:10 pmDURATION: 30"Mike Feuer arriving at 1:30"   ш  Reminder.mesaLast Modified On January 11, 1984 12:23 pm By Paul RovnerReminder reads a text file named Reminders.txt and FORKs a process to post notices as flashing, iconic viewers at or after the specified time.Reminder is an interim (!) hack until Hickory is ready for general use.The format of the file is a sequence of entries separated by CR, each entry being a time specification (e.g. July 29, 1982 3:25 pm) ending with CR, followed by zero or more (optional) parameter specifications (see list below), followed by a ROPE constant that is the text of the notice. The text following the END. below is an example Reminders.txt.Until a better date and time parser is available, an "optional parameter" facility (keyword including ': followed by parameter value) is provided as a stopgap. Case is ignored.REPEAT:  {one of: HOURLY, DAILY, WEEKLY, YEARLY}this causes the notice to be posted at the specified interval.MONTHLY isn't implemented yetDURATION: {number of minutes}automatically kill the notice after this durationUNTIL: {timestamp}automatically kill the notice after this timeYou can open a reminder icon. It will resume blinking when you close it. You can delete a Reminder viewer. After editing your Reminders.txt file and saving it, Reminder will automatically discard the old list of reminders and re-read the file to construct a new one. This also happens automatically after a Rollback. here with keywordcreate a new viewer if there just occurred a new start time (the first qualifies) and its duration has not expired and there isn't already an active viewer for this eventdestroy an existing viewer if a duration is specified and it has lapsedblink the viewer if there is an active one and it is iconicMODULE INITIALIZATIONЭ╩  Ш JШ JШ JЪЬЩJЪЬ9Щ9JШ JЪЬОЩОJШ JЪЬGЩGJШ JЪЬ▌Щ▌JШ ЪЬ░Щ░ЪЬ0Щ0JЪЬ>Щ>ЧJЪЬЩЪЬЩJЪЬ1Щ1ЧЪЬЩJЪЬ-Щ-ЧЧJШ JЪЬ╜Щ╜JШ Ъ╧k	Ш	JЪ	ЬЭЬЭЬЭЬЭЬШJЪЬ
ЭЬШ*JЪЬЭЬШ+JЪЬЭЬ$Ш1JЪЭЬЭЬШJЪЭЬЭЬЭЬ(Ш7JЪЬЭЬ Ш-JЪЬЭЬЭЬ"Ш1JЪЬЭЬ	ШJЪЬЭЬ!Ш3JЪЬ	ЭЬШ$JЪЬ
ЭЬШ*JЪЬЭЬШ%JШ JЪЬ
ЭЬЭШJШ ЪЭЬ"ЭЬШ;JЪЬ.Ш.JШ ЧJЪЬЭЬЭЬ5ШAJШ JЪЬЭЬЭЬ
ШЪЬ
ЭЬЭЬЭЬШ#JЪЬ
ЭЬШJЪЬ#ЭЬШ'JЪЬЭЬЭЬШJЪЬЭЬШJЪЬ
ЭЬШJЪЬЭЬШЧJЪЬЭЬ╧cЬШKJШ JЪЬЭЬЭЬ	ЭЬШJШ JЪЬЭЬЭЬШJШ Ъ╧n	ЬЭЬШ'ЪЬЭЬЭЬЭЬШJЪЬЭЬЭЬШJЪЬ
ЭЬЭЬШJШ JЪЬЮШЪЭЬЭШЪЭЬЭЬЭЬЭЬЭЬЭШ>Ъ
ЭЬЭЬЭЬЭЬЭЬШ=JЪЭЬ Ш$ЧJЪЭЬШЧJШ ЧJЪЬЭЬШJЪЬЭЬЭЬ
ЭЬШNJШ ЪЭЬШJЪЬЭЬШJЪЬЭЬШJШJЪЬЭЬШJЪЬ
ЭЬШJШ JШ$JЪЭЬЭЬЭЬЭЬШЪЬ$Ш$JЪЬЭЬШ0ЧJЪЬ:ЭЬШLЪЭЬШЪЭЬЭЬЭШЪЬ
ЭЬ%ЭЬШ7JЪЭЬЭЬШ'JЪЭЬЭЬ$ЭЬШ1JЪЭЬЭЬШ*JЪЭЬЭЬ%ЭЬШ2JЪЭЬЭЬШ,JЪЭЬЭЬ%ЭЬШ2JЪЭЬЭЬШ/JЪЭЬЭЬШЧJЪЬ5Ш5ЪЬШЪЬШЪЬШЪЬШJЪЬЭЬШ&ЧJЪЬШЧЧЧJЪЭЬШJЪЬ:ЭЬШLЧJЪЭЬШЧJШ ЪЬШJЪЬЭЬШЪЭЬЭШЪЭЬJШOJЪЭЬ7ЭЬШAЧЧЪЬЭЬЭЬ-ШAJШJШJШ'JШJШЧЧJШЧJЪЭЬШJШЪЭЬШШJЪЬЭЬЭЬ6ШDJЪЬЭЬШJШ9JШЧЪЬШJЪЬЭЬЭЬ6ШDJЪЬЭЬШJШ/JШJШJШЧЪЬШJЪЬЭЬЭЬ6ШDJЪЬЭЬШJШCJШЧЧJШЧШJШ ЧЧЧЪЯЬЭЬ-ЭЬШGJЪЭЬЭЬЭЬШJЪ	ЬЭЬ>ЭЬЭЬЭЬШ]JШ ЧЪ
ЯЬЭЬЭЬЭЬЭЬШ'JЪЬЭЬЭЬЭЬЭЬЭЬЭЬЭЬ	ЭЬШ?JШ ЧЪЯЬЭЬЭЬЭЬШ*JЪЭЬ1ЭЬЭЬШEЪЬЭЬЭЬЭЬШFЪЭЬШJЪЭЬЭЬЭЬШAJЪЭЬШЧЪЭЬШ
ЪЭЬ	ЭЬШЪЭЬШЪЭЬ/Ш1JЪЬЭЬЭЬШ2ЧЧJЪЭЬШJЪЬЩЪЭЬЭЬЭШЪЬ%ЭЬШ+ШЪЭЬШJЪЭЬЭЬЭЬШAJЪЭЬШЧJЪЬЭЬШЪЭЬШЪЭЬ/Ш1JЪЬЭЬЭЬШ2ЧJЪЭЬШЧJШЧЧЪЬ'ЭЬШ-ШЪЭЬШJЪЭЬЭЬЭЬШAJЪЭЬШЧJЪЬЭЬШЪЭЬШЪЭЬ/Ш1JЪЬЭЬЭЬШ2ЧJЪЭЬШЧJШЧЧЪЬ$ЭЬШ*ШJШ!ЧЧЪЬ#ЭЬШ)ШJШ!ЧЧЪЬ&ЭЬШ,ШJЪЭЬШJЪЭЬЭЬЭЬШAJЪЭЬШJЪЬЭЬШЪЭЬШЪЭЬ/Ш1JЪЬЭЬЭЬШ>ЧJЪЭЬШЧJШЧЧJЪЭЬЭЬШJЪЭЬШЧJШJШ ЧЧJШJЪЬЭЬЭЬШ>ЪЭЬШЪЭЬ/Ш1JЪЬЭЬЭЬШ>ЧJЪЭЬШЧJЪЭЬЭЬШ'ЧJШJШ ЧЪЯЬЭЬЭЬЭЬЭЬЭЬЭЬШFJЪЬЭЬЭЬЭЬШ=ЪЭЬЭЬЭЬЭЬЭЬЭШ$JЪЭЬЭЬЭЬШ:JЪЭЬШЧЪЭЬЭЬЭЬШЪЭЬ-Ш/JЪЬЭЬЭЬШ7ЧJЪЭЬШЧJЪЭЬ	ЭЬШJШJШ ЧЪЯЬЭЬШJЪЭЬ>Э	ШIЪЬШJШ ЧЧЪЯЬЭЬЭЬШЪЬЭЬЭЬЭЬШJЪЬЭЬШ%Ъ	ЭЬЭЬЭЬЭЬЭШ9ЪЭЬЮШJЪЬЭЬШЪЭЬ!ЭЬЮ$ШNJЪЬЭЬ!Ш9ЪЭЬSШXЪЭШJЪЬ?Ш?JЪЬЭЬШЧJЪЭЬШЧJЪЬ ЭЬЭШ*JЪЬШЧJШ-ЪЭЬ0Ш2ЪЭЬШЪЬкЩкЪЭЬШЪЭЬЮШ,JЪЭЬ@ШDЧJЪЭЬЭЬЭЬШ8ЪЭЬШJЪЬЭЬШШ/ШJШLЧЧJШЧЧЪЬGЩGЪЭЬЮШ,JЪЭЬ?ШBJЪЭЬЭШJЪЭЬЭЬШ!ЧJЪЭЬ Ш$JШ ЧJЪЬ;Щ;ЪЭЬЭШJЪЭЬЭЬШ#JЪЭЬШЧJЪЭЬШ ЧJШЧЧЧJЪЭЬШЧЧJШJШ JЪЬЩШ JЪЬ4ЭЬШ;JЪЭЬ'Ш.JЪЭЬЭЬШ-JШJШ ЧЧJЪЭЬШJШ JШJЪЭЬЭШJЪЭЬШJШJШ JШJЪЭЬЭШJЪЭЬШJШJШ JШJЪЭЬШJШJШ JШ Ч ЕЧ    Ъ  2  