arch/all-mingw32/testboot/testboot.c

   1 /*
   2     Copyright © 1995-2016, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <aros/kernel.h>
   7 #include <utility/tagitem.h>
   8 #include <proto/arossupport.h>
   9
  10 #include <stdarg.h>
  11
  12 #include "../kernel/hostinterface.h"
  13
  14 int __vcformat(void *data, int(*outc)(int, void *), const char * format, va_list args);
  15 int KPrintf(struct HostInterface *hif, const char *format, ...);
  16
  17 int __startup start(const struct TagItem *tags)
  18 {
  19     struct TagItem *tag;
  20     struct HostInterface *hif = (struct HostInterface *)LibGetTagData(KRN_HostInterface, 0, tags);
  21
  22     if (!hif)
  23         return -1;
  24
  25     KPrintf(hif, "Test module successfully started\n");
  26     KPrintf(hif, "Taglist at 0x%p:\n", tags);
  27
  28     while ((tag = LibNextTagItem((struct TagItem **)&tags)))
  29     {
  30         KPrintf(hif, "0x%08lX 0x%p\n", tag->ti_Tag, tag->ti_Data);
  31     }
  32
  33     return 0;
  34 }
  35
  36 static int kputc(int c, void *data)
  37 {
  38     return ((struct HostInterface *)data)->KPutC(c);
  39 }
  40
  41 int KPrintf(struct HostInterface *iface, const char *format, ...)
  42 {
  43     va_list ap;
  44     int res;
  45
  46     va_start(ap, format);
  47     res = __vcformat(iface, kputc, format, ap);
  48     va_end(ap);
  49
  50     return res;
  51 }