DIRECTORY CedarNSPrint, RPC USING [defaultInterfaceName, EncryptionKey, InterfaceName, Principal, standardZones, VersionRange, Zones]; CedarNSPrintRpcControl: DEFINITIONS SHARES CedarNSPrint = BEGIN OPEN CedarNSPrint, RpcPublic: RPC; 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; 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; ImportNewInterface: SAFE PROCEDURE [ interfaceName: InterfaceName _ defaultInterfaceName, parameterStorage: Zones _ standardZones ] RETURNS [interfaceRecord: 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; 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. ®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]. Public RPC types and constants. Standard remote binding routines. Dynamic instantiation and binding. NewInterfaceRecord is necessary for Cedar clients who want to manufacture a private interface instance, because RpcBindingImpl has finalization on type InterfaceRecord. Definitions for the stubs. Êo˜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˜ šœœ@˜IJ˜$——J˜J˜šœ ˜#Jšœ˜Jšœœœœ˜*—J˜J˜Jšœ™˜Jšœœ˜.Jšœœ˜,Jšœ œ˜&Jšœœ˜.Jšœœ˜J˜J˜EJ˜/—J˜J˜Jšœ!™!˜šÏnœœ œ˜!J˜4J˜*——˜Jšžœ œ˜—˜šžœœ œ˜!J˜4J˜J˜J˜*——˜Jšžœœ œ˜"—J˜J˜Jšœ"™"˜šžœœ œ˜$J˜4J˜)Jšœ$˜+——˜Jšœ=™=Jšœ1™1Jšœ8™8šžœœ ˜"Jšœ$˜+——˜Jšœœœ˜2—˜šœœœ˜&Jšœœ˜ šžœ œ3˜CJšœ:˜AJ˜—šžœ œ˜>Jšœ!˜(—šžœ œ ˜BJ˜—šžœ œ˜—šž(œ œ˜?Jšœœ(œ˜@—Jšœœœœ˜4——˜Jšœœœ˜"—˜Jšœ™J˜Jšœœ$˜AJ˜Jšœœœœ˜*—˜š œœœœ œ˜2J˜+J˜PJ˜3——˜š œ œœœ œ˜/J˜+J˜ ——J˜J˜JšœÏc˜ J˜—…— Òï