rom/oop/obtainattrbases.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: OOP function OOP_ObtainAttrBases
   6     Lang: english
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <exec/memory.h>
  11 #include <aros/debug.h>
  12 #include "intern.h"
  13 #include "hash.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19 #include <proto/oop.h>
  20 #include <oop/oop.h>
  21
  22         AROS_LH1(BOOL, OOP_ObtainAttrBases,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(const struct OOP_ABDescr *, abd, A0),
  26
  27 /*  LOCATION */
  28         struct Library *, OOPBase, 18, OOP)
  29
  30 /*  FUNCTION
  31
  32     INPUTS
  33
  34     RESULT
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43
  44     INTERNALS
  45
  46     HISTORY
  47
  48 ******************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     const struct OOP_ABDescr *d;
  53
  54     for (d = abd; d->interfaceID; d ++)
  55     {
  56         *d->attrBase = OOP_ObtainAttrBase(d->interfaceID);
  57
  58         if ( *d->attrBase == 0 )
  59         {
  60             /* Clear all other attrbase values */
  61             d ++;
  62             while (d->interfaceID) {
  63                 *d->attrBase = 0;
  64             }
  65             OOP_ReleaseAttrBases(abd);
  66             return FALSE;
  67         }
  68     }
  69     return TRUE;
  70
  71     AROS_LIBFUNC_EXIT
  72
  73 } /* OOP_ObtainAttrBases  */
  74