-- LupineMarshalTestCombined.config.
-- Copyright (C) 1985 by Xerox Corporation. All rights reserved.
-- Last edited by BZM on 12-May-82 19:41:04.
-- Last edited by Bob Hagmann on February 8, 1985 5:16:30 pm PST

-- Single machine timing test program. See MarshalTestLupine.cm.


LupineMarshalTestCombined: CONFIGURATION
IMPORTS
 Atom, BasicTime, Convert, ConvertUnsafe, IO, Loader, LupineRuntime, PrincOpsUtils, Process, ProcessExtras, Rope, RPC, RPCLupine, RPCLupineExtras, UnsafeStorage, UserCredentials, ViewerIO
CONTROL LupineMarshalTestBinder, LupineMarshalTestDriver
= BEGIN


-- Rpc runtime.
-- RpcRuntime is loaded on the command line.

-- Exerciser.
LupineExerciserPkg;


-- The marshal test implementation (server).

[serverMarshalTest: LupineMarshalTest] ← LupineMarshalTestImpl[];

[serverRpcControl: LupineMarshalTestRpcControl] ←
LupineMarshalTestRpcServerImpl[
--Explicit IMPORTS:
 serverMarshalTest, RPCLupine, LupineRuntime,
 Atom,
--Implicit IMPORTS:
 Rope, LupineMarshalTestRpcControl ];


-- The marshal test driver (client).

[clientRpcControl: LupineMarshalTestRpcControl ] ←
LupineMarshalTestRpcClientImpl[ ];

LupineMarshalTestDriver[
 LupineExerciser, LupineMarshalTestRpcControl, Process, Rope, UnsafeStorage ];


-- The marshal test binder (client).

[clientRpcControl: LupineMarshalTestRpcControl] ← LupineMarshalTestRpcBinderImpl[clientRpcControl];

LupineMarshalTestBinder[LupineExerciser, clientRpcControl, serverRpcControl, PrincOpsUtils, RPC, UserCredentials];


END. -- LupineMarshalTestCombined.

Bob Hagmann February 8, 1985 5:16:31 pm PST