arch/all-mingw32/bootstrap/hostlib.c

   1 #include <stdio.h>
   2 #include <windows.h>
   3
   4 #include "hostlib.h"
   5
   6 #define D(x)
   7
   8 static void GetErrorStr(char **error, BOOL condition)
   9 {
  10     if (error != NULL) {
  11         if (condition) {
  12             FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER|FORMAT_MESSAGE_FROM_SYSTEM, NULL, GetLastError(),
  13                           MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), error, 0, NULL );
  14         } else
  15             *error = NULL;
  16     }
  17 }
  18
  19 void Host_HostLib_FreeErrorStr(char *error)
  20 {
  21     LocalFree(error);
  22 }
  23
  24 void *Host_HostLib_Open(const char *filename, char **error)
  25 {
  26     HMODULE handle;
  27
  28     D(printf("[hostlib] Open: filename=%s\n", filename));
  29     handle = LoadLibrary(filename);
  30     GetErrorStr(error, !handle);
  31
  32     return handle;
  33 }
  34
  35 int Host_HostLib_Close(void *handle, char **error)
  36 {
  37     int err;
  38
  39     D(printf("[hostlib] Close: handle=0x%08x\n", handle));
  40     err = !FreeLibrary(handle);
  41     GetErrorStr(error, err);
  42
  43     return err;
  44 }
  45
  46 void *Host_HostLib_GetPointer(void *handle, const char *symbol, char **error)
  47 {
  48     void *ptr;
  49
  50     D(printf("[hostlib] GetPointer: handle=0x%08x, symbol=%s\n", handle, symbol));
  51     ptr = GetProcAddress(handle, symbol);
  52     GetErrorStr(error, !ptr);
  53     return ptr;
  54 }
  55
  56 unsigned long Host_HostLib_GetInterface(void *handle, char **names, void **funcs)
  57 {
  58     unsigned long unresolved = 0;
  59
  60     for (; *names; names++) {
  61         *funcs = GetProcAddress(handle, *names);
  62         D(printf("[hostlib] GetInterface: handle=0x%08x, symbol=%s, value=0x%08x\n", handle, *names, *funcs));
  63         if (*funcs++ == NULL)
  64             unresolved++;
  65     }
  66     return unresolved;
  67 }