ComputeServerUser.mesa
Compute Server callback interface for user functions (UserProfile and UserCredentials) for the Summoner. This RPC interface is between the Server (client for this interface) and the Client (who is the server for this interface). The Client and Server reverse rolls here because this is a callback interface.
Last Edited by: Bob Hagmann, November 26, 1984 3:36:40 pm PST
Copyright © 1984 by Xerox Corporation. All rights reserved.
DIRECTORY
PupDefs,
Rope USING [ ROPE ],
UserCredentials USING [State];
ComputeServerUser: CEDAR DEFINITIONS
=
BEGIN
ROPE: TYPE = Rope.ROPE;
For UserProfile
rBoolean: PROC [listenerPupAddress: PupDefs.PupAddress, key: Rope.ROPE, default: BOOLEAN ← FALSE] RETURNS [value: BOOLEAN];
rNumber: PROC [listenerPupAddress: PupDefs.PupAddress, key: Rope.ROPE, default: INT ← 0] RETURNS [value: INT];
rToken: PROC [listenerPupAddress: PupDefs.PupAddress, key: Rope.ROPE, default: Rope.ROPE ← NIL] RETURNS [value: Rope.ROPE];
rListOfTokens: PROC [listenerPupAddress: PupDefs.PupAddress, key: Rope.ROPE, default: LIST OF Rope.ROPE ← NIL] RETURNS [value: LIST OF Rope.ROPE];
rLine: PROC [listenerPupAddress: PupDefs.PupAddress, key: Rope.ROPE, default: Rope.ROPE ← NIL] RETURNS [value: Rope.ROPE];
rGetProfileName: PROC [listenerPupAddress: PupDefs.PupAddress] RETURNS [Rope.ROPE];
For UserCredentials
rGetState: PROC [listenerPupAddress: PupDefs.PupAddress] RETURNS [UserCredentials.State];
rGet: PROC [listenerPupAddress: PupDefs.PupAddress] RETURNS [name, password: Rope.ROPE];
END....