-- DirExtraDefs.mesa: HGM, September 23, 1980  9:04 PM

-- Copyright  Xerox Corporation 1979, 1980

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