DIRECTORY
BasicTime, Buttons, EndOps, Idle, Process, Rope, RuntimeError, UserProfile, ViewerClasses, ViewerPrivate;

EndOpsImpl: CEDAR MONITOR
IMPORTS BasicTime, Buttons, Idle, Process, RuntimeError, UserProfile
EXPORTS EndOps, ViewerPrivate
= BEGIN


ProcList: TYPE ~ LIST OF PROC;
registerHead: ProcList м NIL;
registerTail: ProcList м NIL;

Register: PUBLIC ENTRY PROC [proc: PROC] = {
prev: ProcList ~ registerTail;
registerTail м LIST[proc];
IF prev=NIL THEN registerHead м registerTail ELSE prev.rest м registerTail;
};

ProcessEndOpsRegistry: PUBLIC PROC = {
FOR list: ProcList м registerHead, list.rest UNTIL list = NIL DO
list.first[ ! RuntimeError.UNCAUGHT => CONTINUE];
ENDLOOP;
};


autoIdleTimeout: INT--seconds-- м 20*60;
neverEnableAutoIdle: BOOL м FALSE;
sampleTimer: CONDITION;
checkpointing: INT м 0;
lastInput: BasicTime.GMT м BasicTime.Now[];

NoteAutoIdleChange: ENTRY UserProfile.ProfileChangedProc = TRUSTED {
ENABLE UNWIND => NULL;
minutes: INT м UserProfile.Number["Viewers.AutoIdleTimeout", 20];
IF neverEnableAutoIdle OR NOT minutes IN (0 .. 40) THEN minutes м 0;
autoIdleTimeout м minutes*60;
RETURN};

<<AutoIdle: ENTRY PROC = TRUSTED {
ENABLE UNWIND => NULL;
now: BasicTime.GMT;
DO
ENABLE ABORTED => LOOP;
WAIT sampleTimer;
now м BasicTime.Now[];
IF TerminalActivity.hadInput THEN {
TerminalActivity.hadInput м FALSE;
lastInput м now;
}
ELSE {
IF autoIdleTimeout>0 AND BasicTime.Period[from: lastInput, to: now] >= autoIdleTimeout AND NOT (checkpointing>0 OR Idle.IsIdle[]) THEN Process.Detach[FORK IdleMother[NIL]];
};
ENDLOOP;
};
>>

<<OnCheckpoint: ENTRY PROC [clientData: REF ANY] RETURNS [rejection: Rope.ROPE м NIL] --Booting.CheckpointProc-- ~ {
ENABLE UNWIND => NULL;
checkpointing м checkpointing + 1;
};

OnRollback: ENTRY PROC [clientData: REF ANY] --Booting.RollbackProc-- ~ {
ENABLE UNWIND => NULL;
IF (checkpointing м checkpointing - 1) = 0 THEN lastInput м BasicTime.Now[];
};

OnBoot: PROC [clientData: REF ANY] RETURNS [rejection: Rope.ROPE м NIL] --Booting.CheckpointProc-- ~ {
dirty: INT м 0;
CheckDirty: ViewerOps.EnumProc = {
IF v.newVersion OR v.newFile THEN dirty м dirty+1;
};
ViewerOps.EnumerateViewers[CheckDirty];
IF dirty#0 THEN
IF NOT MessageWindow.Confirm["Confirm ignoring unsaved viewers"] THEN
rejection м "There are unsaved viewers.";
};>>

IdleMother: Buttons.ButtonProc = {
IF NOT Idle.IsIdle[] THEN {
Idle.Sleep[];
};
};

CreateIdleButton: PUBLIC PROC [] = {
[] м Buttons.Create[
info: [name: "Idle"], proc: IdleMother, fork: TRUE,
documentation: "Hide desktop pending user login"];
};

Init: PROC = TRUSTED {
Process.SetTimeout[@sampleTimer, Process.SecondsToTicks[30]];
};

Init[];

UserProfile.CallWhenProfileChanges[NoteAutoIdleChange];

END.
  ц  
