arch/all-mingw32/hostlib/hostlib.c

   1 #define DEBUG 0
   2
   3 #include <aros/debug.h>
   4 #include <aros/kernel.h>
   5 #include <aros/libcall.h>
   6 #include <aros/symbolsets.h>
   7 #include <proto/exec.h>
   8 #include <proto/kernel.h>
   9 #include <proto/utility.h>
  10
  11 #include "../kernel/hostinterface.h"
  12 #include "hostlib_intern.h"
  13
  14 #include LC_LIBDEFS_FILE
  15
  16 AROS_LH2(void *, HostLib_Open,
  17          AROS_LHA(const char *, filename, A0),
  18          AROS_LHA(char **,      error,    A1),
  19          struct HostLibBase *, HostLibBase, 1, HostLib)
  20 {
  21     AROS_LIBFUNC_INIT
  22
  23     return HostLibBase->HostIFace->HostLib_Open(filename, error);
  24
  25     AROS_LIBFUNC_EXIT
  26 }
  27
  28 AROS_LH2(BOOL, HostLib_Close,
  29          AROS_LHA(void *,  handle, A0),
  30          AROS_LHA(char **, error,  A1),
  31          struct HostLibBase *, HostLibBase, 2, HostLib)
  32 {
  33     AROS_LIBFUNC_INIT
  34
  35     return HostLibBase->HostIFace->HostLib_Close(handle, error);
  36
  37     AROS_LIBFUNC_EXIT
  38 }
  39
  40 AROS_LH3(void *, HostLib_GetPointer,
  41          AROS_LHA(void *,       handle, A0),
  42          AROS_LHA(const char *, symbol, A1),
  43          AROS_LHA(char **,      error,  A2),
  44          struct HostLibBase *, HostLibBase, 3, HostLib)
  45 {
  46     AROS_LIBFUNC_INIT
  47
  48     return HostLibBase->HostIFace->HostLib_GetPointer(handle, symbol, error);
  49
  50     AROS_LIBFUNC_EXIT
  51 }
  52
  53 AROS_LH1(void, HostLib_FreeErrorStr,
  54          AROS_LHA(char *, error, A0),
  55          struct HostLibBase *, HostLibBase, 4, HostLib)
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     HostLibBase->HostIFace->HostLib_FreeErrorStr(error);
  60
  61     AROS_LIBFUNC_EXIT
  62 }
  63
  64 AROS_LH3(APTR *, HostLib_GetInterface,
  65          AROS_LHA(void *,  handle,         A0),
  66          AROS_LHA(const char **, symtable, A1),
  67          AROS_LHA(ULONG *, unresolved,     A2),
  68          struct HostLibBase *, HostLibBase, 5, HostLib)
  69 {
  70     AROS_LIBFUNC_INIT
  71
  72     const char **c;
  73     ULONG cnt = 0;
  74     APTR *iface = NULL;
  75
  76     for (c = symtable; *c; c++)
  77         cnt += sizeof(APTR);
  78     if (cnt) {
  79         iface = AllocVec(cnt, MEMF_CLEAR);
  80         if (iface) {
  81             cnt = HostLibBase->HostIFace->HostLib_GetInterface(handle, symtable, iface);
  82             if (unresolved)
  83                 *unresolved = cnt;
  84         }
  85     }
  86     return iface;
  87
  88     AROS_LIBFUNC_EXIT
  89 }
  90
  91 AROS_LH1I(void, HostLib_DropInterface,
  92          AROS_LHA(APTR *, interface, A0),
  93          struct HostLibBase *, HostLibBase, 6, HostLib)
  94 {
  95     AROS_LIBFUNC_INIT
  96
  97     FreeVec(interface);
  98
  99     AROS_LIBFUNC_EXIT
 100 }
 101
 102 /* auto init */
 103 static int HostLib_Init(LIBBASETYPEPTR LIBBASE)
 104 {
 105     struct UtilityBase *UlitityBase;
 106     APTR KernelBase;
 107     struct TagItem *BootInfo;
 108
 109     UtilityBase = (struct UtilityBase *)OpenLibrary("utility.library", 36);
 110     D(bug("[hostlib] UtilityBase = 0x%08lX\n", UtilityBase));
 111     if (UtilityBase) {
 112         KernelBase = OpenResource("kernel.resource");
 113         D(bug("[hostlib] KernelBase = 0x%08lX\n", KernelBase));
 114         if (KernelBase) {
 115             BootInfo = KrnGetBootInfo();
 116             HostLibBase->HostIFace = (struct HostInterface *)GetTagData(KRN_HostInterface, 0, BootInfo);
 117             D(bug("[hostlib] HostIFace = 0x%08lX\n", HostLibBase->HostIFace));
 118         }
 119         CloseLibrary((struct Library *)UtilityBase);
 120     }
 121     return (int)HostLibBase->HostIFace;
 122 }
 123
 124 ADD2INITLIB(HostLib_Init, 0)