rom/oop/addclass.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Add a class to the list of puvlic classes
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10 #include "intern.h"
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15 #include <proto/oop.h>
  16
  17         AROS_LH1(VOID, OOP_AddClass,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(OOP_Class  *, classPtr, A0),
  21
  22 /*  LOCATION */
  23         struct Library *, OOPBase, 8, OOP)
  24
  25 /*  FUNCTION
  26         Adds a class to the public list of classes.
  27         This means that any process can create objects of this
  28         class.
  29
  30     INPUTS
  31         classPtr - Pointer to the class to make public.
  32
  33     RESULT
  34         None.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41         Would be faster to use a hashtable to look up class IDs
  42
  43     SEE ALSO
  44         OOP_RemoveClass()
  45
  46     INTERNALS
  47
  48     HISTORY
  49         29-10-95    digulla automatically created from
  50                             intuition_lib.fd and clib/intuition_protos.h
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55     AROS_LIBBASE_EXT_DECL(struct Library*,OOPBase)
  56
  57     if (classPtr)
  58     {
  59
  60         ObtainSemaphore( &GetOBase(OOPBase)->ob_ClassListLock );
  61
  62         AddTail((struct List *)&GetOBase(OOPBase)->ob_ClassList
  63                 ,(struct Node *)classPtr);
  64
  65         ReleaseSemaphore( & GetOBase(OOPBase)->ob_ClassListLock );
  66     }
  67
  68     return;
  69     AROS_LIBFUNC_EXIT
  70 } /* OOP_AddClass */