DIRECTORY
Basics,
BasicTime,
CommanderOps USING [DoCommandRope],
Convert,
Icons USING [IconFlavor, NewIconFromFile],
Idle USING [IsIdle],
List USING [Sort, CompareProc, LORA, Remove],
Menus USING [AppendMenuEntry, ClickProc, CreateEntry, CreateMenu, GetLine, GetNumberOfLines, Menu, SetLine],
Process USING [Detach, Pause, SecondsToTicks],
Remind,
RemindReset,
Rope,
ViewerClasses USING [Viewer],
ViewerOps USING [BlinkViewer, DestroyViewer],
ViewerTools USING [MakeNewTextViewer];

RemindDelivery: CEDAR MONITOR
IMPORTS Basics, BasicTime, CommanderOps, Convert, Icons, Idle, List, Menus, Process, Remind, Rope, ViewerOps, ViewerTools EXPORTS RemindReset = BEGIN


OPEN Remind;

ROPE: TYPE ~ Rope.ROPE;

Extras: TYPE = REF ExtrasRec;
ExtrasRec: TYPE = RECORD[
ringing: BOOLEAN м FALSE,
viewer: ViewerClasses.Viewer м NIL];

ActionItem: TYPE ~ REF ActionItemPrivate;
ActionItemPrivate: TYPE ~ RECORD [reminder: Reminder, meeting: Meeting];


secsPerMonth: INT ~ 86400*30;
secsPerDay: INT ~ 60*60*24;

insideMonitorCnt: INT м 0;
remindList: List.LORA м NIL;
remindIcon: Icons.IconFlavor м Icons.NewIconFromFile["Remind.icons", 0];

Reset: PUBLIC ENTRY PROC [data: REF ANY] ~ {
remindList _ NIL;
NoteChange[data];
};

NoteChange: PROC [data: REF ANY]
~ TRUSTED {Process.Detach[FORK ConstructRemindList[]]};

ConstructRemindList:  ENTRY PROC = {
ENABLE UNWIND => NULL;
newMeetList: LIST OF Meeting;
newRemindList: List.LORA м NIL;
mt: Meeting;

newMeetList м ListMeetings[from: BasicTime.Now[].Update[-secsPerDay], to: BasicTime.Now[].Update[secsPerMonth]];
FOR ls: LIST OF Meeting м newMeetList, ls.rest UNTIL ls = NIL DO
FOR rl: RemindList м ls.first.reminders, rl.rest WHILE rl#NIL DO
rmd: REF ReminderRecord[alert];
lead: INT;
WITH rl.first SELECT FROM
x: REF ReminderRecord[alert] => rmd м x;
x: REF ReminderRecord[mail] => LOOP;
ENDCASE => ERROR;
lead м BasicTime.Period[rmd.start, ls.first.start];
FOR rlOld: List.LORA м remindList, rlOld.rest UNTIL rlOld = NIL DO
WITH rlOld.first SELECT FROM
x: ActionItem => IF x.meeting.uniqID=ls.first.uniqID
THEN WITH x.reminder SELECT FROM
y: REF ReminderRecord[alert] =>
IF BasicTime.Period[y.start, x.meeting.start]=lead
THEN {rl.first.other м y.other; EXIT};
y: REF ReminderRecord[mail] => NULL;
ENDCASE => ERROR;
x: Meeting => NULL;
ENDCASE => ERROR;
REPEAT
FINISHED => rl.first.other м NEW[ExtrasRec];
ENDLOOP;
newRemindList м CONS[NEW[ActionItemPrivate м [rmd, ls.first]], newRemindList];
ENDLOOP;
SELECT ls.first.type FROM
command, protectedCmd => newRemindList м CONS[ls.first, newRemindList];
none, meeting, seminar => NULL;
ENDCASE => ERROR;
ENDLOOP;
remindList м List.Sort[newRemindList, CompareUsingStartReminding];
};

CompareUsingStartReminding: List.CompareProc = {
t1: BasicTime.GMT ~ StartFromRlElt[ref1];
t2: BasicTime.GMT ~ StartFromRlElt[ref2];
RETURN[Basics.CompareInt[0, BasicTime.Period[t1, t2]]]};

StartFromRlElt: PROC [rle: REF ANY] RETURNS [BasicTime.GMT] ~ {
WITH rle SELECT FROM
x: Meeting => RETURN[x.start];
x: ActionItem => WITH x.reminder SELECT FROM
y: REF ReminderRecord[alert] => RETURN[y.start];
y: REF ReminderRecord[mail] => RETURN[y.when];
ENDCASE => ERROR;
ENDCASE => ERROR};

