CHACLOpsP127V1AuxImpl.Mesa
Copyright Ó 1989, 1991 by Xerox Corporation. All rights reserved.
Generated by Willie-sue.pa at October 4, 1989 12:58:45 pm PDT
using Sirocco [2.0] of February 10, 1989 6:26:26 pm PST
CHACLOpsP127V1AuxImpl:
CEDAR
PROGRAM
EXPORTS CHACLOpsP127V1Aux ~ {
OPEN CHACLOpsP127V1, CHACLOpsP127V1Aux;
ROPE: TYPE ~ Rope.ROPE;
ExposeAccessList:
PUBLIC
PROC [arg: AccessList, level:
NAT]
RETURNS [res:
ROPE] ~ {
SELECT arg
FROM
readAccess => res ¬ "readAccess";
administrators => res ¬ "administrators";
selfControl => res ¬ "selfControl";
ENDCASE => ERROR
};
}...