-- AccessControlLight.mesa
-- Last edited by
-- Kolling on March 7, 1983 11:41 am


DIRECTORY

AlpineEnvironment
USING[OwnerName, OwnerPropertyValuePair, PageCount];


AccessControlLight: CEDAR DEFINITIONS =

BEGIN


ApplyMinsDefaultsAndFilterRequestedWriteProperties: PROCEDURE[ownerProperties:
LIST OF AlpineEnvironment.OwnerPropertyValuePair, ownerName:
AlpineEnvironment.OwnerName, supplyDefaults: BOOLEAN] RETURNS[quotaPresent:
BOOLEAN, quota: AlpineEnvironment.PageCount, newOwnerProperties: LIST OF
AlpineEnvironment.OwnerPropertyValuePair];
-- non system-fatal errors: AC.StaticallyInvalid (badOwnerPropList).


SetAccessControlLightInitialized: PROCEDURE[alpineWheels: AlpineEnvironment.OwnerName];
-- non system-fatal errors: none.



END.

Edit Log

Initial: Kolling: 30-Nov-81 13:13:12: defs file private to AccessControl; exported by AccessControlLight.