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 last. 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         2006-01-16 Lyle Hazelwood complete re-write.
  51
  52 *****************************************************************************/
  53 {
  54     AROS_LIBFUNC_INIT
  55
  56         struct MinNode *node;
  57
  58         if(type==MLTYPE_Receiver){
  59                 node=midinode->mi_InLinks.mlh_Head;
  60         }else{
  61                 node=midinode->mi_OutLinks.mlh_Head;
  62         }
  63
  64         if(midilink == NULL){
  65           if(node->mln_Succ != NULL){
  66             return(GetMidiLinkFromOwnerNode(node));
  67           }else{
  68             return(NULL);
  69           }
  70         }else{
  71           node=&midilink->ml_OwnerNode;
  72           node=node->mln_Succ;
  73           if(node->mln_Succ != NULL){
  74             return(GetMidiLinkFromOwnerNode(node));
  75           }else{
  76             return(NULL);
  77           }
  78         }
  79
  80 /*
  81         while(node->mln_Succ!=NULL){
  82                 if(midilink==NULL){
  83                         return (struct MidiLink *)node;
  84                 }else{
  85                         if(node==(struct MinNode *)midilink){
  86                                 if(node->mln_Succ->mln_Succ!=NULL){
  87                                         return GetMidiLinkFromOwnerNode(node->mln_Succ);
  88                                 }else{
  89                                         return NULL;
  90                                 }
  91                         }
  92                 }
  93                 node=node->mln_Succ;
  94         }
  95
  96         return NULL;
  97 */
  98
  99    AROS_LIBFUNC_EXIT
 100
 101 }
 102
 103