

DIRECTORY
Arpa USING [Address, nullAddress],
Rope USING [Equal, ROPE],
RuntimeError USING [BoundsFault],
SunRPC USING [Error, GetAlign, GetCard16, GetCard32, GetF, GetRope, Handle, PutAlign, PutCard16, PutF, PutRope, ReleaseReply, SendCallAndReceiveReply, StartCall],
SunRPCAuth USING [Conversation],
SunYP USING [programVersion],
SunYPBind USING [--Binding,-- domain, DomainProc, ErrorCode, null, NullProc, program, programVersion, RequestDomainBinding, --ResponseBinding,-- ResponseCode, setdom, SetdomProc],
SunYPBindClient USING []
;

SunYPBindClientStub: CEDAR PROGRAM
IMPORTS Rope, RuntimeError, SunRPC
EXPORTS SunYPBindClient
~ {
Handle: TYPE ~ SunRPC.Handle;
Conversation: TYPE ~ SunRPCAuth.Conversation;
fastTimeout: CARD ¬ 500;
mediumTimeout: CARD ¬ 1000;
defaultRetries: CARD ¬ 10;

usefulVersions: TYPE ~ [SunYPBind.programVersion..SunYPBind.programVersion+1];
Null: PUBLIC SunYPBind.NullProc -- [h: Handle, c: Conversation] -- ~ {
SunRPC.StartCall[h, c, SunYPBind.program, SunYPBind.programVersion, SunYPBind.null];
[] ¬ SunRPC.SendCallAndReceiveReply[h, fastTimeout, defaultRetries];
SunRPC.ReleaseReply[h];
};

 
NetConfig3: TYPE ~ RECORD [
netID: Rope.ROPE,
semanticsCode: CARD32,
flag: CARD32,
protocolFamilyName: Rope.ROPE,
protocolName: Rope.ROPE,
deviceName: Rope.ROPE,
nLookups: CARD32,
lookups: LIST OF Rope.ROPE
];
SvcAddr3: TYPE ~ RECORD [
maxLen: CARD32,
len: CARD32,
gok: CARD16,
port: CARD16,
host: Arpa.Address
];
Binding3: TYPE ~ RECORD [
netConfigs: REF NetConfig3,
svcAddr: REF SvcAddr3,
svcName: Rope.ROPE,
hiVersion: CARD32,
loVersion: CARD32
];

ParseSuccessResponse: PROC[h: Handle, version: CARD]
RETURNS [gotIt: BOOL, address: Arpa.Address, port: CARD32] ~ {
IF version < 3 THEN {
address ¬ LOOPHOLE[SunRPC.GetF[h]];
port ¬ SunRPC.GetCard16[h];
SunRPC.GetAlign[h];
gotIt _ TRUE;
RETURN;
};
IF version = 3 THEN {
b: Binding3;
nc: NetConfig3;
sa: SvcAddr3;
tag: CARD32;

gotIt _ TRUE; address _ Arpa.nullAddress; port _ 0;
tag _ SunRPC.GetCard32[h]; -- is there a Binding?
gotIt _ gotIt AND (tag # 0); -- mandatory
IF tag # 0 THEN {
tag _ SunRPC.GetCard32[h]; -- is there a NetConfig?
IF tag # 0 THEN {
nc.netID _ SunRPC.GetRope[h];
nc.semanticsCode _ SunRPC.GetCard32[h];
nc.flag _ SunRPC.GetCard32[h];
nc.protocolFamilyName _ SunRPC.GetRope[h];
nc.protocolName _ SunRPC.GetRope[h];
nc.deviceName _ SunRPC.GetRope[h];
nc.nLookups _ SunRPC.GetCard32[h];
THROUGH [1 .. nc.nLookups] DO
nc.lookups _ CONS[SunRPC.GetRope[h], nc.lookups];
ENDLOOP;
THROUGH [0 .. 7] DO
[] _ SunRPC.GetCard32[h];
ENDLOOP;
gotIt _ gotIt AND Rope.Equal[nc.protocolName, "udp", FALSE]; 
};
tag _ SunRPC.GetCard32[h]; 
gotIt _ gotIt AND (tag # 0); -- mandatory
IF tag # 0 THEN {
resid: INT;
sa.maxLen _ SunRPC.GetCard32[h];
sa.len _ SunRPC.GetCard32[h];
sa.gok _ SunRPC.GetCard16[h];
sa.port _ SunRPC.GetCard16[h];
sa.host _ LOOPHOLE[SunRPC.GetCard32[h]];
resid _ sa.len - 8;
WHILE resid >= 4 DO
[] _ SunRPC.GetCard32[h];  resid _ resid - 4;
ENDLOOP;
SunRPC.GetAlign[h];
port _ sa.port;
address _ sa.host;
};
b.svcName _ SunRPC.GetRope[h];
b.hiVersion _ SunRPC.GetCard32[h];
b.loVersion _ SunRPC.GetCard32[h];
gotIt _ gotIt AND (b.hiVersion >= SunYP.programVersion) AND (b.loVersion <= SunYP.programVersion);
};
RETURN; -- [gotIt, address, port]
};
ERROR; -- unimplemented version, can't happen
};

