rom/intuition/findclass.c

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