rom/oop/getattr.c

   1 /*
   2     Copyright © 1995-2018, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Get an attribute of an object.
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10 #include "intern.h"
  11 #include <aros/debug.h>
  12 #include <oop/static_mid.h>
  13
  14 /*****************************************************************************
  15
  16     NAME */
  17 #include <proto/oop.h>
  18
  19         AROS_LH3(IPTR, OOP_GetAttr,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(OOP_Object             *, object, A0),
  23         AROS_LHA(OOP_AttrID         , attrID, A1),
  24         AROS_LHA(IPTR           *, storage, A2),
  25
  26 /*  LOCATION */
  27         struct Library *, OOPBase, 16, OOP)
  28
  29 /*  FUNCTION
  30         Gets the specifed attribute from the object,
  31         and puts it into storage.
  32
  33     INPUTS
  34         object  - pointer to object from which we want to
  35                   get an attribute.
  36
  37         attrID  - Attribute ID for property to get.
  38
  39         storage - Pointer to IPTR the fetched data should be put into.
  40
  41     RESULT
  42         Undefined.
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51         OOP_SetAttrs()
  52
  53     INTERNALS
  54
  55 *****************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     struct pRoot_Get p;
  60     struct IntOOPBase *iOOPBase = (struct IntOOPBase *)OOPBase;
  61
  62     EnterFunc(bug("OOP_GetAttr())\n"));
  63
  64     if (!iOOPBase->ob_mRoot_Get)
  65         iOOPBase->ob_mRoot_Get = OOP_GetMethodID(IID_Root, moRoot_Get);
  66
  67
  68     p.mID       = iOOPBase->ob_mRoot_Get;
  69     p.attrID    = attrID;
  70     p.storage   = storage;
  71
  72     /* Call the Get() method on the object */
  73
  74     ReturnPtr ("OOP_GetAttr", IPTR, OOP_DoMethod(object, (OOP_Msg)&p));
  75
  76     AROS_LIBFUNC_EXIT
  77 } /* OOP_GetAttr */