Copyright (C) 1994, Digital Equipment Corp.
MODULE; IMPORT Time, File, FS, OSError; PROCEDURE CoffTime Now (): INTEGER = VAR now := Time.Now (); BEGIN RETURN ROUND (now - EpochAdjust); END Now; PROCEDUREOfFile (file: TEXT): INTEGER = VAR s: File.Status; BEGIN TRY s := FS.Status (file); EXCEPT OSError.E => RETURN 0; END; RETURN ROUND (s.modificationTime - EpochAdjust); END OfFile; BEGIN END CoffTime.