workbench/libs/commodities/setfilter.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 /*****************************************************************************
  10
  11     NAME */
  12
  13 #include <aros/debug.h>
  14 #include "cxintern.h"
  15 #include <libraries/commodities.h>
  16 #include <proto/exec.h>
  17 #include <proto/commodities.h>
  18
  19 #define DEBUG_BADFILTER(x)      x;
  20
  21     AROS_LH2(VOID, SetFilter,
  22
  23 /*  SYNOPSIS */
  24
  25         AROS_LHA(CxObj *, filter, A0),
  26         AROS_LHA(STRPTR,  text,   A1),
  27
  28 /*  LOCATION */
  29
  30         struct Library *, CxBase, 20, Commodities)
  31
  32 /*  FUNCTION
  33
  34     Make 'filter' match events of the type specified in 'text'.
  35
  36     INPUTS
  37
  38     filter  -  the commodity filter the matching conditions of which to set
  39     text    -  description telling what to filter
  40
  41     RESULT
  42
  43     The internal error field will be updated (COERR_BADFILTER) according to
  44     the success or failure of the operation.
  45
  46     NOTES
  47
  48     EXAMPLE
  49
  50     BUGS
  51
  52     SEE ALSO
  53
  54     SetFilterIX(), CxObjError()
  55
  56     INTERNALS
  57
  58     HISTORY
  59
  60 ******************************************************************************/
  61
  62 {
  63     AROS_LIBFUNC_INIT
  64
  65     if (filter == NULL)
  66     {
  67         return;
  68     }
  69
  70     ObtainSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  71
  72     if (CXOBJType(filter) == CX_FILTER)
  73     {
  74         LONG err;
  75
  76         err = ParseIX(text, filter->co_Ext.co_FilterIX);
  77
  78         if (err == 0 || err == -2)
  79         {
  80             filter->co_Error &= ~COERR_BADFILTER;
  81         }
  82         else
  83         {
  84             DEBUG_BADFILTER(dprintf("SetFilter: Bad filter \"%s\"!\n", text));
  85             filter->co_Error |= COERR_BADFILTER;
  86         }
  87     }
  88     else
  89     {
  90         filter->co_Error |= COERR_BADTYPE;
  91     }
  92
  93     ReleaseSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  94
  95     AROS_LIBFUNC_EXIT
  96 } /* SetFilter */