arch/ppc-chrp/battclock/writebattclock.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: WriteBattClock()
   6     Lang: english
   7 */
   8 #include "battclock_intern.h"
   9
  10 static int rtas_call(const char *method, int nargs, int nret, void *output, ...);
  11
  12 #include <proto/battclock.h>
  13 #include <proto/utility.h>
  14 #include <proto/rtas.h>
  15 #include <proto/exec.h>
  16 #include <utility/date.h>
  17 #include <stdarg.h>
  18
  19 /* See rom/battclock/writebattclock.c for documentation */
  20
  21 AROS_LH1(void, WriteBattClock,
  22     AROS_LHA(ULONG, time, D0),
  23     APTR *, BattClockBase, 3, Battclock)
  24 {
  25     AROS_LIBFUNC_INIT
  26
  27     struct ClockData date;
  28     ULONG out[8];
  29
  30     Amiga2Date(time, &date);
  31
  32     rtas_call("set-time-of-day", 7, 1, NULL, (ULONG)date.year, (ULONG)date.month, (ULONG)date.mday, (ULONG)date.hour, (ULONG)date.min, (ULONG)date.sec, 0);
  33
  34     AROS_LIBFUNC_EXIT
  35 } /* WriteBattClock */
  36
  37 static int rtas_call(const char *method, int nargs, int nret, void *output, ...)
  38 {
  39         va_list args;
  40         void *RTASBase = OpenResource("rtas.resource");
  41         int retval;
  42
  43         va_start(args, output);
  44         retval = RTASCall(method, nargs, nret, output, args);
  45         va_end(args);
  46
  47         return retval;
  48 }