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 >
Wrap
Text File
|
2000-06-30
|
768b
|
22 lines
DEFINITION MODULE FNAME;
(* useful routines for manipulation of filenames. Adapted from
code by Charlie Foster byGlenn Brooke 12/29/86,
released to the public domain.
*)
TYPE filename = ARRAY[0..13] OF CHAR;
Extension = ARRAY[0..2] OF CHAR;
PROCEDURE AppendExt(VAR DiskFileName : filename; Ext : Extension);
(* appends the extension Ext to the filename DiskFileName *)
PROCEDURE StripExt(VAR DiskFileName : filename);
(* strips the period and following characters *)
PROCEDURE GetExt(DiskFileName : filename;VAR Ext : Extension);
(* returns the extension portion of the filename without removing it *)
END FNAME.