
<<RapunzelP2200V4ServerImpl.Mesa>>
<<Copyright (C) 1986 by Xerox Corporation.  All rights reserved.>>
<<Generated by Willie-Sue.pa at April 9, 1987 4:58:21 pm PDT>>
<<using Sirocco [2.0] of January 31, 1987 1:52:42 am PST>>

DIRECTORY
CrRPC,
RapunzelP2200V4;

RapunzelP2200V4ServerImpl: CEDAR PROGRAM
IMPORTS CrRPC, RapunzelP2200V4 ~ {
OPEN RapunzelP2200V4;

PokeSeqShortCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
valueSeq: SeqShort;

{
address _ CrRPC.GetCard32[s];
};
{
valueSeq _ UProc21[h, s];
};

[] _ PokeSeqShort[h, address, valueSeq];

beginReturn[h];

};

PokeLongCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
value: CARD32;

{
address _ CrRPC.GetCard32[s];
};
{
value _ CrRPC.GetCard32[s];
};

[] _ PokeLong[h, address, value];

beginReturn[h];

};

SetShftAddrsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
shftA: CARD32;
shftB: CARD32;

{
shftA _ CrRPC.GetCard32[s];
};
{
shftB _ CrRPC.GetCard32[s];
};

[] _ SetShftAddrs[h, shftA, shftB];

beginReturn[h];

};

DoCmdsCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
cmdSeq: SeqCmd;
resultSeq: SeqResult;

{
cmdSeq _ UProc22[h, s];
};

[resultSeq] _ DoCmds[h, cmdSeq];

beginReturn[h];

{
MProc23[h, s, resultSeq];
};
};

PeekSeqLongCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
count: CARD16;
resultSeq: SeqLong;

{
address _ CrRPC.GetCard32[s];
};
{
count _ CrRPC.GetCard16[s];
};

[resultSeq] _ PeekSeqLong[h, address, count];

beginReturn[h];

{
MProc24[h, s, resultSeq];
};
};

PeekLongCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
result: CARD32;

{
address _ CrRPC.GetCard32[s];
};

[result] _ PeekLong[h, address];

beginReturn[h];

{
CrRPC.PutCard32[s, result];
};
};

PeekSeqShortCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
count: CARD16;
resultSeq: SeqShort;

{
address _ CrRPC.GetCard32[s];
};
{
count _ CrRPC.GetCard16[s];
};

[resultSeq] _ PeekSeqShort[h, address, count];

beginReturn[h];

{
MProc25[h, s, resultSeq];
};
};

PeekShortCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
result: CARD16;

{
address _ CrRPC.GetCard32[s];
};

[result] _ PeekShort[h, address];

beginReturn[h];

{
CrRPC.PutCard16[s, result];
};
};

WriteSequentialCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
startingAddress: CARD32;
count: CARD16;
seq: SeqLong;

{
startingAddress _ CrRPC.GetCard32[s];
};
{
count _ CrRPC.GetCard16[s];
};
{
seq _ UProc26[h, s];
};

[] _ WriteSequential[h, startingAddress, count, seq];

beginReturn[h];

};

PokeShortCaller: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, beginReturn: CrRPC.BeginReturnProc] ~ {
address: CARD32;
value: CARD16;

{
address _ CrRPC.GetCard32[s];
};
{
value _ CrRPC.GetCard16[s];
};

[] _ PokeShort[h, address, value];

beginReturn[h];

};

Server: CrRPC.ServerProc ~ {
<<[h: Handle, s: STREAM, pgm: CARD32, pgmVersion: CARD16, proc: CARD16, beginReturn: BeginReturnProc, beginError: BeginErrorProc, 
beginReject: BeginRejectProc]>>

ENABLE {
RapunzelP2200V4.Fault => { -- (0 )
beginError[h, 0 ];
CrRPC.PutCard16[s, ORD[code]];
CrRPC.PutCard32[s, address];
GOTO Finished;
};
};

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

SELECT proc FROM
6  => PokeSeqShortCaller[h, s, beginReturn];
8  => PokeLongCaller[h, s, beginReturn];
10  => SetShftAddrsCaller[h, s, beginReturn];
9  => DoCmdsCaller[h, s, beginReturn];
5  => PeekSeqLongCaller[h, s, beginReturn];
7  => PeekLongCaller[h, s, beginReturn];
4  => PeekSeqShortCaller[h, s, beginReturn];
1  => PeekShortCaller[h, s, beginReturn];
11  => WriteSequentialCaller[h, s, beginReturn];
3  => PokeShortCaller[h, s, beginReturn];
ENDCASE => {
beginReject[h, CrRPC.noSuchProcedure];
};

EXITS
Finished => { NULL };
};

