-- File: MFileOnNSFile.mesa - last edit:
-- Breisacher.ES       27-Dec-85 11:25:40

-- Copyright (C) 1985 by Xerox Corporation. All rights reserved.

DIRECTORY
  NSFile;
    
MFileOnNSFile: DEFINITIONS = {
    
  SetPath: PROCEDURE [path: LONG DESCRIPTOR FOR ARRAY OF NSFile.Reference];
    -- Copies the elements.
  
  BadPath: ERROR;
  
  EnumeratePath: PROCEDURE [proc: EachElementProc];
  
  EachElementProc: TYPE = PROCEDURE [element: NSFile.Reference]
    RETURNS [done: BOOLEAN ← FALSE];
    
  }...