workbench/libs/camd/sysexdistr.c

   1 /*
   2     Copyright © 1995-2001, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9 #include <proto/exec.h>
  10 #include <proto/dos.h>
  11
  12 #include "camd_intern.h"
  13
  14
  15 /* Sysex receiving is a bit of a mess... (and not very much tested either) -ksvalast- */
  16
  17 int GetSysXLen(UBYTE *buffer){
  18         int lokke=1;
  19
  20         while(buffer[lokke]<0x80){              // "!=0xf7" should allso be correct, but this one is perhaps safer.
  21                 lokke++;
  22         }
  23
  24         return lokke;
  25 }
  26
  27 BOOL PutSysEx2Link(struct MidiLink *midilink,UBYTE data){
  28         UBYTE *sysex;
  29         struct MyMidiMessage2 msg2;
  30
  31         struct MyMidiNode *mymidinode=(struct MyMidiNode *)midilink->ml_MidiNode;
  32
  33         if(mymidinode->sysex_laststart==NULL && data!=0xf0){
  34                 return TRUE;    // This midinode was created in the middle of receiving a sysex-string.
  35         }
  36
  37         if(mymidinode->sysex_start!=NULL && (!(mymidinode->error&CMEF_SysExFull))){
  38                 if(data==0xff){ // Error in sysex-string. Sysex is cancelled.
  39                         mymidinode->sysex_write=mymidinode->sysex_laststart;
  40                         ReleaseSemaphore(&mymidinode->sysexsemaphore);
  41                         return FALSE;
  42                 }else{
  43                                 if(data==0xf0){
  44                                         ObtainSemaphore(&mymidinode->sysexsemaphore);
  45                                         ObtainSemaphore(&mymidinode->sysexsemaphore2);
  46                                         mymidinode->sysex_laststart=mymidinode->sysex_write;
  47                                 }else{
  48                                         ObtainSemaphore(&mymidinode->sysexsemaphore2);
  49                                 }
  50                                 *mymidinode->sysex_write=data;
  51                                 mymidinode->sysex_write++;
  52                                 if(mymidinode->sysex_write==mymidinode->sysex_end){
  53                                         mymidinode->sysex_write=mymidinode->sysex_start;
  54                                 }
  55                                 if(mymidinode->sysex_write==mymidinode->sysex_read){
  56                                         mymidinode->error |= CMEF_SysExFull;
  57                                         mymidinode->sysex_write=mymidinode->sysex_laststart;
  58                                         ReleaseSemaphore(&mymidinode->sysexsemaphore2);
  59                                         ReleaseSemaphore(&mymidinode->sysexsemaphore);
  60                                         return FALSE;
  61                                 }
  62                         ReleaseSemaphore(&mymidinode->sysexsemaphore2);
  63                         if(data==0xf7){
  64                                 sysex=mymidinode->sysex_laststart;
  65                                 msg2.status=sysex[1];
  66                                 msg2.data1=sysex[2];
  67                                 msg2.data2=sysex[3];
  68                                 msg2.len=3;
  69                                 PutMidi2Link(midilink,&msg2,*mymidinode->midinode.mi_TimeStamp);
  70                                 ReleaseSemaphore(&mymidinode->sysexsemaphore);
  71                                 return FALSE;
  72                         }
  73                 }
  74                 return TRUE;
  75         }else{
  76                 return FALSE;
  77         }
  78 }
  79
  80