workbench/libs/camd/midilinkconnected.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8
   9
  10
  11 #include <proto/exec.h>
  12
  13 #include "camd_intern.h"
  14
  15 /*****************************************************************************
  16
  17     NAME */
  18
  19         AROS_LH1(BOOL, MidiLinkConnected,
  20
  21 /*  SYNOPSIS */
  22         AROS_LHA(struct MidiLink *, midilink, A0),
  23
  24 /*  LOCATION */
  25         struct CamdBase *, CamdBase, 20, Camd)
  26
  27 /*  FUNCTION
  28                 If midilink is a sender, returns FALSE if the cluster has no
  29                 receivers. If midilink is a receiver, returns FALSE if the
  30                 cluster has no senders. Else TRUE.
  31
  32     INPUTS
  33                 midilink - pointer to midilink we want to check.
  34
  35     RESULT
  36
  37     NOTES
  38
  39     EXAMPLE
  40
  41     BUGS
  42
  43     SEE ALSO
  44
  45     INTERNALS
  46
  47     HISTORY
  48
  49         2001-01-12 ksvalast first created
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55
  56         BOOL ret=TRUE;
  57         struct MyMidiCluster *mycluster=(struct MyMidiCluster *)midilink->ml_Location;
  58         int type=midilink->ml_Node.ln_Type;
  59
  60         if(type==NT_USER-MLTYPE_Sender){
  61                 ObtainSemaphoreShared(&mycluster->semaphore);
  62                         if(IsListEmpty(&midilink->ml_Location->mcl_Receivers)) ret=FALSE;
  63                 ReleaseSemaphore(&mycluster->semaphore);
  64         }else{
  65                 ObtainSemaphoreShared(CB(CamdBase)->CLSemaphore);
  66                         if(IsListEmpty(&midilink->ml_Location->mcl_Senders)) ret=FALSE;
  67                 ReleaseSemaphore(CB(CamdBase)->CLSemaphore);
  68         }
  69
  70         return ret;
  71
  72    AROS_LIBFUNC_EXIT
  73 }
  74
  75