
DIRECTORY BasicTime, IO, Menus, Process, RefText, Remind, RemindEdit, Rope, TextNode, TimeParse, TiogaOps, UserProfile, ViewerClasses, ViewerTools, WalnutRegistry, WalnutWindow;


RemindWalnut: CEDAR PROGRAM
IMPORTS 
RemindEdit, BasicTime, IO, Process, RefText, Rope, TimeParse, TiogaOps, UserProfile, ViewerTools, WalnutRegistry, WalnutWindow
= BEGIN OPEN Remind;

ROPE: TYPE = Rope.ROPE;

WhiteSpace: IO.BreakProc = {
RETURN[SELECT char FROM ' , '\n, '\t, '\l => sepr, ENDCASE => other];
};

PostRemindButton: PROC = TRUSTED {
DO
IF WalnutRegistry.CurrentWalnutState[] # unknown THEN {
walnutUser м TRUE;
UNTIL WalnutRegistry.CurrentWalnutState[] # initializing DO
Process.Pause[Process.SecondsToTicks[5]];
ENDLOOP;
FOR whL: LIST OF WalnutWindow.WalnutHandle м WalnutWindow.GetHandleList[], whL.rest UNTIL whL = NIL DO
[] м WalnutWindow.ReplaceInMsgMenu[wH: whL.first, label: "RemindMe", proc: RemindProc];
ENDLOOP;
EXIT;
};
Process.Pause[Process.SecondsToTicks[60]];
ENDLOOP;
};

