DIRECTORY
CedarNSPrint,
CedarNSPrintRpcControl USING [InterfaceRecord, InterMdsCallsOnly,
LupineProtocolVersion, ProcedureIndex, SignalIndex],
RPC --USING SOME OF [InterfaceName, standardZones, Zones]--,
RPCLupine --USING SOME OF [Alloc, Call, DataLength, DeAlloc, Dispatcher,
-- SendPrelimPkt, StartCall, StartSignal, StubPkt, UnimportInterface]--,
LupineRuntime --USING SOME OF [BindingError, CheckPktLength, CopyFromPkt,
-- WordsForChars]--,
Atom --USING SOME OF [GetPName, MakeAtom]--,
PrincOpsUtils --USING SOME OF [Enter, Exit]--,
Rope --USING SOME OF [InlineFlatten, Length, NewText, Text]--,
VM --USING SOME OF [AddressForPageNumber, PageCount, PageNumber,
-- PageNumberForAddress, PagesForWords]--;


CedarNSPrintRpcClientImpl: MONITOR
IMPORTS RpcPrivate: RPCLupine, Lupine: LupineRuntime, Atom, PrincOpsUtils,
Rope
EXPORTS CedarNSPrint, CedarNSPrintRpcControl
SHARES  CedarNSPrint, CedarNSPrintRpcControl, Rope
= BEGIN OPEN CedarNSPrint, RpcControl: CedarNSPrintRpcControl, RpcPublic:
RPC;



bound: BOOLEAN _ FALSE;
myInterface: RpcPrivate.ImportHandle;
paramZones: RpcPublic.Zones _ RpcPublic.standardZones;

ImportInterface: PUBLIC ENTRY SAFE PROCEDURE [
interfaceName: RpcPublic.InterfaceName,
parameterStorage: RpcPublic.Zones ] =
TRUSTED BEGIN ENABLE UNWIND => NULL;
IsNull: PROCEDURE [string: Rope.ROPE] RETURNS [BOOLEAN] =
INLINE {RETURN[string.Length[] = 0]};
myInterface _ RpcPrivate.ImportInterface [
interface: [
type: IF ~IsNull[interfaceName.type]
THEN interfaceName.type ELSE "CedarNSPrint~14#21#26004275173",
instance: interfaceName.instance,
version: interfaceName.version ],
localOnly: RpcControl.InterMdsCallsOnly,
stubProtocol: RpcControl.LupineProtocolVersion ];
paramZones _ [
gc: IF parameterStorage.gc # NIL
THEN parameterStorage.gc ELSE Lupine.defaultZones.gc,
heap: IF parameterStorage.heap # NIL
THEN parameterStorage.heap ELSE Lupine.defaultZones.heap,
mds: IF parameterStorage.mds # NIL
THEN parameterStorage.mds ELSE Lupine.defaultZones.mds ];
bound _ TRUE;
END;

UnimportInterface: PUBLIC ENTRY SAFE PROCEDURE =
TRUSTED BEGIN ENABLE UNWIND => NULL;
IF ~bound THEN Lupine.BindingError;
myInterface _ RpcPrivate.UnimportInterface[myInterface];
paramZones _ RpcPublic.standardZones;
bound _ FALSE;
END;




