Accueil Explorer Aide
Connexion
eric
/
M2compiler-V3
1
0
Fork 0
Fichiers Tickets 0 Pull Requests 0 Wiki
Aborescence: v3-chain-c
Branches Tags
M2compiler-V3
/
stdlib
/
wraptime.def

wraptime.def 1.0 KB
Lien permanent Historique Raw

123456789101112131415161718192021222324252627282930313233 
  1. DEFINITION MODULE wraptime;
    2. 

  2. (* gm2-compatible: time primitives (C library structs are opaque). *)
    3. 

  3. 

  4. FROM SYSTEM IMPORT ADDRESS;
    5. 

  5. 

  6. TYPE
    7. 

  7.   timeval  = ADDRESS;
    8. 

  8.   timezone = ADDRESS;
    9. 

  9.   tm       = ADDRESS;
    10. 

  10. 

  11. PROCEDURE InitTimeval () : timeval;
    12. 

  12. PROCEDURE KillTimeval (tv : timeval) : timeval;
    13. 

  13. PROCEDURE InitTimezone () : timezone;
    14. 

  14. PROCEDURE KillTimezone (tz : timezone) : timezone;
    15. 

  15. PROCEDURE InitTM () : tm;
    16. 

  16. PROCEDURE KillTM (t : tm) : tm;
    17. 

  17. 

  18. PROCEDURE gettimeofday (tv : timeval; tz : timezone) : INTEGER;
    19. 

  19. PROCEDURE settimeofday (tv : timeval; tz : timezone) : INTEGER;
    20. 

  20. PROCEDURE GetFractions (tv : timeval) : CARDINAL;
    21. 

  21. PROCEDURE LocalTime (tv : timeval; m : tm) : tm;
    22. 

  22. 

  23. PROCEDURE GetYear (m : tm) : CARDINAL;
    24. 

  24. PROCEDURE GetMonth (m : tm) : CARDINAL;
    25. 

  25. PROCEDURE GetDay (m : tm) : CARDINAL;
    26. 

  26. PROCEDURE GetHour (m : tm) : CARDINAL;
    27. 

  27. PROCEDURE GetMinute (m : tm) : CARDINAL;
    28. 

  28. PROCEDURE GetSecond (m : tm) : CARDINAL;
    29. 

  29. 

  30. PROCEDURE SetTimeval (tv : timeval; sec, usec : LONGCARD);
    31. 

  31. PROCEDURE SetTimezone (tz : timezone; minuteswest, dsttime : INTEGER);
    32. 

  32. 

  33. END wraptime.
    34.