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.