-- File [Ivy]<Nelson>Lupine>LupineDeclarePrivate.mesa.
-- Last edited by BZM on March 16, 1982  12:45 PM.

-- LupineDeclarePrivate is used only by modules LupineDeclare*Impl.


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.