rom/boopsi/findclass.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Find a BOOPSI Class in the class list.
   6     Lang: english
   7 */
   8 #include <exec/lists.h>
   9 #include <proto/exec.h>
  10
  11 #include "intern.h"
  12
  13 #undef SDEBUG
  14 #define SDEBUG 0
  15 #undef DEBUG
  16 #define DEBUG 1
  17 #include <aros/debug.h>
  18
  19 /*****************************************************************************
  20
  21     NAME */
  22 #include <intuition/classes.h>
  23 #include <proto/boopsi.h>
  24
  25         AROS_LH1(struct IClass *, FindClass,
  26
  27 /*  SYNOPSIS */
  28         AROS_LHA(ClassID,       classID, A0),
  29
  30 /*  LOCATION */
  31         struct Library *, BOOPSIBase, 7, BOOPSI)
  32
  33 /*  FUNCTION
  34
  35     INPUTS
  36
  37     RESULT
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49     HISTORY
  50
  51 ******************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     Class * classPtr = NULL;
  56
  57     EnterFunc(bug("boopsi::FindClass()\n"));
  58
  59     if (!classID)
  60         return NULL;
  61
  62     D(bug("class to find: \"%s\"\n", classID));
  63
  64     /* Lock the list */
  65     ObtainSemaphoreShared (&GetBBase(BOOPSIBase)->bb_ClassListLock);
  66
  67     /* Search for the class */
  68     ForeachNode (&GetBBase(BOOPSIBase)->bb_ClassList, classPtr)
  69     {
  70         D(bug("+\"%s\"\n", classPtr->cl_ID));
  71         if (!strcmp (classPtr->cl_ID, classID))
  72             goto found;
  73     }
  74
  75     classPtr = NULL; /* Nothing found */
  76     D(bug("class not found!\n"));
  77
  78 found:
  79     /* Unlock list */
  80     ReleaseSemaphore (&GetBBase(BOOPSIBase)->bb_ClassListLock);
  81
  82     ReturnPtr("boopsi::FindClass()", struct IClass *, classPtr);
  83     AROS_LIBFUNC_EXIT
  84 }
  85