workbench/libs/commodities/addievents.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 <proto/exec.h>
  15 #include <devices/inputevent.h>
  16 #include <exec/memory.h>
  17 #include "cxintern.h"
  18
  19 #define DEBUG_COPYIEVENT(x)     x;
  20
  21 BOOL CopyInputEvent(struct InputEvent *from, struct InputEvent *to, struct CommoditiesBase *CxBase);
  22
  23     AROS_LH1(VOID, AddIEvents,
  24
  25 /*  SYNOPSIS */
  26
  27         AROS_LHA(struct InputEvent *, events, A0),
  28
  29 /*  LOCATION */
  30
  31         struct Library *, CxBase, 30, Commodities)
  32
  33 /*  FUNCTION
  34
  35     Send input events though the commodity hierarchy. After the call the
  36     list of InputEvents may be disposed.
  37
  38     INPUTS
  39
  40     events  --  a NULL-terminated linked list of InputEvents (may be NULL).
  41
  42     RESULT
  43
  44     NOTES
  45
  46     EXAMPLE
  47
  48     BUGS
  49
  50     SEE ALSO
  51
  52     INTERNALS
  53
  54     HISTORY
  55
  56 ******************************************************************************/
  57
  58 {
  59     AROS_LIBFUNC_INIT
  60
  61     CxMsg *msg;
  62
  63     if (events == NULL)
  64     {
  65         return;
  66     }
  67
  68     ObtainSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  69
  70     do
  71     {
  72         msg = (CxMsg *)AllocCxStructure(CX_MESSAGE, CXM_DOUBLE, CxBase);
  73
  74         if (msg == NULL)
  75         {
  76             break;
  77         }
  78
  79         if (!CopyInputEvent(events, msg->cxm_Data, GPB(CxBase)))
  80         {
  81             DEBUG_COPYIEVENT(dprintf("AddIEvents: CopyInputEvent() failed!\n"));
  82         }
  83
  84         ROUTECxMsg(msg, (CxObj *) &GPB(CxBase)->cx_BrokerList.lh_Head);
  85         AddTail(&GPB(CxBase)->cx_MessageList, (struct Node *)msg);
  86
  87         events = events->ie_NextEvent;
  88     } while(events != NULL);
  89
  90     ReleaseSemaphore(&GPB(CxBase)->cx_SignalSemaphore);
  91
  92     AROS_LIBFUNC_EXIT
  93 } /* AddIEvents */