ThSystem: CONFIGURATION IMPORTS Atom, BasicTime, BluejayUtils, BTree, BTreeVM, Commander, CommandTool, Convert, ExplicitExport, FS, FSBackdoor, IO, List, Log, LupineRuntime, Names, NamesGV, NamesRPC, Process, PrincOpsUtils, ProcessProps, RedBlackTree, RefTab, RefText, Rope, RPC, Rope, RPCLupine, RPCInternalExtras, SafeStorage, UserProfile, VM EXPORTS NamesRPC, Thrush, ThNet, ThParty, ThPartyPrivate, ThSmartsRpcControl, ThVersions, TU, LarkPlay CONTROL BTreeSimpleImpl, NamesGVAuthImpl, TriplesImpl, DESDummy, WhitePagesImpl, WPBTreeImpl, TUImpl, ThVersionsImpl, ThServer --, ThClient -- = { ThServer: CONFIGURATION IMPORTS Atom, BasicTime, BluejayUtils, Commander, CommandTool, Convert, DESFace, ExplicitExport, IO, List, Log, LupineRuntime, Names, NamesGV, NamesRPC, LarkPlay, Process, RedBlackTree, Rope, RPC, RPCLupine, SafeStorage, Thrush, ThNet, ThVersions, Triples, TU EXPORTS ThSmartsPrivate, ThParty, ThPartyPrivate, ThSmartsRpcControl CONTROL RemoteSmarts, ThPartyRpcServerImpl, ThPartyMonitorImpl, ThPartyOpsImpl, ThPartySupervisorImpl, ThPartyInitImpl, LarkSmartsRpcServerImpl, LarkRpcClientImpl, LarkRpcBinderImpl, LarkInImpl, LarkOutImpl, LarkSmartsMonitorImpl, LarkSmartsImpl, LarkSmartsSupImpl, LarkSmartsInitImpl, LarkTrunkSmartsImpl = { RemoteSmarts: CONFIGURATION IMPORTS LupineRuntime, Rope, RPCLupine EXPORTS ThSmartsRpcControl CONTROL ThSmartsRpcClientImpl, ThSmartsRpcBinderImpl = { ThSmartsRpcClientImpl; ThSmartsRpcBinderImpl; }; RemoteSmarts; ThPartyMonitorImpl; ThPartyInitImpl; ThPartyOpsImpl; ThPartySupervisorImpl; ThPartyRpcServerImpl; LarkSmartsRpcServerImpl; LarkRpcClientImpl; LarkRpcBinderImpl; LarkSmartsMonitorImpl; LarkSmartsSupImpl; LarkSmartsImpl; LarkTrunkSmartsImpl; LarkSmartsInitImpl; LarkInImpl; LarkOutImpl; }; WhitePagesImpl; WPBTreeImpl; ThVersionsImpl; ThServer; TUImpl; NamesGVAuthImpl; TriplesImpl; DESDummy; LarkPlayImpl; BTreeSimpleImpl; }. 0ThSystem.config Copyright c 1985 by Xerox Corporation. All rights reserved. Swinehart on August 6, 1985 3:56:57 pm PDT It is OK for a package that knows it's local to bind directly to these interfaces. ThClient: CONFIGURATION IMPORTS ConvertUnsafe, Heap, IO, LupineRuntime, Names, Process, Rope, RopeInline, RPC, RPCLupine, AMBridge, SafeStorage, ThSmartsPrivate, Thrush, ThNet, UnsafeStorage, UserProfile CONTROL LarkSmartsRpcClientImpl --, LarkRpcServerImpl, LarkSimImpl -- = { LarkSmartsRpcClientImpl; LarkRpcServerImpl; LarkSimImpl; }; ThClient; ΚΛ˜šœ™Icodešœ Οmœ1™