lang/LangPrimSource/SC_CoreAudioPrim.cpp

   1 /*
   2         SuperCollider real time audio synthesis system
   3     Copyright (c) 2002 James McCartney. All rights reserved.
   4         http://www.audiosynth.com
   5
   6     This program is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU General Public License as published by
   8     the Free Software Foundation; either version 2 of the License, or
   9     (at your option) any later version.
  10
  11     This program is distributed in the hope that it will be useful,
  12     but WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14     GNU General Public License for more details.
  15
  16     You should have received a copy of the GNU General Public License
  17     along with this program; if not, write to the Free Software
  18     Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301  USA
  19 */
  20
  21 #include <CoreAudio/AudioHardware.h>
  22
  23 #include "SCBase.h"
  24 #include "VMGlobals.h"
  25 #include "PyrKernel.h"
  26 #include "PyrPrimitive.h"
  27 #include "GC.h"
  28
  29 enum
  30 {
  31         OUT = 0,
  32         IN,
  33         BOTH
  34 };
  35
  36 int listDevices(struct VMGlobals *g, int type)
  37 {
  38         int numDevices, num = 0;
  39     PyrSlot *a = g->sp-2;
  40
  41 //      unsigned long count;
  42     UInt32 count;
  43     OSStatus err = AudioHardwareGetPropertyInfo(kAudioHardwarePropertyDevices, &count, 0);
  44         AudioDeviceID *devices = (AudioDeviceID*)malloc(count);
  45         err = AudioHardwareGetProperty(kAudioHardwarePropertyDevices, &count, devices);
  46         if (err!=kAudioHardwareNoError)
  47         {
  48                 free(devices);
  49                 return 0;
  50         }
  51
  52         numDevices = count / sizeof(AudioDeviceID);
  53
  54         int i;
  55
  56         if (type<BOTH)
  57         {
  58                 for (i=0; i<numDevices; i++)
  59                 {
  60                         Boolean writeable;
  61                         err = AudioDeviceGetPropertyInfo(devices[i], 0, type, kAudioDevicePropertyStreams, &count, &writeable);
  62                         if (err!=kAudioHardwareNoError)
  63                         {
  64                                 free(devices);
  65                                 return 0;
  66                         }
  67                         if (!count) devices[i] = 0;
  68                         else num++;
  69                 }
  70         }
  71         else num = numDevices;
  72
  73     PyrObject* devArray = newPyrArray(g->gc, num * sizeof(PyrObject), 0, true);
  74         SetObject(a, devArray);
  75
  76         int j = 0;
  77         for (i=0; i<numDevices; i++)
  78         {
  79                 if (!devices[i]) continue;
  80
  81                 err = AudioDeviceGetPropertyInfo(devices[i], 0, false, kAudioDevicePropertyDeviceName, &count, 0);
  82                 if (err != kAudioHardwareNoError)
  83                 {
  84                         break;
  85                 }
  86
  87                 char *name = (char*)malloc(count);
  88                 err = AudioDeviceGetProperty(devices[i], 0, false, kAudioDevicePropertyDeviceName, &count, name);
  89                 if (err != kAudioHardwareNoError)
  90                 {
  91                         free(name);
  92                         break;
  93                 }
  94
  95         PyrString *string = newPyrString(g->gc, name, 0, true);
  96         SetObject(devArray->slots+j, string);
  97         devArray->size++;
  98         g->gc->GCWrite(devArray, (PyrObject*)string);
  99
 100                 free(name);
 101                 j++;
 102         }
 103
 104         free(devices);
 105         return 1;
 106 }
 107
 108 int prListAudioDevices(struct VMGlobals *g, int numArgsPushed)
 109 {
 110         int in = 0;
 111         int out = 0;
 112         slotIntVal(g->sp, &out);
 113         slotIntVal(g->sp-1, &in);
 114
 115         int type;
 116         if (in && out) type = BOTH;
 117         else if (in) type = IN;
 118         else type = OUT;
 119
 120         if (listDevices(g, type)) return errNone;
 121         return errFailed;
 122 }
 123
 124 void initCoreAudioPrimitives()
 125 {
 126         definePrimitive(nextPrimitiveIndex(), 0, "_ListAudioDevices", prListAudioDevices, 3, 0);
 127 }