PostReminders: PROC = {
wait: INT;

wait м 30;
DO
IF NOT Idle.IsIdle[] AND insideMonitorCnt < 3 THEN TRUSTED{Process.Detach[FORK DoPostReminders[]]};
Process.Pause[Process.SecondsToTicks[wait]];
ENDLOOP;
};

DoPostReminders: ENTRY PROC = {
ENABLE UNWIND => NULL;
start, stop, now: BasicTime.GMT;
ex: Extras;
str: ROPE;
viewer: ViewerClasses.Viewer;
remindMenu: Menus.Menu;
mt: Meeting;
rmd: REF ReminderRecord[alert];
cur: List.LORA;

insideMonitorCnt м insideMonitorCnt + 1;
now м BasicTime.Now[];
FOR cur м remindList, cur.rest WHILE cur#NIL DO
WITH cur.first SELECT FROM
x: Meeting => {mt м x; start м mt.start};
x: ActionItem => {
mt м x.meeting;
WITH x.reminder SELECT FROM
y: REF ReminderRecord[alert] => {rmd м y; start м y.start; stop м y.stop};
y: REF ReminderRecord[mail] => LOOP;
ENDCASE => ERROR};
ENDCASE => ERROR;
IF BasicTime.Period[now, start] > 0 THEN EXIT;
IF cur.first=mt THEN {
IF NOT (mt.type=command OR mt.type=protectedCmd) THEN ERROR;
DoCommand[mt];
IF mt.repeat = once THEN remindList м List.Remove[cur.first, remindList]
ELSE {
UpdateMeeting[mt, FirstOccurrenceAfter[mt.repeat, mt.nth, mt.start, now], FALSE];
rmd.other м NEW[ExtrasRec];
};
}
ELSE {
ex м NARROW[rmd.other];
IF BasicTime.Period[stop, now] > 0 THEN {
IF mt.repeat = once THEN remindList м List.Remove[cur.first, remindList]
ELSE {
newStart: BasicTime.GMT ~ FirstOccurrenceAfter[mt.repeat, mt.nth, start, now];
diff: INT ~ BasicTime.Period[start, newStart];
rmd.start м newStart;
rmd.stop м BasicTime.Update[rmd.stop, diff];
rmd.other м NEW[ExtrasRec];
};
}
ELSE {
IF ex.viewer = NIL THEN {
str м Rope.Cat["Time: ", Convert.RopeFromTime[mt.start], "\nDuration: ", Convert.RopeFromCard[mt.duration], " minutes\n"];
viewer м ViewerTools.MakeNewTextViewer[
info: [
data: IF mt.repeat = once THEN Rope.Cat[str, "\n", mt.explanation]
ELSE Rope.Cat[str, "Repeat: ", RopeFromRepetition[mt.repeat], "\n\n", mt.explanation],
icon: remindIcon,
name: mt.explanation]
];
remindMenu м Menus.CreateMenu[];
Menus.AppendMenuEntry[menu: remindMenu, entry: Menus.CreateEntry["Blinker", ToggleBlinking, ex]];
Menus.SetLine[menu: viewer.menu, line: Menus.GetNumberOfLines[viewer.menu], entryList: Menus.GetLine[remindMenu, 0]];
ex.viewer м viewer;
ex.ringing м TRUE;
TRUSTED{Process.Detach[FORK BlinkIcon[ex, stop]]};
};
};
};
ENDLOOP;
remindList м List.Sort[remindList, CompareUsingStartReminding];
insideMonitorCnt м insideMonitorCnt - 1;
RETURN};

ToggleBlinking: Menus.ClickProc = {
ex: Extras м NARROW[clientData];
ex.ringing м NOT ex.ringing;
RETURN};

BlinkIcon: PROC[ex: Extras, stop: BasicTime.GMT] = {
WHILE BasicTime.Period[BasicTime.Now[], stop] >= 0 DO
Process.Pause[Process.SecondsToTicks[3]];
IF ex.ringing THEN ViewerOps.BlinkViewer[ex.viewer];
ENDLOOP;
ViewerOps.DestroyViewer[ex.viewer];
};

DoCommand: PROC [mt: Meeting] = {
out: ROPE;
viewer: ViewerClasses.Viewer;
[out,] м CommanderOps.DoCommandRope[mt.explanation, NIL, NIL];
viewer м ViewerTools.MakeNewTextViewer[info: [data: out, name: "Calendar command"]];
};