<<Unmarshal / Marshal Procs -->>


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

MProc23: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: SeqResult] ~ {
CrRPC.PutCard16[s, val.length];
FOR i28: CARDINAL IN [0..val.length) DO
MProc29[h, s, val.body[i28]];
ENDLOOP;
};

UProc21: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: SeqShort] ~ {
{
length31: CARDINAL ~ CrRPC.GetCard16[s];
res _  NEW[SeqShortObject[length31]];
FOR i30: CARDINAL IN [0..length31) DO
res.body[i30] _ CrRPC.GetCard16[s];
ENDLOOP;
};
};

MProc29: PROC [h: CrRPC.Handle, s: CrRPC.STREAM, val: Result] ~ {
CrRPC.PutCard16[s, ORD[val.type]];
WITH val SELECT FROM
it: REF ResultObject.peekShort => {
CrRPC.PutCard16[s, it^.peekShort.value];
};
it: REF ResultObject.pokeShort => {
NULL; -- RECORD [] --
};
it: REF ResultObject.pokeLong => {
NULL; -- RECORD [] --
};
it: REF ResultObject.shftRead => {
CrRPC.PutCard16[s, it^.shftRead.numRepeats];
};
it: REF ResultObject.shftWrite => {
CrRPC.PutCard16[s, it^.shftWrite.numRepeats];
};
it: REF ResultObject.returnLength => {
NULL; -- RECORD [] --
};
ENDCASE;
};

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

UProc22: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: SeqCmd] ~ {
{
length35: CARDINAL ~ CrRPC.GetCard16[s];
res _  NEW[SeqCmdObject[length35]];
FOR i34: CARDINAL IN [0..length35) DO
res.body[i34] _ UProc36[h, s];
ENDLOOP;
};
};

UProc26: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: SeqLong] ~ {
{
length38: CARDINAL ~ CrRPC.GetCard16[s];
res _  NEW[SeqLongObject[length38]];
FOR i37: CARDINAL IN [0..length38) DO
res.body[i37] _ CrRPC.GetCard32[s];
ENDLOOP;
};
};

UProc36: PROC [h: CrRPC.Handle, s: CrRPC.STREAM] RETURNS [res: Cmd] ~ {
{
tag39: OpCode ~ VAL[CrRPC.GetCard16[s]];
SELECT tag39 FROM
peekShort => {
temp40: PeekShortCmd;
temp40.address _ CrRPC.GetCard32[s];
res _ NEW[CmdObject.peekShort _ [peekShort[temp40]]] };
pokeShort => {
temp40: PokeShortCmd;
temp40.address _ CrRPC.GetCard32[s];
temp40.value _ CrRPC.GetCard16[s];
res _ NEW[CmdObject.pokeShort _ [pokeShort[temp40]]] };
pokeLong => {
temp40: PokeLongCmd;
temp40.address _ CrRPC.GetCard32[s];
temp40.value _ CrRPC.GetCard32[s];
res _ NEW[CmdObject.pokeLong _ [pokeLong[temp40]]] };
shftRead => {
temp40: ShftReadCmd;
temp40.address _ CrRPC.GetCard32[s];
temp40.numRepeats _ CrRPC.GetCard16[s];
res _ NEW[CmdObject.shftRead _ [shftRead[temp40]]] };
shftWrite => {
temp40: ShftWriteCmd;
temp40.address _ CrRPC.GetCard32[s];
temp40.numRepeats _ CrRPC.GetCard16[s];
res _ NEW[CmdObject.shftWrite _ [shftWrite[temp40]]] };
returnLength => {
temp40: ReturnLengthCmd;
temp40.returnLength _ CrRPC.GetCard16[s];
res _ NEW[CmdObject.returnLength _ [returnLength[temp40]]] };
ENDCASE => ERROR;
};
};


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