-- 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. <> <> <<>>