Domain: PUBLIC SunYPBind.DomainProc -- [h: Handle, c: Conversation, domainName: DomainName] RETURNS [resp: ResponseBinding] -- ~ {
ENABLE RuntimeError.BoundsFault => ERROR SunRPC.Error[$protocolError]; 
responseCode: SunYPBind.ResponseCode;
FOR version: CARD IN usefulVersions DO
ENABLE SunRPC.Error => IF code=$wrongProgramVersion THEN LOOP ELSE REJECT;
SunRPC.StartCall[h, c, SunYPBind.program, version, SunYPBind.domain];
SunRPC.PutRope[h, domainName];
[] ¬ SunRPC.SendCallAndReceiveReply[h, mediumTimeout, defaultRetries];
responseCode ¬ VAL[CARDINAL[SunRPC.GetCard32[h]]];
SELECT responseCode FROM
success => {
gotIt: BOOL;
address: Arpa.Address;
port: CARD32;
[gotIt, address, port] _ ParseSuccessResponse[h, version];
SunRPC.ReleaseReply[h];
IF gotIt
THEN RETURN [ [success[[address, port]]] ]
ELSE RETURN [ [failure[noServer]] ];
};
failure => {
errorCode: SunYPBind.ErrorCode;
errorCode ¬ VAL[CARDINAL[SunRPC.GetCard32[h]]];
SunRPC.ReleaseReply[h];
RETURN [ [failure[errorCode]] ];
};
ENDCASE => ERROR;
ENDLOOP;
ERROR SunRPC.Error[$wrongProgramVersion];
};

Setdom: PUBLIC SunYPBind.SetdomProc -- [h: Handle, c: Conversation, req: RequestDomainBinding] -- ~ {
FOR version: CARD IN usefulVersions DO
ENABLE SunRPC.Error => IF code=$wrongProgramVersion THEN LOOP ELSE REJECT;
SunRPC.StartCall[h, c, SunYPBind.program, SunYPBind.programVersion, SunYPBind.setdom];
SunRPC.PutRope[h, req.domainName];
SunRPC.PutF[h, LOOPHOLE[req.binding.address]];
SunRPC.PutCard16[h, CARD16[req.binding.port]];
SunRPC.PutAlign[h];
[] ¬ SunRPC.SendCallAndReceiveReply[h, fastTimeout, defaultRetries];
SunRPC.ReleaseReply[h];
RETURN;
ENDLOOP;
ERROR SunRPC.Error[$wrongProgramVersion];
};

}...

   ¶  SunYPBindClientStub.mesa
