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
DIRECTORY
Rope,
CHACLOpsP127V1,
CHACLOpsP127V1Aux;
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
};
}...