DIRECTORYAMBridge USING [IsRemote, TVToLC],Commander USING [Register, CommandProc],IO USING [PutRope, STREAM],PrintTV USING [RegisterTVPrintProc, TVPrintProc],Rope USING [Cat, Substr, ROPE],Tempus USING [Packed, Unintelligible, PackedSeconds, SecondsToPacked, MakeRope, defaultTime, Parse],ViewerClasses USING [Viewer],ViewerOps USING [FindViewer, DestroyViewer];TempusUtilImpl: CEDAR PROGRAMIMPORTS AMBridge, Commander, IO, PrintTV, Rope, Tempus, ViewerOps      = BEGIN OPEN Tempus; SecondsPrintProc: PrintTV.TVPrintProc = TRUSTED {  -- AMBridges: Tempus.PackedSeconds;t: Tempus.Packed;IF AMBridge.IsRemote[tv] THEN ERROR; -- shouldnt be called. TVPrintProc says can't handle remote.s _ LOOPHOLE[AMBridge.TVToLC[tv]]; t _ SecondsToPacked[s];IF t = defaultTime THEN stream.PutRope["{current time}"]ELSE stream.PutRope[MakeRope[time: t, precision: seconds, includeDayOfWeek: TRUE]];};PackedPrintProc: PrintTV.TVPrintProc = TRUSTED {  -- AMBridget: Tempus.Packed;IF AMBridge.IsRemote[tv] THEN ERROR; -- shouldnt be called. TVPrintProc says can't handle remote.t _ LOOPHOLE[AMBridge.TVToLC[tv]]; IF t = defaultTime THEN stream.PutRope["{current time}"]ELSE stream.PutRope[MakeRope[time: t, precision: seconds, includeDayOfWeek: TRUE]];};WhenIs: Commander.CommandProc = {err: Rope.ROPE;t: Packed;[t, ] _ Parse[cmd.commandLine !Unintelligible => {err _ SELECT ec FROMinvalid => "Invalid",tooVague => "Too Vague",overConstrained => "Over Constrained",nothingSpecified => "Not a time",notImplemented => "Not Implemented",ENDCASE => ERROR;IF vicinity # -1 THEN err _ Rope.Cat[err,": ",Rope.Substr[base: rope, len: vicinity],"<>",Rope.Substr[base: rope, start: vicinity]];CONTINUE;};]; IF err # NIL THEN cmd.err.PutRope[err];cmd.out.PutRope[MakeRope[time: t, includeDayOfWeek: TRUE]];};PrintTV.RegisterTVPrintProc[type: CODE[Tempus.PackedSeconds], proc: SecondsPrintProc ! ANY => CONTINUE]; PrintTV.RegisterTVPrintProc[type: CODE[Tempus.Packed], proc: PackedPrintProc ! ANY => CONTINUE];   -- redefines printproc in basic system so that includes day of week.Commander.Register["WhenIs", WhenIs, "For testing time.parse"];{oldClock: ViewerClasses.Viewer _ ViewerOps.FindViewer["Clock"];  -- going to load myclock so pretendits works.IF oldClock # NIL THEN ViewerOps.DestroyViewer[oldClock];}; END.     TempusImpl.mesa; Edited by Teitelman on June 22, 1983 9:21 amConverted by: Maxwell, January 5, 1984 2:12 pmTRUSTED {  when StoreInSymTab is implemented in CommandProcOps put this back.UserExecPrivate.StoreInSymTab[value: AMBridge.TVForReferent[NEW[Packed _ t]], event: event, exec: exec];};WhenIs: UserExec.CommandProc = {err: Rope.ROPE;t: Packed;[t, ] _ Parse[event.commandLine !Unintelligible => {err _ SELECT ec FROMinvalid => "Invalid",tooVague => "Too Vague",overConstrained => "Over Constrained",nothingSpecified => "Not a time",notImplemented => "Not Implemented",ENDCASE => ERROR;IF vicinity # -1 THEN err _ Rope.Cat[err,": ",Rope.Substr[base: rope, len: vicinity],"<>",Rope.Substr[base: rope, start: vicinity]];CONTINUE;};]; IF err # NIL THEN UserExecPrivate.EventFailed[event: event, msg: err];UserExec.GetStreams[exec].out.PutRope[MakeRope[time: t, includeDayOfWeek: TRUE]];TRUSTED {UserExecPrivate.StoreInSymTab[value: AMBridge.TVForReferent[NEW[Packed _ t]], event: event, exec: exec];};};Ê;  –"Cedar" style˜ JšÏc(œ™=Jšœ.™.J™ šÏk	˜	Jšœ	žœ˜"Jšœ
žœ˜(Jšžœžœžœ˜Jšœžœ$˜1Jšœžœžœ˜JšœžœX˜dJšœžœ
˜Jšœ
žœ˜+J˜—J˜ JšÐblœžœž˜J˜ Jšžœžœ(˜GJ˜ šœžœžœ	˜J˜ J˜ —šÏnœž	œ˜>Jšœ˜J˜Jšžœžœ;ž˜aJšœžœ˜#Jšœ˜Jšžœžœ!˜8JšžœHžœ˜SJ˜—J˜ š œž	œ˜=J˜Jšžœžœ;ž˜aJšœžœ˜#Jšžœžœ!˜8JšžœHžœ˜SJ˜J˜ —J˜ š œ˜!Jšœ
žœ˜J˜
šœ˜šœ˜šœžœž˜Jšœ˜Jšœ˜Jšœ&˜&Jšœ!˜!Jšœ$˜$Jšžœž˜—šžœžœ˜%Jšœ˜J˜Jšœ'˜'J•StartOfExpansion9[base: ROPE, start: INT _ 0, len: INT _ 2147483647]˜J˜(Jšœ˜—Jšžœ˜	J˜—Jšœ˜—Jšžœžœžœ˜'Jšœ4žœ˜;šžœÏbAœ™MJšœ<žœ)™hJ™—Jšœ˜—š œ™ Jšœ
žœ™J™
šœ!™!šœ™šœžœž™Jšœ™Jšœ™Jšœ&™&Jšœ!™!Jšœ$™$Jšžœž™—šžœžœ™%Jšœ™J™Jšœ'™'J–9[base: ROPE, start: INT _ 0, len: INT _ 2147483647]™J™(Jšœ™—Jšžœ™	J™—Jšœ™—Jšžœžœžœ5™FJšœJžœ™Qšžœ™	Jšœ<žœ)™hJ™—Jšœ™—J˜ Jšœ"žœ1žœžœ˜iJšœ"žœ)žœžœD˜§J˜ J˜?JšœB-˜oJšžœžœžœ#˜9J˜J˜ Jšžœ˜J˜ — …—    	:  ‡  