-- DirExtraDefs.mesa: HGM, May 20, 1979  2:10 PM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  AltoFileDefs: FROM "AltoFileDefs" USING [FP];

DirExtraDefs: DEFINITIONS =
BEGIN OPEN AltoFileDefs;

wildString: CHARACTER = '*;
wildChar: CHARACTER = '#;

-- NB: The trailing "." has already been stripped off by the time proc gets called.

EnumerateDirectoryMasked: PROCEDURE [
    files: STRING,
    proc: PROCEDURE [fp: POINTER TO FP, file: STRING] RETURNS [BOOLEAN] ];

END...