|##########|
|#MAGIC   #|CLABLLIH
|#PROJECT #|"ImportHelp"
|#PATHS   #|"StdProject"
|#FLAGS   #|xx---x--x---x-x-----------------
|#USERSW  #|--------------------------------
|#USERMASK#|--------------------------------
|#SWITCHES#|x----x----------
|##########|
DEFINITION MODULE PatternMatcher;

EXCEPTION
  BadPattern : "Bad pattern";

TYPE
  Pattern      = HIDDEN;

PROCEDURE FreePattern(VAR pat : Pattern);

PROCEDURE CreatePattern(REF str : STRING;VAR pat : Pattern);

PROCEDURE Matches(REF s : STRING;pat : Pattern):BOOLEAN;

END PatternMatcher.