Copyright Ó 1989, 1991, 1992 by Xerox Corporation.  All rights reserved.
Demers, March 11, 1993 12:04 pm PST
Willie-Sue, March 15, 1989 2:34:38 pm PST
Chauser, March 10, 1993 8:53 am PST
Types
Parameters
Procedures
This client stub has been modified to use either version 2 or 3 of the YPBind protocol.  This is not beautiful, but it's the simplest way to get up under Solaris 2.x ...
The types that come back in a successful YPBind V3 response ...
struct netconfig from <sys/netconfig.h>
unused: ARRAY[0..7] OF CARD32;
struct netbuf from <sys/tiuser.h>
struct ypbind_binding from yp_b.h (o where, o where is the little .x file?)
Arpa.Address is known equivalent to FWORD here ...
The following should be SunRPC.GetCard32[h], but this is what works ...
PutRequestDomainBinding ...
Arpa.Address is known equivalent to FWORD here ...
The following should be SunRPC.PutCard32[req.binding.port], but this is what works ...
Ê?  –(cedarcode) style•NewlineDelimiter
˜ codešœ™Kšœ
Ïeœ=™HK™#K™)K™#K˜ —šÏk	˜	Kšœžœ˜"Kšœžœ	žœ˜Kšœžœ˜!Kšœžœ–˜¢Kšœžœ˜ Kšœžœ˜Kšœ
žœÏcœ_Ÿœ#˜³Kšœžœ˜Kšœ˜K˜ —šÏnœžœž˜"Kšžœ˜"Kšžœ˜K˜head™Kšœžœ˜Kšœžœ˜-—™
Kšœžœ˜Kšœžœ˜Kšœžœ˜K˜ Kšœžœ:˜N—™
š œžœŸ"œ˜FKšœT˜TKšœD˜DK˜K˜K˜ —™©K˜—™?™'šœžœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœ
žœ˜Kšœ	žœžœž˜Kšœžœžœžœ™K˜——™!šœ
žœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜Kšœžœ˜K˜K˜——™Kšœ
žœžœ˜Kšœžœ˜Kšœ	žœ
˜Kšœžœ˜Kšœžœ˜Kšœž˜K˜——K˜ —š œžœžœžœ	žœžœ˜sšžœžœ˜™2Kšœ
žœ˜#—šœG™GKšœ˜Kšœ˜—Kšœžœ˜Kšžœ˜K˜—šžœžœ˜K˜K˜K˜Kšœžœ˜K˜ Kšœžœ'˜3KšœŸ˜1KšœžœŸ˜)šžœ	žœ˜KšœŸ˜3šžœ	žœ˜K˜K˜'K˜K˜*K˜$K˜"K˜"šžœž˜Kšœžœ ˜1Kšžœ˜—šžœ
ž˜J˜Jšžœ˜—Kšœžœ$žœ˜=K˜—K˜KšœžœŸ˜)šžœ	žœ˜Kšœžœ˜K˜ K˜K˜K˜Kšœ
žœ˜(K˜šžœž˜K˜-Kšžœ˜—K˜K˜K˜K˜—K˜K˜"K˜"Kšœžœ'žœ'˜bK˜—KšžœŸ˜!K˜—KšžœŸ&˜-K˜K˜ —š œžœŸZœ˜‚Kšžœžœ˜GKšœ%˜%šžœ
žœžœž˜&Kšžœžœžœžœžœžœ˜JK˜EK˜KšœF˜FKšœžœžœ˜2šžœž˜˜Kšœžœ˜K˜Kšœžœ˜K˜:K˜šžœ˜Kšžœžœ˜*Kšžœžœ˜$—K˜—˜Kšœ˜Kšœžœžœ˜/K˜Kšžœ˜ K˜—Kšžœžœ˜—Kšžœ˜—Kšžœ$˜)K˜K˜ —š œžœŸ=œ˜ešžœ
žœžœž˜&Kšžœžœžœžœžœžœ˜JKšœV˜V™K˜"™2Kšœžœ˜.—šœV™VKšœžœ˜.K˜——KšœD˜DK˜Kšž˜Kšžœ˜—Kšžœ$˜)K˜K˜ ——K˜—K˜ — …—    ~  s  