(*---------------------------------------------------------------------------
    :Program.     PatMatch.def
    :Contents.	  Match filenames exaktly like AmigaDos
    :Author.      Bernd Preusing
    :Address.	  Gerhardstr. 16  D-2200 Elmshorn
    :Phone.	  04121/22486
    :Copyright.	  Public Domain
    :Language.	  Modula-2
    :Translator.  M2Amiga V3.2e
    :Support.	  Translated from BCPL and C
    :History.	  V 1.0 10-Feb-90 Bernd Preusing
    :Remark.      Took long time to find it!
---------------------------------------------------------------------------*)
DEFINITION MODULE PatMatch;

PROCEDURE CmplPat(Pat:ARRAY OF CHAR;
		  VAR Aux:ARRAY OF SHORTCARD):BOOLEAN;
(* Convert a Pattern to something Match needs. *)
(* Aux must be as large as the largest Pat.    *)
(* RETURNs FALSE, if no legal pattern.         *)


PROCEDURE Match(Pat:ARRAY OF CHAR;
		VAR Aux: ARRAY OF SHORTCARD;
		Str:ARRAY OF CHAR):BOOLEAN;
(* Test, if Str matches the Pat. Aux is created by CmplPat *)

END PatMatch.def
