From 8dbec761cf858ea65900c8a094599857208d8c3a Mon Sep 17 00:00:00 2001
From: "N.N." <matju@users.sourceforge.net>
Date: Tue, 5 Jan 2010 22:49:36 +0000
Subject: svn path=/trunk/; revision=12907

---
 desiredata/src/s_audio.c | 586 -----------------------------------------------
 1 file changed, 586 deletions(-)
 delete mode 100644 desiredata/src/s_audio.c

(limited to 'desiredata/src/s_audio.c')

diff --git a/desiredata/src/s_audio.c b/desiredata/src/s_audio.c
deleted file mode 100644
index ffc2f9f9..00000000
--- a/desiredata/src/s_audio.c
+++ /dev/null
@@ -1,586 +0,0 @@
-/* Copyright (c) 2003, Miller Puckette and others.
-* For information on usage and redistribution, and for a DISCLAIMER OF ALL
-* WARRANTIES, see the file, "LICENSE.txt," in this distribution.  */
-
-/*  machine-independent (well, mostly!) audio layer.  Stores and recalls
-    audio settings from argparse routine and from dialog window.
-*/
-
-#define PD_PLUSPLUS_FACE
-#include "desire.h"
-using namespace desire;
-#include "m_simd.h"
-#include <stdio.h>
-#ifdef UNISTD
-#include <unistd.h>
-#include <sys/time.h>
-#include <sys/resource.h>
-#endif
-#include <stdlib.h>
-#include <string.h>
-#include <errno.h>
-#include <sstream>
-#define max std::max /* resolve "ambiguous" shit. */
-#define SYS_DEFAULTCH 2
-#define SYS_MAXCH 100
-typedef long t_pa_sample;
-#define SYS_SAMPLEWIDTH sizeof(t_pa_sample)
-#define SYS_BYTESPERCHAN (sys_dacblocksize * SYS_SAMPLEWIDTH)
-#define SYS_XFERSAMPS (SYS_DEFAULTCH*sys_dacblocksize)
-#define SYS_XFERSIZE (SYS_SAMPLEWIDTH * SYS_XFERSAMPS)
-#define MAXNDEV 100
-#define DEVDESCSIZE 80
-#define INTARG(i) atom_getintarg(i,argc,argv)
-
-extern t_audioapi pa_api, jack_api, oss_api, alsa_api, sgi_api, mmio_api, asio_api;
-
-t_sample *sys_soundin;
-t_sample *sys_soundout;
-float sys_dacsr;
-
-using namespace std;
-
-static t_audioapi *sys_audio() {
-#ifdef USEAPI_PORTAUDIO
-    if (sys_audioapi == API_PORTAUDIO) return &pa_api;
-#endif
-#ifdef USEAPI_JACK
-    if (sys_audioapi == API_JACK) return &jack_api;
-#endif
-#ifdef USEAPI_OSS
-    if (sys_audioapi == API_OSS) return &oss_api;
-#endif
-#ifdef USEAPI_ALSA
-    if (sys_audioapi == API_ALSA) return &alsa_api;
-#endif
-#ifdef USEAPI_MMIO
-    if (sys_audioapi == API_MMIO) return &mmio_api;
-#endif
-#ifdef USEAPI_ASIO
-	if (sys_audioapi == API_ASIO) return &asio_api;
-#endif
-    post("sys_close_audio: unknown API %d", sys_audioapi);
-    sys_inchannels = sys_outchannels = 0;
-    sched_set_using_dacs(0); /* tb: dsp is switched off */
-    return 0;
-}
-
-static void audio_getdevs(char *idevlist, int *nidev, char *odevlist, int *nodev, int *canmulti, int maxndev, int devdescsize);
-
-/* these are set in this file when opening audio, but then may be reduced,
-   even to zero, in the system dependent open_audio routines. */
-int sys_inchannels;
-int sys_outchannels;
-int sys_advance_samples;        /* scheduler advance in samples */
-int sys_blocksize = 0;          /* audio I/O block size in sample frames */
-#ifndef API_DEFAULT
-#define API_DEFAULT 0
-#endif
-int sys_audioapi = API_DEFAULT;
-int sys_dacblocksize;
-int sys_schedblocksize;
-int sys_meters;          /* true if we're metering */
-static float sys_inmax;  /* max input amplitude */
-static float sys_outmax; /* max output amplitude */
-int sys_schedadvance;    /* scheduler advance in microseconds */
-
-/* the "state" is normally one if we're open and zero otherwise; but if the state is one,
-   we still haven't necessarily opened the audio hardware; see audio_isopen() below. */
-static int audio_state;
-
-/* last requested parameters */
-static t_audiodevs audi;
-static t_audiodevs audo;
-static int audio_rate;
-static int audio_dacblocksize;
-static int audio_advance;
-static int audio_scheduler;
-
-extern int sys_callbackscheduler;
-
-float peakvec(t_float* vec, t_int n, t_float cur_max);
-static float (*peak_fp)(t_float*, t_int, t_float) = peakvec;
-
-static int audio_isopen() {return audio_state && ((audi.ndev > 0 && audi.chdev[0] > 0) || (audo.ndev > 0 && audo.chdev[0] > 0));}
-
-extern "C" void sys_get_audio_params(t_audiodevs *ai, t_audiodevs *ao, int *prate, int *pdacblocksize, int *padvance, int *pscheduler) {
-    ai->ndev=audi.ndev; for (int i=0; i< MAXAUDIOINDEV; i++) {ai->dev[i]=audi.dev[i]; ai->chdev[i]=audi.chdev[i];}
-    ao->ndev=audo.ndev; for (int i=0; i<MAXAUDIOOUTDEV; i++) {ao->dev[i]=audo.dev[i]; ao->chdev[i]=audo.chdev[i];}
-    *prate = audio_rate;
-    *pdacblocksize = audio_dacblocksize;
-    *padvance = audio_advance;
-    *pscheduler = audio_scheduler;
-}
-
-void sys_save_audio_params(
-int nidev, int *idev, int *ichdev,
-int nodev, int *odev, int *ochdev, int rate, int dacblocksize, int advance, int scheduler) {
-    audi.ndev  = nidev;
-    audo.ndev = nodev;
-    for (int i=0; i<MAXAUDIOINDEV;  i++) {audi.dev[i]=idev[i]; audi.chdev[i]=ichdev[i];}
-    for (int i=0; i<MAXAUDIOOUTDEV; i++) {audo.dev[i]=odev[i]; audo.chdev[i]=ochdev[i];}
-    audio_rate = rate;
-    audio_dacblocksize = dacblocksize;
-    audio_advance = advance;
-    audio_scheduler = scheduler;
-}
-
-extern "C" void sys_open_audio2(t_audiodevs *ai, t_audiodevs *ao, int rate, int dacblocksize, int advance, int scheduler) {
-    sys_open_audio(ai->ndev,ai->dev,ai->ndev,ai->chdev,ao->ndev,ao->dev,ao->ndev,ao->chdev,rate,dacblocksize,advance,scheduler,1);
-}
-
-/* init routines for any API which needs to set stuff up before any other API gets used.  This is only true of OSS so far. */
-#ifdef USEAPI_OSS
-void oss_init();
-#endif
-
-static void audio_init() {
-    static int initted = 0;
-    if (initted) return;
-    initted = 1;
-#ifdef USEAPI_OSS
-    oss_init();
-#endif
-}
-
-/* set channels and sample rate.  */
-void sys_setchsr(int chin, int chout, int sr, int dacblocksize) {
-    int inbytes  = (chin  ? chin  : 2) * (sys_dacblocksize*sizeof(float));
-    int outbytes = (chout ? chout : 2) * (sys_dacblocksize*sizeof(float));
-    if (dacblocksize != (1<<ilog2(dacblocksize))) {
-      dacblocksize = 1<<ilog2(dacblocksize);
-      post("warning: adjusting dac~blocksize to power of 2: %d", dacblocksize);
-    }
-    sys_dacblocksize   = dacblocksize;
-    sys_schedblocksize = dacblocksize;
-    sys_inchannels  = chin;
-    sys_outchannels = chout;
-    sys_dacsr = double(sr);
-    sys_advance_samples = max(int(sys_schedadvance*sys_dacsr/1000000.),sys_dacblocksize);
-    if (sys_soundin) freealignedbytes(sys_soundin,inbytes);
-    sys_soundin = (t_float *)getalignedbytes(inbytes);
-    memset(sys_soundin, 0, inbytes);
-    if (sys_soundout) freealignedbytes(sys_soundout,outbytes);
-    sys_soundout = (t_float *)getalignedbytes(outbytes);
-    memset(sys_soundout, 0, outbytes);
-    /* tb: modification for simd-optimized peak finding */
-    if (SIMD_CHKCNT(sys_inchannels  * sys_dacblocksize) &&
-	SIMD_CHKCNT(sys_outchannels * sys_dacblocksize))
-	 peak_fp = peakvec_simd;
-    else peak_fp = peakvec;
-    if (sys_verbose) post("input channels = %d, output channels = %d", sys_inchannels, sys_outchannels);
-    canvas_resume_dsp(canvas_suspend_dsp());
-}
-
-/* ----------------------- public routines ----------------------- */
-
-/* open audio devices (after cleaning up the specified device and channel vectors).  The audio devices are "zero based"
-   (i.e. "0" means the first one.)  We also save the cleaned-up device specification so that we
-    can later re-open audio and/or show the settings on a dialog window. */
-void sys_open_audio(
-  int nidev, int *idev, int nichdev, int *ichdev,
-  int nodev, int *odev, int nochdev, int *ochdev, int rate, int dacblocksize, int advance, int schedmode, int enable) {
-    int defaultchannels = SYS_DEFAULTCH;
-    int realich[MAXAUDIOINDEV];  char idevlist[MAXNDEV*DEVDESCSIZE];
-    int realoch[MAXAUDIOOUTDEV]; char odevlist[MAXNDEV*DEVDESCSIZE];
-    int indevs = 0, outdevs = 0, canmulti = 0;
-    audio_getdevs(idevlist, &indevs, odevlist, &outdevs, &canmulti, MAXNDEV, DEVDESCSIZE);
-    if (sys_externalschedlib) return;
-    if (sys_inchannels || sys_outchannels) sys_close_audio();
-    if (rate < 1) rate = DEFAULTSRATE;
-    if (dacblocksize < 1) dacblocksize = DEFDACBLKSIZE;
-    if (advance <= 0) advance = DEFAULTADVANCE;
-     audio_init();
-     /* Since the channel vector might be longer than the audio device vector, or vice versa, we fill the shorter one
-        in to match the longer one.  Also, if both are empty, we fill in one device (the default) and two channels. */
-    if (nidev == -1) { /* no input audio devices specified */
-        if (nichdev == -1) {
-            if (indevs >= 1) {nidev=nichdev=1; ichdev[0]=defaultchannels; idev[0]=DEFAULTAUDIODEV;} else nidev = nichdev=0;
-        } else for (int i=0; i<MAXAUDIOINDEV; i++) idev[i] = i;
-    } else {
-        if (nichdev == -1) {nichdev = nidev; for (int i=0; i<nidev; i++) ichdev[i] = defaultchannels;
-        } else if (nichdev > nidev) {for (int i=nidev; i<nichdev; i++) if (i==0)   idev[i]=DEFAULTAUDIODEV; else   idev[i]=idev[i-1]+1;
-        } else if (nichdev < nidev) {for (int i=nichdev; i<nidev; i++) if (i==0) ichdev[i]=defaultchannels; else ichdev[i]=ichdev[i-1];}
-    }
-    nidev = nichdev;
-    if (nodev == -1) { /* not set */
-        if (nochdev == -1) {
-            if (outdevs >= 1) {nodev=nochdev=1; ochdev[0]=defaultchannels; odev[0]=DEFAULTAUDIODEV;} else nodev = nochdev=0;
-        } else for (int i=0; i<MAXAUDIOOUTDEV; i++) odev[i] = i;
-    } else {
-        if (nochdev == -1) {nochdev = nodev; for (int i=0; i<nodev; i++) ochdev[i] = defaultchannels;
-        } else if (nochdev > nodev) {for (int i=nodev; i<nochdev; i++) if (i==0)   odev[0]=DEFAULTAUDIODEV; else   odev[i]=odev[i-1]+1;
-        } else if (nochdev < nodev) {for (int i=nochdev; i<nodev; i++) if (i==0) ochdev[0]=defaultchannels; else ochdev[i]=ochdev[i-1];}
-    }
-    nodev = nochdev;
-    /* count total number of input and output channels */
-    int inchans=0, outchans=0;
-    for (int i=0; i<nidev; i++)  inchans += (realich[i] = (ichdev[i] > 0 ? ichdev[i] : 0));
-    for (int i=0; i<nodev; i++) outchans += (realoch[i] = (ochdev[i] > 0 ? ochdev[i] : 0));
-    /* if no input or output devices seem to have been specified, this really means just disable audio, which we now do. */
-    if (!inchans && !outchans) enable = 0;
-    sys_schedadvance = advance * 1000;
-    sys_setchsr(inchans, outchans, rate, dacblocksize);
-    sys_log_error(ERR_NOTHING);
-    if (enable) {
-        /* for alsa, only one device is supported; it may be open for both input and output. */
-#ifdef USEAPI_PORTAUDIO
-        if (sys_audioapi == API_PORTAUDIO)
-            pa_open_audio(inchans, outchans, rate, advance, (nodev>0?idev[0]:0), (nodev>0?odev[0]:0), schedmode);
-	else
-#endif
-#ifdef USEAPI_JACK
-        if (sys_audioapi == API_JACK)
-            jack_open_audio((nidev>0?realich[0]:0), (nodev>0?realoch[0]:0), rate, schedmode);
-        else
-#endif
-        if (sys_audioapi == API_OSS || sys_audioapi == API_ALSA || sys_audioapi == API_MMIO)
-            sys_audio()->open_audio(nidev, idev, nichdev, realich, nodev, odev, nochdev, realoch, rate, -42);
-        else if (sys_audioapi == API_ASIO)
-	    sys_audio()->open_audio(nidev, idev, nichdev,  ichdev, nodev, odev, nochdev,  ochdev, rate, schedmode);
-	else post("unknown audio API specified");
-    }
-    sys_save_audio_params(nidev, idev, ichdev, nodev, odev, ochdev, int(sys_dacsr), sys_dacblocksize, advance, schedmode);
-    if (sys_inchannels == 0 && sys_outchannels == 0) enable = 0;
-    audio_state = enable;
-    sys_vgui("set pd_whichapi %d\n", audio_isopen() ? sys_audioapi : 0);
-    sched_set_using_dacs(enable);
-	sys_update_sleepgrain();
-	if (enable) {
-		t_atom argv[1];
-		t_symbol *selector = gensym("audio_started");
-		t_symbol *pd = gensym("pd");
-		SETFLOAT(argv, 1.);
-		typedmess(pd->s_thing, selector, 1, argv);
-	}
-}
-
-void sys_close_audio() {
-    /* jsarlo { (*/
-    if (sys_externalschedlib) return;
-    /* } jsarlo */
-    if (!audio_isopen()) return;
-    if (sys_audio()) sys_audio()->close_audio();
-    else post("sys_close_audio: unknown API %d", sys_audioapi);
-    sys_inchannels = sys_outchannels = 0;
-    sched_set_using_dacs(0); /* tb: dsp is switched off */
-}
-
-/* open audio using whatever parameters were last used */
-void sys_reopen_audio() {
-    t_audiodevs ai,ao;
-    int rate, dacblocksize, advance, scheduler;
-    sys_close_audio();
-    sys_get_audio_params(&ai,&ao,&rate,&dacblocksize,&advance,&scheduler);
-    sys_open_audio2(     &ai,&ao, rate, dacblocksize, advance, scheduler);
-}
-
-/* tb: default value of peak_fp {*/
-float peakvec(t_float* vec, t_int n, t_float cur_max) {
-	for (int i=0; i<n; i++) {
-		float f = *vec++;
-		if      (+f > cur_max) cur_max = +f;
-		else if (-f > cur_max) cur_max = -f;
-	}
-	return cur_max;
-}
-/* } */
-
-void sys_peakmeters() {
-    if (sys_inchannels)  sys_inmax  = peak_fp(sys_soundin, sys_inchannels  * sys_dacblocksize, sys_inmax);
-    if (sys_outchannels) sys_outmax = peak_fp(sys_soundout,sys_outchannels * sys_dacblocksize, sys_outmax);
-}
-
-int sys_send_dacs() {
-    if (sys_meters) sys_peakmeters();
-    if (sys_audio()) return sys_audio()->send_dacs();
-    post("unknown API");
-    return 0;
-}
-
-float sys_getsr() {return sys_dacsr;}
-int sys_get_outchannels() {return sys_outchannels;}
-int sys_get_inchannels()  {return sys_inchannels;}
-
-void sys_getmeters(float *inmax, float *outmax) {
-    if (inmax) {
-        sys_meters = 1;
-        *inmax = sys_inmax;
-        *outmax = sys_outmax;
-    } else sys_meters = 0;
-    sys_inmax = sys_outmax = 0;
-}
-
-static void audio_getdevs(char *idevlist, int *nidev, char *odevlist, int *nodev, int *canmulti, int maxndev, int devdescsize) {
-    audio_init();
-    if (sys_audio()) sys_audio()->getdevs(idevlist, nidev, odevlist, nodev, canmulti, maxndev, devdescsize);
-    else {*nidev = *nodev = 0;}
-}
-
-void sys_listdevs() {
-#ifdef USEAPI_JACK
-    if (sys_audioapi == API_JACK) return jack_listdevs();
-#endif
-    char idevlist[MAXNDEV*DEVDESCSIZE], odevlist[MAXNDEV*DEVDESCSIZE];
-    int nidev = 0, nodev = 0, canmulti = 0;
-    audio_getdevs(idevlist, &nidev, odevlist, &nodev, &canmulti,  MAXNDEV, DEVDESCSIZE);
-    /* To agree with command line flags, normally start at 1; but microsoft "MMIO" device list starts at 0 (the "mapper"). */
-    /* (see also sys_mmio variable in s_main.c)  */
-    if (!nidev) post("no audio input devices found");  else post("audio input devices:");
-    for (int i=0; i<nidev; i++) post("%d. %s", i + (sys_audioapi != API_MMIO),  idevlist + i*DEVDESCSIZE);
-    if (!nodev) post("no audio output devices found"); else post("audio output devices:");
-    for (int i=0; i<nodev; i++) post("%d. %s", i + (sys_audioapi != API_MMIO), odevlist + i*DEVDESCSIZE);
-    post("API number %d", sys_audioapi);
-    sys_listmididevs();
-}
-
-/* start an audio settings dialog window */
-void glob_audio_properties(t_pd *, t_floatarg flongform) {
-    /* these are the devices you're using: */
-    t_audiodevs ai,ao;
-    int rate, dacblocksize, advance, scheduler;
-    /* these are all the devices on your system: */
-    char idevlist[MAXNDEV*DEVDESCSIZE], odevlist[MAXNDEV*DEVDESCSIZE];
-    int nidev = 0, nodev = 0, canmulti = 0;
-    audio_getdevs(idevlist, &nidev, odevlist, &nodev, &canmulti, MAXNDEV, DEVDESCSIZE);
-    ostringstream idevliststring; for (int i=0; i<nidev; i++) idevliststring << " {" << (idevlist + i*DEVDESCSIZE) << "}";
-    ostringstream odevliststring; for (int i=0; i<nodev; i++) odevliststring << " {" << (odevlist + i*DEVDESCSIZE) << "}";
-    sys_get_audio_params(&ai,&ao,&rate,&dacblocksize,&advance,&scheduler);
-    if (ai.ndev > 1 || ao.ndev > 1) flongform = 1;
-    ostringstream idevs;  for (int i=0; i<ai.ndev; i++) idevs  << " " << ai.  dev[i];
-    ostringstream odevs;  for (int i=0; i<ao.ndev; i++) odevs  << " " << ao.  dev[i];
-    ostringstream ichans; for (int i=0; i<ai.ndev; i++) ichans << " " << ai.chdev[i];
-    ostringstream ochans; for (int i=0; i<ao.ndev; i++) ochans << " " << ao.chdev[i];
-    sys_vgui("pdtk_audio_dialog {%s} {%s} {%s} {%s} {%s} {%s} %d %d %d %d %d\n",
-        idevliststring.str().data()+1, idevs.str().data()+1, ichans.str().data()+1,
-        odevliststring.str().data()+1, odevs.str().data()+1, ochans.str().data()+1,
-        rate, dacblocksize, advance, canmulti, flongform!=0);
-}
-
-/* new values from dialog window */
-void glob_audio_dialog(t_pd *, t_symbol *s, int argc, t_atom *argv) {
-    int nidev=0, nodev=0;
-    t_audiodevs ai,ao;
-    for (int i=0; i<4; i++) {
-        ai.dev  [i] = INTARG(i   );
-        ai.chdev[i] = INTARG(i+4 );
-        ao.dev  [i] = INTARG(i+8 );
-        ao.chdev[i] = INTARG(i+12);
-    }
-    for (int i=0; i<4; i++) if (ai.chdev[i]) {ai.dev[nidev] = ai.dev[i]; ai.chdev[nidev] = ai.chdev[i]; nidev++;}
-    for (int i=0; i<4; i++) if (ao.chdev[i]) {ao.dev[nodev] = ao.dev[i]; ao.chdev[nodev] = ao.chdev[i]; nodev++;}
-    sys_close_audio();
-    sys_open_audio(nidev, ai.dev, nidev, ai.chdev,
-                   nodev, ao.dev, nodev, ao.chdev, INTARG(16),INTARG(17),INTARG(18),INTARG(19), 1);
-}
-
-void sys_setblocksize(int n) {
-    if (n < 1) n = 1;
-    if (n != (1 << ilog2(n))) post("warning: adjusting blocksize to power of 2: %d", (n = (1 << ilog2(n))));
-    sys_blocksize = n;
-}
-
-void sys_set_audio_api(int which) {
-     sys_audioapi = which;
-     if (sys_verbose) post("sys_audioapi %d", sys_audioapi);
-}
-
-void glob_audio_setapi(t_pd *, t_floatarg f) {
-    int newapi = int(f);
-    if (newapi != sys_audioapi) {
-	if (newapi != sys_audioapi) {
-            sys_close_audio();
-            sys_audioapi = newapi;
-	    /* bash device params back to default */
-            audi.ndev     = audo.ndev     = 1;
-            audi.dev[0]   = audo.dev[0]   = DEFAULTAUDIODEV;
-            audi.chdev[0] = audo.chdev[0] = SYS_DEFAULTCH;
-	}
-	sched_set_using_dacs(0);
-/* 	glob_audio_properties(0, 0); */
-    }
-}
-
-/* start or stop the audio hardware */
-void sys_set_audio_state(int onoff) {
-    if (onoff) {if (!audio_isopen()) sys_reopen_audio();}
-    else       {if ( audio_isopen())  sys_close_audio();}
-    sched_set_using_dacs(onoff);
-    sys_setscheduler(sys_getscheduler()); /* tb: reset scheduler */
-    audio_state = onoff;
-}
-
-void sys_get_audio_apis(char *buf) {
-    int n = 0;
-    strcpy(buf, "{ ");
-#ifdef USEAPI_OSS
-    sprintf(buf + strlen(buf), "{OSS %d} ", API_OSS); n++;
-#endif
-#ifdef USEAPI_ASIO
-    sprintf(buf + strlen(buf), "{ASIO %d} ", API_ASIO); n++;
-#endif
-#ifdef USEAPI_MMIO
-    sprintf(buf + strlen(buf), "{\"standard (MMIO)\" %d} ", API_MMIO); n++;
-#endif
-#ifdef USEAPI_ALSA
-    sprintf(buf + strlen(buf), "{ALSA %d} ", API_ALSA); n++;
-#endif
-#ifdef USEAPI_PORTAUDIO
-#ifdef __APPLE__
-    sprintf(buf + strlen(buf), "{\"standard (portaudio)\" %d} ", API_PORTAUDIO);  n++;
-#else
-    sprintf(buf + strlen(buf), "{portaudio %d} ", API_PORTAUDIO);  n++;
-#endif
-#endif
-#ifdef USEAPI_JACK
-    sprintf(buf + strlen(buf), "{jack %d} ", API_JACK); n++;
-#endif
-    strcat(buf, "}");
-}
-
-#ifdef USEAPI_ALSA
-void alsa_putzeros(int iodev, int n);
-void alsa_getzeros(int iodev, int n);
-void alsa_printstate();
-#endif
-
-/* debugging */
-void glob_foo(void *, t_symbol *s, int argc, t_atom *argv) {
-    t_symbol *arg = atom_getsymbolarg(0, argc, argv);
-    if      (arg == gensym("restart"))   sys_reopen_audio();
-#ifdef USEAPI_ALSA
-    /* what's the matter here? what should be the value of iodev??? */
-    else if (arg == gensym("alsawrite")) alsa_putzeros(0, INTARG(1));
-    else if (arg == gensym("alsaread"))  alsa_getzeros(0, INTARG(1));
-    else if (arg == gensym("print"))     alsa_printstate();
-#endif
-}
-
-/* tb: message-based audio configuration */
-void glob_audio_api(t_pd *, t_float f) {
-	int newapi = (int)f;
-	sys_close_audio();
-	sys_audioapi = newapi;
-}
-void glob_audio_samplerate(  t_pd *, t_float f) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler; if (f == sys_getsr()) return;
-	sys_get_audio_params(&ai,&ao,&rate, &dacblocksize, &advance, &scheduler);
-	sys_close_audio(); sys_open_audio2(&ai,&ao,(int)f, dacblocksize, advance, scheduler);
-}
-void glob_audio_delay(       t_pd *, t_float f) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler; if (int(f) == audio_advance) return;
-	sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-	sys_close_audio(); sys_open_audio2(&ai,&ao,rate,dacblocksize,int(f),scheduler);
-}
-void glob_audio_dacblocksize(t_pd *, t_float f) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler; if (int(f) == audio_dacblocksize) return;
-	sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-	sys_close_audio(); sys_open_audio2(&ai,&ao,rate,(int)f,advance,scheduler);
-}
-void glob_audio_scheduler(t_pd *, t_float f) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler; if (int(f) == sys_callbackscheduler) return;
-	scheduler = f!=0;
-	sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-	sys_close_audio();
-	sys_open_audio2(&ai,&ao, rate, dacblocksize, advance, scheduler);
-	if (scheduler != sys_callbackscheduler) {
-		if (scheduler == 1) post("switched to callback-based scheduler");
-		else                post("switched to traditional scheduler");
-	} else post("couldn't change scheduler");
-}
-
-void glob_audio_device(t_pd *, t_symbol *s, int argc, t_atom *argv) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler;
-	sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-	ao.ndev = ai.ndev = INTARG(0);
-	for (int i=0; i<MAXAUDIOINDEV; i++) {
-		ao.dev  [i] = ai.dev  [i] = INTARG(i*2+1);
-		ao.chdev[i] = ai.chdev[i] = INTARG(i*2+2);
-	}
-	sys_close_audio(); sys_open_audio2(&ai,&ao, rate, dacblocksize, advance, scheduler);
-}
-
-void glob_audio_device_in( t_pd *, t_symbol *s, int argc, t_atom *argv) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler;
-	sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-	ai.ndev = INTARG(0);
-	for (int i=0; i<MAXAUDIOINDEV;  i+=2) {ai.dev[i] = INTARG(i+1); ai.chdev[i] = INTARG(i+2);}
-	sys_close_audio(); sys_open_audio2(&ai,&ao,rate, dacblocksize, advance, scheduler);
-}
-void glob_audio_device_out(t_pd *, t_symbol *s, int argc, t_atom *argv) {
-	t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler;
-	sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-	ao.ndev = INTARG(0);
-	for (int i=0; i<MAXAUDIOOUTDEV; i+=2) {ao.dev[i] = INTARG(i+1); ao.chdev[i] = INTARG(i+2);}
-	sys_close_audio(); sys_open_audio2(&ai,&ao, rate, dacblocksize, advance, scheduler);
-}
-
-/* some general helper functions */
-void sys_update_sleepgrain() {sys_sleepgrain = clip(sys_schedadvance/4,1000,5000);}
-
-/* t_audiodevs are the ones you're using; char[] are all the devices available. */
-void glob_audio_getaudioindevices(t_pd *, t_symbol *s, int ac, t_atom *av) {
-    t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler;
-    int nidev=0, nodev=0, canmulti=0; t_atom argv[MAXNDEV]; int f = ac ? atom_getintarg(0,ac,av) : -1;
-    t_symbol *selector = gensym("audioindev"), *pd = gensym("pd");
-    char idevlist[MAXNDEV*DEVDESCSIZE], odevlist[MAXNDEV*DEVDESCSIZE];
-    audio_getdevs(idevlist, &nidev, odevlist, &nodev, &canmulti, MAXNDEV, DEVDESCSIZE);
-    sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-    if (f<0) {
-        for (int i=0; i<nidev; i++) SETSTRING(argv+i,idevlist+i*DEVDESCSIZE);
-        typedmess(pd->s_thing, selector, nidev, argv);
-    } else if (f < nidev) {
-        SETSTRING(argv, idevlist + f*DEVDESCSIZE);
-        typedmess(pd->s_thing, selector, 1, argv);
-    }
-}
-void glob_audio_getaudiooutdevices(t_pd *, t_symbol *s, int ac, t_atom *av) {
-    t_audiodevs ai,ao; int rate, dacblocksize, advance, scheduler;
-    int nidev=0, nodev=0, canmulti=0; t_atom argv[MAXNDEV]; int f = ac ? atom_getintarg(0,ac,av) : -1;
-    t_symbol *selector = gensym("audiooutdev"), *pd = gensym("pd");
-    char idevlist[MAXNDEV*DEVDESCSIZE], odevlist[MAXNDEV*DEVDESCSIZE];
-    audio_getdevs(idevlist, &nidev, odevlist, &nodev, &canmulti, MAXNDEV, DEVDESCSIZE);
-    sys_get_audio_params(&ai,&ao, &rate, &dacblocksize, &advance, &scheduler);
-    if (f<0) {
-        for (int i=0; i<nodev; i++) SETSYMBOL(argv+i, gensym(odevlist+i*DEVDESCSIZE));
-        typedmess(pd->s_thing, selector, nodev, argv);
-    } else if (f < nodev) {
-        SETSTRING(argv, odevlist + f*DEVDESCSIZE);
-        typedmess(pd->s_thing, selector, 1, argv);
-    }
-}
-
-/* some prototypes from s_audio_portaudio.c */
-extern void pa_getcurrent_devices();
-extern void pa_getaudioininfo(t_float f);
-extern void pa_getaudiooutinfo(t_float f);
-extern void pa_test_setting (int ac, t_atom *av);
-extern void pa_get_asio_latencies(t_float f);
-
-void glob_audio_getaudioininfo(t_pd *, t_float f) {
-#if defined(USEAPI_PORTAUDIO) && !defined(PABLIO)
-    if (sys_audioapi == API_PORTAUDIO) pa_getaudioininfo(f);
-#endif
-}
-void glob_audio_getaudiooutinfo(t_pd *, t_float f) {
-#if defined(USEAPI_PORTAUDIO) && !defined(PABLIO)
-    if (sys_audioapi == API_PORTAUDIO) pa_getaudiooutinfo(f);
-#endif
-}
-void glob_audio_testaudiosetting(t_pd *, t_symbol *s, int ac, t_atom *av) {
-#if defined(USEAPI_PORTAUDIO) && !defined(PABLIO)
-    if (sys_audioapi == API_PORTAUDIO) pa_test_setting (ac, av);
-#endif
-}
-void glob_audio_getcurrent_devices() {
-#if defined(USEAPI_PORTAUDIO) && !defined(PABLIO)
-    if (sys_audioapi == API_PORTAUDIO) pa_getcurrent_devices();
-#endif
-}
-void glob_audio_asio_latencies(t_pd *, t_float f) {
-#if defined(USEAPI_PORTAUDIO) && !defined(PABLIO)
-    if (sys_audioapi == API_PORTAUDIO) pa_get_asio_latencies(f);
-#endif
-}
-
-/* tb } */
-- 
cgit v1.2.1