DIRECTORY
Process USING [ Detach, MsecToTicks, Pause ],
Rope USING [ ROPE ],
VoiceRope USING [ GetByInterest, Handle, Open, Play, VoiceRope ]
;

PlayNoiseImpl: CEDAR PROGRAM 
IMPORTS  Process, VoiceRope = {

reallyBoot: BOOL¬TRUE;
didOurBest: BOOL;
maxTime: CARDINAL ¬ 4000;

PlayAButton: PROC[name: Rope.ROPE] = TRUSTED {
didOurBest ¬ FALSE;
Process.Detach[FORK ReallyPlayAButton[name]];
FOR i: NAT IN [0..100) DO
Process.Pause[Process.MsecToTicks[maxTime/100]];
IF didOurBest THEN EXIT;
ENDLOOP;
};

ReallyPlayAButton: PROC[name: Rope.ROPE] = {
C: PROC[complaint: Rope.ROPE] = {NULL}; -- Don't bother complaining.
handle: VoiceRope.Handle = VoiceRope.Open[Complain: C];
vr: VoiceRope.VoiceRope = VoiceRope.GetByInterest[handle: handle, class: "SysNoises", refID: name];
VoiceRope.Play[handle: handle, voiceRope: vr, wait: TRUE];
didOurBest ¬ TRUE;
};

}.
   ü  
PlayNoiseImpl.mesa
Copyright Ó 1987, 1992 by Xerox Corporation.  All rights reserved.
Last Edited by: Swinehart, June 4, 1992 10:23 pm PDT
Doug Terry, July 30, 1986 5:00:49 pm PDT

PlayTheRollbackButton: Booting.CheckpointProc = TRUSTED {
IF ~UserProfile.Boolean["Finch.NoisyBoot"] THEN RETURN;
PlayAButton["Rollback"];
IF ~reallyBoot THEN rejection ¬ "Just pretending";
};


Doug Terry, July 30, 1986 5:00:08 pm PDT
Upgraded to use VoiceRope
changes to: DIRECTORY, PlayNoiseImpl, ReallyPlayAButton

 Êá  •NewlineDelimiter
–(cedarcode) style™ ™Icodešœ
Ïeœ7™BJ™4K™(J™ —šÏk	˜	Kšœžœ ˜-Kšœžœžœ˜Kšœ
žœ1˜@K˜K˜ —šœžœžœ˜Kšžœ˜K˜ Kšœžœžœ˜Kšœžœ˜Kšœ	žœ˜K˜ šÏbœžœ™9Kšžœ)žœžœ™7K™Kšžœžœ™2K™K™ —šÐbnœžœžœžœ˜.Kšœžœ˜Kšœžœ˜-šžœžœžœ
ž˜K˜0Kšžœžœžœ˜Kšžœ˜—K˜K˜ —šÏnœžœžœ˜,Kš	¡œžœžœžœÏc˜DKšœ7˜7Kšœc˜cKšœ4žœ˜:Kšœžœ˜K˜—K˜ —K˜K™ ™(K™KšœÏr+™7—K™ — …—    Z  7  