workbench/libs/datatypes/findtoolnodea.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include "datatypes_intern.h"
   9 #include <proto/utility.h>
  10
  11 /*****************************************************************************
  12
  13     NAME */
  14
  15         AROS_LH2(struct ToolNode *, FindToolNodeA,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(struct List    *, toollist, A0),
  19         AROS_LHA(struct TagItem *, attrs   , A1),
  20
  21 /*  LOCATION */
  22         struct Library *, DataTypesBase, 41, DataTypes)
  23
  24 /*  FUNCTION
  25
  26     Search for a specific tool in a list of given tool nodes.
  27
  28     INPUTS
  29
  30     toollist  --  a list or a struct ToolNode * (which will be skipped) to
  31                   search in; may be NULL.
  32
  33     attrs     --  search tags; if NULL, the result of the function will
  34                   simply be the following node.
  35
  36     TAGS
  37
  38     TOOLA_Program     --  name of the program to search for
  39
  40     TOOLA_Which       --  one of the TW_#? types
  41
  42     TOOLA_LaunchType  --  launch mode: TF_SHELL, TF_WORKBENCH or TF_RX
  43
  44     RESULT
  45
  46     A pointer to a ToolNode describing the search result (NULL for failure).
  47
  48     NOTES
  49
  50     The entries in dt->dtn_ToolList are valid as long as a lock is kept on
  51     the data type 'dt' (ObtainDataTypeA() or LockDataType()).
  52
  53     EXAMPLE
  54
  55     BUGS
  56
  57     SEE ALSO
  58
  59     LaunchToolA()
  60
  61     INTERNALS
  62
  63     HISTORY
  64
  65     7.8.99  SDuvan  implemented
  66
  67 *****************************************************************************/
  68 {
  69     AROS_LIBFUNC_INIT
  70
  71     STRPTR program;
  72     WORD   which;
  73     WORD   ltype;
  74
  75     struct ToolNode *tNode;
  76
  77     if(toollist == NULL)
  78         return NULL;
  79
  80     program = (STRPTR)GetTagData(TOOLA_Program, (IPTR)NULL, attrs);
  81     which   =   (WORD)GetTagData(TOOLA_Which, -1, attrs);
  82     ltype   =   (WORD)GetTagData(TOOLA_LaunchType, -1, attrs);
  83
  84     ForeachNode(toollist, tNode)
  85     {
  86         /* Match program name */
  87         if(program != NULL)
  88         {
  89             if(Stricmp(tNode->tn_Tool.tn_Program, program) != 0)
  90                 continue;
  91         }
  92
  93         /* Check type */
  94         if(which != -1)
  95         {
  96             if(which != tNode->tn_Tool.tn_Which)
  97                 continue;
  98         }
  99
 100         /* Check launch type */
 101         if(ltype != -1)
 102         {
 103             if(ltype != (tNode->tn_Tool.tn_Flags & TF_LAUNCH_MASK))
 104                 continue;
 105         }
 106
 107         return tNode;
 108     }
 109
 110     return NULL;
 111
 112     AROS_LIBFUNC_EXIT
 113 } /* FindToolNodeA */
 114