workbench/libs/camd/getmidi.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     NAME */
  16
  17         AROS_LH2(BOOL, GetMidi,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct MidiNode *, midinode, A0),
  21         AROS_LHA(MidiMsg *, msg, A1),
  22
  23 /*  LOCATION */
  24         struct CamdBase *, CamdBase, 24, Camd)
  25
  26 /*  FUNCTION
  27                 Gets a message from a midinodes buffer.
  28
  29     INPUTS
  30                 midinode - pointer to midinode
  31                 msg - The message is removed from the internal buffer and copied into msg.
  32
  33     RESULT
  34                 TRUE if message was copied, FALSE if buffer was empty.
  35
  36     NOTES
  37
  38     EXAMPLE
  39
  40     BUGS
  41
  42     SEE ALSO
  43                 WaitMidi()
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49         2001-01-12 ksvalast first created
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55         struct MyMidiNode *mymidinode=(struct MyMidiNode *)midinode;
  56         MidiMsg *mymsg;
  57
  58         if(mymidinode->unpicked==0){
  59                 return FALSE;
  60         }
  61         mymsg=mymidinode->in_curr_get;
  62
  63         msg->mm_Msg=mymsg->mm_Msg;
  64         msg->mm_Time=mymsg->mm_Time;
  65
  66         mymidinode->unpicked--;
  67
  68         mymidinode->in_curr_get++;
  69         if(mymidinode->in_curr_get==mymidinode->in_end){
  70                 mymidinode->in_curr_get=mymidinode->in_start;
  71         }
  72
  73         if(msg->mm_Status==0xf0)
  74           mymidinode->sysex_nextis0=FALSE;
  75
  76         mymidinode->lastreadstatus=msg->mm_Status;
  77
  78         return TRUE;
  79
  80    AROS_LIBFUNC_EXIT
  81 }
  82
  83
  84