(******************************************************************************
*                                FILE11  .DEF                                 *
*                              ABO Software Dep.                              *
* Purpose : To provide some utilitys to manipulate filenames and modify files.*
*                                                                             *
*   Notes :                                                                   *
*                                                                             *
*         Version Date : 12/6/92                                              *
******************************************************************************)
DEFINITION MODULE FILE11;

FROM STRS11 IMPORT Str80,Str64,Str3,Str8;
FROM FIO IMPORT File;
FROM Str IMPORT CHARSET;

TYPE
	FileName = Str80;
	PathName = Str64;
	FileExt = Str3;
	FileNm  = Str8;

FileSpec = RECORD
	Path : PathName;
	Name : FileNm;
	Ext: FileExt;
END;
(* A FileSpec record is a file specifier.  It holds seperately a files
  Path or directory, the name and extension. *)

PROCEDURE DefaultExt(VAR FN:ARRAY OF CHAR;E:ARRAY OF CHAR);
(* changes the extension of FN to E if it has none *)

PROCEDURE ChangeExt(VAR FN:ARRAY OF CHAR;E:ARRAY OF CHAR);
(* changes the extension of FN to E *)

PROCEDURE GetFileSpec(VAR FSP : FileSpec; FN : ARRAY OF CHAR);
(* Splits FN into Path, Name and Ext and stores these in FSP *)

PROCEDURE GetFileName(VAR FN : ARRAY OF CHAR; FSP : FileSpec);
(* Converts a FileSpec into a FileName *)

PROCEDURE Skip(f:File);
(* Skips all characters in Separators *)

PROCEDURE CountLn(f:File):CARDINAL;
(* Counts the number of LF's till the next character not in Separators *)
END FILE11.