workbench/libs/commodities/settranslate.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 "cxintern.h"
  14 #include <libraries/commodities.h>
  15 #include <exec/libraries.h>
  16 #include <proto/exec.h>
  17
  18     AROS_LH2(VOID, SetTranslate,
  19
  20 /*  SYNOPSIS */
  21
  22         AROS_LHA(CxObj *            , translator, A0),
  23         AROS_LHA(struct InputEvent *, events    , A1),
  24
  25 /*  LOCATION */
  26
  27         struct Library *, CxBase, 19, Commodities)
  28
  29 /*  FUNCTION
  30
  31     Set translation (a list of input events) for a commodity translator
  32     object.
  33
  34     INPUTS
  35
  36     translator  --  the commodity translator the translation result of which
  37                     to set (may be NULL)
  38     events      --  the new input event list
  39
  40     RESULT
  41
  42     NOTES
  43
  44     If events is set to NULL, all commodity messages passed to the object
  45     are swallowed. Neither commodities.library nor any other commodities
  46     user will change your list of InputEvents; however, it will be used
  47     asynchronously to the application program which means you shouldn't
  48     in any way corrupt the chain.
  49
  50     EXAMPLE
  51
  52     BUGS
  53
  54     SEE ALSO
  55
  56     cx_lib/CxTranslate(), <devices/inputevent.h>
  57
  58     INTERNALS
  59
  60     HISTORY
  61
  62 ******************************************************************************/
  63
  64 {
  65     AROS_LIBFUNC_INIT
  66
  67     if (translator == NULL)
  68     {
  69         return;
  70     }
  71
  72     ObtainSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  73
  74     if (CXOBJType(translator) != CX_TRANSLATE)
  75     {
  76         translator->co_Error |= COERR_BADTYPE;
  77     }
  78     else
  79     {
  80         translator->co_Ext.co_IE = events;
  81     }
  82
  83     ReleaseSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  84
  85     AROS_LIBFUNC_EXIT
  86 } /* SetTranslate */