-- AccessControlUtility.mesa
-- Last edited by
-- Kolling on March 7, 1983 10:52 am


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];
-- non system-fatal errors: none.


MakeStringRepFromRName: PROCEDURE[rName: AlpineEnvironment.RName, pntrStringRep:
LONG POINTER TO AccessControlPrivate.StringRep, roomAvailable: CARDINAL] RETURNS
[sizeOfStringRep: CARDINAL];
-- non system-fatal errors: AC.OperationFailed[outOfRoomInOwnerRecord], AC.StaticallyInvalid (badLengthName).


MakeRNameFromOwnerStringRep: PROCEDURE[pntrOwnerStringRep: LONG POINTER TO
AccessControlPrivate.OwnerStringRep] RETURNS [rName: AlpineEnvironment.RName];
-- non system-fatal errors: none.


MakeOwnerStringRepFromRName: PROCEDURE[rName: AlpineEnvironment.RName,
pntrOwnerStringRep: LONG POINTER TO AccessControlPrivate.OwnerStringRep];
-- non system-fatal errors: AC.StaticallyInvalid (badLengthName).


Compare: PROCEDURE[ref1, ref2: Rope.ROPE] RETURNS [match: BOOLEAN];
-- non system-fatal errors: none.


CompareCaseMatters: PROCEDURE[ref1, ref2: Rope.ROPE] RETURNS [match: BOOLEAN];
-- non system-fatal errors: none.



END.

Edit Log

Initial: Kolling: 19-Nov-81 14:40:40: defs file private to AccessControl; misc. utilities.