workbench/libs/commodities/cxobjtype.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13 #include "cxintern.h"
  14 #include <libraries/commodities.h>
  15 #include <proto/commodities.h>
  16
  17     AROS_LH1I(ULONG, CxObjType,
  18
  19 /*  SYNOPSIS */
  20
  21         AROS_LHA(CxObj *, co, A0),
  22
  23 /*  LOCATION */
  24
  25         struct Library *, CxBase, 10, Commodities)
  26
  27 /*  FUNCTION
  28
  29     Obtain the type of the commodity object 'co'.
  30
  31     INPUTS
  32
  33     co  --  the object the type of which to get
  34
  35     RESULT
  36
  37     The type of the object 'co'. See <libraries/commodities.h> for the
  38     possible types. If 'co' is NULL, CX_INVALID is returned.
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47
  48     CreateCxObj()
  49
  50     INTERNALS
  51
  52     HISTORY
  53
  54 ******************************************************************************/
  55
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     return ((co == NULL) ? CX_INVALID : CXOBJType(co));
  60
  61     AROS_LIBFUNC_EXIT
  62 } /* CxObjType */