workbench/libs/datatypes/getdtmethods.c

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