rom/utility/intfindnamedobj.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: Find a NamedObject in a NameSpace.
   6     Lang: English
   7
   8     --------------------------------------------------------------------
   9
  10     This function will start searching through a sublist of NamedObjects
  11     looking for the node which has the correct name (case insensitive).
  12     Case sensitive searches are done with FindName().
  13
  14 */
  15
  16 #include "intern.h"
  17 #include <proto/exec.h>
  18 #include <proto/utility.h>
  19
  20 struct IntNamedObject *
  21 IntFindNamedObj(struct NameSpace *ns,
  22                 struct Node *start,
  23                 STRPTR name,
  24                 struct UtilityBase *UtilityBase)
  25 {
  26     struct IntNamedObject *no = NULL;
  27
  28     if((ns->ns_Flags & NSF_CASE))
  29     {
  30         no = (struct IntNamedObject *)
  31             FindName((struct List *)start->ln_Pred, name);
  32     }
  33     else
  34     {
  35         /* We are at the end of the list when ln_Succ == NULL */
  36         while(start->ln_Succ != NULL)
  37         {
  38             if(!Stricmp(name, start->ln_Name))
  39             {
  40                 /*
  41                     We have found the node we are after.
  42                     Note, we actually get the correct address
  43                     later.
  44                 */
  45                 no = (struct IntNamedObject *)start;
  46             }
  47             start = start->ln_Succ;
  48         }
  49     }
  50
  51     /*
  52         This is safe, since the Node occurs just after the public
  53         part of the NamedObject, which is what we return.
  54     */
  55     if(no)
  56         return (struct IntNamedObject *)((struct NamedObject *)no - 1);
  57     else
  58         return NULL;
  59 }