m3core/src/unix/linux-libc6/Utime.i3

 Copyright (C) 1990, Digital Equipment Corporation.         
 All rights reserved.                                       
 See the file COPYRIGHT for a full description.             
                                                            
 Last modified on Mon Jan  5 11:39:09 GMT 1998 by rrw       
      modified on Fri Feb 24 15:24:49 PST 1995 by kalsow    
      modified on Fri Apr 30 14:46:35 PDT 1993 by muller    
      modified on Sat Apr 16 by rrw1000@hermes.cam.ac.uk    
      modified on Wed Dec  2 11:29:00 PST 1992 by mcjones   
      modified on Mon Apr 23 16:37:40 1990 by jerome        






INTERFACE Utime;

FROM Ctypes IMPORT char_star, int, long, long_star,
                   unsigned_short, short;

** <sys/time.h> **


TYPE
  struct_timeval = RECORD
    tv_sec: long;          (* seconds *)
    tv_usec: long;         (* and microseconds *) END;

  struct_timezone = RECORD
    tz_minuteswest:  int; (* minutes west of Greenwich *)
    tz_dsttime:      int; (* type of dst correction *) END;

CONST
  DST_NONE = 0;  (* not on dst *)

  DST_USA  = 1;  (* USA style dst *)
  DST_AUST = 2;  (* Australian style dst *)
  DST_WET  = 3;  (* Western European dst *)
  DST_MET  = 4;  (* Middle European dst *)
  DST_EET  = 5;  (* Eastern European dst *)

TYPE
  struct_itimerval = RECORD
    it_interval: struct_timeval;            (* timer interval *)
    it_value:    struct_timeval;            (* current value *)  END;

  struct_tm_star = UNTRACED REF struct_tm;
  struct_tm = RECORD
    tm_sec:   int;     (* seconds (0 - 59) *)
    tm_min:   int;     (* minutes (0 - 59) *)
    tm_hour:  int;     (* hours (0 - 23) *)
    tm_mday:  int;     (* day of month (1 - 31) *)
    tm_mon:   int;     (* month of year (0 - 11) *)
    tm_year:  int;     (* year - 1900 *)
    tm_wday:  int;     (* day of week (Sunday = 0) *)
    tm_yday:  int;     (* day of year (0 - 365) *)
    tm_isdst: int;     (* flag: daylight savings time in effect *)
    tm_gmtoff:long;    (* offset from GMT in seconds *)
    tm_zone:  char_star; (* abbreviation of timezone name *)
  END;

  time_t = int; (* seconds since the Epoch *)

** <sys/times.h> **



 * Structure returned by times()
 


TYPE
  struct_tms_star = UNTRACED REF struct_tms;
  struct_tms = RECORD
    tms_utime  : long; (* user time *)
    tms_stime  : long; (* system time *)
    tms_cutime : long; (* user time, children *)
    tms_cstime : long; (* system time, children *)
  END;

** <sys/timeb.h> **



 * Structure returned by ftime system call
 


TYPE
  struct_timeb_star = UNTRACED REF struct_timeb;
  struct_timeb = RECORD
    time     : long;
    millitm  : unsigned_short;
    timezone : short;
    dstflag  : short;
  END;

** gettimeofday(2), settimeofday(2) - get/set date and time **


<*EXTERNAL*>
PROCEDURE gettimeofday (VAR t: struct_timeval;
                        VAR z: struct_timezone): int;

<*EXTERNAL*>
PROCEDURE settimeofday (VAR t: struct_timeval;
                        VAR z: struct_timezone): int;

** adjtime(2) - correct the time to allow synchronization of the 
                  system clock **


<*EXTERNAL*>
PROCEDURE adjtime (VAR delta, oldDelta: struct_timeval): int;

** getitimer(2), setitimer(2) - get/set value of interval timer **


CONST (* which *)
  ITIMER_REAL =    0;   (* real time intervals *)
  ITIMER_VIRTUAL = 1;   (* virtual time intervals *)
  ITIMER_PROF    = 2;   (* user and system virtual time *)

<*EXTERNAL*>
PROCEDURE getitimer (which: int; VAR value: struct_itimerval): int;

<*EXTERNAL*>
PROCEDURE setitimer (which: int;
                     VAR value, ovalue: struct_itimerval): int;

** stime(2) - set time **


<*EXTERNAL*> PROCEDURE stime (VAR tp: long): int;

** clock(3) - report CPU time used (in micro-seconds) **


<*EXTERNAL*> PROCEDURE clock (): long;

** times(3) - get process times (in ticks) **


<*EXTERNAL*> PROCEDURE times (buffer: struct_tms_star): long;

** time(3), ftime(3) - get date and time (in seconds) **


<*EXTERNAL*> PROCEDURE time  (tloc: long_star): long;
<*EXTERNAL*> PROCEDURE ftime (tp: struct_timeb_star);

** ctime(3), localtime(3), gmtime(3), asctime(3)
     - convert date and time (in seconds)  to string **


<*EXTERNAL*> PROCEDURE ctime     (clock: long_star): char_star;
<*EXTERNAL*> PROCEDURE asctime   (tm: struct_tm_star): char_star;

<*EXTERNAL*> PROCEDURE localtime (clock: long_star): struct_tm_star;
<*EXTERNAL*> PROCEDURE gmtime    (clock: long_star): struct_tm_star;

** mktime(3) - convert a struct_tm to a time_t **

<*EXTERNAL*> PROCEDURE mktime (tm: struct_tm_star): time_t;

 Reentrant equivalents from POSIX.4a Draft #6. 


<*EXTERNAL*>
PROCEDURE ctime_r (clock: long_star; buf: char_star; buflen: int): char_star;

<*EXTERNAL*>
PROCEDURE localtime_r (clock: long_star; res: struct_tm_star): struct_tm_star;

<*EXTERNAL*>
PROCEDURE gmtime_r (clock: long_star; res: struct_tm_star): struct_tm_star;

<*EXTERNAL*>
PROCEDURE asctime_r(tm: struct_tm_star; buf: char_star; buflen: int):char_star;

<*EXTERNAL*> VAR timezone: time_t;

 This no longer exists in libc2 
<*EXTERNAL*> VAR altzone: time_t;

<*EXTERNAL*> VAR daylight: int;
<*EXTERNAL*> VAR tzname: ARRAY [0..1] OF char_star;

<*EXTERNAL*> PROCEDURE tzset	 ();
<*EXTERNAL*> PROCEDURE tzsetwall ();

END Utime.