rom/oop/releaseattrbasesarray.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Release array of attribute 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(void, OOP_ReleaseAttrBasesArray,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(OOP_AttrBase *, bases, A0),
  20         AROS_LHA(CONST_STRPTR const *, ids, A1),
  21
  22 /*  LOCATION */
  23         struct Library *, OOPBase, 24, OOP)
  24
  25 /*  FUNCTION
  26         Release several attribute ID bases, stored in linear array.
  27
  28     INPUTS
  29         bases - a pointer to array of bases
  30         ids   - a NULL-terminated array of corresponding interface IDs
  31
  32     RESULT
  33         None
  34
  35     NOTES
  36         It is legal to have some entries in the array not filled in
  37         (equal to 0). They will be skipped.
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44         OOP_ObtainAttrBasesArray()
  45
  46     INTERNALS
  47
  48     HISTORY
  49
  50 ******************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53
  54     while (*ids)
  55     {
  56         if (*bases)
  57         {
  58             OOP_ReleaseAttrBase(*ids);
  59             *bases = 0;
  60         }
  61
  62         bases++;
  63         ids++;
  64     }
  65
  66     AROS_LIBFUNC_EXIT
  67 }