DEFINITION Filename; (* SJ *)

(* manipulation of file names *)


TYPE path*     = ARRAY 200 OF CHAR;
     name*     = ARRAY 14 OF CHAR;
     ext*      = ARRAY 4 OF CHAR;


PROCEDURE SetExt* (Ext : ARRAY OF CHAR; VAR FullName : ARRAY OF CHAR);

(* set new extension in FullName *)


PROCEDURE GetExt* (VAR FullName,Ext : ARRAY OF CHAR);

(* get extension in FullName *)


PROCEDURE SetName* (Name : ARRAY OF CHAR; VAR FullName : ARRAY OF CHAR);

(* set new name (with extension) in FullName *)


PROCEDURE GetName* (VAR FullName,Name : ARRAY OF CHAR);

(* get name (with extension) in FullName *)


PROCEDURE SetPath* (Path : ARRAY OF CHAR; VAR FullName : ARRAY OF CHAR);

(* set new path (with drive) in FullName *)


PROCEDURE GetPath* (VAR FullName,Path : ARRAY OF CHAR);

(* get path (with drive) in FullName *)


END Filename.