UpdateMeeting: PROC[meeting: Meeting, newTime: BasicTime.GMT, remindersToo: BOOL] = {
diff: INT м BasicTime.Period[meeting.start, newTime];
meeting.start м newTime;
IF remindersToo
THEN FOR rl: RemindList м meeting.reminders, rl.rest WHILE rl#NIL DO
WITH rl.first SELECT FROM
x: REF ReminderRecord[alert] => {
x.start м BasicTime.Update[x.start, diff];
x.stop м BasicTime.Update[x.stop, diff]};
x: REF ReminderRecord[mail] => {
x.when м BasicTime.Update[x.when, diff]};
ENDCASE => ERROR;
ENDLOOP;
RETURN};


RegisterChangeProc[NoteChange, NIL, $RemindDelivery, NIL];
ConstructRemindList[];
TRUSTED {
Process.Detach[FORK PostReminders[]];
};

END.
   l  
RemindDelivery.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
David Goldberg November 13, 1989 7:59:49 pm PST
Peter B. Kessler, January 17, 1990 9:11:14 pm PST
Last changed by Pavel on February 12, 1990 5:40:45 pm PST
Kenneth A. Pier, August 11, 1992 5:46 pm PDT
Theimer, September 17, 1990 11:22 pm PDT
Last tweaked by Mike Spreitzer April 30, 1992 11:47 am PDT
Willie-s, May 5, 1992 2:14 pm PDT

Implements the remind interface, and also contains the PostReminders proc, which runs in the background and pops up reminders

Each elt is either a (protected)command Meeting or an ActionItem.
The list consists of all (protected)command Meetings, and an ActionItem for every reminder.
newMeetList м ListMeetings[from: BasicTime.Now[], to: BasicTime.Now[].Update[secsPerMonth]];
in an attempt to get reminders processed when CalendarTool is first started and a reminder is still active, I have changed ConstructRemindList to as ListMeetings for meetings within one day previous to Now.  KAP. August 11, 1992.
PROC [ref1: REF ANY, ref2: REF ANY] RETURNS [Comparison]
works entirely off of remindList:  never looks in LoganBerry.  Calls an ENTRY proc to do the real work
XXX: put up or blink thing
create remind window
label: ShortTime[entry.time],
PROC [parent: Viewer, clientData: REF ANY _ NIL, 
mouseButton: MouseButton _ red, shift, control: BOOL _ FALSE];
cmd: Commander.Handle _ CommanderOps.CreateFromStreams[];
Want to open the database when you rollback (no reason database will be the same as when you made the checkpoint).  To accomplish this, make sure that database is closed in the checkpoint file.  
 Э╩	э  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩIprocЦ"Cedar" styleЪЬ
