DIRECTORY AlpineEnvironment USING[RName], AccessControlPrivate USING[OwnerStringRep, StringRep], Rope USING[ROPE]; AccessControlUtility: CEDAR DEFINITIONS = BEGIN MakeRNameFromStringRep: PROCEDURE[pntrStringRep: LONG POINTER TO AccessControlPrivate.StringRep] RETURNS [rName: AlpineEnvironment.RName, sizeOfStringRep: CARDINAL]; MakeStringRepFromRName: PROCEDURE[rName: AlpineEnvironment.RName, pntrStringRep: LONG POINTER TO AccessControlPrivate.StringRep, roomAvailable: CARDINAL] RETURNS [sizeOfStringRep: CARDINAL]; MakeRNameFromOwnerStringRep: PROCEDURE[pntrOwnerStringRep: LONG POINTER TO AccessControlPrivate.OwnerStringRep] RETURNS [rName: AlpineEnvironment.RName]; MakeOwnerStringRepFromRName: PROCEDURE[rName: AlpineEnvironment.RName, pntrOwnerStringRep: LONG POINTER TO AccessControlPrivate.OwnerStringRep]; Compare: PROCEDURE[ref1, ref2: Rope.ROPE] RETURNS [match: BOOLEAN]; CompareCaseMatters: PROCEDURE[ref1, ref2: Rope.ROPE] RETURNS [match: BOOLEAN]; END. Edit Log Initial: Kolling: 19-Nov-81 14:40:40: defs file private to AccessControl; misc. utilities. ΌAccessControlUtility.mesa Last edited by Kolling on March 7, 1983 10:52 am non system-fatal errors: none. non system-fatal errors: AC.OperationFailed[outOfRoomInOwnerRecord], AC.StaticallyInvalid (badLengthName). non system-fatal errors: none. non system-fatal errors: AC.StaticallyInvalid (badLengthName). non system-fatal errors: none. non system-fatal errors: none. Hauser, March 7, 1985 2:06:04 pm PST Nodified, added copyright. Κχ˜J˜J˜šœ™Jšœ™Jšœ%™%J˜J˜—JšΟk ˜ ˜˜Jšœ˜ —˜Jšœ˜!—˜Jšœœ˜ J˜J˜——Jšœœ œ˜)J˜Jš˜J˜J˜J˜š Οnœ œœœ˜@Jšœ œ!˜Hšœœ˜Jšœ™J˜J˜——šžœ œ/˜PJš œœœ0œ˜Pšœœ˜Jšœj™jJ˜J˜——š žœ œœœ˜Jšœ%œ"˜NJšœ™J˜J˜——šžœ œ ˜Fšœœœœ&˜IJšœ>™>J˜J˜——š žœ œœœ œ˜CJšœ™J˜J˜—š žœ œœœ œ˜NJšœ™J˜J˜J˜—Jšœ˜˜J˜J˜—J˜ZJ˜J˜J˜J˜code™$K™—K™—…—N