workbench/libs/datatypes/getdtattrsa.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #define USE_BOOPSI_STUBS
   9 #include <proto/utility.h>
  10 #include <proto/intuition.h>
  11 #include <clib/boopsistubs.h>
  12 #include "datatypes_intern.h"
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/datatypes.h>
  18
  19         AROS_LH2(ULONG, GetDTAttrsA,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(Object         *, o    , A0),
  23         AROS_LHA(struct TagItem *, attrs, A2),
  24
  25 /*  LOCATION */
  26         struct Library *, DataTypesBase, 11, DataTypes)
  27
  28 /*  FUNCTION
  29
  30     Get the attributes of a specific data type object.
  31
  32     INPUTS
  33
  34     o      --  pointer to a data type object; may be NULL
  35     attrs  --  the attributes to get terminated with TAG_DONE; each Tag's
  36                data element should contain the address of the respective
  37                storage element; may be NULL
  38
  39     RESULT
  40
  41     The number of attributes obtained.
  42
  43     NOTES
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     SetDTAttrsA(), intuition.library/GetAttr()
  52
  53     INTERNALS
  54
  55     HISTORY
  56
  57 *****************************************************************************/
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     ULONG                 result = 0;
  62     const struct TagItem *tstate = attrs;
  63     struct TagItem       *tag;
  64     struct opGet          opGet;
  65
  66     if(o == NULL || attrs == NULL)
  67         return 0;
  68
  69     opGet.MethodID = OM_GET;
  70
  71     while ((tag = NextTagItem(&tstate)) != NULL)
  72     {
  73         opGet.opg_AttrID  = tag->ti_Tag;
  74         opGet.opg_Storage = (IPTR *)tag->ti_Data;
  75
  76         if(DoMethodA(o, (Msg)&opGet))
  77             result++;
  78         else
  79             *(opGet.opg_Storage) = 0;
  80     }
  81
  82     return(result);
  83
  84     AROS_LIBFUNC_EXIT
  85 } /* GetDTAttrsA */