rom/oop/removeclass.c

   1 /*
   2     Copyright © 1995-2007, 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 /*****************************************************************************
  12
  13     NAME */
  14
  15         AROS_LH1(void, OOP_RemoveClass,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(OOP_Class *, classPtr, A0),
  19
  20 /*  LOCATION */
  21         struct Library *, OOPBase, 11, OOP)
  22
  23 /*  FUNCTION
  24         Remove a class from the list of public classes.
  25         The class must have previously added with AddClass().
  26
  27     INPUTS
  28         classPtr - Pointer to class that should be removed.
  29
  30     RESULT
  31         None.
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40         OOP_AddClass()
  41
  42     INTERNALS
  43
  44     HISTORY
  45         29-10-95    digulla automatically created from
  46                             intuition_lib.fd and clib/intuition_protos.h
  47
  48 *****************************************************************************/
  49 {
  50     AROS_LIBFUNC_INIT
  51
  52     if (classPtr)
  53     {
  54         ObtainSemaphore( &GetOBase(OOPBase)->ob_ClassListLock );
  55         Remove ((struct Node *)classPtr);
  56         ReleaseSemaphore( &GetOBase(OOPBase)->ob_ClassListLock );
  57
  58     }
  59
  60     return;
  61
  62     AROS_LIBFUNC_EXIT
  63 } /* OOP_RemoveClass */