compiler/clib/gettimeofday.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Query the current time and/or timezone.
   6 */
   7
   8 #include "__arosc_privdata.h"
   9
  10 #include <proto/exec.h>
  11 #include <proto/dos.h>
  12 #include <proto/timer.h>
  13 #include <proto/locale.h>
  14 #include <exec/types.h>
  15 #include <devices/timer.h>
  16 #include <aros/symbolsets.h>
  17 #include <aros/debug.h>
  18
  19 #include <time.h>
  20
  21 /*****************************************************************************
  22
  23     NAME */
  24 #include <sys/time.h>
  25 #include <unistd.h>
  26
  27         int gettimeofday (
  28
  29 /*  SYNOPSIS */
  30         struct timeval  * tv,
  31         struct timezone * tz)
  32
  33 /*  FUNCTION
  34         Return the current time and/or timezone.
  35
  36     INPUTS
  37         tv - If this pointer is non-NULL, the current time will be
  38                 stored here. The structure looks like this:
  39
  40                 struct timeval
  41                 {
  42                     long tv_sec;        // seconds
  43                     long tv_usec;       // microseconds
  44                 };
  45
  46         tz - If this pointer is non-NULL, the current timezone will be
  47                 stored here. The structure looks like this:
  48
  49                 struct timezone
  50                 {
  51                     int  tz_minuteswest; // minutes west of Greenwich
  52                     int  tz_dsttime;     // type of dst correction
  53                 };
  54
  55                 With daylight savings times defined as follows :
  56
  57                 DST_NONE        // not on dst
  58                 DST_USA         // USA style dst
  59                 DST_AUST        // Australian style dst
  60                 DST_WET         // Western European dst
  61                 DST_MET         // Middle European dst
  62                 DST_EET         // Eastern European dst
  63                 DST_CAN         // Canada
  64                 DST_GB          // Great Britain and Eire
  65                 DST_RUM         // Rumania
  66                 DST_TUR         // Turkey
  67                 DST_AUSTALT     // Australian style with shift in 1986
  68
  69                 And the following macros are defined to operate on this :
  70
  71                 timerisset(tv) - TRUE if tv contains a time
  72
  73                 timercmp(tv1, tv2, cmp) - Return the result of the
  74                         comparison "tv1 cmp tv2"
  75
  76                 timerclear(tv) - Clear the timeval struct
  77
  78     RESULT
  79         The number of seconds.
  80
  81     NOTES
  82         This function must not be used in a shared library or
  83         in a threaded application.
  84
  85     EXAMPLE
  86         struct timeval tv;
  87
  88         // Get the current time and print it
  89         gettimeofday (&tv, NULL);
  90
  91         printf ("Seconds = %ld, uSec = %ld\n", tv->tv_sec, tv->tv_usec);
  92
  93     BUGS
  94
  95     SEE ALSO
  96         ctime(), asctime(), localtime(), time()
  97
  98     INTERNALS
  99
 100 ******************************************************************************/
 101 {
 102     struct aroscbase *aroscbase = __GM_GetBase();
 103
 104     if (tv)
 105     {
 106         GetSysTime(tv);
 107
 108         /* Adjust with the current timezone, stored in minutes west of GMT */
 109         tv->tv_sec += (2922 * 1440 + aroscbase->acb_gmtoffset) * 60;
 110     }
 111
 112     if (tz)
 113     {
 114         tz->tz_minuteswest = aroscbase->acb_gmtoffset;
 115         /* FIXME: set tz->tz_dsttime */
 116         tz->tz_dsttime     = DST_NONE;
 117     }
 118
 119     return 0;
 120 } /* gettimeofday */
 121
 122
 123 struct Device *TimerBase;
 124
 125 static int __init_timerbase(struct aroscbase *aroscbase)
 126 {
 127     aroscbase->acb_timeport.mp_Node.ln_Type   = NT_MSGPORT;
 128     aroscbase->acb_timeport.mp_Node.ln_Pri    = 0;
 129     aroscbase->acb_timeport.mp_Node.ln_Name   = NULL;
 130     aroscbase->acb_timeport.mp_Flags          = PA_IGNORE;
 131     aroscbase->acb_timeport.mp_SigTask        = FindTask(NULL);
 132     aroscbase->acb_timeport.mp_SigBit         = 0;
 133     NEWLIST(&aroscbase->acb_timeport.mp_MsgList);
 134
 135     aroscbase->acb_timereq.tr_node.io_Message.mn_Node.ln_Type    = NT_MESSAGE;
 136     aroscbase->acb_timereq.tr_node.io_Message.mn_Node.ln_Pri     = 0;
 137     aroscbase->acb_timereq.tr_node.io_Message.mn_Node.ln_Name    = NULL;
 138     aroscbase->acb_timereq.tr_node.io_Message.mn_ReplyPort       = &aroscbase->acb_timeport;
 139     aroscbase->acb_timereq.tr_node.io_Message.mn_Length          = sizeof (aroscbase->acb_timereq);
 140
 141     struct Locale *locale = OpenLocale(NULL);
 142     if (locale)
 143     {
 144         aroscbase->acb_gmtoffset = locale->loc_GMTOffset;
 145         CloseLocale(locale);
 146     }
 147     else
 148         aroscbase->acb_gmtoffset = 0;
 149
 150     if
 151     (
 152         OpenDevice
 153         (
 154             "timer.device",
 155             UNIT_VBLANK,
 156             (struct IORequest *)&aroscbase->acb_timereq,
 157             0
 158         )
 159         ==
 160         0
 161     )
 162     {
 163         TimerBase = (struct Device *)aroscbase->acb_timereq.tr_node.io_Device;
 164         return 1;
 165     }
 166     else
 167     {
 168         return 0;
 169     }
 170 }
 171
 172
 173 static void __exit_timerbase(struct aroscbase *aroscbase)
 174 {
 175     if (TimerBase != NULL)
 176         CloseDevice((struct IORequest *)&aroscbase->acb_timereq);
 177 }
 178
 179 ADD2OPENLIB(__init_timerbase, 0);
 180 ADD2CLOSELIB(__exit_timerbase, 0);