DIRECTORYAtom, IO, LarkControl, Log, Nice, -- PrettyPrinTV, PrinTV, -- Rope, RPCPkt, PrincOpsUtils, VBag, ViewRec, ViewerClasses;NiceImpl: CEDAR PROGRAM IMPORTS Atom, LarkControl, Log, PrincOpsUtils, -- PrinTV, PrettyPrinTV,--  VBag, ViewRecSHARES VBag = {BeNiceDo: PROC[r: REF, d: INT, how: ATOM_$System, howD: REF_NIL] = TRUSTED {Log.Report["Sorry, PrettyPrintTV stuff not available", how, howD];};ViewDo: PROC[r: REF, name: Rope.ROPE] = TRUSTED {IF ~PrincOpsUtils.IsBound[VBag.Start] THEN RETURN;IF recTable=NIL THEN recTable_VBag.Create["Program Management Variables"];[]_VBag.Start[recTable, r, name];};LarkConLogStreamDo: PROC[machine: RPCPkt.Machine] RETURNS [log: IO.STREAM] = TRUSTED {RETURN[IF PrincOpsUtils.IsBound[LarkControl.GetLogStream] THENLarkControl.GetLogStream[machine] ELSE NIL];};recTable: ViewerClasses.Viewer_NIL;Atom.PutProp[$IRNice, $BeNice, NEW[Nice.BeNiceProc_BeNiceDo]]; Atom.PutProp[$IRNice, $LarkConLogStream, NEW[Nice.LarkConLogStreamProc_LarkConLogStreamDo]]; Atom.PutProp[$IRNice, $View, NEW[Nice.ViewProc_ViewDo]]; TRUSTED {IF PrincOpsUtils.IsBound[ViewRec.SetBehavior] THEN ViewRec.SetBehavior[newBehavior: [delayParms: [min: 1000]]]; -- Reduce sampling load};}.   8  NiceImpl.mesaLast Edited by: Swinehart, December 15, 1983 10:31 amout: IO.STREAM _ Log.FindWhere[how, howD];put: PrinTV.PutClosure _ PrettyPrinTV.StreamToPrettyPutClosure[out, 60];PrinTV.Print[tv: AMBridge.TVForReferent[r], put: put, depth: d, maxLength: 32, verbose: FALSE];PrettyPrinTV.Flush[put];Ê°  ˜ J™J™5Icode˜ šÏk	˜	KšœœÏcœ;˜x—K˜ šœ
œœœQ˜pKšœ	˜K˜ šÏnœœœœœœœœ˜LK˜BKšœœœ™*KšœH™Hšœ™KšœKœ™R—Kšœ™Kšœ˜—K˜ š
Ÿœœœœœ˜1Jšœ$œœ˜2Jšœ
œœ5˜JJšœ!˜!Kšœ˜—K˜ šŸœœœœœœ˜Všœœ1˜>Kšœ"œœ˜,—K˜—K˜ K˜ —Jšœœ˜#K˜ Kšœœ˜?Kšœ)œ1˜]Kšœœ˜9J˜ šœ˜	šœ,œ>ž˜‡J˜——K˜J˜ — …—    Ò  º  