rom/boopsi/findclass.c

   1 /*
   2     Copyright © 1995-2001, 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     AROS_LIBBASE_EXT_DECL(struct Library *, BOOPSIBase)
  55
  56     Class * classPtr = NULL;
  57
  58     EnterFunc(bug("boopsi::FindClass()\n"));
  59
  60     if (!classID)
  61         return NULL;
  62
  63     D(bug("class to find: \"%s\"\n", classID));
  64
  65     /* Lock the list */
  66     ObtainSemaphoreShared (&GetBBase(BOOPSIBase)->bb_ClassListLock);
  67
  68     /* Search for the class */
  69     ForeachNode (&GetBBase(BOOPSIBase)->bb_ClassList, classPtr)
  70     {
  71         D(bug("+\"%s\"\n", classPtr->cl_ID));
  72         if (!strcmp (classPtr->cl_ID, classID))
  73             goto found;
  74     }
  75
  76     classPtr = NULL; /* Nothing found */
  77     D(bug("class not found!\n"));
  78
  79 found:
  80     /* Unlock list */
  81     ReleaseSemaphore (&GetBBase(BOOPSIBase)->bb_ClassListLock);
  82
  83     ReturnPtr("boopsi::FindClass()", struct IClass *, classPtr);
  84     AROS_LIBFUNC_EXIT
  85 }
  86