
DIRECTORY
CHEntriesP0V0,
GVNames,
GvNsMap,
Rope,
UserCredentials,
XNSCH,
XNSCHACL,
XNSCHName;

MaintainHacks: CEDAR PROGRAM
IMPORTS GVNames, GvNsMap, Rope, UserCredentials, XNSCH, XNSCHACL, XNSCHName
EXPORTS =

{

ROPE: TYPE = Rope.ROPE;

Expand: PROC [groups, groupsDone, members: LIST OF ROPE] RETURNS [LIST OF ROPE] =
{
EnumerateGroup: PROC [group: ROPE] RETURNS [LIST OF ROPE] =
{
TRUSTED {
info: GVNames.MemberInfo = GVNames.GetMembers[group];
WITH i: info SELECT FROM
group => RETURN[i.members];
notFound, noChange, individual, noChange, individual, allDown => RETURN[NIL];
ENDCASE => RETURN[NIL];
};
};
GetNextGroup: PROC RETURNS [ROPE] =
{
group: ROPE;
IF groups = NIL OR groups.first = NIL THEN RETURN[NIL];
group м groups.first;
groups м groups.rest;
groupsDone м CONS[group, groupsDone];
RETURN[group];
};
RememberGroup: PROC [group: ROPE] =
{
IF IsInList[group, groupsDone] OR IsInList[group, groups] THEN RETURN;
groups м CONS[group, groups];
};
RememberMember: PROC [member: ROPE] =
{
IF IsInList[member, members] THEN RETURN;
members м CONS[member, members];
};
Merge: PROC [a, b: LIST OF ROPE] RETURNS [LIST OF ROPE] =
{
temp: LIST OF ROPE;
IF a = NIL OR a.first = NIL THEN RETURN[b];
IF b = NIL OR b.first = NIL THEN RETURN[a];
FOR temp м a, temp.rest WHILE temp.rest # NIL DO
ENDLOOP;
temp.rest м b;
RETURN[a];
};
IsInList: PROC [name: ROPE, list: LIST OF ROPE] RETURNS [BOOL] =
{
FOR list м list, list.rest WHILE list # NIL DO
IF Rope.Equal[name, list.first]THEN RETURN[TRUE];
ENDLOOP;
RETURN[FALSE];
};
IsGroup: PROC [name: ROPE] RETURNS [BOOL] =
{
RETURN[Rope.Find[name, "^."] # -1];
};
thisGroup: ROPE;
thisGroupMembers: LIST OF ROPE;
thisGroup м GetNextGroup[];
IF thisGroup = NIL THEN RETURN[members];
thisGroupMembers м EnumerateGroup[thisGroup];
FOR l: LIST OF ROPE м thisGroupMembers, l.rest WHILE l # NIL DO
thisMember: ROPE м l.first;
IF IsGroup[thisMember]
THEN RememberGroup[thisMember]
ELSE RememberMember[thisMember];
ENDLOOP;
thisGroupMembers м Merge[members, Expand[groups, groupsDone, members]];
RETURN[thisGroupMembers];
};


IsAdministrator: PROC [domain, member: Rope.ROPE] RETURNS [BOOL] =
{
isMember, problems: BOOL м FALSE;
domainName, memberName, distingMemberName: XNSCHName.Name;
c: XNSCH.Conversation м XNSCH.InitiateConversation[];
domainName м XNSCHName.NameFromRope[Rope.Cat[":", domain]];
memberName м XNSCHName.NameFromRope[member];
distingMemberName м XNSCH.Lookup[c, memberName
! XNSCH.Error => {problems м TRUE; CONTINUE}];
[isMember] м XNSCHACL.IsMemberOfDomainACLClosure[c, domainName, administrators, distingMemberName
! XNSCH.Error => {problems м TRUE; CONTINUE}];
XNSCH.TerminateConversation[c];
RETURN[isMember];
};

GvFormOfName: PROC [name: ROPE] RETURNS[ROPE] = {
gvName: ROPE м GvNsMap.GvFromNsName[name, nsToGv];
IF gvName # NIL THEN RETURN[gvName];
RETURN[name];
};

NsFormOfName: PROC [name: ROPE] RETURNS[ROPE] = {
nsName: ROPE м GvNsMap.NsFromGvName[name];
IF nsName # NIL THEN RETURN[nsName];
RETURN[name];
};

DoNothingEnumeratorProc: XNSCH.EnumeratorProc =
{};

}.
  ▐  
MaintainHacks.mesa -- For messing with maintain
Copyright ╙ 1987, 1992 by Xerox Corporation.  All rights reserved.
Wes Irish, June 3, 1987 6:28:09 pm PDT

ExpandFast: PROC [groups, groupsDone, members: RedBlackTree.Table] RETURNS [RedBlackTree.Table] =
{
EnumerateGroup: PROC [group: ROPE] RETURNS [LIST OF ROPE] =
{
TRUSTED {
info: GVNames.MemberInfo = GVNames.GetMembers[group];
WITH i: info SELECT FROM
group => RETURN[i.members];
notFound, noChange, individual, noChange, individual, allDown => RETURN[NIL];
ENDCASE => RETURN[NIL];
};
};
GetNextGroup: PROC RETURNS [ROPE] =
{
group: ROPE _ RedBlackTree.LookupSmallest[groups];
IF group = NIL THEN RETURN[NIL];
RedBlackTree.Delete[groups, group];
RedBlackTree.Insert[groupsDone, group, ??];
RETURN[group];
};
RememberGroup: PROC [group: ROPE] =
{
IF IsInList[group, groupsDone] OR IsInList[group, groups] THEN RETURN;
groups _ CONS[group, groups];
};
RememberMember: PROC [member: ROPE] =
{
IF IsInList[member, members] THEN RETURN;
members _ CONS[member, members];
};
Merge: PROC [a, b: LIST OF ROPE] RETURNS [LIST OF ROPE] =
{
temp: LIST OF ROPE;
IF a = NIL OR a.first = NIL THEN RETURN[b];
IF b = NIL OR b.first = NIL THEN RETURN[a];
FOR temp _ a, temp.rest WHILE temp.rest # NIL DO
ENDLOOP;
temp.rest _ b;
RETURN[a];
};
IsInList: PROC [name: ROPE, list: LIST OF ROPE] RETURNS [BOOL] =
{
FOR list _ list, list.rest WHILE list # NIL DO
IF Rope.Equal[name, list.first]THEN RETURN[TRUE];
ENDLOOP;
RETURN[FALSE];
};
IsGroup: PROC [name: ROPE] RETURNS [BOOL] =
{
RETURN[Rope.Find[name, "^."] # -1];
};
thisGroup: ROPE;
thisGroupMembers: LIST OF ROPE;
thisGroup _ GetNextGroup[];
IF thisGroup = NIL THEN RETURN[members];
thisGroupMembers _ EnumerateGroup[thisGroup];
FOR l: LIST OF ROPE _ thisGroupMembers, l.rest WHILE l # NIL DO
thisMember: ROPE _ l.first;
IF IsGroup[thisMember]
THEN RememberGroup[thisMember]
ELSE RememberMember[thisMember];
ENDLOOP;
thisGroupMembers _ Merge[members, Expand[groups, groupsDone, members]];
RETURN[thisGroupMembers];
};
 Э╩g  ХNewlineDelimiter
Ц(cedarcode) styleЩ codeЪЬ╧cЩ/KЪЬ	╧eЬ6ЩBKЪЬ&Щ&KЩ ЧKШ Ъ╧k	Ш	KЪЬШKЪЬШKЪЬШKЪЬШKЪЬШKЪЯЬШKЪЯЬШ	KЪЬ
Ш
ЧKШ Ъ╧n╧bЬЯЬШKЪЯЬ(ЯЬЯЬШKKЪЯЬШ	ЧKШ KЪЬШШ KЪЯЬЯЬЯЬШKШ Ъ╨bnЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬШQKШЪвЬЯЬ	ЯЬЯЬЯЬЯЬЯЬШ;KШЪЯЬШ	KЪЬ5Ш5ЪЯЬ	ЯЬЯШKЪЬ	ЯЬШKЪЬAЯЬЯЬШMKЪЯЬЯЬЯЬШЧKЪЬШЧKШЧЪвЬЯЬЯЬЯЬШ#KШKЪЬЯЬШKЪЯЬ
ЯЬЯЬЯЬЯЬЯЬЯЬШ7KШKШKЪЬЯЬШ%KЪЯЬШKШЧЪвЬЯЬ	ЯЬШ#KШKЪЯЬЯЬЯЬЯЬШFKЪЬ	ЯЬШKШЧЪбЬЯЬ
ЯЬШ%KШKЪЯЬЯЬЯЬШ)KЪЬ
ЯЬШ KШЧЪвЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬШ9KШKЪЬЯЬЯЬЯЬШKЪЬ+Ш+KЪЬ+Ш+ЪЬЯЬЯЬЯШ0KШЧKШKЪЬ
Ш
KШЧЪвЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬШ@KШЪЯЬЯЬЯЬЯШ.KЪЯЬЯЬЯЬЯЬШ1KЪЯЬШЧKЪЯЬЯЬШKШЧЪ
вЬЯЬЯЬЯЬЯЬШ+KШKЪЯЬШ#KШЧKЪЬЯЬШKЪЬЯЬЯЬЯЬШKШKЪЯЬЯЬЯЬЯЬ
Ш(KШ-ЪЯЬЯЬЯЬЯЬЯЬЯЬЯШ?KЪЬЯЬШЪЯЬШKЪЯЬШKЪЯЬШ ЧKЪЯЬШЧKЪЬFЯШGKЪЯЬШKШKШ ЧЪвбЬЯЬ3ЯЬЩaKЩЪвЬЯЬ	ЯЬЯЬЯЬЯЬЯЬЩ;KЩЪЯЬЩ	JЪЬ5Щ5ЪЯЬ	ЯЬЯЩJЪЬ	ЯЬЩJЪЬAЯЬЯЬЩMJЪЯЬЯЬЯЬЩЧJЪЬЩЧKЩЧЪвЬЯЬЯЬЯЬЩ#KЩKЪЬЯЬ'Щ2KЪЯЬЯЬЯЬЩ KЪЬ#Щ#KЪЬ+Щ+KЪЯЬЩKЩЧЪвЬЯЬ	ЯЬЩ#KЩKЪЯЬЯЬЯЬЯЬЩFKЪЬ	ЯЬЩKЩЧЪбЬЯЬ
ЯЬЩ%KЩKЪЯЬЯЬЯЬЩ)KЪЬ
ЯЬЩ KЩЧЪвЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЩ9KЩKЪЬЯЬЯЬЯЬЩKЪЬ+Щ+KЪЬ+Щ+ЪЬЯЬЯЬЯЩ0KЩЧKЪЬЩKЪЬ
Щ
KЩЧЪвЬЯЬЯЬЯЬЯЬЯЬЯЬЯЬЩ@KЩЪЯЬЯЬЯЬЯЩ.KЪЯЬЯЬЯЬЯЬЩ1KЪЯЬЩЧKЪЯЬЯЬЩKЩЧЪ
вЬЯЬЯЬЯЬЯЬЩ+KЩKЪЯЬЩ#KЩЧKЪЬЯЬЩKЪЬЯЬЯЬЯЬЩKЪЬЩKЪЯЬЯЬЯЬЯЬ
Щ(KЪЬ-Щ-ЪЯЬЯЬЯЬЯЬЯЬЯЬЯЩ?KЪЬЯЬЩЪЯЬЩKЪЯЬЩKЪЯЬЩ ЧKЪЯЬЩЧKЪЬFЯЩGKЪЯЬЩKЩЧЧШ Ъ
вЬЯЬЯЬЯЬЯЬШBKЪЬШKЪЬЯЬЯЬШ!KЪЬ:Ш:KЪЬЯЬЯЬШ5KШ;KШ,ЪЬЯЬШ.KЪЬЯЬЯЬЯЬШ.ЧЪЬЯЬLШaKЪЬЯЬЯЬЯЬШ.ЧKЪЯЬШKЪЯЬШKШKШ ЧЪ
аЬЯЬЯЬЯЬЯЬШ1KЪЬЯЬ&Ш2KЪЯЬ
ЯЬЯЬ	Ш$KЪЯЬШKЪЬШKШ ЧЪ
аЬЯЬЯЬЯЬЯЬШ1KЪЬЯЬШ*KЪЯЬ
ЯЬЯЬ	Ш$KЪЯЬШKЪЬШKШ ЧЪбЬЯЬШ/KШKШ ЧЧKШЧ ЕЧ    ▐  #  