home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / CLIPPER / MISC / M2CMP20.ZIP / PATHS.DEF < prev    next >
Encoding:
Modula Definition  |  1988-11-19  |  612 b   |  23 lines
  1. DEFINITION MODULE Paths;
  2.  
  3. (* (C) Copyright 1987,1988 Fitted Software Tools. All rights reserved. *)
  4.  
  5.  
  6. PROCEDURE Locate( fileName :ARRAY OF CHAR; envPath :ARRAY OF CHAR;
  7.                   VAR PathAndName :ARRAY OF CHAR; VAR found :BOOLEAN );
  8. (*
  9.     following the PATH specified in the envPath evironment string,
  10.     try to locate the file fileName.
  11.  
  12.     If the file is located, its complete path name is returned in
  13.     PathAndName.
  14.  
  15.     Example:
  16.  
  17.         Locate( "M2ED.CFG", "PATH", pathName, found );
  18.         IF found THEN
  19.             Lookup( f, pathName );
  20.             ...
  21. *)
  22.  
  23. END Paths.