m3middle/src/WIN32/CoffTime.m3


Copyright (C) 1994, Digital Equipment Corp.

MODULE CoffTime;

IMPORT Time, File, FS, OSError;

PROCEDURE Now (): INTEGER =
  VAR now := Time.Now ();
  BEGIN
    RETURN ROUND (now - EpochAdjust);
  END Now;

PROCEDURE OfFile (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.

interface CoffTime is in: