RPC.mesa
Stub for use by LoganBerry and Finch.
Copyright Ó 1990, 1992 by Xerox Corporation. All rights reserved.
Swinehart, June 4, 1992 12:08 pm PDT
Polle Zellweger (PTZ) August 1, 1990 7:49:23 pm PDT
Conversation: TYPE = REF;
unencrypted: Conversation = NIL;
Expedient: addresses still have the shape of the ancient Pup addresses, for the nonce.
DCS June 4, 1992 7:53:30 am PDT
PupAddress:
TYPE =
MACHINE DEPENDENT RECORD [net: PupNet, host: PupHost, socket: PupSocket];
PupNet: TYPE = RECORD [BYTE]; PupHost: TYPE = RECORD [BYTE];
PupSocket: TYPE = PACKED RECORD [a, b, c, d: BYTE];
NetAddress:
TYPE = PupAddress;
nullSocket: PupSocket = [0,0,0,0];
nullNetAddress: PupAddress = [[0], [0], nullSocket];
From GVBasics
Password:
TYPE =
PACKED ARRAY[0..3]
OF
CARD16;
"Password" is the representation of an individual's encryption key. It is intended to be used with the DES encryption algorithm. Note that this is not the same as DESFace.Key (today), not even if you use LOOPHOLE.
EncryptionKey:
TYPE = --GVBasics.--Password;
DES key
InterfaceName:
TYPE =
RECORD [
type: ShortROPE ¬ NIL, -- e.g., "AlpineAccess.Alpine"
instance: ShortROPE ¬ NIL, -- e.g., "MontBlanc.Alpine"
version: VersionRange ¬ matchAllVersions ];
ShortROPE: TYPE = Rope.ROPE;
VersionRange:
TYPE =
WORD16 MACHINE
DEPENDENT
RECORD[first, last:
CARD16];
client-defined, closed interval
matchAllVersions: VersionRange = [1,0];
importer: use any version; exporter: no versioning implied
GenerateConversation:
PROC
RETURNS [Conversation];
Returns a handle for a previously unused Conversation. This conversation is only for local use, it must not be passed to the RPC runtime.
EndConversation:
PROCEDURE [conversation: Conversation];
Terminates use of this conversation
MakeKey: PROCEDURE [text: Rope.ROPE] RETURNS [EncryptionKey];