Copyright (C) 1985 by Xerox Corporation. All rights reserved.
Stub file was translated on June 22, 1985 9:34:43 pm PDT by Lupine of May 23, 1985 8:38:08 am PDT
Source interface CedarNSPrintUtils came from file CedarNSPrintUtils.bcd, which was created on June 22, 1985 9:34:05 pm PDT with version stamp 44#63#2012746333 from source of June 22, 1985 1:52:12 am PDT.
The RPC stub modules for CedarNSPrintUtils are:
CedarNSPrintUtilsRpcControl.mesa;
CedarNSPrintUtilsRpcClientImpl.mesa;
CedarNSPrintUtilsRpcBinderImpl.mesa;
CedarNSPrintUtilsRpcServerImpl.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,
CedarNSPrintUtils,
RPC
USING [defaultInterfaceName, EncryptionKey, InterfaceName, Principal,
standardZones, VersionRange, Zones];
CedarNSPrintUtilsRpcControl:
DEFINITIONS
SHARES CedarNSPrintUtils
= BEGIN OPEN CedarNSPrintUtils, 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 [
FreeString: PROCEDURE [string: LONG POINTER TO String],
FreeMedia: PROCEDURE [media: LONG POINTER TO Media],
FreePrinterProperties:
PROCEDURE [printerProperties:
LONG
POINTER
TO PrinterProperties],
FreePrinterStatus:
PROCEDURE [printerStatus:
LONG
POINTER
TO
PrinterStatus],
FreeRequestStatus:
PROCEDURE [requestStatus:
LONG
POINTER
TO
RequestStatus],
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),
FreeString (4), FreeMedia (5), FreePrinterProperties (6), FreePrinterStatus
(7), FreeRequestStatus (8)};
SignalIndex:
PRIVATE
TYPE =
MACHINE
DEPENDENT {
LupineUnusedIndex (0), LupineLastIndex (3)};
END. -- CedarNSPrintUtilsRpcControl.