EndOpsImpl.mesa
Copyright ╙ 1985, 1986, 1988, 1991 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) April 18, 1986 3:52:53 pm PST
Doug Wyatt, September 21, 1987 3:15:00 pm PDT
Last tweaked by Mike Spreitzer on June 4, 1987 2:44:49 pm PDT
Willie-Sue, May 11, 1988 3:04:42 pm PDT
Pier, November 18, 1988 1:48:03 pm PST
Bier, December 8, 1988 12:18:18 pm PST

EndOps related stuff
Auto-Idle stuff (formerly in ViewerProcessesImpl)
AutoIdle terminates when not running in this process.
To make AutoIdle ignore the profile, set this to TRUE
[reason: UserProfile.ProfileChangeReason]
KAP for PCedar November 17, 1988
Booting.RegisterProcs[c: OnCheckpoint, r: OnRollback, b: OnBoot];
TRUSTED {Process.Detach[FORK AutoIdle[]]};
Э╩+  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬЩKЪЬ
╧eЬCЩNKЩ1KЩ-KЩ=KЩ'KЩ&KЩ&KЩ Ъ╧k	Ш	IdefaultЪЬiШiЧЧKШ Ъ╨bl
ЬЮЬЮШKЪЮЬ=ШDKЪЮЬШKЪЬЮШKШ ЧЪЬЩKШ KЪ	Ь
ЮЬЮЬЮЬЮЬШKЪЬЮЬШKЪЬЮЬШЧKШ Ъ
╧nЬЮЬЮЬЮЬЮЬШ,KЪЬШKЪЬЮЬШKЪЮЬЮЬЮЬЮЬШKKЪЬШKШ ЧЪаЬЮЬЮЬШ&ЪЮЬ*ЮЬЮЬЮШ@KЪЬЮЬЮЬШ1KЪЮЬШKЪЬШЧKШ ЧЪЬ1Щ1KШ ЧЪЬЮ╧cЬ	Ш(KЪЬ5Щ5ЧЪЬЮЬЮЬШ"KЪЬ1ЮЩ5ЧKЪЬЮ
ШKЪЬЮЬШKЪЬЮЬШ+KШ ХStartOfExpansion- -- [reason: UserProfile.ProfileChangeReason]ЪаЬЮЬ"ЮЬШDKЪЬ)Щ)KЪЮЬЮЬЮЬШKЪЬ	ЮЬ5ШAKЪ
ЮЬЮЬЮЬ	ЮЬЮЬШDKЪЬШKЪЮЬШЧKШ Ъа
ЬЮЬЮЬЮЬШ"KЪЮЬЮЬЮЬШKЪЬЮЬШЪЮШKЪЮЬЮЬЮЬШKЪЮЬШKЪЬШЪЮЬЮЬШ#KЪЬЮЬШ"KШKШЧЪЮЬШKЦ[from: GMT, to: GMT]ЪЮЬЮЬ?ЮЬЮЬЮЬЮЬЮЬЮЬШмKШЧKЪЮЬШЧKЪЬШKЪаШKШ ЧЪЬаЬЮЬЮЬЮЬЮЬЮЬЮЬЮЬбЬШtKЪЮЬЮЬЮЬШKЪЬ"Ш"KШKШ ЧЪа
ЬЮЬЮЬЮЬЮЬбЬШIKЪЮЬЮЬЮЬШKЪЮЬ)ЮЬШLKШKШ ЧЪаЬЮЬЮЬЮЬЮЬЮЬЮЬбЬШfKЪЬЮЬШЪа
ЬШ"KЪЮЬЮЬЮЬШ2KЪЬШЧKШ'ЪЮЬ	ЮШЪЮЬЮЬ;ЮШEKЪЬ)Ш)ЧЧKШKШ ЧЪа
ЬШ"ЪЮЬЮЬЮЬШKЪЬШKШЧKЪЬШKШ ЧЪаЬЮЬЮЬШ$ЪЬШKЪЬ.ЮЬШ3KШ2ЧKШKШ ЧЪаЬЮЬЮЬШKЪЬ=Ш=KШKШ ЧЪЬШKШ KЪЮЬЩ KЪЬAЩAKЪЮЬЮЬЩ*KЪЬ7Ш7ЧKШ KЪЮЬШЧ ЕЧ    
Ъ  л  