workbench/libs/camd/addmidilinka.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 #ifndef __amigaos4__
  11 #  include <proto/camd.h>
  12 #endif
  13
  14 #include "camd_intern.h"
  15 #  undef DEBUG
  16 #  define DEBUG 1
  17 #ifndef __amigaos4__
  18 #  include AROS_DEBUG_H_FILE
  19 #endif
  20
  21 #undef AddMidiLinkA
  22
  23 /*****************************************************************************
  24
  25     NAME */
  26
  27         AROS_LH3(struct MidiLink *, AddMidiLinkA,
  28
  29 /*  SYNOPSIS */
  30         AROS_LHA(struct MidiNode *, midinode, A0),
  31         AROS_LHA(LONG, type, D0),
  32         AROS_LHA(struct TagItem *, tags, A1),
  33
  34 /*  LOCATION */
  35         struct CamdBase *, CamdBase, 14, Camd)
  36
  37 /*  FUNCTION
  38                 Adds a midilink to a midinode.
  39
  40     INPUTS
  41                 midinode - Owner.
  42                 type - MLTYPE_Receiver or MLTYPE_Sender
  43                 tags - Tag-values supplied to SetMidiLinkAttrs.
  44
  45     RESULT
  46
  47     NOTES
  48
  49     EXAMPLE
  50
  51     BUGS
  52
  53     SEE ALSO
  54                 CreateMidiA(), SetMidiLinkAttrsA()
  55
  56     INTERNALS
  57
  58     HISTORY
  59
  60         2001-01-12 ksvalast first created
  61
  62 *****************************************************************************/
  63 {
  64     AROS_LIBFUNC_INIT
  65         struct MidiLink *midilink;
  66
  67         midilink=AllocMem(sizeof(struct MidiLink),MEMF_ANY | MEMF_CLEAR | MEMF_PUBLIC);
  68
  69         if(midilink==NULL) return NULL;
  70
  71         midilink->ml_MidiNode=midinode;
  72
  73         midilink->ml_Node.ln_Name="noname";
  74         midilink->ml_Node.ln_Type=NT_USER-type;
  75
  76         midilink->ml_EventTypeMask=(ULONG)~0;
  77         midilink->ml_ChannelMask=(UWORD)~0;
  78
  79         ObtainSemaphore(CB(CamdBase)->CLSemaphore);
  80                 if(type==MLTYPE_Receiver){
  81                         AddHead((struct List *)&midinode->mi_InLinks,(struct Node *)&midilink->ml_OwnerNode);
  82                 }else{
  83                         AddHead((struct List *)&midinode->mi_OutLinks,(struct Node *)&midilink->ml_OwnerNode);
  84                 }
  85         ReleaseSemaphore(CB(CamdBase)->CLSemaphore);
  86
  87 #ifndef __amigaos4__
  88         if(SetMidiLinkAttrsA(midilink,tags)==FALSE)
  89 #else
  90         if(SetMidiLinkAttrsA(ICamd, midilink,tags)==FALSE)
  91 #endif
  92         {
  93
  94                 ObtainSemaphore(CB(CamdBase)->CLSemaphore);
  95                         Remove((struct Node *)&midilink->ml_OwnerNode);
  96                 ReleaseSemaphore(CB(CamdBase)->CLSemaphore);
  97                 FreeMem(midilink,sizeof(struct MidiLink));
  98                 return NULL;
  99         }
 100
 101
 102         return midilink;
 103
 104    AROS_LIBFUNC_EXIT
 105 }
 106
 107
 108
 109 #ifdef __amigaos4__
 110 #include <stdarg.h>
 111 struct MidiLink * VARARGS68K AddMidiLink(
 112         struct CamdIFace *Self,
 113         struct MidiNode * mi,
 114         LONG type,
 115         ...
 116 )
 117 {
 118         va_list ap;
 119         struct TagItem * varargs;
 120         va_startlinear(ap, type);
 121         varargs = va_getlinearva(ap, struct TagItem *);
 122         return  AddMidiLinkA(Self,
 123                 mi,
 124                 type,
 125                 varargs);
 126 }
 127
 128 #endif
 129