ThSystem:
CONFIGURATION
IMPORTS Atom, BasicTime, BTree, BTreeVM, CardTable, Commander, CommandTool, Convert, ExplicitExport, FS, FSBackdoor, IO, List, LupineRuntime, MBQueue, Multicast, NamesGV, NamesRPC, Process, PrincOpsUtils, ProcessProps, RefID, RefTab, RefText, Rope, RPC, Rope, RPCLupine, RPCInternalExtras, SafeStorage, UserProfile, VM, VoiceUtils
EXPORTS NamesRPC, ThNet, ThParty, ThPartyPrivate, ThSmartsRpcControl, ThVersions, TU, LarkPlay
CONTROL BTreeSimpleImpl, NamesGVAuthImpl, TriplesImpl, DESDummy, WhitePagesImpl, WPBTreeImpl, TUImpl, ThVersionsImpl, ThServer --, ThClient -- = {
ThServer:
CONFIGURATION
IMPORTS Atom, BasicTime, CardTable, Commander, CommandTool, Convert, DESFace, ExplicitExport, IO, List, LupineRuntime, MBQueue, Multicast, NamesGV, NamesRPC, LarkPlay, Process, RefID, RefTab, Rope, RPC, RPCLupine, SafeStorage, Thrush, ThNet, ThVersions, Triples, TU, VoiceUtils
EXPORTS ThSmartsPrivate, ThParty, ThPartyPrivate, ThSmartsRpcControl
It is OK for a package that knows it's local to bind directly to these interfaces.
CONTROL RemoteSmarts, ThPartyRpcServerImpl, ThPartyMonitorImpl, ThPartyOpsImpl, 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;
ThPartyRpcServerImpl;
LarkSmartsRpcServerImpl;
LarkRpcClientImpl;
LarkRpcBinderImpl;
LarkSmartsMonitorImpl;
LarkSmartsSupImpl;
LarkSmartsImpl;
LarkTrunkSmartsImpl;
LarkSmartsInitImpl;
LarkInImpl;
LarkOutImpl;
};
WhitePagesImpl;
WPBTreeImpl;
ThVersionsImpl;
ThServer;
TUImpl;
NamesGVAuthImpl;
TriplesImpl;
DESDummy;
LarkPlayImpl;
BTreeSimpleImpl;
}.