workbench/libs/camd/deletemidi.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_LH1(void, DeleteMidi,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct MidiNode *, midinode, A0),
  21
  22 /*  LOCATION */
  23         struct CamdBase *, CamdBase, 8, Camd)
  24
  25 /*  FUNCTION
  26                 First deletes all midilinks attached to the midinode, then
  27                 frees all buffers, before it frees itself.
  28
  29     INPUTS
  30
  31     RESULT
  32
  33     NOTES
  34
  35     EXAMPLE
  36
  37     BUGS
  38
  39     SEE ALSO
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45         2001-01-12 ksvalast first created
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51         struct MyMidiNode *mymidinode=(struct MyMidiNode *)midinode;
  52         struct MinNode *node,*temp;
  53         struct MidiLink *midilink;
  54
  55         ObtainSemaphore(CB(CamdBase)->CLSemaphore);
  56                 if( ! (IsListEmpty((struct List *)&midinode->mi_OutLinks))){
  57                         node=midinode->mi_OutLinks.mlh_Head;
  58                         while(node->mln_Succ!=NULL){
  59                                 temp=node->mln_Succ;
  60
  61                                 midilink=GetMidiLinkFromOwnerNode(node);
  62                                 UnlinkMidiLink(midilink,FALSE,CamdBase);
  63
  64                                 if(midilink->ml_ParserData!=NULL) FreeMem(midilink->ml_ParserData,sizeof(struct DriverData));
  65
  66                                 FreeMem(midilink,sizeof(struct MidiLink));
  67                                 node=temp;
  68                         }
  69                 }
  70                 if( ! (IsListEmpty((struct List *)&midinode->mi_InLinks))){
  71                         node=midinode->mi_InLinks.mlh_Head;
  72                         while(node->mln_Succ!=NULL){
  73                                 temp=node->mln_Succ;
  74
  75                                 midilink=GetMidiLinkFromOwnerNode(node);
  76
  77                                 UnlinkMidiLink(midilink,FALSE,CamdBase);
  78
  79                                 if(midilink->ml_ParserData!=NULL) FreeMem(midilink->ml_ParserData,sizeof(struct DriverData));
  80
  81                                 FreeMem(midilink,sizeof(struct MidiLink));
  82                                 node=temp;
  83                         }
  84                 }
  85
  86                 Remove(&midinode->mi_Node);
  87
  88         ReleaseSemaphore(CB(CamdBase)->CLSemaphore);
  89
  90
  91         if(mymidinode->in_start!=NULL){
  92                 FreeVec(mymidinode->in_start);
  93         }
  94         if(mymidinode->sysex_start!=NULL){
  95                 FreeVec(mymidinode->sysex_start);
  96         }
  97         FreeMem(midinode,sizeof(struct MyMidiNode));
  98
  99    AROS_LIBFUNC_EXIT
 100
 101 }
 102
 103
 104