home *** CD-ROM | disk | FTP | other *** search
/ Global Amiga Experience / globalamigaexperience.iso / compressed / development / clusterdemo.dms / clusterdemo.adf / Modules.lha / modules / txt / PatternMatcher.def < prev    next >
Text File  |  1994-05-25  |  552b  |  26 lines
  1. |##########|
  2. |#MAGIC   #|CLABLLIH
  3. |#PROJECT #|"ImportHelp"
  4. |#PATHS   #|"StdProject"
  5. |#FLAGS   #|xx---x--x---x-x-----------------
  6. |#USERSW  #|--------------------------------
  7. |#USERMASK#|--------------------------------
  8. |#SWITCHES#|x----x----------
  9. |##########|
  10. DEFINITION MODULE PatternMatcher;
  11.  
  12. EXCEPTION
  13.   BadPattern : "Bad pattern";
  14.  
  15. TYPE
  16.   Pattern      = HIDDEN;
  17.  
  18. PROCEDURE FreePattern(VAR pat : Pattern);
  19.  
  20. PROCEDURE CreatePattern(REF str : STRING;VAR pat : Pattern);
  21.  
  22. PROCEDURE Matches(REF s : STRING;pat : Pattern):BOOLEAN;
  23.  
  24. END PatternMatcher.
  25.  
  26.