DIRECTORY CedarNSPrint, CedarNSPrintUtils, RPC USING [defaultInterfaceName, EncryptionKey, InterfaceName, Principal, standardZones, VersionRange, Zones]; CedarNSPrintUtilsRpcControl: DEFINITIONS SHARES CedarNSPrintUtils = BEGIN OPEN CedarNSPrintUtils, 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 [ 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; 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. Ð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]. 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. Êk˜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˜ 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š ž œ œ œœœ ˜7Jš ž œ œ œœœ˜4šžœ œœ˜AJšœ˜—š žœ œœœ˜