rom/intuition/findclass.c

   1 /*
   2     Copyright © 1995-2013, 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 ******************************************************************************/
  54 {
  55     AROS_LIBFUNC_INIT
  56
  57     struct IntIntuitionBase *intuitionBase = GetPrivIBase(IntuitionBase);
  58     Class * classPtr = NULL;
  59
  60     DEBUG_FINDCLASS(dprintf("FindClass: ClassID <%s>\n",
  61                             classID ? classID : (UBYTE*)"NULL"));
  62
  63     EnterFunc(bug("intuition_boopsi::FindClass()\n"));
  64
  65     if (!classID)
  66         return NULL;
  67
  68     D(bug("class to find: \"%s\"\n", classID));
  69
  70     /* Lock the list */
  71     ObtainSemaphoreShared (&intuitionBase->ClassListLock);
  72
  73     /* Search for the class */
  74     ForeachNode (&intuitionBase->ClassList, classPtr)
  75     {
  76         D(bug("+\"%s\"\n", classPtr->cl_ID));
  77         if (!strcmp (classPtr->cl_ID, classID))
  78             goto found;
  79     }
  80
  81     classPtr = NULL; /* Nothing found */
  82     D(bug("class not found!\n"));
  83
  84 found:
  85     /* Unlock list */
  86     ReleaseSemaphore (&intuitionBase->ClassListLock);
  87
  88     DEBUG_FINDCLASS(dprintf("FindClass: return 0x%lx\n", classPtr));
  89
  90     ReturnPtr("intuition_boopsi::FindClass()", struct IClass *, classPtr);
  91
  92     AROS_LIBFUNC_EXIT
  93 }
  94