arch/all-hosted/hostlib/getinterface.c

   1 /*
   2     Copyright © 1995-2015, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/exec.h>
   7
   8 #include "hostinterface.h"
   9 #include "hostlib_intern.h"
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14 #include <proto/hostlib.h>
  15
  16         AROS_LH3(APTR *, HostLib_GetInterface,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(void *, handle, A0),
  20         AROS_LHA(const char **, symtable, A1),
  21         AROS_LHA(ULONG *, unresolved, A2),
  22
  23 /*  LOCATION */
  24         struct HostLibBase *, HostLibBase, 5, HostLib)
  25
  26 /*  FUNCTION
  27         Resolve array of symbols in the host operating system library.
  28         The result is a pointer to a dynamically allocated array of
  29         symbol values.
  30
  31     INPUTS
  32         handle     - An opaque library handle provided by HostLib_Open()
  33         symbable   - A pointer to a NULL-terminated array of symbol names
  34         unresolved - An optional location where count of unresolved symbols
  35                      will be placed. Can be set to NULL to ignore it.
  36
  37     RESULT
  38         A pointer to a dynamically allocated array of symbol values or NULL if
  39         empty symbol table was given.
  40
  41     NOTES
  42         Note that the resulting array will always have as many entries as there
  43         are in symbol names array. It some symbols (or even all of them) fail
  44         to resolve, corresponding entries will be set to NULL. You may supply
  45         a valid unresolved pointer if you want to get unresolved symbols count.
  46
  47         Even incomplete interface needs to be freed using HostLib_DropInterface().
  48
  49         Resulting values are valid as long as the library is open. For portability
  50         sake it's advised to free interfaces before closing corresponding libraries.
  51
  52         This function appeared in v2 of hostlib.resource.
  53
  54     EXAMPLE
  55
  56     BUGS
  57
  58     SEE ALSO
  59         HostLib_GetPointer()
  60
  61     INTERNALS
  62
  63 *****************************************************************************/
  64 {
  65     AROS_LIBFUNC_INIT
  66
  67     const char **c;
  68     ULONG cnt = 0;
  69     APTR *iface = NULL;
  70
  71     for (c = symtable; *c; c++)
  72         cnt++;
  73
  74     if (cnt)
  75     {
  76         iface = AllocVec(cnt * sizeof(APTR), MEMF_ANY);
  77         if (iface)
  78         {
  79             ULONG bad = 0;
  80             ULONG i;
  81
  82             HOSTLIB_LOCK();
  83
  84             for (i = 0; i < cnt; i++)
  85             {
  86                 iface[i] = HostLibBase->HostIFace->hostlib_GetPointer(handle, symtable[i], NULL);
  87                 AROS_HOST_BARRIER
  88
  89                 if (!iface[i])
  90                     bad++;
  91             }
  92
  93             HOSTLIB_UNLOCK();
  94
  95             if (unresolved)
  96                 *unresolved = bad;
  97         }
  98     }
  99
 100     return iface;
 101
 102     AROS_LIBFUNC_EXIT
 103 }