home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xco212p.zip / ODEF / FILEPATH.ODF < prev    next >
Text File  |  1996-03-05  |  804b  |  27 lines
  1. (** Copyright (c) 1994 xTech Ltd, Russia. All Rights Reserved. *)
  2. (** Utility library *)
  3. DEFINITION FilePath;
  4.  
  5. IMPORT DStrings;
  6.  
  7. PROCEDURE IsSimpleName*(name: ARRAY OF CHAR): BOOLEAN;
  8. (** Returns TRUE, if the filename does not contain directories. *)
  9.  
  10. PROCEDURE Lookup*(path,name: ARRAY OF CHAR; 
  11.                   VAR fname: DStrings.String; 
  12.                   VAR n: INTEGER);
  13. (** Builds a filename using search path.
  14.   Returns:
  15.     n = -1  -- name is not simple (fname := name)
  16.     n =  0  -- file not found (first directory is used)
  17.     n >  0  -- file is found in the n-th directory
  18. *)
  19.  
  20. PROCEDURE UseFirst*(path,name: ARRAY OF CHAR; 
  21.                     VAR fname: DStrings.String);
  22. (** Builds a filename using the first directory from
  23.   the search path.
  24. *)
  25.  
  26. END FilePath.
  27.