ThSystem:
CONFIGURATION
IMPORTS Atom, BasicTime, CardTable, Commander, CommandTool, Convert, FS, GList, IO, LoganBerry, LupineRuntime, MBQueue, Multicast, NamesGV, NamesRPC, Process, PrincOpsUtils, ProcessProps, PupName, PupSocket, RefID, RefTab, Rope, RPC, Rope, RPCLupine, RPCLupineExtras, RPCInternal, RPCTimeouts, SafeStorage, UserProfile, VoiceUtils
EXPORTS NamesRPC, ThNet, ThParty, ThPartyPrivate, ThSmartsPrivate, ThSmartsRpcControl, ThVersions, TU, LarkPlay
CONTROL NamesGVAuthImpl, TriplesImpl, DESDummy, WhitePagesImpl, WPBTreeImpl, TUImpl, ThVersionsImpl, ThServer --, ThClient -- = {
ThServer:
CONFIGURATION
IMPORTS Atom, BasicTime, CardTable, Commander, CommandTool, Convert, DESFace, IO, GList, LupineRuntime, MBQueue, Multicast, NamesGV, NamesRPC, LarkPlay, Process, PupName, PupSocket, RefID, RefTab, Rope, RPC, RPCLupine, RPCLupineExtras, RPCTimeouts, 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, LarkOpsRpcClientImpl, LarkOpsRpcBinderImpl, LarkInImpl, LarkOutImpl, LarkSmartsMonitorImpl, LarkSmartsImpl, LarkSmartsSupImpl, LarkSmartsInitImpl, LarkFeepRpcServerImpl, LarkTrunkSmartsImpl = {
RemoteSmarts:
CONFIGURATION
IMPORTS LupineRuntime, Rope, RPCLupine, RPCLupineExtras
EXPORTS ThSmartsRpcControl
CONTROL ThSmartsRpcClientImpl, ThSmartsRpcBinderImpl = {
ThSmartsRpcClientImpl;
ThSmartsRpcBinderImpl; };
RemoteSmarts;
ThPartyMonitorImpl;
ThPartyInitImpl;
ThPartyOpsImpl;
ThPartyRpcServerImpl;
LarkSmartsRpcServerImpl;
LarkOpsRpcClientImpl;
LarkOpsRpcBinderImpl;
LarkSmartsMonitorImpl;
LarkSmartsSupImpl;
LarkSmartsImpl;
LarkTrunkSmartsImpl;
LarkSmartsInitImpl;
LarkInImpl;
LarkOutImpl;
LarkFeepRpcServerImpl;
};
WhitePagesImpl;
WPBTreeImpl;
ThVersionsImpl;
ThServer;
TUImpl;
NamesGVAuthImpl;
TriplesImpl;
DESDummy;
LarkPlayImpl;
}.