rom/oop/removeclass.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include <proto/exec.h>
   9 #include "intern.h"
  10
  11 static int test; /* cxref bug */
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, OOP_RemoveClass,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(OOP_Class *, classPtr, A0),
  21
  22 /*  LOCATION */
  23         struct Library *, OOPBase, 11, OOP)
  24
  25 /*  FUNCTION
  26         Remove a class from the list of public classes.
  27         The class must have previously added with AddClass().
  28
  29     INPUTS
  30         classPtr - Pointer to class that should be removed.
  31
  32     RESULT
  33         None.
  34
  35     NOTES
  36
  37     EXAMPLE
  38
  39     BUGS
  40
  41     SEE ALSO
  42         OOP_AddClass()
  43
  44     INTERNALS
  45
  46     HISTORY
  47         29-10-95    digulla automatically created from
  48                             intuition_lib.fd and clib/intuition_protos.h
  49
  50 *****************************************************************************/
  51 {
  52     AROS_LIBFUNC_INIT
  53     AROS_LIBBASE_EXT_DECL(struct Library *,OopsBase)
  54
  55     if (classPtr)
  56     {
  57         ObtainSemaphore( &GetOBase(OOPBase)->ob_ClassListLock );
  58         Remove ((struct Node *)classPtr);
  59         ReleaseSemaphore( &GetOBase(OOPBase)->ob_ClassListLock );
  60
  61     }
  62
  63     return;
  64
  65     AROS_LIBFUNC_EXIT
  66 } /* OOP_RemoveClass */