Copyright (C) 1985 by Xerox Corporation. All rights reserved.
Stub file was translated on June 22, 1985 9:34:32 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].
DIRECTORY
CedarNSPrint,
RPC
USING [defaultInterfaceName, EncryptionKey, InterfaceName, Principal,
standardZones, VersionRange, Zones];
CedarNSPrintRpcControl:
DEFINITIONS
SHARES CedarNSPrint
= BEGIN OPEN CedarNSPrint, RpcPublic: RPC;
Public RPC types and constants.
InterfaceName: TYPE = RpcPublic.InterfaceName;
VersionRange: TYPE = RpcPublic.VersionRange;
Principal: TYPE = RpcPublic.Principal;
EncryptionKey: TYPE = RpcPublic.EncryptionKey;
Zones: TYPE = RpcPublic.Zones;
defaultInterfaceName: InterfaceName = RpcPublic.defaultInterfaceName;
standardZones: Zones = RpcPublic.standardZones;
Standard remote binding routines.
ImportInterface:
SAFE
PROCEDURE [
interfaceName: InterfaceName ← defaultInterfaceName,
parameterStorage: Zones ← standardZones ];
UnimportInterface: PROCEDURE;
ExportInterface:
SAFE
PROCEDURE [
interfaceName: InterfaceName ← defaultInterfaceName,
user: Principal,
password: EncryptionKey,
parameterStorage: Zones ← standardZones ];
UnexportInterface: SAFE PROCEDURE;
Dynamic instantiation and binding.
ImportNewInterface:
SAFE
PROCEDURE [
interfaceName: InterfaceName ← defaultInterfaceName,
parameterStorage: Zones ← standardZones ]
RETURNS [interfaceRecord: InterfaceRecord];
NewInterfaceRecord is necessary for Cedar clients who want to
manufacture a private interface instance, because
RpcBindingImpl has finalization on type InterfaceRecord.
NewInterfaceRecord:
SAFE
PROCEDURE
RETURNS [interfaceRecord: InterfaceRecord];
InterfaceRecord: TYPE = REF InterfaceRecordObject;
InterfaceRecordObject:
TYPE =
RECORD [
Error: ERROR [why: ErrorRecord],
Print:
PROCEDURE [master: Source, printAttributes: PrintAttributes,
printOptions: PrintOptions, systemElement: SystemElement] RETURNS
[printRequestID: RequestID],
GetPrinterProperties:
PROCEDURE [systemElement: SystemElement]
RETURNS [properties: PrinterProperties],
GetPrinterStatus:
PROCEDURE [systemElement: SystemElement]
RETURNS
[status: PrinterStatus],
GetPrintRequestStatus:
PROCEDURE [printRequestID: RequestID,
systemElement: SystemElement] RETURNS [status: RequestStatus],
AddressTranslationStringToNetworkAddress:
PROCEDURE [name:
LONG
STRING] RETURNS [systemElement: SystemElement, chUsed: BOOLEAN],
lupineDetails: PRIVATE REF LupineDetailsObject←NIL];
LupineDetailsObject: PRIVATE TYPE;
Definitions for the stubs.
LupineProtocolVersion: PUBLIC VersionRange = [first: 1, last: 1];
InterMdsCallsOnly: PUBLIC BOOLEAN = FALSE;
ProcedureIndex:
PRIVATE
TYPE =
MACHINE
DEPENDENT {
LupineUnusedIndex (0), LupineLastIndex (3),
Print (4), GetPrinterProperties (5), GetPrinterStatus (6), GetPrintRequestStatus
(7), AddressTranslationStringToNetworkAddress (8)};
SignalIndex:
PRIVATE
TYPE =
MACHINE
DEPENDENT {
LupineUnusedIndex (0), LupineLastIndex (3),
Error (4)};
END. -- CedarNSPrintRpcControl.