rom/intuition/addclass.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     Copyright © 2001-2003, The MorphOS Development Team. All Rights Reserved.
   4     $Id$
   5
   6     Makes a class publically available.
   7 */
   8
   9 #include <proto/exec.h>
  10 #include "intuition_intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <intuition/classes.h>
  16 #include <proto/intuition.h>
  17
  18         AROS_LH1(void, AddClass,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct IClass *, classPtr, A0),
  22
  23 /*  LOCATION */
  24         struct IntuitionBase *, IntuitionBase, 114, Intuition)
  25
  26 /*  FUNCTION
  27         Makes a class publically usable. This function must not be called
  28         before MakeClass().
  29
  30     INPUTS
  31         class - The result of MakeClass()
  32
  33     RESULT
  34         None.
  35
  36     NOTES
  37         Do not use this function for private classes.
  38
  39     EXAMPLE
  40
  41     BUGS
  42         There is no protection against creating multiple classes with
  43         the same name yet. The operation of the system is undefined
  44         in this case.
  45
  46     SEE ALSO
  47         MakeClass(), FreeClass(), RemoveClass(), "Basic Object-Oriented
  48         Programming System for Intuition" and "boopsi Class Reference"
  49
  50     INTERNALS
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56     DEBUG_ADDCLASS(dprintf("AddClass: class 0x%lx super 0x%lx dispatcher 0x%lx ID <%s>\n",
  57                            classPtr, classPtr->cl_Super, classPtr->cl_Dispatcher, classPtr->cl_ID));
  58
  59     SANITY_CHECK(classPtr)
  60
  61     ObtainSemaphore (&GetPrivIBase(IntuitionBase)->ClassListLock);
  62     AddHead((struct List *)&GetPrivIBase(IntuitionBase)->ClassList, (struct Node *)classPtr);
  63     classPtr->cl_Flags |= CLF_INLIST;
  64     ReleaseSemaphore (&GetPrivIBase(IntuitionBase)->ClassListLock);
  65
  66     AROS_LIBFUNC_EXIT
  67 } /* AddClass() */