rom/intuition/findclass.c

   1 /*
   2     Copyright © 1995-2011, 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         This function is binary-compatible with AmigaOS v3, however it is
  43         considered private.
  44
  45     EXAMPLE
  46
  47     BUGS
  48
  49     SEE ALSO
  50
  51     INTERNALS
  52
  53     HISTORY
  54
  55 ******************************************************************************/
  56 {
  57     AROS_LIBFUNC_INIT
  58
  59     Class * classPtr = NULL;
  60
  61     DEBUG_FINDCLASS(dprintf("FindClass: ClassID <%s>\n",
  62                             classID ? classID : (UBYTE*)"NULL"));
  63
  64     EnterFunc(bug("intuition_boopsi::FindClass()\n"));
  65
  66     if (!classID)
  67         return NULL;
  68
  69     D(bug("class to find: \"%s\"\n", classID));
  70
  71     /* Lock the list */
  72     ObtainSemaphoreShared (&GetPrivIBase(IntuitionBase)->ClassListLock);
  73
  74     /* Search for the class */
  75     ForeachNode (&GetPrivIBase(IntuitionBase)->ClassList, classPtr)
  76     {
  77         D(bug("+\"%s\"\n", classPtr->cl_ID));
  78         if (!strcmp (classPtr->cl_ID, classID))
  79             goto found;
  80     }
  81
  82     classPtr = NULL; /* Nothing found */
  83     D(bug("class not found!\n"));
  84
  85 found:
  86     /* Unlock list */
  87     ReleaseSemaphore (&GetPrivIBase(IntuitionBase)->ClassListLock);
  88
  89     DEBUG_FINDCLASS(dprintf("FindClass: return 0x%lx\n", classPtr));
  90
  91     ReturnPtr("intuition_boopsi::FindClass()", struct IClass *, classPtr);
  92
  93     AROS_LIBFUNC_EXIT
  94 }
  95