home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / TURBOPAS / FNAME.LBR / FNAME.DEF next >
Text File  |  2000-06-30  |  768b  |  22 lines
  1. DEFINITION MODULE FNAME;
  2.  
  3. (*  useful routines for manipulation of filenames.  Adapted from
  4.     code by Charlie Foster byGlenn Brooke 12/29/86,
  5.     released to the public domain.
  6. *)
  7.  
  8. TYPE filename = ARRAY[0..13] OF CHAR;
  9.      Extension = ARRAY[0..2] OF CHAR;
  10.  
  11. PROCEDURE AppendExt(VAR DiskFileName : filename; Ext : Extension);
  12. (* appends the extension Ext to the filename DiskFileName *)
  13.  
  14. PROCEDURE StripExt(VAR DiskFileName : filename);
  15. (* strips the period and following characters *)
  16.  
  17. PROCEDURE GetExt(DiskFileName : filename;VAR Ext : Extension);
  18. (* returns the extension portion of the filename without removing it *)
  19.  
  20. END FNAME.
  21.  
  22.