rom/oop/obtainmethodbasesarray.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Obtain array of method ID bases
   6     Lang: english
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13 #include <proto/oop.h>
  14 #include <oop/oop.h>
  15
  16         AROS_LH2(ULONG, OOP_ObtainMethodBasesArray,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(OOP_MethodID *, bases, A0),
  20         AROS_LHA(CONST_STRPTR const *, ids, A1),
  21
  22 /*  LOCATION */
  23         struct Library *, OOPBase, 25, OOP)
  24
  25 /*  FUNCTION
  26         Obtain several method ID bases, storing them in linear array.
  27
  28     INPUTS
  29         bases - a pointer to array to fill in
  30         ids   - a NULL-terminated array of interface IDs
  31
  32     RESULT
  33         Zero on success or number of failed bases on failure. Failed array
  34         entries will be set to -1.
  35
  36     NOTES
  37         Method IDs are owned by particular class, and are released when
  38         the class is destroyed. Thus, there is no ReleaseMethodBasesArray()
  39         function.
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 ******************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     ULONG failed = 0;
  56
  57     while (*ids)
  58     {
  59         *bases = OOP_GetMethodID(*ids, 0);
  60
  61         if (*bases == -1)
  62             failed++;
  63
  64         bases++;
  65         ids++;
  66     }
  67
  68     return failed;
  69
  70     AROS_LIBFUNC_EXIT
  71 }