workbench/libs/camd/closemididevice.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: English
   7 */
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10
  11 #include "camd_intern.h"
  12
  13 /*****************************************************************************
  14
  15     NAME */
  16
  17         AROS_LH1(void, CloseMidiDevice,
  18
  19 /*  SYNOPSIS */
  20         AROS_LHA(struct MidiDeviceData *, mididevicedata, A0),
  21
  22 /*  LOCATION */
  23         struct CamdBase *, CamdBase, 35, Camd)
  24
  25 /*  FUNCTION
  26                 Remind me to fill in things here later.
  27
  28     INPUTS
  29
  30     RESULT
  31
  32     NOTES
  33
  34     EXAMPLE
  35
  36     BUGS
  37
  38     SEE ALSO
  39                 OpenMidiDevice()
  40
  41     INTERNALS
  42
  43     HISTORY
  44
  45         2001-01-12 ksvalast first created
  46
  47 *****************************************************************************/
  48 {
  49     AROS_LIBFUNC_INIT
  50
  51         struct Drivers *driver,*temp;
  52
  53         ObtainSemaphore(CB(CamdBase)->CLSemaphore);
  54
  55         driver=FindPrevDriverForMidiDeviceData(mididevicedata,CamdBase);
  56
  57         if(driver==NULL){
  58                 driver=CB(CamdBase)->drivers;
  59                 CB(CamdBase)->drivers=CB(CamdBase)->drivers->next;
  60         }else{
  61                 temp=driver->next;
  62                 driver->next=driver->next->next;
  63                 driver=temp;
  64         }
  65
  66         ReleaseSemaphore(CB(CamdBase)->CLSemaphore);
  67
  68         UnLoadSeg(driver->seglist);
  69         FreeMem(driver,sizeof(struct Drivers));
  70
  71    AROS_LIBFUNC_EXIT
  72 }
  73