╧eЬ7ЩBKЩ/KЩ1KЩ9KЩ,KЩ(KЩ:KЩ!KЩ ЧЪ╧k	Ш	KЪЬШKЪЬ
Ш
KЪЬЮЬШ#KЪЬШKЪЬЮЬШ*KЪЬЮЬ
ШKЪЬЮЬЮЬ
Ш-KЪЬЮЬaШlKЪЬЮЬ!Ш.KЪЬШKШKЪЬШKЪЬЮЬ
ШKЪЬ
ЮЬШ-KЪЬЮЬШ&KШ ЧKЪ╨lnЬЮЬЮШЪ	ЮЬrЬЮЬЬЬЬЮШХKШ KЪЬ}Щ}KЩ ЧKШ KЪЮЬШKШ KЪЮЬЮЬЮЬШKШ KЪЬЮЬЮЬШЪЬЮЬЮЬШKЪЬ	ЮЬЮЬШKЪЬЮЬШ$KШ ЧKЪЬЮЬЮЬШ)KЪЬЮЬЮЬ(ШHKШ KШ KЪЬЮЬШKЪЬЮЬШKШ KЪЬЮЬШЪЬЮЬЮЬШKЪЬAЩAKЪЬ[Щ[ЧKШHKШ Ъ╧nЬЮЬЮЮЬЮЬЮЬШ,KЪЬЮЬШKШKШKШ ЧЪа
ЬЮЬЮЬЮЬШ KЪЬЮЬЮЬШ7ЧKШ ЪаЬЮЬЮЬШ$KЪЮЬЮЬЮЬШKЪЬЮЬЮЬ	ШKЪЬЮЬЮЬШKШKШ KЩ\KЩхKШpЪЮЬЮЬЮЬ ЮЬЮЬЮШ@ЪЮЬ.ЮЬЮЬЮШ@KЪЬЮЬШKЪЬЮЬШ
ЪЮЬ
ЮЬЮШKЪЬЮЬ"Ш(KЪЬЮЬЮЬШ$KЪЮЬЮЬШЧKШ3Ъ	ЮЬЮЬЮЬ	ЮЬЮШBЪЮЬЮЬЮШЪЬЮЬ!Ш4ЪЮЬЮЬЮЬЮШ ЪЬЮЬШKЪЮЬ0Ш2KЪЮЬЮЬШ&ЧKЪЬЮЬЮЬШ$KЪЮЬЮЬШЧЧKЪЬЮЬШKЪЮЬЮЬШЧKЪЮШKЪЮЬЮЬШ,KЪЮЬШЧKЪЬЮЬЮЬ6ШNKЪЮЬШЧЪЮЬЮШKЪЬ)ЮЬШGKЪЬЮЬШKЪЮЬЮЬШЧKЪЮЬШЧKШBKЪЬШЧKШ ЪаЬШ0KЪЮЬЮЬЮЬЮЬЮЬЮЬЩ8KЪЬЮЬШ)KЪЬЮЬШ)KЪЮЬ2Ш8ЧKШ ЪаЬЮЬЮЬЮЬЮЬЮЬШ?ЪЮЬЮЬЮШKЪЬЮЬ
ШЪЬЮЬЮЬЮШ,KЪЬЮЬЮЬ
Ш0KЪЬЮЬЮЬ	Ш.KЪЮЬЮЬШЧKЪЮЬЮЬШЧЧKШ KЪЬH╧sЬЩfЪаЬЮЬШKЪЬЮЬШ
KШ KШ
ЪЮШKЪЮЬЮЬЮЬЮЬЮЬЮЬШcKШ,KЪЮЬШЧKШЧKШ ЪаЬЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬШ KШKЪЬЮЬШ
KЪЬШKШKШKЪЬЮЬШKЪЬ
ЮЬШKШ KШ(KШЪЮЬЮЬЮЬЮШ/ЪЮЬЮЬЮШKШ)ШKШЪЮЬЮЬЮШKЪЬЮЬDШJKЪЬЮЬЮЬШ$KЪЮЬЮЬШЧЧKЪЮЬЮЬШЧKЪЮЬ"ЮЬЮЬШ.ЪЮЬЮЬШKЪ
ЮЬЮЬЮЬЮЬЮЬШ<KЪЬШKЪЮЬЮЬ0ШHЪЮЬШKЪЬJЮЬШQKЪЬЮЬШKШЧKШЧЪЮЬШKЪЬЮЬШЪЮЬ!ЮЬШ)KЪЮЬЮЬ0ШHЪЮЬШKЪЬЮЬ7ШNKЪЬЮЬ%Ш.KШKШ,KЪЬЮЬШKШЧKШЧЪЮЬШKЪЬЩЪЮЬЮЬЮЬШKЪЬЩKШzШ'ЪЬШЪЬЮЬЮЬ$ШBKЪЮЬRШVЧKШKЪЬЩKЪЬШЧKШЧKШ KЪЬaШaKШuKШKЪЬЮЬШKЪЮЬЮЬШ2KШЧKШЧKШЧKЪЮЬШЧKШ?KШ(KЪЮЬШЧKШ ХStartOfExpansion- -- [reason: UserProfile.ProfileChangeReason]ЪаЬШ#KЪЮЬЮЬЮЬЮЬ3ЮЬЮЬЩpKЪЬЮЬШ KЪЬЮЬШKЪЮЬШЧKШ Ъа	ЬЮЬЮЬШ4ЪЮЬ.ЮШ5KШ)KЪЮЬЮЬ"Ш4KЪЮЬШЧKЪЬ#Ш#KЪЬШKШ ЧЪа	ЬЮЬШ!KЪЬ9Щ9KЪЬЮЬШ
KШKЪЬ4ЮЬЮЬШ>KШTKЪЬШЧKШ ЪаЬЮЬ&ЮЬЮЬШUKЪЬЮЬ,Ш5KШЪЮЬШЪ	ЮЬЮЬ-ЮЬЮЬЮШDЪЮЬ
ЮЬЮШЪЬЮЬШ!KШ*KШ)ЧЪЬЮЬШ KШ)ЧKЪЮЬЮЬШЧKЪЮЬШЧЧKЪЮЬШЧKШ KЪЬ├Щ├KШ KЪЬЮЬЮЬШ:KЪЬШЪЮЬШ	KЪЬЮЬШ%KЪЬШЧKШ KЪЮЬШЧ ЕЧ    а  *∙  