workbench/libs/camd/goodputmidi.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10
  11 #include "camd_intern.h"
  12
  13
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH3(APTR, GoodPutMidi,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct MidiLink *, midilink, A0),
  23         AROS_LHA(ULONG, msg, D0),
  24         AROS_LHA(ULONG, maxbuff, D1),
  25
  26 /*  LOCATION */
  27         struct CamdBase *, CamdBase, 39, Camd)
  28
  29 /*  FUNCTION
  30                 This is a private function, and will probably be obsolete. Please don`t use.
  31
  32     INPUTS
  33
  34     RESULT
  35         NULL if success, driverdata if not.
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44                 PutMidi(), PutMidiMsg(), Midi2Driver()
  45
  46     INTERNALS
  47
  48     HISTORY
  49
  50         2001-07-14 ksvalast first created
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56         int len=GetMsgLen(msg);
  57         struct Node *node;
  58         struct DriverData *driverdata=NULL;
  59         struct MyMidiCluster *mycluster=(struct MyMidiCluster *)midilink->ml_Location;
  60         struct MyMidiMessage2 msg2;
  61         struct MidiLink *midilink2;
  62         struct MyMidiNode *mymidinode;
  63
  64         if(len==3) return NULL; //Illegal message.
  65
  66         ObtainSemaphoreShared(&mycluster->semaphore);
  67
  68         if( ! (IsListEmpty(&mycluster->cluster.mcl_Receivers))){
  69
  70                 msg2.status=msg>>24;
  71                 msg2.data1=0x7f&(msg>>16);
  72                 msg2.data2=0x7f&(msg>>8);
  73                 msg2.len=(len&3)+1;
  74
  75                 node=mycluster->cluster.mcl_Receivers.lh_Head;
  76
  77                 while(node->ln_Succ!=NULL){
  78                         if(node->ln_Type==NT_USER-MLTYPE_NTypes){
  79                                 driverdata=Midi2Driver_internal((struct DriverData *)node,msg,maxbuff)?NULL:(struct DriverData *)node;
  80                         }else{
  81                                 midilink2=(struct MidiLink *)node;
  82                                 mymidinode=(struct MyMidiNode *)midilink2->ml_MidiNode;
  83                                 ObtainSemaphore(&mymidinode->receiversemaphore);
  84                                         PutMidi2Link(midilink2,&msg2,*mymidinode->midinode.mi_TimeStamp);
  85                                 ReleaseSemaphore(&mymidinode->receiversemaphore);
  86                                 if(driverdata!=NULL){
  87                                         driverdata=Midi2Driver_internal(driverdata,msg,maxbuff)?NULL:driverdata;
  88                                 }
  89                         }
  90                         node=node->ln_Succ;
  91                 }
  92         }
  93
  94         ReleaseSemaphore(&mycluster->semaphore);
  95
  96         return driverdata;
  97
  98
  99    AROS_LIBFUNC_EXIT
 100 }
 101
 102
 103
 104
 105
 106
 107