-- TestScan.mesa; edited by HGM,  September 7, 1980  10:10 PM  

DIRECTORY
  ImageDefs USING [StopMesa],
  Put USING [Line, Text],
  Window USING [Handle],
  DirExtraDefs USING [EnumerateDirectoryMasked];

TestScan: PROGRAM IMPORTS ImageDefs, Put, DirExtraDefs =
  BEGIN

  wh: Window.Handle = NIL;

  Scan: PROCEDURE [s: STRING] =
    BEGIN
    Print: PROCEDURE [fp: POINTER, file: STRING] RETURNS [BOOLEAN] =
      BEGIN Put.Text[wh, "  "]; Put.Line[wh, file]; RETURN[FALSE]; END;
    Put.Text[wh, "Looking for: "];
    Put.Line[wh, s];
    DirExtraDefs.EnumerateDirectoryMasked[s, Print];
    Put.Line[wh, ""];
    END;

  Scan["Executive.run"];
  Scan["*.run"];
  Scan["*.al"];
  Scan["*pup*"];
  Scan["Test####.mesa"];
  Scan["Test*.*"];

  ImageDefs.StopMesa[];

  END.