workbench/libs/camd/querysysex.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     NAME */
  17
  18         AROS_LH1(ULONG, QuerySysEx,
  19
  20 /*  SYNOPSIS */
  21         AROS_LHA(struct MidiNode *, midinode, A0),
  22
  23 /*  LOCATION */
  24         struct CamdBase *, CamdBase, 28, Camd)
  25
  26 /*  FUNCTION
  27                 Remind me to fill in things here later.
  28
  29     INPUTS
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38                 Not tested. SysEx receiving does probably have some bugs.
  39
  40     SEE ALSO
  41                 SkipSysEx, GetSysEx
  42
  43     INTERNALS
  44
  45     HISTORY
  46
  47         2001-01-12 ksvalast first created
  48
  49 *****************************************************************************/
  50 {
  51     AROS_LIBFUNC_INIT
  52
  53         struct MyMidiNode *mymidinode=(struct MyMidiNode *)midinode;
  54         UBYTE *sysex;
  55         ULONG numleft=1;
  56
  57         if(mymidinode->lastreadstatus!=0xf0) return 0;
  58
  59         ObtainSemaphore(&mymidinode->sysexsemaphore2);
  60
  61                 if(mymidinode->sysex_nextis0==TRUE){
  62                         ReleaseSemaphore(&mymidinode->sysexsemaphore2);
  63                         return 0;
  64                 }
  65
  66                 sysex=mymidinode->sysex_read;
  67
  68                 while(*sysex!=0xf7){
  69                         numleft++;
  70                         sysex++;
  71                 }
  72
  73         ReleaseSemaphore(&mymidinode->sysexsemaphore2);
  74
  75         return numleft;
  76
  77    AROS_LIBFUNC_EXIT
  78 }
  79
  80
  81