arch/all-mingw32/battclock/writebattclock.c

   1 /*
   2     Copyright  1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: ReadBattClock() function.
   6     Lang: english
   7 */
   8
   9 #define DEBUG 0
  10
  11 #include "battclock_intern.h"
  12 #include <aros/debug.h>
  13 #include <proto/battclock.h>
  14 #include <proto/exec.h>
  15 #include <proto/utility.h>
  16 #include <utility/date.h>
  17
  18
  19 AROS_LH1(void, WriteBattClock,
  20          AROS_LHA(ULONG, time, D0),
  21          struct BattClockBase *, BattClockBase, 3, Battclock)
  22 {
  23     AROS_LIBFUNC_INIT
  24
  25     SYSTEMTIME tm;
  26     struct ClockData date;
  27
  28     D(bug("[Battclock] WriteBattClock()\n"));
  29
  30     Amiga2Date(time, &date);
  31
  32     tm.wYear      = date.year;
  33     tm.wMonth     = date.month;
  34     tm.wDay       = date.mday;
  35     tm.wHour      = date.hour;
  36     tm.wMinute    = date.min;
  37     tm.wSecond    = date.sec;
  38     /* Day of week is just informative and can be ignored */
  39
  40     Forbid();
  41     BattClockBase->KernelIFace->SetSystemTime(&tm);
  42     Permit();
  43
  44     AROS_LIBFUNC_EXIT
  45 } /* ReadBattClock */