workbench/libs/datatypes/getdtmethods.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <proto/alib.h>
  10 #include <proto/intuition.h>
  11 #include <intuition/classusr.h>
  12
  13 #include "datatypes_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/datatypes.h>
  19
  20         AROS_LH1(ULONG *, GetDTMethods,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(Object *, object, A0),
  24
  25 /*  LOCATION */
  26         struct Library *, DataTypesBase, 17, DataTypes)
  27
  28 /*  FUNCTION
  29
  30     Get a list of the methods an object supports.
  31
  32     INPUTS
  33
  34     object   --  pointer to a data type object
  35
  36     RESULT
  37
  38     Pointer to a ULONG array which is terminated ~0; the array is only
  39     valid until the object is disposed of.
  40
  41     NOTES
  42
  43     EXAMPLE
  44
  45     BUGS
  46
  47     SEE ALSO
  48
  49     GetDTTriggerMethods()
  50
  51     INTERNALS
  52
  53     HISTORY
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     ULONG *retval = NULL;
  60
  61     struct opGet opGet;
  62
  63     if(object == NULL)
  64         return NULL;
  65
  66     opGet.MethodID    = OM_GET;
  67     opGet.opg_AttrID  = DTA_Methods;
  68     opGet.opg_Storage = (IPTR *)&retval;
  69
  70     if(!DoMethodA(object, (Msg)&opGet))
  71         retval = NULL;
  72
  73     return retval;
  74
  75     AROS_LIBFUNC_EXIT
  76 } /* GetDTMethods */