<> <> <> <> <> DIRECTORY LupineDeclare USING [DispatcherType], LupineManagerPrivate USING [String]; LupineDeclarePrivate: DEFINITIONS = BEGIN OPEN LupineManagerPrivate, LupineDeclare; StringConstantType: TYPE = { clientDispatcher, serverDispatcher, callbackDispatcher, procedureIndex, signalIndex, dispatcherDeclaration, dispatcherArgs, dispatcherResults, dispatcherConversation, dispatcherPkt, dispatcherReturnLength }; GetString: PROCEDURE [type: StringConstantType] RETURNS [string: String]; DispatcherName: PROCEDURE [type: DispatcherType] RETURNS [name: String]; END. -- LupineDeclarePrivate.