-- 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.