DIRECTORY AccessControlPrivate USING[OwnerAccListType, PntrAccList, PntrDataRec], AlpineEnvironment USING[AccessList, OwnerName, OwnerPropertyValuePair, PageCount, UniversalFile]; AccessControlMainAux: CEDAR DEFINITIONS = BEGIN InitializeOwnerRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec]; WriteOwnerPropsToRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec, ownerProperties: LIST OF AlpineEnvironment.OwnerPropertyValuePair, ownerName: AlpineEnvironment.OwnerName]; OverWriteOwnerSpaceInUseToRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec, spaceInUse: AlpineEnvironment.PageCount]; ReadOwnerQuotaFromRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec] RETURNS[quota: AlpineEnvironment.PageCount]; ReadOwnerRootFileFromRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec] RETURNS[rootFile: AlpineEnvironment.UniversalFile]; ReadOwnerSpaceInUseFromRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec] RETURNS[spaceInUse: AlpineEnvironment.PageCount]; ReadOwnerAccessListFromRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec, accListType: AccessControlPrivate.OwnerAccListType, ownerName: AlpineEnvironment.OwnerName] RETURNS[accessList: AlpineEnvironment.AccessList]; ReadOwnerAccListFromRecord: PROCEDURE[pntrFileDataRec: AccessControlPrivate.PntrDataRec, accListType: AccessControlPrivate.OwnerAccListType] RETURNS[pntrAccList: AccessControlPrivate.PntrAccList]; END. LAccessControlMainAux.mesa Copyright c 1985 by Xerox Corporation. All rights reserved. Last edited by Kolling on March 8, 1983 3:17 pm non system-fatal errors: none. non system-fatal errors: AC.OperationFailed[ownerRecordFull], AC.StaticallyInvalid (badLengthName). non system-fatal errors: none. non system-fatal errors: none. non system-fatal errors: none. returns nullRootFile if no rootFile property in the record. non system-fatal errors: none. non system-fatal errors: none. non system-fatal errors: none. Hauser, March 7, 1985 1:58:48 pm PST Nodified, added copyright. Κθ˜J˜šœ™Icodešœ Οmœ1™