DIRECTORY BasicTime USING [ GMT, nullGMT ], LoganBerry USING [ Entry ], Rope USING [ ROPE ], RPC USING [ EncryptionKey ] ; NameDBBackDoor: CEDAR DEFINITIONS = { ROPE: TYPE = Rope.ROPE; AttributeSeq: TYPE = LoganBerry.Entry; KeyRope: PROC[key: RPC.EncryptionKey] RETURNS[keyRope: ROPE]; FetchAttribute: PROC[ attributes: AttributeSeq, attribute: ATOM, default: ROPE¬NIL] RETURNS [value: ROPE, valueLoc: AttributeSeq¬NIL]; ExtractAttribute: PROC[ attributes: AttributeSeq, attribute: ATOM] RETURNS [newAttributes: AttributeSeq¬NIL]; StoreAttribute: PROC[attributes: AttributeSeq, attribute: ATOM, value: ROPE] RETURNS[newAttributes: AttributeSeq]; Append: PROC[ a1, a2: AttributeSeq] RETURNS [newAttributes: AttributeSeq]; RelTime: PROC[ropeTime: ROPE] RETURNS [relativeToNow: INT]; TimeRope: PROC [time: BasicTime.GMT ¬ BasicTime.nullGMT] RETURNS[nowRope: ROPE]; TAttr: PROC[attribute: ATOM, prefix: Rope.ROPE] RETURNS [tAttr: ATOM] }. μ NameDBBackDoor.Mesa Copyright Σ 1988, 1992 by Xerox Corporation. All rights reserved. Last modified by Swinehart, August 25, 1988 9:08:29 am PDT Export more of the implementation of NameDBImpl, for use by user-level utilities. Κ•NewlineDelimiter –(cedarcode) style™šœ™Icodešœ Οeœ7™BJšœ:™:—K˜J™QJ™šΟk ˜ Kšœ žœžœ ˜!Kšœ žœ ˜Kšœžœžœ˜Kšžœžœ˜K˜K˜—šœžœ˜%K˜Kšžœžœžœ˜Kšœžœ˜&K˜Kš Οnœžœžœžœ žœ˜=K˜šŸœžœ˜Kšœ%žœ žœžœ˜=Kšžœ žœžœ˜2K˜—šŸœžœ˜Kšœ%žœ˜*Kšžœžœ˜*K˜—šŸœžœ&žœ žœ˜LKšžœ˜%K˜—šŸœžœ˜ Kšœ˜Kšžœ˜&K˜—š Ÿœžœ žœžœžœ˜;K˜—š Ÿœžœžœžœ žœ˜PK˜—š Ÿœžœ žœžœžœ žœ˜EK˜—K˜—K˜K˜K˜—…—Ά€