rom/oop/newobject.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Create a new OOP object
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10 #include "intern.h"
  11 #include "hash.h"
  12 #include <aros/debug.h>
  13 #define MD(x) ((struct metadata *)x)
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18 #include <proto/oop.h>
  19
  20         AROS_LH3(APTR, OOP_NewObject,
  21
  22 /*  SYNOPSIS */
  23         AROS_LHA(struct OOP_IClass  *, classPtr, A0),
  24         AROS_LHA(UBYTE          *, classID, A1),
  25         AROS_LHA(struct TagItem *, tagList, A2),
  26
  27 /*  LOCATION */
  28         struct Library *, OOPBase, 5, OOP)
  29
  30 /*  FUNCTION
  31         Creates a new object of given class based on the TagItem
  32         parameters passed.
  33
  34     INPUTS
  35         classPtr - pointer to a class. Use this if the class to
  36                    create an instance of is private.
  37         classID  - Public ID of the class to create an instance of.
  38                    Use this if the class is public.
  39         tagList  - List of TagItems (creation time attributes),
  40                    that specifies what initial properties the new
  41                    object should have.
  42
  43
  44     RESULT
  45         Pointer to the new object, or NULL if object creation failed.
  46
  47     NOTES
  48         You should supply one of classPtr and classID, never
  49         both. Use NULL for the unspecified one.
  50
  51     EXAMPLE
  52
  53     BUGS
  54
  55     SEE ALSO
  56         OOP_DisposeObject()
  57
  58     INTERNALS
  59
  60     HISTORY
  61         29-10-95    digulla automatically created from
  62                             intuition_lib.fd and clib/intuition_protos.h
  63
  64 *****************************************************************************/
  65 {
  66     AROS_LIBFUNC_INIT
  67
  68     struct pRoot_New p;
  69     OOP_Object *o;
  70
  71 // bug("OOP_NewObject(class=%s, classptr=%p, tags=%p)\n", classID, classPtr, tagList);
  72     EnterFunc(bug("OOP_NewObject(classPtr=%p, classID=%s, tagList=%p)\n",
  73                 classPtr, ((classID != NULL) ? classID : (UBYTE *)"(null)"), tagList));
  74
  75     /* Class list is public, so we must avoid race conditions */
  76     ObtainSemaphore(&GetOBase(OOPBase)->ob_ClassListLock);
  77
  78     if (!classPtr)
  79     {
  80         /* If a public ID was given, find pointer to class */
  81         if (classID) {
  82
  83             classPtr = (OOP_Class *)FindName((struct List *)&(GetOBase(OOPBase)->ob_ClassList), classID);
  84             if (classPtr)
  85                 MD(classPtr)->objectcount ++; /* We don't want the class to be freed while we work on it */
  86         }
  87     }
  88
  89     /* Release lock on list */
  90     ReleaseSemaphore(&GetOBase(OOPBase)->ob_ClassListLock);
  91
  92     if (!classPtr)
  93         ReturnPtr ("OOP_NewObject[No classPtr]", OOP_Object *, NULL);
  94
  95     /* Create a new instance */
  96
  97     D(bug("Creating new instance\n"));
  98
  99     p.mID = OOP_GetMethodID(IID_Root, moRoot_New);
 100     p.attrList = tagList;
 101
 102 /*    print_table(GetOBase(OOPBase)->ob_IIDTable, GetOBase(OOPBase));
 103 */
 104     D(bug("mid=%ld\n", p.mID));
 105
 106     /* Call the New() method of the specified class */
 107
 108     D(bug("OOP_Coercemethod: %p\n", classPtr->CoerceMethod));
 109     o = (OOP_Object *)OOP_CoerceMethod(classPtr, (OOP_Object *)classPtr, (OOP_Msg)&p);
 110     if (!o)
 111     {
 112         MD(classPtr)->objectcount --; /* Object creation failed, release lock */
 113     }
 114 /*    print_table(GetOBase(OOPBase)->ob_IIDTable, GetOBase(OOPBase));
 115 */
 116     ReturnPtr ("OOP_NewObject", OOP_Object *, o);
 117
 118
 119     AROS_LIBFUNC_EXIT
 120 } /* OOP_NewObject */