-- AccessControlMainAux.mesa
-- Last edited by
-- Kolling on March 8, 1983 3:17 pm


DIRECTORY

AccessControlPrivate
USING[OwnerAccListType, PntrAccList, PntrDataRec],
AlpineEnvironment
USING[AccessList, OwnerName, OwnerPropertyValuePair, PageCount, UniversalFile];


AccessControlMainAux: CEDAR DEFINITIONS =

BEGIN


InitializeOwnerRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec];
-- non system-fatal errors: none.


WriteOwnerPropsToRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec,
ownerProperties: LIST OF AlpineEnvironment.OwnerPropertyValuePair, ownerName:
AlpineEnvironment.OwnerName];
-- non system-fatal errors: AC.OperationFailed[ownerRecordFull], AC.StaticallyInvalid (badLengthName).


OverWriteOwnerSpaceInUseToRecord: PROCEDURE[pntrFileDataRec:
AccessControlPrivate.PntrDataRec, spaceInUse: AlpineEnvironment.PageCount];
-- non system-fatal errors: none.


ReadOwnerQuotaFromRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec]
RETURNS[quota: AlpineEnvironment.PageCount];
-- non system-fatal errors: none.


ReadOwnerRootFileFromRecord: PROCEDURE[pntrFileDataRec:
AccessControlPrivate.PntrDataRec] RETURNS[rootFile: AlpineEnvironment.UniversalFile];
-- non system-fatal errors: none.
-- returns nullRootFile if no rootFile property in the record.


ReadOwnerSpaceInUseFromRecord: PROCEDURE[pntrFileDataRec:
AccessControlPrivate.PntrDataRec] RETURNS[spaceInUse: AlpineEnvironment.PageCount];
-- non system-fatal errors: none.


ReadOwnerAccessListFromRecord: PROCEDURE[pntrFileDataRec:
AccessControlPrivate.PntrDataRec, accListType: AccessControlPrivate.OwnerAccListType,
ownerName: AlpineEnvironment.OwnerName] RETURNS[accessList:
AlpineEnvironment.AccessList];
-- non system-fatal errors: none.

ReadOwnerAccListFromRecord: PROCEDURE[pntrFileDataRec:
AccessControlPrivate.PntrDataRec, accListType: AccessControlPrivate.OwnerAccListType]
RETURNS[pntrAccList: AccessControlPrivate.PntrAccList];
-- non system-fatal errors: none.


END.