rom/oop/findclass.c

   1 /*
   2     Copyright © 1995-2010, The AROS Development Team. All rights reserved.
   3     $Id:$
   4
   5     Desc: Find a public OOP class
   6     Lang: english
   7 */
   8
   9 #include <exec/lists.h>
  10 #include <proto/exec.h>
  11
  12 #include "intern.h"
  13 #include "hash.h"
  14
  15 #define MD(x) ((struct metadata *)x)
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <proto/oop.h>
  21
  22         AROS_LH1(APTR, OOP_FindClass,
  23
  24 /*  SYNOPSIS */
  25         AROS_LHA(CONST_STRPTR, classID, A0),
  26
  27 /*  LOCATION */
  28         struct Library *, OOPBase, 22, OOP)
  29
  30 /*  FUNCTION
  31         Finds a class with given ID in the list of public classes.
  32
  33     INPUTS
  34         classID  - Public ID of the class to find.
  35
  36     RESULT
  37         Pointer to a public class or NULL if there's no such class
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46         OOP_AddClass()
  47
  48     INTERNALS
  49
  50     HISTORY
  51         V42 - initial implementation
  52
  53 *****************************************************************************/
  54
  55 {
  56     AROS_LIBFUNC_INIT
  57
  58     OOP_Class *classPtr;
  59
  60     /* Class list is public, so we must avoid race conditions */
  61     ObtainSemaphoreShared(&GetOBase(OOPBase)->ob_ClassListLock);
  62
  63     classPtr = (OOP_Class *)FindName((struct List *)&(GetOBase(OOPBase)->ob_ClassList), classID);
  64
  65     /* Release lock on list */
  66     ReleaseSemaphore(&GetOBase(OOPBase)->ob_ClassListLock);
  67
  68     return classPtr;
  69
  70     AROS_LIBFUNC_EXIT
  71 }