rom/intuition/addclass.c

   1 /*
   2     Copyright © 1995-2007, 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     AddTail((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() */