Print: PUBLIC PROCEDURE [master: Source, printAttributes: PrintAttributes,
printOptions: PrintOptions, systemElement: SystemElement]
RETURNS [printRequestID: RequestID] =
BEGIN
ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [
transferIndex (0): RpcControl.ProcedureIndex _ Print, systemElement
(1): SystemElement];
ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [
printRequestID (0): RequestID];
pkt: RpcPrivate.RPCPkt = RpcPrivate.GetPkt[space: RpcPrivate.AllocInline[RpcPrivate.pktOverhead+254]];
argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0];
resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0];
pktLength: RpcPrivate.DataLength _ 7;
lastPkt: BOOLEAN;
BEGIN ENABLE UNWIND => RpcPrivate.DeAlloc[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RpcPrivate.StartCall[callPkt: pkt, interface: myInterface];
argPkt^ _ [systemElement: systemElement];
BEGIN  -- Marshal master: Source to pkt.data[pktLength].
IF pktLength+3 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt: pkt, pktLength:
pktLength];
pkt.data[pktLength] _ master=NIL;  pktLength _ pktLength+1;
IF master # NIL
THEN BEGIN
stringHeader: Lupine.StringHeader = [
Lengths[length: master.length, maxLength: master.maxlength]];
Lupine.RpcPktDoubleWord[pkt, pktLength]^ _ stringHeader.all;
pktLength _ pktLength + 2;
pktLength _ Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength,
dataAdr: BASE[master.text], dataLength: Lupine.WordsForChars[stringHeader.length],
alwaysOnePkt: FALSE];
END;  -- IF master # NIL.
END;  -- Marshal master.
BEGIN  -- Marshal printAttributes: PrintAttributes to pkt.data[pktLength].
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt: pkt, pktLength:
pktLength];
Lupine.RpcPktDoubleWord[pkt, pktLength]^ _ (IF BASE[printAttributes]=NIL
THEN 0 ELSE LENGTH[printAttributes]);
pktLength _ pktLength + 2;
IF BASE[printAttributes] # NIL THEN
FOR element1: CARDINAL IN [FIRST[CARDINAL]..FIRST[CARDINAL]+LENGTH[printAttributes])
DO
BEGIN  -- Marshal printAttributes[element1]: PrintAttribute
pktLength _ Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength,
dataAdr: @printAttributes[element1], dataLength: SIZE[PrintAttribute],
alwaysOnePkt: FALSE];
BEGIN OPEN record: printAttributes[element1];
WITH variant: record SELECT FROM
printObjectName =>
BEGIN  -- Marshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Marshal record.printObjectName: String
BEGIN OPEN record: record.printObjectName;
BEGIN  -- Marshal record.bytes: LONG POINTER
IF pktLength+1 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt:
pkt, pktLength: pktLength];
pkt.data[pktLength] _ record.bytes=NIL;  pktLength
_ pktLength+1;
IF record.bytes # NIL THEN
BEGIN  -- Marshal record.bytes^: PACKED ARRAY
pktLength _ Lupine.CopyToPkt[pkt: pkt,
pktLength: pktLength, dataAdr: @record.bytes^,
dataLength: SIZE[PACKED ARRAY CARDINAL
OF [0..255]], alwaysOnePkt: FALSE];
END;  -- Marshal record.bytes^.
END;  -- Marshal record.bytes.
END;  -- OPEN record: record.printObjectName.
END;  -- Marshal record.printObjectName.
END;  -- OPEN record: variant.
END;  -- Marshal variant.
senderName =>
BEGIN  -- Marshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Marshal record.senderName: String to
BEGIN OPEN record: record.senderName;
BEGIN  -- Marshal record.bytes: LONG POINTER
IF pktLength+1 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt:
pkt, pktLength: pktLength];
pkt.data[pktLength] _ record.bytes=NIL;  pktLength
_ pktLength+1;
IF record.bytes # NIL THEN
BEGIN  -- Marshal record.bytes^: PACKED ARRAY
pktLength _ Lupine.CopyToPkt[pkt: pkt,
pktLength: pktLength, dataAdr: @record.bytes^,
dataLength: SIZE[PACKED ARRAY CARDINAL
OF [0..255]], alwaysOnePkt: FALSE];
END;  -- Marshal record.bytes^.
END;  -- Marshal record.bytes.
END;  -- OPEN record: record.senderName.
END;  -- Marshal record.senderName.
END;  -- OPEN record: variant.
END;  -- Marshal variant.
ENDCASE => NULL;  -- WITH variant: record.
END;  -- OPEN record: printAttributes[element1].
END;  -- Marshal printAttributes[element1].
ENDLOOP;  -- FOR element1.
END;  -- Marshal printAttributes.
BEGIN  -- Marshal printOptions: PrintOptions to pkt.data[pktLength].
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt: pkt, pktLength:
pktLength];
Lupine.RpcPktDoubleWord[pkt, pktLength]^ _ (IF BASE[printOptions]=NIL
THEN 0 ELSE LENGTH[printOptions]);
pktLength _ pktLength + 2;
IF BASE[printOptions] # NIL THEN
FOR element1: CARDINAL IN [FIRST[CARDINAL]..FIRST[CARDINAL]+LENGTH[printOptions])
DO
BEGIN  -- Marshal printOptions[element1]: PrintOption to
pktLength _ Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength,
dataAdr: @printOptions[element1], dataLength: SIZE[PrintOption],
alwaysOnePkt: FALSE];
BEGIN OPEN record: printOptions[element1];
WITH variant: record SELECT FROM
recipientName =>
BEGIN  -- Marshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Marshal record.recipientName: String
BEGIN OPEN record: record.recipientName;
BEGIN  -- Marshal record.bytes: LONG POINTER
IF pktLength+1 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt:
pkt, pktLength: pktLength];
pkt.data[pktLength] _ record.bytes=NIL;  pktLength
_ pktLength+1;
IF record.bytes # NIL THEN
BEGIN  -- Marshal record.bytes^: PACKED ARRAY
pktLength _ Lupine.CopyToPkt[pkt: pkt,
pktLength: pktLength, dataAdr: @record.bytes^,
dataLength: SIZE[PACKED ARRAY CARDINAL
OF [0..255]], alwaysOnePkt: FALSE];
END;  -- Marshal record.bytes^.
END;  -- Marshal record.bytes.
END;  -- OPEN record: record.recipientName.
END;  -- Marshal record.recipientName.
END;  -- OPEN record: variant.
END;  -- Marshal variant.
message =>
BEGIN  -- Marshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Marshal record.message: String to pkt.data[pktLength].
BEGIN OPEN record: record.message;
BEGIN  -- Marshal record.bytes: LONG POINTER
IF pktLength+1 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt:
pkt, pktLength: pktLength];
pkt.data[pktLength] _ record.bytes=NIL;  pktLength
_ pktLength+1;
IF record.bytes # NIL THEN
BEGIN  -- Marshal record.bytes^: PACKED ARRAY
pktLength _ Lupine.CopyToPkt[pkt: pkt,
pktLength: pktLength, dataAdr: @record.bytes^,
dataLength: SIZE[PACKED ARRAY CARDINAL
OF [0..255]], alwaysOnePkt: FALSE];
END;  -- Marshal record.bytes^.
END;  -- Marshal record.bytes.
END;  -- OPEN record: record.message.
END;  -- Marshal record.message.
END;  -- OPEN record: variant.
END;  -- Marshal variant.
ENDCASE => NULL;  -- WITH variant: record.
END;  -- OPEN record: printOptions[element1].
END;  -- Marshal printOptions[element1].
ENDLOOP;  -- FOR element1.
END;  -- Marshal printOptions.
[returnLength: , lastPkt: lastPkt] _
RpcPrivate.Call[ pkt: pkt, callLength: pktLength,
maxReturnLength: 5, signalHandler: ClientDispatcher];
[printRequestID: printRequestID] _ resPkt^;
Lupine.CheckPktLength[pkt: pkt, pktLength: 5];
RpcPrivate.DeAllocInline[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RETURN[printRequestID];
END;  -- UNWIND.
END;  -- Print.

GetPrinterProperties: PUBLIC PROCEDURE [systemElement: SystemElement]
RETURNS [properties: PrinterProperties] =
BEGIN
ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [
transferIndex (0): RpcControl.ProcedureIndex _ GetPrinterProperties,
systemElement (1): SystemElement];
pkt: RpcPrivate.RPCPkt = RpcPrivate.GetPkt[space: RpcPrivate.AllocInline[RpcPrivate.pktOverhead+254]];
argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0];
pktLength: RpcPrivate.DataLength _ 7;
lastPkt: BOOLEAN;
BEGIN ENABLE UNWIND => RpcPrivate.DeAlloc[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RpcPrivate.StartCall[callPkt: pkt, interface: myInterface];
argPkt^ _ [systemElement: systemElement];
[returnLength: , lastPkt: lastPkt] _
RpcPrivate.Call[ pkt: pkt, callLength: pktLength,
maxReturnLength: 254, signalHandler: ClientDispatcher];
pktLength _ 0;
BEGIN  -- Unmarshal properties: PrinterProperties from pkt.data[pktLength].
DescriptorType: TYPE = RECORD [SEQUENCE COMPUTED CARDINAL OF
PrinterProperty];
descLength: Lupine.SequenceHeader;
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.FinishThisPkt[pkt: pkt, pktLength:
pktLength];
descLength _ Lupine.RpcPktDoubleWord[pkt, pktLength]^;
pktLength _ pktLength + 2;
properties _ DESCRIPTOR[
(paramZones.heap.NEW[DescriptorType[Lupine.SHORT[descLength]]]),
Lupine.SHORT[descLength]];
FOR element1: CARDINAL IN [FIRST[CARDINAL]..FIRST[CARDINAL]+LENGTH[properties])
DO
BEGIN  -- Unmarshal properties[element1]: PrinterProperty
pktLength _ Lupine.CopyFromPkt[pkt: pkt, pktLength: pktLength,
dataAdr: @properties[element1], dataLength: SIZE[PrinterProperty],
alwaysOnePkt: FALSE];
BEGIN OPEN record: properties[element1];
WITH variant: record SELECT FROM
media =>
BEGIN  -- Unmarshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Unmarshal record.media: Media from pkt.data[pktLength].
DescriptorType: TYPE = RECORD [SEQUENCE COMPUTED
CARDINAL OF Medium];
descLength: Lupine.SequenceHeader;
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.FinishThisPkt[pkt: pkt,
pktLength: pktLength];
descLength _ Lupine.RpcPktDoubleWord[pkt, pktLength]^;
pktLength _ pktLength + 2;
record.media _ DESCRIPTOR[
(paramZones.heap.NEW[DescriptorType[Lupine.SHORT[descLength]]]),
Lupine.SHORT[descLength]];
pktLength _ Lupine.CopyFromPkt[pkt: pkt, pktLength:
pktLength, dataAdr: BASE[record.media], dataLength:
SIZE[Medium]*LENGTH[record.media], alwaysOnePkt:
FALSE];
END;  -- Unmarshal record.media.
END;  -- OPEN record: variant.
END;  -- Unmarshal variant.
ENDCASE => NULL;  -- WITH variant: record.
END;  -- OPEN record: properties[element1].
END;  -- Unmarshal properties[element1].
ENDLOOP;  -- FOR element1.
END;  -- Unmarshal properties.
Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength];
RpcPrivate.DeAllocInline[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RETURN[properties];
END;  -- UNWIND.
END;  -- GetPrinterProperties.

GetPrinterStatus: PUBLIC PROCEDURE [systemElement: SystemElement]
RETURNS [status: PrinterStatus] =
BEGIN
ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [
transferIndex (0): RpcControl.ProcedureIndex _ GetPrinterStatus,
systemElement (1): SystemElement];
pkt: RpcPrivate.RPCPkt = RpcPrivate.GetPkt[space: RpcPrivate.AllocInline[RpcPrivate.pktOverhead+254]];
argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0];
pktLength: RpcPrivate.DataLength _ 7;
lastPkt: BOOLEAN;
BEGIN ENABLE UNWIND => RpcPrivate.DeAlloc[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RpcPrivate.StartCall[callPkt: pkt, interface: myInterface];
argPkt^ _ [systemElement: systemElement];
[returnLength: , lastPkt: lastPkt] _
RpcPrivate.Call[ pkt: pkt, callLength: pktLength,
maxReturnLength: 254, signalHandler: ClientDispatcher];
pktLength _ 0;
BEGIN  -- Unmarshal status: PrinterStatus from pkt.data[pktLength].
DescriptorType: TYPE = RECORD [SEQUENCE COMPUTED CARDINAL OF
PrinterStatusComponent];
descLength: Lupine.SequenceHeader;
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.FinishThisPkt[pkt: pkt, pktLength:
pktLength];
descLength _ Lupine.RpcPktDoubleWord[pkt, pktLength]^;
pktLength _ pktLength + 2;
status _ DESCRIPTOR[
(paramZones.heap.NEW[DescriptorType[Lupine.SHORT[descLength]]]),
Lupine.SHORT[descLength]];
FOR element1: CARDINAL IN [FIRST[CARDINAL]..FIRST[CARDINAL]+LENGTH[status])
DO
BEGIN  -- Unmarshal status[element1]: PrinterStatusComponent
pktLength _ Lupine.CopyFromPkt[pkt: pkt, pktLength: pktLength,
dataAdr: @status[element1], dataLength: SIZE[PrinterStatusComponent],
alwaysOnePkt: FALSE];
BEGIN OPEN record: status[element1];
WITH variant: record SELECT FROM
media =>
BEGIN  -- Unmarshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Unmarshal record.media: Media from pkt.data[pktLength].
DescriptorType: TYPE = RECORD [SEQUENCE COMPUTED
CARDINAL OF Medium];
descLength: Lupine.SequenceHeader;
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.FinishThisPkt[pkt: pkt,
pktLength: pktLength];
descLength _ Lupine.RpcPktDoubleWord[pkt, pktLength]^;
pktLength _ pktLength + 2;
record.media _ DESCRIPTOR[
(paramZones.heap.NEW[DescriptorType[Lupine.SHORT[descLength]]]),
Lupine.SHORT[descLength]];
pktLength _ Lupine.CopyFromPkt[pkt: pkt, pktLength:
pktLength, dataAdr: BASE[record.media], dataLength:
SIZE[Medium]*LENGTH[record.media], alwaysOnePkt:
FALSE];
END;  -- Unmarshal record.media.
END;  -- OPEN record: variant.
END;  -- Unmarshal variant.
ENDCASE => NULL;  -- WITH variant: record.
END;  -- OPEN record: status[element1].
END;  -- Unmarshal status[element1].
ENDLOOP;  -- FOR element1.
END;  -- Unmarshal status.
Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength];
RpcPrivate.DeAllocInline[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RETURN[status];
END;  -- UNWIND.
END;  -- GetPrinterStatus.

GetPrintRequestStatus: PUBLIC PROCEDURE [printRequestID: RequestID,
systemElement: SystemElement] RETURNS [status: RequestStatus] =
BEGIN
ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [
transferIndex (0): RpcControl.ProcedureIndex _ GetPrintRequestStatus,
printRequestID (1): RequestID, systemElement (6): SystemElement];
pkt: RpcPrivate.RPCPkt = RpcPrivate.GetPkt[space: RpcPrivate.AllocInline[RpcPrivate.pktOverhead+254]];
argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0];
pktLength: RpcPrivate.DataLength _ 12;
lastPkt: BOOLEAN;
BEGIN ENABLE UNWIND => RpcPrivate.DeAlloc[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RpcPrivate.StartCall[callPkt: pkt, interface: myInterface];
argPkt^ _ [printRequestID: printRequestID, systemElement: systemElement];
[returnLength: , lastPkt: lastPkt] _
RpcPrivate.Call[ pkt: pkt, callLength: pktLength,
maxReturnLength: 254, signalHandler: ClientDispatcher];
pktLength _ 0;
BEGIN  -- Unmarshal status: RequestStatus from pkt.data[pktLength].
DescriptorType: TYPE = RECORD [SEQUENCE COMPUTED CARDINAL OF
RequestStatusComponent];
descLength: Lupine.SequenceHeader;
IF pktLength+2 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.FinishThisPkt[pkt: pkt, pktLength:
pktLength];
descLength _ Lupine.RpcPktDoubleWord[pkt, pktLength]^;
pktLength _ pktLength + 2;
status _ DESCRIPTOR[
(paramZones.heap.NEW[DescriptorType[Lupine.SHORT[descLength]]]),
Lupine.SHORT[descLength]];
FOR element1: CARDINAL IN [FIRST[CARDINAL]..FIRST[CARDINAL]+LENGTH[status])
DO
BEGIN  -- Unmarshal status[element1]: RequestStatusComponent
pktLength _ Lupine.CopyFromPkt[pkt: pkt, pktLength: pktLength,
dataAdr: @status[element1], dataLength: SIZE[RequestStatusComponent],
alwaysOnePkt: FALSE];
BEGIN OPEN record: status[element1];
WITH variant: record SELECT FROM
statusMessage =>
BEGIN  -- Unmarshal variant: MACHINE DEPENDENT RECORD
BEGIN OPEN record: variant;
BEGIN  -- Unmarshal record.statusMessage: String
BEGIN OPEN record: record.statusMessage;
BEGIN  -- Unmarshal record.bytes: LONG POINTER
isNIL: Lupine.NilHeader;
IF pktLength+1 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.FinishThisPkt[pkt:
pkt, pktLength: pktLength];
isNIL _ pkt.data[pktLength];  pktLength _ pktLength+1;
IF isNIL
THEN record.bytes _ NIL
ELSE BEGIN
record.bytes _ (paramZones.heap.NEW[PACKED
ARRAY CARDINAL OF [0..255]]);
BEGIN  -- Unmarshal record.bytes^: PACKED
pktLength _ Lupine.CopyFromPkt[pkt: pkt,
pktLength: pktLength, dataAdr: @record.bytes^,
dataLength: SIZE[PACKED ARRAY CARDINAL
OF [0..255]], alwaysOnePkt: FALSE];
END;  -- Unmarshal record.bytes^.
END;  -- IF isNIL.
END;  -- Unmarshal record.bytes.
END;  -- OPEN record: record.statusMessage.
END;  -- Unmarshal record.statusMessage.
END;  -- OPEN record: variant.
END;  -- Unmarshal variant.
ENDCASE => NULL;  -- WITH variant: record.
END;  -- OPEN record: status[element1].
END;  -- Unmarshal status[element1].
ENDLOOP;  -- FOR element1.
END;  -- Unmarshal status.
Lupine.CheckPktLength[pkt: pkt, pktLength: pktLength];
RpcPrivate.DeAllocInline[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RETURN[status];
END;  -- UNWIND.
END;  -- GetPrintRequestStatus.

AddressTranslationStringToNetworkAddress: PUBLIC PROCEDURE [name:
LONG STRING] RETURNS [systemElement: SystemElement, chUsed: BOOLEAN]
=
BEGIN
ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [
transferIndex (0): RpcControl.ProcedureIndex _ AddressTranslationStringToNetworkAddress];
ResultOverlay: TYPE = MACHINE DEPENDENT RECORD [
systemElement (0): SystemElement, chUsed (6): BOOLEAN];
pkt: RpcPrivate.RPCPkt = RpcPrivate.GetPkt[space: RpcPrivate.AllocInline[RpcPrivate.pktOverhead+254]];
argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0];
resPkt: LONG POINTER TO ResultOverlay = @pkt.data[0];
pktLength: RpcPrivate.DataLength _ 1;
lastPkt: BOOLEAN;
BEGIN ENABLE UNWIND => RpcPrivate.DeAlloc[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RpcPrivate.StartCall[callPkt: pkt, interface: myInterface];
argPkt.transferIndex _ AddressTranslationStringToNetworkAddress;
BEGIN  -- Marshal name: LONG STRING to pkt.data[pktLength].
IF pktLength+3 > RpcPrivate.maxDataLength
THEN pktLength _ Lupine.StartNextPkt[pkt: pkt, pktLength:
pktLength];
pkt.data[pktLength] _ name=NIL;  pktLength _ pktLength+1;
IF name # NIL
THEN BEGIN
stringHeader: Lupine.StringHeader = [
Lengths[length: name.length, maxLength: name.maxlength]];
Lupine.RpcPktDoubleWord[pkt, pktLength]^ _ stringHeader.all;
pktLength _ pktLength + 2;
pktLength _ Lupine.CopyToPkt[pkt: pkt, pktLength: pktLength,
dataAdr: BASE[name.text], dataLength: Lupine.WordsForChars[stringHeader.length],
alwaysOnePkt: FALSE];
END;  -- IF name # NIL.
END;  -- Marshal name.
[returnLength: , lastPkt: lastPkt] _
RpcPrivate.Call[ pkt: pkt, callLength: pktLength,
maxReturnLength: 7, signalHandler: ClientDispatcher];
[systemElement: systemElement, chUsed: chUsed] _ resPkt^;
Lupine.CheckPktLength[pkt: pkt, pktLength: 7];
RpcPrivate.DeAllocInline[LOOPHOLE[pkt], RpcPrivate.pktOverhead+254];
RETURN[systemElement, chUsed];
END;  -- UNWIND.
END;  -- AddressTranslationStringToNetworkAddress.



Error: PUBLIC ERROR [why: ErrorRecord] = CODE;



ClientDispatcher: --PROCEDURE [pkt: RPCPkt, callLength: DataLength,
-- DataLength]-- RpcPrivate.Dispatcher =
BEGIN

SELECT LOOPHOLE[pkt.data[0], RpcControl.SignalIndex] FROM
Error => RETURN[
ErrorStub[pkt: pkt, callLength: callLength, lastPkt: lastPkt,
localConversation: localConversation]];
ENDCASE => RETURN[Lupine.DispatchingError[]];

END;  -- ClientDispatcher



ErrorStub: --ERROR [why: ErrorRecord]-- RpcPrivate.Dispatcher =
INLINE BEGIN
ArgumentOverlay: TYPE = MACHINE DEPENDENT RECORD [
transferIndex (0): RpcControl.SignalIndex, why (1): ErrorRecord];
argPkt: LONG POINTER TO ArgumentOverlay = @pkt.data[0];
Lupine.CheckPktLength[pkt: pkt, pktLength: 3];
ERROR Error[argPkt.why];
END;  -- ErrorStub.





END.  -- CedarNSPrintRpcClientImpl.

Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
Stub file  was translated on June 22, 1985 9:34:33 pm PDT by Lupine of May 23, 1985 8:38:08 am PDT
Source interface CedarNSPrint came from file CedarNSPrint.bcd, which was created on June 22, 1985 9:34:02 pm PDT with version stamp 14#21#26004275173 from source of June 22, 1985 9:31:11 pm PDT.
The RPC stub modules for CedarNSPrint are:
CedarNSPrintRpcControl.mesa;
CedarNSPrintRpcClientImpl.mesa;
CedarNSPrintRpcBinderImpl.mesa;
CedarNSPrintRpcServerImpl.mesa.
The parameters for this translation are:
Target language = Cedar
Default parameter passing = VALUE
Deallocate server heap arguments = TRUE
Inline RpcServerImpl dispatcher stubs = FALSE
Declare signals = TRUE
Warn about short POINTER ("MDS") allocations = TRUE
Maximum number of dynamic heap NEWs = 50, MDS NEWs = 50
Acceptable parameter protocols = VersionRange[1..1].
GetPkt, GetStubPkt, ImportHandle, ImportInterface, maxDataLength,
maxPrincipalLength, maxShortStringLength, pktOverhead, ReceiveExtraPkt,
CopyFromMultiplePkts, CopyToPkt, CopyToMultiplePkts, defaultZones,
DispatchingError, FinishThisPkt, ListHeader, MarshalingError,
MarshalingExprError, MarshalAtom, MarshalRope, NilHeader, ProtocolError,
RopeHeader, RpcPktDoubleWord, RuntimeError, SequenceHeader, SHORT,
StartNextPkt, StringHeader, StubPktDoubleWord, TranslationError,
UnmarshalingError, UnmarshalingExprError, UnmarshalAtom, UnmarshalRope,
Standard remote binding routines.
Remote public procedure stubs.
to pkt.data[pktLength].
[printObjectName: String] to pkt.data[pktLength].
to pkt.data[pktLength].
TO PACKED ARRAY CARDINAL OF [0..255] to pkt.data[pktLength].
CARDINAL OF [0..255] to pkt.data[pktLength].
[senderName: String] to pkt.data[pktLength].
pkt.data[pktLength].
TO PACKED ARRAY CARDINAL OF [0..255] to pkt.data[pktLength].
CARDINAL OF [0..255] to pkt.data[pktLength].
pkt.data[pktLength].
[recipientName: String] to pkt.data[pktLength].
to pkt.data[pktLength].
TO PACKED ARRAY CARDINAL OF [0..255] to pkt.data[pktLength].
CARDINAL OF [0..255] to pkt.data[pktLength].
[message: String] to pkt.data[pktLength].
TO PACKED ARRAY CARDINAL OF [0..255] to pkt.data[pktLength].
CARDINAL OF [0..255] to pkt.data[pktLength].
from pkt.data[pktLength].
[media: Media] from pkt.data[pktLength].
from pkt.data[pktLength].
[media: Media] from pkt.data[pktLength].
from pkt.data[pktLength].
[statusMessage: String] from pkt.data[pktLength].
from pkt.data[pktLength].
TO PACKED ARRAY CARDINAL OF [0..255] from pkt.data[pktLength].
ARRAY CARDINAL OF [0..255] from pkt.data[pktLength].
Remote public signals and errors.
Public signal and error dispatcher.
lastPkt: BOOLEAN, localConversation: Conversation] RETURNS [returnLength:
Public signal and error dispatcher stubs.
Marshall/Unmarshal procedures.
No module initialization.
�ÊF˜Jš
œ>™>Jš
œb™bJš
œÂ
™Â
J˜Jš
œ*™*Jš
œ™Jš
œ™Jš
œ™Jš
œ™J˜Jš
œ(™(Jš
œ™Jš
œ!™!Jš
œ'™'Jš
œ-™-Jš
œ™Jš
œ3™3Jš
œ7™7Jš
œ4™4J˜J˜š
Ïk	˜	J˜
šœ�œ%˜AJ˜4—Jš�œ
Ïc7œ
˜<šœ
ž>˜HJš
œA™AJš
œG™GJšžGœ
˜H—šœž;˜IJš
œB™BJš
œ=™=Jš
œH™HJš
œB™BJš
œ@™@Jš
œG™GJšžœ
˜—Jšœž&œ
˜,Jšœžœ
˜.Jšœž8œ
˜>š�œ
ž=˜@Jšž)œ
˜*——J˜J˜šœ�˜"š�œC˜JJ˜—Jš�œ%˜,Jš�œ,˜2šœ�œ
�œ=˜IJš�œ
˜——J˜J˜Jš
œ!™!˜Jšœ�œ�œ
˜J˜%J˜6—˜š
Ïnœ�œ
�œ
�œ
�	œ˜.J˜'J˜%Jš
�œ
�œ
�œ
�œ�œ
˜$š
Ÿœ�	œ�œ�œ�œ˜9š�œ�œ˜%J˜*—˜šœ�œ˜$Jš�œ�œ"˜>—J˜!J˜!—J˜(J˜1—˜šœ�œ�˜ Jš�œ�œ˜5—šœ�œ�˜$Jš�œ�œ˜9—šœ�œ�˜"Jš�œ�œ˜9——Jšœ�œ
˜
Jš�œ
˜——˜š
Ÿœ�œ
�œ
�œ
�	œ˜0Jš
�œ
�œ
�œ
�œ�œ
˜$Jš�œ�œ˜#J˜8J˜%Jšœ�œ
˜Jš�œ
˜——J˜J˜J˜Jš
œ™˜šŸœ�œ
�	œ3˜JJ˜9Jš�œ˜%Jš
�˜š	œ�œ�œ
�	œ
�œ˜2J˜CJ˜—š	œ�œ�œ
�	œ
�œ˜0J˜—J˜fJšœ�œ
�œ
�œ ˜7Jšœ�œ
�œ
�œ˜5J˜%Jšœ	�œ
˜š�œ
�œ
�œ�œ#˜UJ˜;J˜)š�œž1˜8š�œ'˜)š�œ5˜9J˜——Jšœ�œ˜;š�œ
�˜š�œ
�˜
˜%J˜=—J˜<J˜˜<Jšœ	�œE˜RJšœ�œ˜—Jš�œž˜——Jš�œž˜—š�œžC˜Jš�œ'˜)š�œ5˜9J˜——šœ,�œ
�œ�˜HJš�œ�œ
�œ˜%—J˜š�œ
�œ�œ
�˜#š�œ�œ
�œ�œ
�œ�œ
�œ�œ˜TJš
�˜š�œž4˜;Jš
œ™˜<Jšœ1�œ˜FJšœ�œ˜—Jš�œ
�œ#˜-š�œ�œ
�˜ ˜š�œž,˜3Jš
œ1™1Jš�œ
�œ˜š�œž)˜0Jš
œ™Jš�œ
�œ ˜*š�œž%˜,Jš
œ<™<š�œ'˜)š�œ%˜)J˜——šœ#�œ˜2J˜—š�œ�œ
�˜š�œž&˜-Jš
œ,™,˜&J˜.Jšœ�œ
�œ
�œ
�˜&Jš�œ�œ˜#—Jš�œž˜——Jš�œž˜—Jš�œž'˜-Jš�œž"˜(—Jš�œž˜Jš�œž˜——˜
š�œž,˜3Jš
œ,™,Jš�œ
�œ˜š�œž'˜.Jš
œ™Jš�œ
�œ˜%š�œž%˜,Jš
œ<™<š�œ'˜)š�œ%˜)J˜——šœ#�œ˜2J˜—š�œ�œ
�˜š�œž&˜-Jš
œ,™,˜&J˜.Jšœ�œ
�œ
�œ
�˜&Jš�œ�œ˜#—Jš�œž˜——Jš�œž˜—Jš�œž"˜(Jš�œž˜#—Jš�œž˜Jš�œž˜——Jš�œ�œž˜*—Jš�œž*˜0Jš�œž%˜+—Jš�œž˜——Jš�œž˜!—š�œž=˜Dš�œ'˜)š�œ5˜9J˜——šœ,�œ
�œ�˜EJš�œ�œ
�œ˜"—J˜š�œ
�œ�œ
�˜ š�œ�œ
�œ�œ
�œ�œ
�œ�œ˜QJš
�˜š�œž1˜8Jš
œ™˜<Jšœ.�œ˜@Jšœ�œ˜—Jš�œ
�œ ˜*š�œ�œ
�˜ ˜š�œž,˜3Jš
œ/™/Jš�œ
�œ˜š�œž'˜.Jš
œ™Jš�œ
�œ˜(š�œž%˜,Jš
œ<™<š�œ'˜)š�œ%˜)J˜——šœ#�œ˜2J˜—š�œ�œ
�˜š�œž&˜-Jš
œ,™,˜&J˜.Jšœ�œ
�œ
�œ
�˜&Jš�œ�œ˜#—Jš�œž˜——Jš�œž˜—Jš�œž%˜+Jš�œž ˜&—Jš�œž˜Jš�œž˜——˜
š�œž,˜3Jš
œ)™)Jš�œ
�œ˜š�œž9˜@Jš�œ
�œ˜"š�œž%˜,Jš
œ<™<š�œ'˜)š�œ%˜)J˜——šœ#�œ˜2J˜—š�œ�œ
�˜š�œž&˜-Jš
œ,™,˜&J˜.Jšœ�œ
�œ
�œ
�˜&Jš�œ�œ˜#—Jš�œž˜——Jš�œž˜—Jš�œž˜%Jš�œž˜ —Jš�œž˜Jš�œž˜——Jš�œ�œž˜*—Jš�œž'˜-Jš�œž"˜(—Jš�œž˜——Jš�œž˜—˜$˜1J˜5——J˜+J˜.Jšœ�œ#˜DJš�œ˜Jš�œž
˜—Jš�œž	˜——˜šŸœ�œ
�	œ˜EJš�œ"˜)Jš
�˜š	œ�œ�œ
�	œ
�œ˜2J˜DJ˜"—J˜fJšœ�œ
�œ
�œ ˜7J˜%Jšœ	�œ
˜š�œ
�œ
�œ�œ#˜UJ˜;J˜)˜$˜1J˜7——J˜š�œžD˜Kšœ�œ�œ�œ
�œ
�œ
�˜<J˜—J˜"š�œ'˜)š�œ6˜:J˜——J˜6J˜šœ
�
œ
˜Jšœ�œ�œ˜@Jšœ�œ˜—š�œ�œ
�œ�œ
�œ�œ
�œ�œ
˜OJš
�˜š�œž2˜9Jš
œ™˜>Jšœ,�œ˜BJšœ�œ˜—Jš�œ
�œ˜(š�œ�œ
�˜ ˜š�œž.˜5Jš
œ(™(Jš�œ
�œ˜š�œž:˜Ašœ�œ�œ�œ
�˜0Jš�œ
�œ	˜—J˜"š�œ'˜)š�œ+˜/J˜——J˜6J˜šœ�
œ
˜Jšœ�œ�œ˜@Jšœ�œ˜—˜3Jšœ�œ˜3Jš�œ	�œ˜0Jš�œ˜—Jš�œž˜ —Jš�œž˜Jš�œž˜——Jš�œ�œž˜*—Jš�œž%˜+Jš�œž"˜(—Jš�œž˜—Jš�œž˜—J˜6Jšœ�œ#˜DJš�œ
˜Jš�œž
˜—Jš�œž˜——˜šŸœ�œ
�	œ˜AJš�œ˜!Jš
�˜š	œ�œ�œ
�	œ
�œ˜2J˜@J˜"—J˜fJšœ�œ
�œ
�œ ˜7J˜%Jšœ	�œ
˜š�œ
�œ
�œ�œ#˜UJ˜;J˜)˜$˜1J˜7——J˜š�œž<˜Cšœ�œ�œ�œ
�œ
�œ
�˜<J˜—J˜"š�œ'˜)š�œ6˜:J˜——J˜6J˜šœ	�
œ
˜Jšœ�œ�œ˜@Jšœ�œ˜—š�œ�œ
�œ�œ
�œ�œ
�œ�œ	˜KJš
�˜š�œž5˜<Jš
œ™˜>Jšœ(�œ˜EJšœ�œ˜—Jš�œ
�œ˜$š�œ�œ
�˜ ˜š�œž.˜5Jš
œ(™(Jš�œ
�œ˜š�œž:˜Ašœ�œ�œ�œ
�˜0Jš�œ
�œ	˜—J˜"š�œ'˜)š�œ+˜/J˜——J˜6J˜šœ�
œ
˜Jšœ�œ�œ˜@Jšœ�œ˜—˜3Jšœ�œ˜3Jš�œ	�œ˜0Jš�œ˜—Jš�œž˜ —Jš�œž˜Jš�œž˜——Jš�œ�œž˜*—Jš�œž!˜'Jš�œž˜$—Jš�œž˜—Jš�œž˜—J˜6Jšœ�œ#˜DJš�œ	˜Jš�œž
˜—Jš�œž˜——˜šŸœ�œ
�	œ˜CJšœ�œ˜?Jš
�˜š	œ�œ�œ
�	œ
�œ˜2J˜EJ˜A—J˜fJšœ�œ
�œ
�œ ˜7J˜&Jšœ	�œ
˜š�œ
�œ
�œ�œ#˜UJ˜;J˜I˜$˜1J˜7——J˜š�œž<˜Cšœ�œ�œ�œ
�œ
�œ
�˜<J˜—J˜"š�œ'˜)š�œ6˜:J˜——J˜6J˜šœ	�
œ
˜Jšœ�œ�œ˜@Jšœ�œ˜—š�œ�œ
�œ�œ
�œ�œ
�œ�œ	˜KJš
�˜š�œž5˜<Jš
œ™˜>Jšœ(�œ˜EJšœ�œ˜—Jš�œ
�œ˜$š�œ�œ
�˜ ˜š�œž.˜5Jš
œ1™1Jš�œ
�œ˜š�œž)˜0Jš
œ™Jš�œ
�œ˜(š�œž'˜.Jš
œ>™>J˜š�œ'˜)š�œ&˜*J˜——J˜6š�œ˜Jš�œ�˜š�œ
�˜
šœ �œ
�˜*Jš�œ
�œ
�œ˜—š�œž"˜)Jš
œ4™4˜(J˜.Jšœ�œ
�œ
�œ
�˜&Jš�œ�œ˜#—Jš�œž˜!—Jš�œž˜——Jš�œž˜ —Jš�œž%˜+Jš�œž"˜(—Jš�œž˜Jš�œž˜——Jš�œ�œž˜*—Jš�œž!˜'Jš�œž˜$—Jš�œž˜—Jš�œž˜—J˜6Jšœ�œ#˜DJš�œ	˜Jš�œž
˜—Jš�œž˜——˜šŸ(œ�œ
�	œ˜AJš�œ
�œ�œ(�œ
˜DJ˜
Jš
�˜š	œ�œ�œ
�	œ
�œ˜2J˜Y—š	œ�œ�œ
�	œ
�œ˜0Jšœ.�œ˜7—J˜fJšœ�œ
�œ
�œ ˜7Jšœ�œ
�œ
�œ˜5J˜%Jšœ	�œ
˜š�œ
�œ
�œ�œ#˜UJ˜;J˜@š�œž4˜;š�œ'˜)š�œ5˜9J˜——Jšœ�œ˜9š�œ�˜
š�œ
�˜
˜%J˜9—J˜<J˜˜<Jšœ	�œC˜PJšœ�œ˜—Jš�œž˜——Jš�œž˜—˜$˜1J˜5——J˜9J˜.Jšœ�œ#˜DJš�œ˜Jš�œž
˜—Jš�œž,˜2——J˜J˜Jš
œ!™!˜Jšœ�œ
�œ�œ
˜.—J˜J˜Jš
œ#™#˜šœž1˜CJš
œI™IJšžœ˜(Jš
�˜——˜š�œ
�œ&�˜9šœ	�œ
˜˜=J˜'——Jš�œ�œ˜-——˜Jš�œž˜—J˜J˜Jš
œ)™)˜šœžœ˜?Jš�œ
�˜š	œ�œ�œ
�	œ
�œ˜2J˜A—Jšœ�œ
�œ
�œ ˜7J˜.Jš�œ˜Jš�œž
˜——J˜J˜Jš
œ™J˜J˜Jš
œ™J˜Jš�œž˜#J˜—…—QôsF