DIRECTORY
CrRPC,
CHNameP2V0,
AuthenticationP14V2,
BulkDataP0V1,
CHOpsP2V3;

CHOpsP2V3ServerImpl: CEDAR PROGRAM
IMPORTS CrRPC, CHOpsP2V3 ~ {
OPEN CHOpsP2V3;

CreateAliasCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
alias: CHNameP2V0.ThreePartName;
sameAs: CHNameP2V0.ThreePartName;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
alias.organization _ CrRPC.GetRope[s];
alias.domain _ CrRPC.GetRope[s];
alias.object _ CrRPC.GetRope[s];
};
{
sameAs.organization _ CrRPC.GetRope[s];
sameAs.domain _ CrRPC.GetRope[s];
sameAs.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ CreateAlias[h, alias, sameAs, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

DeletePropertyCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
property: CARD32;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ DeleteProperty[h, name, property, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

CreateObjectCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
agent: Authenticator;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ CreateObject[h, name, agent];

beginReturn[h];

};

ListAliasesCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.ThreePartName;
list: CrRPC.BulkDataSink;
agent: Authenticator;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
pattern.object _ CrRPC.GetRope[s];
};
TRUSTED {
list _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ ListAliases[h, pattern, list, agent];

beginReturn[h];

};

ListDomainsServedCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
domains: CrRPC.BulkDataSink;
agent: Authenticator;

TRUSTED {
domains _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ ListDomainsServed[h, domains, agent];

beginReturn[h];

};

DeleteSelfCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
property: CARD32;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ DeleteSelf[h, name, property, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

RetrieveItemCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.ThreePartName;
property: CARD32;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;
value: Item;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
pattern.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject, value] _ RetrieveItem[h, pattern, property, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
{
MProc17[h, s, value];
};
};

ListOrganizationsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: ROPE;
list: CrRPC.BulkDataSink;
agent: Authenticator;

{
pattern _ CrRPC.GetRope[s];
};
TRUSTED {
list _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ ListOrganizations[h, pattern, list, agent];

beginReturn[h];

};

ListPropertiesCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.ThreePartName;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;
properties: Properties;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
pattern.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject, properties] _ ListProperties[h, pattern, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
{
MProc18[h, s, properties];
};
};

ListDomainsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.TwoPartName;
list: CrRPC.BulkDataSink;
agent: Authenticator;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
};
TRUSTED {
list _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ ListDomains[h, pattern, list, agent];

beginReturn[h];

};

RetrieveMembersCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.ThreePartName;
property: CARD32;
membership: CrRPC.BulkDataSink;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
pattern.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
TRUSTED {
membership _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ RetrieveMembers[h, pattern, property, membership, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

IsMemberCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
memberOf: CHNameP2V0.ThreePartName;
property: CARD32;
secondaryProperty: CARD32;
name: CHNameP2V0.ThreePartName;
agent: Authenticator;
isMember: BOOLEAN;
distinguishedObject: CHNameP2V0.ThreePartName;

{
memberOf.organization _ CrRPC.GetRope[s];
memberOf.domain _ CrRPC.GetRope[s];
memberOf.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
secondaryProperty _ CrRPC.GetCard32[s];
};
{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[isMember, distinguishedObject] _ IsMember[h, memberOf, property, secondaryProperty, name, agent];

beginReturn[h];

{
CrRPC.PutBool[s, isMember];
};
{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

ListAliasesOfCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.ThreePartName;
list: CrRPC.BulkDataSink;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
pattern.object _ CrRPC.GetRope[s];
};
TRUSTED {
list _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ ListAliasesOf[h, pattern, list, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

ChangeItemCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
property: CARD32;
newValue: Item;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
newValue _ UProc19[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ ChangeItem[h, name, property, newValue, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

DeleteMemberCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
property: CARD32;
member: CHNameP2V0.ThreePartName;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
member.organization _ CrRPC.GetRope[s];
member.domain _ CrRPC.GetRope[s];
member.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ DeleteMember[h, name, property, member, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

AddSelfCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
property: CARD32;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ AddSelf[h, name, property, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

RetrieveAddressesCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: NetworkAddressList;


[address] _ RetrieveAddresses[h];

beginReturn[h];

{
MProc20[h, s, address];
};
};

DeleteAliasCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
alias: CHNameP2V0.ThreePartName;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
alias.organization _ CrRPC.GetRope[s];
alias.domain _ CrRPC.GetRope[s];
alias.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ DeleteAlias[h, alias, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

LookupObjectCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ LookupObject[h, name, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

AddGroupPropertyCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
newProperty: CARD32;
membership: CrRPC.BulkDataSource;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
newProperty _ CrRPC.GetCard32[s];
};
TRUSTED {
membership _ CrRPC.GetBulkDataSource[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ AddGroupProperty[h, name, newProperty, membership, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

DeleteObjectCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
agent: Authenticator;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ DeleteObject[h, name, agent];

beginReturn[h];

};

AddItemPropertyCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
newProperty: CARD32;
value: Item;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
newProperty _ CrRPC.GetCard32[s];
};
{
value _ UProc19[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ AddItemProperty[h, name, newProperty, value, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

AddMemberCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
name: CHNameP2V0.ThreePartName;
property: CARD32;
newMember: CHNameP2V0.ThreePartName;
agent: Authenticator;
distinguishedObject: CHNameP2V0.ThreePartName;

{
name.organization _ CrRPC.GetRope[s];
name.domain _ CrRPC.GetRope[s];
name.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
{
newMember.organization _ CrRPC.GetRope[s];
newMember.domain _ CrRPC.GetRope[s];
newMember.object _ CrRPC.GetRope[s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[distinguishedObject] _ AddMember[h, name, property, newMember, agent];

beginReturn[h];

{
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
};
};

ListObjectsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
pattern: CHNameP2V0.ThreePartName;
property: CARD32;
list: CrRPC.BulkDataSink;
agent: Authenticator;

{
pattern.organization _ CrRPC.GetRope[s];
pattern.domain _ CrRPC.GetRope[s];
pattern.object _ CrRPC.GetRope[s];
};
{
property _ CrRPC.GetCard32[s];
};
TRUSTED {
list _ CrRPC.GetBulkDataSink[h, s];
};
{
agent.credentials.type _ VAL[CrRPC.GetCard16[s]];
agent.credentials.value _ UProc16[h, s];
agent.verifier _ UProc16[h, s];
};

[] _ ListObjects[h, pattern, property, list, agent];

beginReturn[h];

};

Server: CrRPC.ServerProc ~ {

ENABLE {
CHOpsP2V3.ArgumentError => { -- (2 )
beginError[h, 2 ];
CrRPC.PutCard16[s, ORD[problem]];
CrRPC.PutCard16[s, ORD[which]];
GOTO Finished;
};
CHOpsP2V3.PropertyError => { -- (3 )
beginError[h, 3 ];
CrRPC.PutCard16[s, ORD[problem]];
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
GOTO Finished;
};
CHOpsP2V3.CallError => { -- (1 )
beginError[h, 1 ];
CrRPC.PutCard16[s, ORD[problem]];
GOTO Finished;
};
CHOpsP2V3.UpdateError => { -- (4 )
beginError[h, 4 ];
CrRPC.PutCard16[s, ORD[problem]];
CrRPC.PutBool[s, found];
CrRPC.PutCard16[s, ORD[which]];
CrRPC.PutRope[s, distinguishedObject.organization];
CrRPC.PutRope[s, distinguishedObject.domain];
CrRPC.PutRope[s, distinguishedObject.object];
GOTO Finished;
};
CHOpsP2V3.AuthenticationError => { -- (6 )
beginError[h, 6 ];
CrRPC.PutCard16[s, ORD[problem]];
GOTO Finished;
};
CHOpsP2V3.WrongServer => { -- (5 )
beginError[h, 5 ];
CrRPC.PutRope[s, hint.organization];
CrRPC.PutRope[s, hint.domain];
CrRPC.PutRope[s, hint.object];
GOTO Finished;
};
};

IF (pgmVersion # 3) THEN {
beginReject[h, CrRPC.noSuchVersion];
CrRPC.PutCard16[s, 3]; --low
CrRPC.PutCard16[s, 3]; --high
RETURN
};

SELECT proc FROM
10  => CreateAliasCaller[h, s, beginReturn];
14  => DeletePropertyCaller[h, s, beginReturn];
2  => CreateObjectCaller[h, s, beginReturn];
8  => ListAliasesCaller[h, s, beginReturn];
1  => ListDomainsServedCaller[h, s, beginReturn];
22  => DeleteSelfCaller[h, s, beginReturn];
16  => RetrieveItemCaller[h, s, beginReturn];
5  => ListOrganizationsCaller[h, s, beginReturn];
15  => ListPropertiesCaller[h, s, beginReturn];
6  => ListDomainsCaller[h, s, beginReturn];
18  => RetrieveMembersCaller[h, s, beginReturn];
23  => IsMemberCaller[h, s, beginReturn];
9  => ListAliasesOfCaller[h, s, beginReturn];
17  => ChangeItemCaller[h, s, beginReturn];
21  => DeleteMemberCaller[h, s, beginReturn];
20  => AddSelfCaller[h, s, beginReturn];
0  => RetrieveAddressesCaller[h, s, beginReturn];
11  => DeleteAliasCaller[h, s, beginReturn];
4  => LookupObjectCaller[h, s, beginReturn];
12  => AddGroupPropertyCaller[h, s, beginReturn];
3  => DeleteObjectCaller[h, s, beginReturn];
13  => AddItemPropertyCaller[h, s, beginReturn];
19  => AddMemberCaller[h, s, beginReturn];
7  => ListObjectsCaller[h, s, beginReturn];
ENDCASE => {
beginReject[h, CrRPC.noSuchProcedure];
};

EXITS
Finished => { NULL };
};



UProc16: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: AuthenticationP14V2.SeqWords] ~ {
{
length22: CARDINAL ~ CrRPC.GetCard16[s];
res _  NEW[AuthenticationP14V2.SeqWordsObject[length22]];
FOR i21: CARDINAL IN [0..length22) DO
res.body[i21] _ CrRPC.GetCard16[s];
ENDLOOP;
};
};

MProc17: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: Item] ~ {
CrRPC.PutCard16[s, val.length];
FOR i23: CARDINAL IN [0..val.length) DO
CrRPC.PutCard16[s, val.body[i23]];
ENDLOOP;
};

UProc19: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: Item] ~ {
{
length25: CARDINAL ~ CrRPC.GetCard16[s];
res _  NEW[ItemObject[length25]];
FOR i24: CARDINAL IN [0..length25) DO
res.body[i24] _ CrRPC.GetCard16[s];
ENDLOOP;
};
};

MProc18: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: Properties] ~ {
CrRPC.PutCard16[s, val.length];
FOR i26: CARDINAL IN [0..val.length) DO
CrRPC.PutCard32[s, val.body[i26]];
ENDLOOP;
};

MProc20: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: NetworkAddressList] ~ {
CrRPC.PutCard16[s, val.length];
FOR i27: CARDINAL IN [0..val.length) DO
FOR i28: CARDINAL IN [0..2) DO
CrRPC.PutCard16[s, val.body[i27].network[i28]];
ENDLOOP;
FOR i29: CARDINAL IN [0..3) DO
CrRPC.PutCard16[s, val.body[i27].host[i29]];
ENDLOOP;
CrRPC.PutCard16[s, val.body[i27].socket];
ENDLOOP;
};


CrRPC.RegisterServerProc[pgm~2, serverProc~Server, pgmVersion~3];
CrRPC.EnsureListener[class~$SPP];
}...


ˆCHOpsP2V3ServerImpl.Mesa
Copyright (C) 1986 by Xerox Corporation.  All rights reserved.
Generated by Demers.pa at January 6, 1987 4:14:16 pm PST
using Sirocco [2.0] of January 6, 1987 4:07:33 pm PST
[h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, beginReject: BeginRejectProc]
Unmarshal / Marshal Procs --
�Ê�˜š
œ™Jš
œ>™>Jš
œ8™8Jš
œ5™5J˜—š
Ïk	˜	J˜J˜J˜J˜
J˜
—J˜šÏnœ�œ
�˜"Jš�œ˜Jš�œ˜—J˜šžœ�œ�œ)˜bJ˜ J˜!J˜J˜.J˜˜
J˜&J˜ J˜ J˜—˜
J˜'J˜!J˜!J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜=J˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜eJ˜Jšœ
�œ
˜J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜AJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜cJ˜J˜J˜˜
J˜%J˜J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜"J˜J˜J˜J˜J˜—šžœ�œ�œ)˜bJ˜"J˜J˜J˜˜
J˜(J˜"J˜"J˜—š�œ˜	J˜#J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜*J˜J˜J˜J˜J˜—šžœ�œ�œ)˜hJ˜J˜J˜š�œ˜	J˜&J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜*J˜J˜J˜J˜J˜—šžœ�œ�œ)˜aJ˜Jšœ
�œ
˜J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜=J˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜cJ˜"Jšœ
�œ
˜J˜J˜.J˜J˜˜
J˜(J˜"J˜"J˜—˜
J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜IJ˜J˜J˜˜
J˜3J˜-J˜-J˜—˜
J˜J˜—J˜J˜—šžœ�œ�œ)˜hJšœ	�œ
˜J˜J˜J˜˜
J˜J˜—š�œ˜	J˜#J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜0J˜J˜J˜J˜J˜—šžœ�œ�œ)˜eJ˜"J˜J˜.J˜J˜˜
J˜(J˜"J˜"J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜FJ˜J˜J˜˜
J˜3J˜-J˜-J˜—˜
J˜J˜—J˜J˜—šžœ�œ�œ)˜bJ˜ J˜J˜J˜˜
J˜(J˜"J˜—š�œ˜	J˜#J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜*J˜J˜J˜J˜J˜—šžœ�œ�œ)˜fJ˜"Jšœ
�œ
˜J˜J˜J˜.J˜˜
J˜(J˜"J˜"J˜—˜
J˜J˜—š�œ˜	J˜)J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜QJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜_J˜#Jšœ
�œ
˜Jšœ�œ
˜J˜J˜Jšœ
�œ
˜J˜.J˜˜
J˜)J˜#J˜#J˜—˜
J˜J˜—˜
J˜'J˜—˜
J˜%J˜J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜bJ˜J˜J˜˜
J˜J˜—˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜dJ˜"J˜J˜J˜.J˜˜
J˜(J˜"J˜"J˜—š�œ˜	J˜#J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜?J˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜aJ˜Jšœ
�œ
˜J˜J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜J˜—˜
J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜GJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜cJ˜Jšœ
�œ
˜J˜!J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜J˜—˜
J˜'J˜!J˜!J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜GJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šž
œ�œ�œ)˜^J˜Jšœ
�œ
˜J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜:J˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜hJ˜J˜J˜J˜!J˜J˜J˜˜
J˜J˜—J˜J˜—šžœ�œ�œ)˜bJ˜ J˜J˜.J˜˜
J˜&J˜ J˜ J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜5J˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜cJ˜J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜5J˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜gJ˜Jšœ
�œ
˜J˜!J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜!J˜—š�œ˜	J˜+J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜RJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜cJ˜J˜J˜˜
J˜%J˜J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜"J˜J˜J˜J˜J˜—šžœ�œ�œ)˜fJ˜Jšœ
�œ
˜J˜J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜!J˜—˜
J˜J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜LJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜`J˜Jšœ
�œ
˜J˜$J˜J˜.J˜˜
J˜%J˜J˜J˜—˜
J˜J˜—˜
J˜*J˜$J˜$J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜GJ˜J˜J˜˜
J˜3J˜-J˜-J˜—J˜J˜—šžœ�œ�œ)˜bJ˜"Jšœ
�œ
˜J˜J˜J˜˜
J˜(J˜"J˜"J˜—˜
J˜J˜—š�œ˜	J˜#J˜—˜
Jšœ�œ˜1J˜(J˜J˜—J˜J˜4J˜J˜J˜J˜J˜—šžœ˜Jš
œ�
™�
J˜š�œ˜šœÏc˜$J˜Jšœ�œ˜!Jšœ�œ	˜Jš�œ
˜J˜—šœŸ˜$J˜Jšœ�œ˜!J˜3J˜-J˜-Jš�œ
˜J˜—šœŸ˜ J˜Jšœ�œ˜!Jš�œ
˜J˜—šœŸ˜"J˜Jšœ�œ˜!J˜Jšœ�œ	˜J˜3J˜-J˜-Jš�œ
˜J˜—šœ#Ÿ˜*J˜Jšœ�œ˜!Jš�œ
˜J˜—šœŸ˜"J˜J˜$J˜J˜Jš�œ
˜J˜—J˜—J˜š�œ�œ˜J˜$JšœŸ˜JšœŸ˜Jš
�˜J˜—J˜š�œ�˜J˜,J˜/J˜,J˜+J˜1J˜+J˜-J˜1J˜/J˜+J˜0J˜)J˜-J˜+J˜-J˜(J˜1J˜,J˜,J˜1J˜,J˜0J˜*J˜+š�œ˜J˜&J˜——J˜š
�˜Jšœ�œ˜—J˜—˜š
œ™J˜J˜šžœ�œ�œ�œ(˜`˜
Jšœ
�œ˜(Jšœ�œ/˜9š�œ�œ
�œ�˜%J˜#Jš�œ
˜—J˜—J˜—J˜šžœ�œ�œ˜?J˜š�œ�œ
�œ�˜'J˜"Jš�œ
˜—J˜—J˜šžœ�œ�œ�œ˜H˜
Jšœ
�œ˜(Jšœ�œ˜!š�œ�œ
�œ�˜%J˜#Jš�œ
˜—J˜—J˜—J˜šžœ�œ�œ˜EJ˜š�œ�œ
�œ�˜'J˜"Jš�œ
˜—J˜—J˜šžœ�œ�œ˜MJ˜š�œ�œ
�œ�˜'š�œ�œ
�œ�˜J˜/Jš�œ
˜—š�œ�œ
�œ�˜J˜,Jš�œ
˜—J˜)Jš�œ
˜—J˜—J˜——˜J˜AJ˜!—J˜J˜—…—Ot`‰