sysclock.def 470 B

12345678910111213141516
  1. DEFINITION MODULE SysClock;
  2. (* Wall-clock and processor time, bound to the runtime shim (libc
  3. time/clock). *)
  4. CONST ClocksPerSec = 1000000;
  5. (* Processor-time ticks per second on the supported host (libc
  6. CLOCKS_PER_SEC is 1,000,000). *)
  7. PROCEDURE Time() : LONGINT;
  8. (* Seconds since the Unix epoch (1 January 1970, 00:00 UTC). *)
  9. PROCEDURE Clock() : LONGINT;
  10. (* Processor time used by the program so far, in ticks of
  11. ClocksPerSec per second. *)
  12. END SysClock.