workbench/libs/camd/nextmidilink.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 "camd_intern.h"
  10
  11
  12 /*****************************************************************************
  13
  14     NAME */
  15
  16         AROS_LH3(struct MidiLink *, NextMidiLink,
  17
  18 /*  SYNOPSIS */
  19         AROS_LHA(struct MidiNode *, midinode, A0),
  20         AROS_LHA(struct MidiLink *, midilink, A1),
  21         AROS_LHA(LONG, type, D0),
  22
  23 /*  LOCATION */
  24         struct CamdBase *, CamdBase, 19, Camd)
  25
  26 /*  FUNCTION
  27                 Returns the next MidiLink of a specified type that belongs
  28                 to a midinode. Or NULL if midilink was the first. If midilink
  29                 is NULL, returns the first one.
  30
  31     INPUTS
  32                 type - MLTYPE_Sender or MLTYPE_Receiver.
  33
  34     RESULT
  35
  36     NOTES
  37                 CL_Linkages must be locked.
  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         struct MinNode *node;
  56
  57         if(type==MLTYPE_Receiver){
  58                 node=midinode->mi_InLinks.mlh_Head;
  59         }else{
  60                 node=midinode->mi_OutLinks.mlh_Head;
  61         }
  62
  63         while(node->mln_Succ!=NULL){
  64                 if(midilink==NULL){
  65                         return (struct MidiLink *)node;
  66                 }else{
  67                         if(node==(struct MinNode *)midilink){
  68                                 if(node->mln_Succ->mln_Succ!=NULL){
  69                                         return GetMidiLinkFromOwnerNode(node->mln_Succ);
  70                                 }else{
  71                                         return NULL;
  72                                 }
  73                         }
  74                 }
  75                 node=node->mln_Succ;
  76         }
  77
  78         return NULL;
  79
  80    AROS_LIBFUNC_EXIT
  81
  82 }
  83
  84