DIRECTORY Atom, IO, Rope, RPCPkt; Nice: CEDAR DEFINITIONS IMPORTS Atom = { BeNiceProc: TYPE = PROC[r: REF, d: INT_6, how: ATOM, howD: REF]; BeNice: BeNiceProc = INLINE { vr: REF = Atom.GetProp[$IRNice, $BeNice]; v: REF BeNiceProc = NARROW[vr, REF BeNiceProc]; IF v#NIL THEN v[r, d, how, howD]; }; LarkConLogStreamProc: TYPE = PROC[machine: RPCPkt.Machine] RETURNS [log: IO.STREAM_NIL]; LarkConLogStream: LarkConLogStreamProc = INLINE { vr: REF = Atom.GetProp[$IRNice, $LarkConLogStream]; v: REF LarkConLogStreamProc = NARROW[vr, REF LarkConLogStreamProc]; IF v#NIL THEN log _ v[machine]; }; ViewProc: TYPE= PROC[r: REF, name: Rope.ROPE_NIL]; View: ViewProc = INLINE { vr: REF = Atom.GetProp[$IRNice, $View]; v: REF ViewProc = NARROW[vr, REF ViewProc]; IF v#NIL THEN v[r, name]; }; }. Nice.mesa Last Edited by: Swinehart, November 8, 1983 2:16 pm Optional utilities whose absences do not cause Unbound Imports or crashes. Κ|˜J™ J™3J™JJ™IcodešΟk œœ˜!K˜šœœ œœ ˜(K˜Kš Οn œ œœœ œœ˜@šžœœ˜Kšœœ"˜)Kšœœœœ ˜/Kšœœœ˜!K˜—K˜šžœœœ˜:Kšœœ œ˜—šžœœ˜1Kšœœ,˜3Kšœœœœ˜CKšœœœ˜K˜—K˜Kš žœœœœ œœ˜2šžœ œ˜Kšœœ ˜'Kšœœ œœ ˜+Kšœœœ ˜K˜——K˜J˜—…—"