RemindProc: Menus.ClickProc = {
headerSize, msgSize: INT;
timeSpecified: BOOLEAN м FALSE;
viewer: ViewerClasses.Viewer = NARROW[parent];
rootAny: REF ANY м TiogaOps.ViewerDoc[viewer];
root: TextNode.Ref м NARROW[rootAny];
messageName, rootFile, sel, msgText, subject: ROPE м NIL;
dayRope, dateRope, timeRope, titleRope: ROPE м NIL;
startRope: ROPE;
meeting: Meeting;
ps: IO.STREAM;
buffer, fieldTag, fieldBody: REF TEXT;
GatherField: PROC [skipped: INT] RETURNS [ans: ROPE м NIL] ~ {
[] м SkipSpace[ps, TRUE];
IF ps.EndOf[] THEN RETURN;
ans м ps.GetLineRope[];
WHILE (NOT ps.EndOf[]) AND White[ps.PeekChar] DO
this: INT ~ SkipSpace[ps, FALSE];
IF ps.EndOf[] OR this<=skipped THEN RETURN;
ans м ans.Cat["\n", ps.GetLineRope[]];
ENDLOOP;
RETURN};
[messageName, rootFile] м WalnutWindow.GetMsgName[viewer];
sel м ViewerTools.GetSelectionContents[];
meeting м NEW[MeetingRec];
msgText м ViewerTools.GetContents[viewer];
msgSize м msgText.Length[];
ps м IO.RIS[msgText];
buffer м RefText.New[200];
WHILE NOT ps.EndOf[] DO
fieldTag м ps.GetToken[HeaderBreak, buffer].token;
SELECT TRUE FROM
RefText.Equal[fieldTag, "\n", TRUE] => EXIT;
RefText.Equal[fieldTag, "\r", TRUE] => EXIT;
RefText.Equal[fieldTag, "\l", TRUE] => EXIT;
ps.EndOf[] => EXIT;
RefText.Equal[fieldTag, "Subject:", FALSE] => {
[] м SkipSpace[ps, FALSE];
subject м ps.GetLineRope[]};
ENDCASE => fieldBody м ps.GetLine[buffer];
ENDLOOP;
headerSize м ps.GetIndex[];
WHILE NOT ps.EndOf[] DO
skipped: INT;
[fieldTag, skipped] м ps.GetToken[BodyBreak, buffer];
SELECT TRUE FROM
fieldTag.length=1 AND BodyBreak[fieldTag[0]]=break => NULL;
RefText.Equal[fieldTag, "day", FALSE] => dayRope м GatherField[skipped];
RefText.Equal[fieldTag, "date", FALSE] => dateRope м GatherField[skipped];
RefText.Equal[fieldTag, "time", FALSE] => timeRope м GatherField[skipped];
RefText.Equal[fieldTag, "title", FALSE] => titleRope м GatherField[skipped];
ps.EndOf[] => EXIT;
ENDCASE => fieldBody м ps.GetLine[buffer];
ENDLOOP;
meeting.start м BasicTime.nullGMT;
IF sel.Length[] > 1 THEN {
pieces: TimeParse.PiecesType;
selRem: ROPE;
[meeting.start, pieces] м TimeParse.Parse[sel, BasicTime.Now[], heuristic, FALSE, TRUE
!TimeParse.ParseError => GOTO NotHere];
IF pieces=NIL THEN meeting.start м BasicTime.nullGMT;
selRem м RemPieces[sel, pieces];
IF selRem.Length[] > 0 THEN titleRope м selRem;
EXITS NotHere => titleRope м sel};
IF meeting.start = BasicTime.nullGMT THEN {
startRope м Rope.Cat[timeRope, " ", IF dayRope#NIL THEN dayRope ELSE dateRope];
meeting.start м TimeParse.Parse[startRope, BasicTime.Now[], heuristic, FALSE, TRUE
!TimeParse.ParseError => {
meeting.start м BasicTime.Now[];
CONTINUE}].time;
};
meeting.duration м defaultDuration;
meeting.explanation м  IF titleRope.Length[]>0 THEN titleRope ELSE subject;
meeting.more м Rope.Cat[rootFile, " ", messageName];
RemindEdit.SpecifyMeeting[meeting, FALSE];
RETURN};
UpdateDefaults: UserProfile.ProfileChangedProc = {

defaultDuration м UserProfile.Number["Remind.Duration", 60];
};

SkipSpace: PROC [stream: IO.STREAM, punctToo: BOOL] RETURNS [n: INT м 0] ~ {
WHILE (NOT stream.EndOf[]) DO
c: CHAR ~ stream.PeekChar[];
SELECT TRUE FROM
White[c] => NULL;
punctToo AND (c='* OR c=':) => NULL;
ENDCASE => EXIT;
n м n + 1;
IF c#stream.GetChar[] THEN ERROR;
ENDLOOP;
RETURN};

White: PROC [char: CHAR] RETURNS [BOOL]
~ {RETURN [char='  OR char='\t]};

HeaderBreak: PROC [char: CHAR] RETURNS [IO.CharClass] --IO.BreakProc-- ~ {
RETURN [SELECT char FROM
' , '\t => sepr,
'\n, '\r, '\l => break,
ENDCASE => other]};

BodyBreak: PROC [char: CHAR] RETURNS [IO.CharClass] --IO.BreakProc-- ~ {
RETURN [SELECT char FROM
':, '*, ' , '\t => sepr,
'\n, '\r, '\l => break,
ENDCASE => other]};

RemPieces: PROC [from: ROPE, pieces: TimeParse.PiecesType] RETURNS [ROPE] ~ {
WHILE pieces#NIL DO
p: TimeParse.PieceType ~ pieces.firstн;
flen: INT ~ from.Length[];
resume, dlen: INT;
pieces м pieces.rest;
FOR resume м p.start+p.len, resume+1 WHILE resume<flen DO
SELECT from.Fetch[resume] FROM
' , '\t, '\n, '\r, '\l => NULL;
', => IF resume#p.start+p.len THEN EXIT;
ENDCASE => EXIT;
ENDLOOP;
dlen м resume - p.start;
from м from.Replace[start: p.start, len: dlen, with: NIL];
FOR pl: TimeParse.PiecesType м pieces, pl.rest WHILE pl#NIL DO
IF pl.first.start > p.start THEN pl.first.start м pl.first.start - dlen;
ENDLOOP;
ENDLOOP;
RETURN[from]};

defaultDuration: INT м 0;
walnutUser: BOOLEAN м FALSE;
switchToNew: BOOLEAN м FALSE;

UserProfile.CallWhenProfileChanges[UpdateDefaults];

TRUSTED {Process.Detach[FORK PostRemindButton[]]};

END.
   (  
RemindWalnut.mesa
Copyright ╙ 1990, 1992 by Xerox Corporation.  All rights reserved.
David Goldberg November 13, 1989 8:28:33 pm PST
Peter B. Kessler, January 10, 1990 10:46:47 am PST
Theimer, September 10, 1990 2:12 pm PDT
Last tweaked by Mike Spreitzer April 23, 1992 11:01 am PDT
Adds button to walnut.
ELSE IF Basics.IsBound[PeanutWindow.AddCommand] THEN {
PeanutWindow.AddCommand[name: "RemindMe", proc: PeanutRemindProc, fork: FALSE];
peanutUser _ TRUE;
EXIT;
};
PROC [reason: UserProfile.ProfileChangeReason]
peanutUser: BOOLEAN _ FALSE;
Э╩╛  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩIprocЦ"Cedar" styleЪЬ
╧eЬ7ЩBKЩ/KЩ2KЩ'KЩ:ЧKШ KЪ╧k	ЬЮЬЪШ▒KШ KЩKШ KЪ╨lnЬЮШЪЮЬШKЪЬЮЬeШ~ЧKЪЬЮЬЮШKШ KЪЮЬЮЬЮЬШKШ Ъ╨bn
ЬЮЬШKЪЮЬЮЬЮЬЮЬШEKЪЬШKШ ЧЪ╧nЬЮЬЮЬШ"ЪЮШЪЮЬ/ЮЬШ7KЪЬЮЬШЪЮЬ4ЮШ;KШ)KЪЮЬШЧЪЮЬЮЬЮЬDЮЬЮЬЮШfKШWKЪЮЬШЧKЪЮЬШKШЧЪЮЬЮЬ)ЮЬЩ6KЪЬHЮЬЩOKЪЬЮЬЩKЪЮЬЩKЩЧKШ*KЪЮЬШЧKШЧKШ Ъб
ЬШKЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬ	Ш.KЪЬ	ЮЬЮЬШ.KЪЬЮЬ
Ш%KЪЬ.ЮЬЮЬШ9KЪЬ(ЮЬЮЬШ3KЪЬЮЬШKЪЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬШ&ЪбЬЮЬЮЬЮЬЮЬЮЬШ>KЪЬЮЬШKЪЮЬЮЬЮЬШKШЪЮЬЮЬЮЬЮШ0KЪЬЮЬЮЬШ!KЪЮЬЮЬЮЬЮЬШ+KШ&KЪЮЬШЧKЪЮЬШЧKШ:KШ)KЪЬ
ЮЬШKШ*KШKЪЬЮЬЮЬ
ШKШЪЮЬЮЬЮШKШ2ЪЮЬЮЬЮШKЪЬЮЬЮЬШ,KЪЬЮЬЮЬШ,KЪЬЮЬЮЬШ,KЪЬЮЬШЪЬ$ЮЬШ/KЪЬЮЬШKШЧKЪЮЬ#Ш*ЧKЪЮЬШЧKШЪЮЬЮЬЮШKЪЬ	ЮЬШKШ5ЪЮЬЮЬЮШKЪЬЮЬ!ЮЬШ;KЪЬЮЬ$ШHKЪЬ ЮЬ%ШJKЪЬ ЮЬ%ШJKЪЬ!ЮЬ&ШLKЪЬЮЬШKЪЮЬ#Ш*ЧKЪЮЬШЧKШ"ЪЮЬЮЬШKЪЬШKЪЬЮЬШЪЬKЮЬЮШVKЪЬЮЬ
Ш'ЧKЪЮЬЮЬЮЬ#Ш5KШ KЪЮЬЮЬШ/KЪЮЬШ"ЧЪЮЬ#ЮЬШ+KЪ	Ь$ЮЬ	ЮЬЮЬ	ЮЬШOЪЬGЮЬЮШRЪЬШKШ KЪЮЬШЧЧKШЧKШ#KЪЬЮЬЮЬЮЬ	ШKKШ4KЪЬ#ЮЬШ*KЪЮЬШЧcode2ЪбЬ$Ш2KЪЮЬ*Щ.KШ KШ<KЪЬШЧKШ Ъб	ЬЮЬ
ЮЬЮЬЮЬЮЬЮЬ	ШLЪЮЬЮЬЮШKЪЬЮЬШЪЮЬЮЬЮШKЪЬЮЬШKЪЬ	ЮЬЮЬ
ЮЬШ$KЪЮЬЮЬШЧKШ
KЪЮЬЮЬЮЬШ!KЪЮЬШЧKЪЮЬШЧKШ Ъ
бЬЮЬЮЬЮЬЮЬШ'KЪЬЮЬ
ЮЬШ!ЧKШ ЪбЬЮЬЮЬЮЬЮЬ╧cЬШJЪЮЬЮЬЮШKШKШKЪЮЬШЧKШ ЧЪб	ЬЮЬЮЬЮЬЮЬвЬШHЪЮЬЮЬЮШKШKШKЪЮЬШЧKШ ЧЪ
б	ЬЮЬЮЬ ЮЬЮЬШMЪЮЬЮЬЮШKШ'KЪЬЮЬШKЪЬЮЬШKШЪЮЬ"ЮЬЮШ9ЪЮЬЮШKЪЬЮЬШKЪЬЮЬЮЬЮЬШ(KЪЮЬЮЬШЧKЪЮЬШЧKШKЪЬ5ЮЬШ:ЪЮЬ,ЮЬЮЬЮШ>KЪЮЬЮЬ(ШHKЪЮЬШЧKЪЮЬШЧKЪЮЬШЧKШ KЪЬЮЬШKЪЬЮЬЮЬШKЪЬЮЬЮЬЩKЪЬЮЬЮЬШKШ KЪЬ3Ш3KШ ЪЮЬЮЬШ2KШ ЧKЪЮЬШЧ ЕЧ    И  n  