rom/exec/findresident.c

   1 /*
   2     Copyright © 1995-2011, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Search a resident module by name
   6     Lang: english
   7 */
   8
   9 #include <string.h>
  10 #include <exec/resident.h>
  11 #include <proto/exec.h>
  12
  13 #include "exec_debug.h"
  14 #include "exec_intern.h"
  15 #include "exec_util.h"
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20
  21         AROS_LH1(struct Resident *, FindResident,
  22
  23 /*  SYNOPSIS */
  24         AROS_LHA(const UBYTE *, name, A1),
  25
  26 /*  LOCATION */
  27         struct ExecBase *, SysBase, 16, Exec)
  28
  29 /*  FUNCTION
  30         Search for a Resident module in the system resident list.
  31
  32     INPUTS
  33         name - pointer to the name of a Resident module to find
  34
  35     RESULT
  36         pointer to the Resident module (struct Resident *), or null if
  37         not found.
  38
  39     NOTES
  40
  41     EXAMPLE
  42
  43     BUGS
  44
  45     SEE ALSO
  46
  47     INTERNALS
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53     IPTR *ptr;
  54
  55     DFINDRESIDENT("FindResident(\"%s\")", name);
  56
  57     ptr = InternalFindResident(name, SysBase->ResModules);
  58     if (ptr)
  59     {
  60         DFINDRESIDENT("Found at 0x%p", *ptr);
  61         return (struct Resident *)*ptr;
  62     }
  63
  64     DFINDRESIDENT("Not found");
  65     return NULL;
  66
  67     AROS_LIBFUNC_EXIT
  68 } /* FindResident */
  69
  70 IPTR *InternalFindResident(const UBYTE *name, IPTR *list)
  71 {
  72     if (list)
  73     {
  74         while (*list)
  75         {
  76             /*
  77              * On amiga, if bit 31 is set then this points to another list of
  78              * modules rather than pointing to a single module. bit 31 is
  79              * inconvenient on architectures where code may be loaded above
  80              * 2GB. on these platforms we assume aligned pointers and use bit
  81              * 0 instead
  82              */
  83             if (*list & RESLIST_NEXT)
  84             {
  85                 list = (IPTR *)(*list & ~RESLIST_NEXT);
  86                 continue;
  87             }
  88
  89             if (!(strcmp( ((struct Resident *)*list)->rt_Name, name)))
  90                 return list;
  91
  92             list++;
  93         }
  94     }
  95     return NULL;
  96 }