workbench/libs/camd/unlinkmidilink.c

   1 /*
   2     Copyright © 1995-2001, 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         CLSemaphore must be exlusive obtained first.
  16 */
  17
  18 void UnlinkMidiLink(
  19         struct MidiLink *midilink,
  20         BOOL unlinkfromnode,
  21         struct CamdBase *CamdBase
  22 ){
  23         struct MidiCluster *cluster=midilink->ml_Location;
  24         int type=midilink->ml_Node.ln_Type;
  25         struct MyMidiCluster *mycluster=(struct MyMidiCluster *)cluster;
  26
  27         if(cluster!=NULL){
  28                 if(type==NT_USER-MLTYPE_Receiver){
  29                         ObtainSemaphore(&mycluster->semaphore);
  30                 }
  31                 Remove(&midilink->ml_Node);
  32         }
  33
  34         if(unlinkfromnode==TRUE){
  35                 Remove((struct Node *)&midilink->ml_OwnerNode);
  36         }
  37
  38         if(cluster!=NULL){
  39                 if(type==NT_USER-MLTYPE_Receiver){
  40                         ReleaseSemaphore(&mycluster->semaphore);
  41                 }
  42                 LinkHasBeenRemovedFromCluster(cluster,CamdBase);
  43         }
  44
  45 }
  46