DIRECTORY Atom, IO, Rope, Pup; Nice: CEDAR DEFINITIONS IMPORTS Atom = { BeNiceProc: TYPE = PROC[r: REF, d: INT_6, how: ATOM, howD: REF]; BeNice: BeNiceProc = INLINE { vr: REF = Atom.GetProp[$Interfaces, $BeNice]; v: REF BeNiceProc = NARROW[vr, REF BeNiceProc]; IF v#NIL THEN v[r, d, how, howD]; }; LarkConLogStreamProc: -- == LarkControl.GetLogStreamProc -- TYPE = PROC[netAddress: Pup.Address] RETURNS [log: IO.STREAM_NIL]; LarkConLogStream: LarkConLogStreamProc = INLINE { vr: REF = Atom.GetProp[$Interfaces, $GetLogStreamProc]; v: REF LarkConLogStreamProc = NARROW[vr, REF LarkConLogStreamProc]; IF v#NIL THEN log _ v[netAddress]; }; ViewProc: TYPE= PROC[r: REF, name: Rope.ROPE_NIL]; View: ViewProc = INLINE { vr: REF = Atom.GetProp[$Interfaces, $View]; v: REF ViewProc = NARROW[vr, REF ViewProc]; IF v#NIL THEN v[r, name]; }; ViewOne: PROC[r: REF, name: Rope.ROPE_NIL, iconic: BOOL_FALSE]; Ref: UNSAFE PROC[whatever: LONG CARDINAL] RETURNS [REF]; }. ¨Nice.mesa Last Edited by: Swinehart, May 9, 1986 10:52:28 am PDT Optional utilities whose absences do not cause Unbound Imports or crashes. Debugging use only ΚΟ˜J™ J™6J™JJ™IcodešΟk œœ ˜K˜šœœ œœ ˜(K˜Kš Οn œ œœœ œœ˜@šžœœ˜Kšœœ&˜-Kšœœœœ ˜/Kšœœœ˜!K˜—K˜šžœΟc&œœ˜BKšœœœ œ˜;—šžœœ˜1Kšœœ0˜7Kšœœœœ˜CKšœœœ˜"K˜—K˜Kš žœœœœ œœ˜2šžœ œ˜Kšœœ$˜+Kšœœ œœ ˜+Kšœœœ ˜K˜—K˜—K™™Kšžœœœ œœ œœ˜?J˜Jš žœ œ œœœœ˜8K˜—K˜J˜—…—Δ;