(* ==================================================== * * * * GPM File Utility Module * * * * original code from StdFiles for COCO/R * * adapted by kjg, December 1996 * * * * ==================================================== *) FOREIGN DEFINITION MODULE FLength; IMPORT IMPLEMENTATION FROM "flength.o"; IMPORT UxFiles; PROCEDURE Length(f : UxFiles.File) : CARDINAL; (* post : if f is open return length, else 0 *) PROCEDURE SeekEnd(f : UxFiles.File; VAR ok : BOOLEAN); (* post : file is postioned at end, or ok = false *) PROCEDURE Rename(old, new : ARRAY OF CHAR; VAR ok : BOOLEAN); END FLength.