home *** CD-ROM | disk | FTP | other *** search
/ Frozen Fish 1: Amiga / FrozenFish-Apr94.iso / bbs / alib / d5xx / d512 / m2pascal.lha / M2Pascal / src / IdLookup.def < prev    next >
Text File  |  1991-07-20  |  790b  |  31 lines
  1. DEFINITION MODULE IdLookup;
  2.  
  3. (* 
  4.    By : Greg Mumm
  5.   
  6.  
  7.    This program uses one hash table to store information on various
  8.    identifiers and symbols. The information is kept stored in this
  9.    module along with the related functions needed to store and 
  10.    retrieve the information stored within.
  11.    Before the start of the main program the hash table will be created.
  12. *)
  13.  
  14. FROM scan IMPORT STRING ;
  15.  
  16. TYPE
  17.  
  18.       ProcessType  = ( exchange, special, NoSupport, NotFound );
  19.  
  20.       IdInfoType   =   RECORD
  21.                           ProcessCode       :  ProcessType;
  22.                           ExchangeString    :  STRING;
  23.                        END;
  24.     
  25.  
  26. PROCEDURE SearchHash( VAR IdInfo         : IdInfoType ;
  27.                             SearchSymbol : STRING     ) : BOOLEAN;
  28.  
  29.  
  30. END IdLookup.
  31.