Alc/alsa.c

   1 /**
   2  * OpenAL cross platform audio library
   3  * Copyright (C) 1999-2007 by authors.
   4  * This library is free software; you can redistribute it and/or
   5  *  modify it under the terms of the GNU Library General Public
   6  *  License as published by the Free Software Foundation; either
   7  *  version 2 of the License, or (at your option) any later version.
   8  *
   9  * This library is distributed in the hope that it will be useful,
  10  *  but WITHOUT ANY WARRANTY; without even the implied warranty of
  11  *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  12  *  Library General Public License for more details.
  13  *
  14  * You should have received a copy of the GNU Library General Public
  15  *  License along with this library; if not, write to the
  16  *  Free Software Foundation, Inc., 59 Temple Place - Suite 330,
  17  *  Boston, MA  02111-1307, USA.
  18  * Or go to http://www.gnu.org/copyleft/lgpl.html
  19  */
  20
  21 #include "config.h"
  22
  23 #include <stdlib.h>
  24 #include <stdio.h>
  25 #include <memory.h>
  26 #ifdef HAVE_DLFCN_H
  27 #include <dlfcn.h>
  28 #endif
  29 #include "alMain.h"
  30 #include "AL/al.h"
  31 #include "AL/alc.h"
  32
  33 #include <alsa/asoundlib.h>
  34
  35
  36 typedef struct {
  37     snd_pcm_t *pcmHandle;
  38     snd_pcm_format_t format;
  39
  40     ALvoid *buffer;
  41     ALsizei size;
  42
  43     int killNow;
  44     ALvoid *thread;
  45 } alsa_data;
  46
  47 typedef struct {
  48     ALCchar *name;
  49     int card, dev;
  50 } DevMap;
  51
  52 static void *alsa_handle;
  53 #define MAKE_FUNC(f) static typeof(f) * p##f
  54 MAKE_FUNC(snd_strerror);
  55 MAKE_FUNC(snd_pcm_open);
  56 MAKE_FUNC(snd_pcm_close);
  57 MAKE_FUNC(snd_pcm_nonblock);
  58 MAKE_FUNC(snd_pcm_frames_to_bytes);
  59 MAKE_FUNC(snd_pcm_hw_params_malloc);
  60 MAKE_FUNC(snd_pcm_hw_params_free);
  61 MAKE_FUNC(snd_pcm_hw_params_any);
  62 MAKE_FUNC(snd_pcm_hw_params_set_access);
  63 MAKE_FUNC(snd_pcm_hw_params_set_format);
  64 MAKE_FUNC(snd_pcm_hw_params_set_channels);
  65 MAKE_FUNC(snd_pcm_hw_params_set_periods_near);
  66 MAKE_FUNC(snd_pcm_hw_params_set_rate_near);
  67 MAKE_FUNC(snd_pcm_hw_params_set_rate);
  68 MAKE_FUNC(snd_pcm_hw_params_set_buffer_size_near);
  69 MAKE_FUNC(snd_pcm_hw_params_set_buffer_size_min);
  70 MAKE_FUNC(snd_pcm_hw_params_get_access);
  71 MAKE_FUNC(snd_pcm_hw_params);
  72 MAKE_FUNC(snd_pcm_prepare);
  73 MAKE_FUNC(snd_pcm_start);
  74 MAKE_FUNC(snd_pcm_resume);
  75 MAKE_FUNC(snd_pcm_state);
  76 MAKE_FUNC(snd_pcm_avail_update);
  77 MAKE_FUNC(snd_pcm_areas_silence);
  78 MAKE_FUNC(snd_pcm_mmap_begin);
  79 MAKE_FUNC(snd_pcm_mmap_commit);
  80 MAKE_FUNC(snd_pcm_writei);
  81 MAKE_FUNC(snd_pcm_drain);
  82 MAKE_FUNC(snd_pcm_info_malloc);
  83 MAKE_FUNC(snd_pcm_info_free);
  84 MAKE_FUNC(snd_pcm_info_set_device);
  85 MAKE_FUNC(snd_pcm_info_set_subdevice);
  86 MAKE_FUNC(snd_pcm_info_set_stream);
  87 MAKE_FUNC(snd_pcm_info_get_name);
  88 MAKE_FUNC(snd_ctl_pcm_next_device);
  89 MAKE_FUNC(snd_ctl_pcm_info);
  90 MAKE_FUNC(snd_ctl_open);
  91 MAKE_FUNC(snd_ctl_close);
  92 MAKE_FUNC(snd_ctl_card_info_malloc);
  93 MAKE_FUNC(snd_ctl_card_info_free);
  94 MAKE_FUNC(snd_ctl_card_info);
  95 MAKE_FUNC(snd_ctl_card_info_get_name);
  96 MAKE_FUNC(snd_card_next);
  97 #undef MAKE_FUNC
  98
  99 #define MAX_DEVICES 16
 100 #define MAX_ALL_DEVICES 32
 101
 102 static DevMap allDevNameMap[MAX_ALL_DEVICES];
 103 static ALCchar *alsaDeviceList[MAX_DEVICES];
 104 static ALCchar *alsaCaptureDeviceList[MAX_DEVICES];
 105
 106 static int xrun_recovery(snd_pcm_t *handle, int err)
 107 {
 108     if (err == -EPIPE)
 109     {    /* under-run */
 110         err = psnd_pcm_prepare(handle);
 111         if(err >= 0)
 112             err = psnd_pcm_start(handle);
 113         if (err < 0)
 114             AL_PRINT("prepare failed: %s\n", psnd_strerror(err));
 115     }
 116     else if (err == -ESTRPIPE)
 117     {
 118         while ((err = psnd_pcm_resume(handle)) == -EAGAIN)
 119             Sleep(1);       /* wait until the suspend flag is released */
 120         if (err < 0)
 121         {
 122             err = psnd_pcm_prepare(handle);
 123             if(err >= 0)
 124                 err = psnd_pcm_start(handle);
 125             if (err < 0)
 126                 AL_PRINT("prepare failed: %s\n", psnd_strerror(err));
 127         }
 128     }
 129     return err;
 130 }
 131
 132
 133 static ALuint ALSAProc(ALvoid *ptr)
 134 {
 135     ALCdevice *pDevice = (ALCdevice*)ptr;
 136     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 137     const snd_pcm_channel_area_t *areas = NULL;
 138     snd_pcm_sframes_t avail, commitres;
 139     snd_pcm_uframes_t offset, frames;
 140     char *WritePtr;
 141     int WriteCnt;
 142     int err;
 143
 144     while(!data->killNow)
 145     {
 146         snd_pcm_state_t state = psnd_pcm_state(data->pcmHandle);
 147         if(state == SND_PCM_STATE_XRUN)
 148         {
 149             err = xrun_recovery(data->pcmHandle, -EPIPE);
 150             if (err < 0)
 151             {
 152                 AL_PRINT("XRUN recovery failed: %s\n", psnd_strerror(err));
 153                 break;
 154             }
 155         }
 156         else if (state == SND_PCM_STATE_SUSPENDED)
 157         {
 158             err = xrun_recovery(data->pcmHandle, -ESTRPIPE);
 159             if (err < 0)
 160             {
 161                 AL_PRINT("SUSPEND recovery failed: %s\n", psnd_strerror(err));
 162                 break;
 163             }
 164         }
 165
 166         avail = psnd_pcm_avail_update(data->pcmHandle);
 167         if(avail < 0)
 168         {
 169             err = xrun_recovery(data->pcmHandle, avail);
 170             if (err < 0)
 171             {
 172                 AL_PRINT("available update failed: %s\n", psnd_strerror(err));
 173                 break;
 174             }
 175         }
 176
 177         // make sure there's frames to process
 178         if(avail == 0)
 179         {
 180             Sleep(1);
 181             continue;
 182         }
 183
 184         // it is possible that contiguous areas are smaller, thus we use a loop
 185         while (avail > 0)
 186         {
 187             frames = avail;
 188
 189             err = psnd_pcm_mmap_begin(data->pcmHandle, &areas, &offset, &frames);
 190             if (err < 0)
 191             {
 192                 err = xrun_recovery(data->pcmHandle, err);
 193                 if (err < 0)
 194                     AL_PRINT("mmap begin error: %s\n", psnd_strerror(err));
 195                 break;
 196             }
 197
 198             SuspendContext(NULL);
 199             WritePtr = (char*)areas->addr + (offset * areas->step / 8);
 200             WriteCnt = psnd_pcm_frames_to_bytes(data->pcmHandle, frames);
 201             aluMixData(pDevice->Context, WritePtr, WriteCnt, pDevice->Format);
 202             ProcessContext(NULL);
 203
 204             commitres = psnd_pcm_mmap_commit(data->pcmHandle, offset, frames);
 205             if (commitres < 0 || (commitres-frames) != 0)
 206             {
 207                 AL_PRINT("mmap commit error: %s\n",
 208                          psnd_strerror(commitres >= 0 ? -EPIPE : commitres));
 209                 break;
 210             }
 211
 212             avail -= frames;
 213         }
 214     }
 215
 216     return 0;
 217 }
 218
 219 static ALuint ALSANoMMapProc(ALvoid *ptr)
 220 {
 221     ALCdevice *pDevice = (ALCdevice*)ptr;
 222     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 223     snd_pcm_sframes_t avail;
 224     char *WritePtr;
 225
 226     while(!data->killNow)
 227     {
 228         SuspendContext(NULL);
 229         aluMixData(pDevice->Context, data->buffer, data->size, pDevice->Format);
 230         ProcessContext(NULL);
 231
 232         WritePtr = data->buffer;
 233         avail = (snd_pcm_uframes_t)data->size / psnd_pcm_frames_to_bytes(data->pcmHandle, 1);
 234         while(avail > 0)
 235         {
 236             int ret = psnd_pcm_writei(data->pcmHandle, WritePtr, avail);
 237             switch (ret)
 238             {
 239             case -EAGAIN:
 240                 continue;
 241             case -ESTRPIPE:
 242                 do {
 243                     ret = psnd_pcm_resume(data->pcmHandle);
 244                 } while(ret == -EAGAIN);
 245                 break;
 246             case -EPIPE:
 247                 break;
 248             default:
 249                 if (ret >= 0)
 250                 {
 251                     WritePtr += psnd_pcm_frames_to_bytes(data->pcmHandle, ret);
 252                     avail -= ret;
 253                 }
 254                 break;
 255             }
 256             if (ret < 0)
 257             {
 258                 ret = psnd_pcm_prepare(data->pcmHandle);
 259                 if(ret < 0)
 260                     break;
 261             }
 262         }
 263     }
 264
 265     return 0;
 266 }
 267
 268 static void fill_silence(snd_pcm_t *pcmHandle, snd_pcm_format_t alsaFormat, int channels)
 269 {
 270     const snd_pcm_channel_area_t *areas = NULL;
 271     snd_pcm_sframes_t avail, commitres;
 272     snd_pcm_uframes_t offset, frames;
 273     int err;
 274
 275     avail = psnd_pcm_avail_update(pcmHandle);
 276     if(avail < 0)
 277     {
 278         AL_PRINT("available update failed: %s\n", psnd_strerror(avail));
 279         return;
 280     }
 281
 282     // it is possible that contiguous areas are smaller, thus we use a loop
 283     while (avail > 0)
 284     {
 285         frames = avail;
 286
 287         err = psnd_pcm_mmap_begin(pcmHandle, &areas, &offset, &frames);
 288         if (err < 0)
 289         {
 290             AL_PRINT("mmap begin error: %s\n", psnd_strerror(err));
 291             break;
 292         }
 293
 294         psnd_pcm_areas_silence(areas, offset, channels, frames, alsaFormat);
 295
 296         commitres = psnd_pcm_mmap_commit(pcmHandle, offset, frames);
 297         if (commitres < 0 || (commitres-frames) != 0)
 298         {
 299             AL_PRINT("mmap commit error: %s\n",
 300                      psnd_strerror(commitres >= 0 ? -EPIPE : commitres));
 301             break;
 302         }
 303
 304         avail -= frames;
 305     }
 306 }
 307
 308 static ALCboolean alsa_open_playback(ALCdevice *device, const ALCchar *deviceName)
 309 {
 310     snd_pcm_uframes_t bufferSizeInFrames;
 311     snd_pcm_hw_params_t *p = NULL;
 312     snd_pcm_access_t access;
 313     unsigned int periods;
 314     alsa_data *data;
 315     char driver[64];
 316     char *err;
 317     int i;
 318
 319     if(!alsa_handle)
 320         return ALC_FALSE;
 321
 322     strncpy(driver, GetConfigValue("alsa", "device", "default"), sizeof(driver)-1);
 323     driver[sizeof(driver)-1] = 0;
 324     if(deviceName)
 325     {
 326         size_t idx;
 327
 328         for(idx = 0;idx < MAX_ALL_DEVICES;idx++)
 329         {
 330             if(allDevNameMap[idx].name &&
 331                strcmp(deviceName, allDevNameMap[idx].name) == 0)
 332             {
 333                 device->szDeviceName = allDevNameMap[idx].name;
 334                 if(idx > 0)
 335                     sprintf(driver, "hw:%d,%d", allDevNameMap[idx].card, allDevNameMap[idx].dev);
 336                 goto open_alsa;
 337             }
 338         }
 339         for(idx = 0;idx < MAX_DEVICES;idx++)
 340         {
 341             if(alsaDeviceList[idx] &&
 342                strcmp(deviceName, alsaDeviceList[idx]) == 0)
 343             {
 344                 device->szDeviceName = alsaDeviceList[idx];
 345                 if(idx > 0)
 346                     sprintf(driver, "hw:%zd,0", idx-1);
 347                 goto open_alsa;
 348             }
 349         }
 350         return ALC_FALSE;
 351     }
 352     else
 353         device->szDeviceName = alsaDeviceList[0];
 354
 355 open_alsa:
 356     data = (alsa_data*)calloc(1, sizeof(alsa_data));
 357
 358     i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK);
 359     if(i < 0)
 360     {
 361         Sleep(200);
 362         i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_PLAYBACK, SND_PCM_NONBLOCK);
 363     }
 364     if(i >= 0)
 365     {
 366         i = psnd_pcm_nonblock(data->pcmHandle, 0);
 367         if(i < 0)
 368             psnd_pcm_close(data->pcmHandle);
 369     }
 370     if(i < 0)
 371     {
 372         free(data);
 373         AL_PRINT("Could not open playback device '%s': %s\n", driver, psnd_strerror(i));
 374         return ALC_FALSE;
 375     }
 376
 377     switch(aluBytesFromFormat(device->Format))
 378     {
 379         case 1:
 380             data->format = SND_PCM_FORMAT_U8;
 381             break;
 382         case 2:
 383             data->format = SND_PCM_FORMAT_S16;
 384             break;
 385         default:
 386             data->format = SND_PCM_FORMAT_UNKNOWN;
 387             AL_PRINT("Unknown format?! %x\n", device->Format);
 388     }
 389
 390     periods = GetConfigValueInt("alsa", "periods", 4);
 391     if((int)periods <= 0)
 392         periods = 4;
 393     bufferSizeInFrames = device->UpdateFreq / periods;
 394
 395     psnd_pcm_hw_params_malloc(&p);
 396 #define ok(func, str) (i=(func),((i<0)?(err=(str)),0:1))
 397     /* start with the largest configuration space possible */
 398     if(!(ok(psnd_pcm_hw_params_any(data->pcmHandle, p), "any") &&
 399          /* set interleaved access */
 400          (ok(psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_MMAP_INTERLEAVED), "set access") ||
 401           ok(psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_RW_INTERLEAVED), "set access")) &&
 402          /* set format (implicitly sets sample bits) */
 403          ok(psnd_pcm_hw_params_set_format(data->pcmHandle, p, data->format), "set format") &&
 404          /* set channels (implicitly sets frame bits) */
 405          ok(psnd_pcm_hw_params_set_channels(data->pcmHandle, p, device->Channels), "set channels") &&
 406          /* set periods (implicitly constrains period/buffer parameters) */
 407          ok(psnd_pcm_hw_params_set_periods_near(data->pcmHandle, p, &periods, NULL), "set periods near") &&
 408          /* set rate (implicitly constrains period/buffer parameters) */
 409          ok(psnd_pcm_hw_params_set_rate_near(data->pcmHandle, p, &device->Frequency, NULL), "set rate near") &&
 410          /* set buffer size in frame units (implicitly sets period size/bytes/time and buffer time/bytes) */
 411          ok(psnd_pcm_hw_params_set_buffer_size_near(data->pcmHandle, p, &bufferSizeInFrames), "set buffer size near") &&
 412          /* install and prepare hardware configuration */
 413          ok(psnd_pcm_hw_params(data->pcmHandle, p), "set params")))
 414     {
 415         AL_PRINT("%s failed: %s\n", err, psnd_strerror(i));
 416         psnd_pcm_hw_params_free(p);
 417         psnd_pcm_close(data->pcmHandle);
 418         free(data);
 419         return ALC_FALSE;
 420     }
 421 #undef ok
 422
 423     if((i=psnd_pcm_hw_params_get_access(p, &access)) < 0)
 424     {
 425         AL_PRINT("get_access failed: %s\n", psnd_strerror(i));
 426         psnd_pcm_hw_params_free(p);
 427         psnd_pcm_close(data->pcmHandle);
 428         free(data);
 429         return ALC_FALSE;
 430     }
 431
 432     psnd_pcm_hw_params_free(p);
 433
 434     device->MaxNoOfSources = 256;
 435     device->UpdateFreq = bufferSizeInFrames;
 436
 437     data->size = psnd_pcm_frames_to_bytes(data->pcmHandle, device->UpdateFreq);
 438     if(access == SND_PCM_ACCESS_RW_INTERLEAVED)
 439     {
 440         data->buffer = malloc(data->size);
 441         if(!data->buffer)
 442         {
 443             AL_PRINT("buffer malloc failed\n");
 444             psnd_pcm_close(data->pcmHandle);
 445             free(data);
 446             return ALC_FALSE;
 447         }
 448     }
 449     else
 450     {
 451         i = psnd_pcm_prepare(data->pcmHandle);
 452         if(i < 0)
 453         {
 454             AL_PRINT("prepare error: %s\n", psnd_strerror(i));
 455             psnd_pcm_close(data->pcmHandle);
 456             free(data->buffer);
 457             free(data);
 458             return ALC_FALSE;
 459         }
 460
 461         fill_silence(data->pcmHandle, data->format, device->Channels);
 462
 463         i = psnd_pcm_start(data->pcmHandle);
 464         if(i < 0)
 465         {
 466             AL_PRINT("start error: %s\n", psnd_strerror(i));
 467             psnd_pcm_close(data->pcmHandle);
 468             free(data->buffer);
 469             free(data);
 470             return ALC_FALSE;
 471         }
 472     }
 473
 474     device->ExtraData = data;
 475     if(access == SND_PCM_ACCESS_RW_INTERLEAVED)
 476         data->thread = StartThread(ALSANoMMapProc, device);
 477     else
 478         data->thread = StartThread(ALSAProc, device);
 479     if(data->thread == NULL)
 480     {
 481         psnd_pcm_close(data->pcmHandle);
 482         device->ExtraData = NULL;
 483         free(data->buffer);
 484         free(data);
 485         return ALC_FALSE;
 486     }
 487
 488     return ALC_TRUE;
 489 }
 490
 491 static void alsa_close_playback(ALCdevice *device)
 492 {
 493     alsa_data *data = (alsa_data*)device->ExtraData;
 494     data->killNow = 1;
 495     StopThread(data->thread);
 496     psnd_pcm_close(data->pcmHandle);
 497
 498     free(data->buffer);
 499     free(data);
 500     device->ExtraData = NULL;
 501 }
 502
 503
 504 static ALCboolean alsa_open_capture(ALCdevice *pDevice, const ALCchar *deviceName, ALCuint frequency, ALCenum format, ALCsizei SampleSize)
 505 {
 506     snd_pcm_format_t alsaFormat;
 507     snd_pcm_hw_params_t *p;
 508     unsigned int periods = 4;
 509     snd_pcm_uframes_t bufferSizeInFrames;
 510     alsa_data *data;
 511     char driver[64];
 512     char *err;
 513     int i;
 514
 515     if(!alsa_handle)
 516         return ALC_FALSE;
 517
 518     strncpy(driver, GetConfigValue("alsa", "capture", "default"), sizeof(driver)-1);
 519     driver[sizeof(driver)-1] = 0;
 520     if(deviceName)
 521     {
 522         size_t idx;
 523
 524         for(idx = 0;idx < MAX_DEVICES;idx++)
 525         {
 526             if(alsaCaptureDeviceList[idx] &&
 527                strcmp(deviceName, alsaCaptureDeviceList[idx]) == 0)
 528             {
 529                 pDevice->szDeviceName = alsaCaptureDeviceList[idx];
 530                 if(idx > 0)
 531                     sprintf(driver, "hw:%zd,0", idx-1);
 532                 goto open_alsa;
 533             }
 534         }
 535         return ALC_FALSE;
 536     }
 537     else
 538         pDevice->szDeviceName = alsaCaptureDeviceList[0];
 539
 540 open_alsa:
 541     data = (alsa_data*)calloc(1, sizeof(alsa_data));
 542
 543     i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_CAPTURE, SND_PCM_NONBLOCK);
 544     if(i < 0)
 545     {
 546         Sleep(200);
 547         i = psnd_pcm_open(&data->pcmHandle, driver, SND_PCM_STREAM_CAPTURE, SND_PCM_NONBLOCK);
 548     }
 549     if(i >= 0)
 550     {
 551         i = psnd_pcm_nonblock(data->pcmHandle, 0);
 552         if(i < 0)
 553             psnd_pcm_close(data->pcmHandle);
 554     }
 555     if(i < 0)
 556     {
 557         free(data);
 558         AL_PRINT("Could not open capture device '%s': %s\n", driver, psnd_strerror(i));
 559         return ALC_FALSE;
 560     }
 561
 562     switch(aluBytesFromFormat(format))
 563     {
 564         case 1:
 565             alsaFormat = SND_PCM_FORMAT_U8;
 566             break;
 567         case 2:
 568             alsaFormat = SND_PCM_FORMAT_S16;
 569             break;
 570         default:
 571             alsaFormat = SND_PCM_FORMAT_UNKNOWN;
 572             AL_PRINT("Unknown format?! %x\n", format);
 573     }
 574
 575     bufferSizeInFrames = SampleSize / periods;
 576
 577     psnd_pcm_hw_params_malloc(&p);
 578 #define ok(func, str) (i=(func),((i<0)?(err=(str)),0:1))
 579     /* start with the largest configuration space possible */
 580     if(!(ok(psnd_pcm_hw_params_any(data->pcmHandle, p), "any") &&
 581          /* set interleaved access */
 582          ok(psnd_pcm_hw_params_set_access(data->pcmHandle, p, SND_PCM_ACCESS_MMAP_INTERLEAVED), "set access") &&
 583          /* set format (implicitly sets sample bits) */
 584          ok(psnd_pcm_hw_params_set_format(data->pcmHandle, p, alsaFormat), "set format") &&
 585          /* set channels (implicitly sets frame bits) */
 586          ok(psnd_pcm_hw_params_set_channels(data->pcmHandle, p, pDevice->Channels), "set channels") &&
 587          /* set periods (implicitly constrains period/buffer parameters) */
 588          ok(psnd_pcm_hw_params_set_periods_near(data->pcmHandle, p, &periods, NULL), "set periods near") &&
 589          /* set rate (implicitly constrains period/buffer parameters) */
 590          ok(psnd_pcm_hw_params_set_rate(data->pcmHandle, p, frequency, 0), "set rate") &&
 591          /* set buffer size in frame units (implicitly sets period size/bytes/time and buffer time/bytes) */
 592          ok(psnd_pcm_hw_params_set_buffer_size_min(data->pcmHandle, p, &bufferSizeInFrames), "set buffer size min") &&
 593          /* install and prepare hardware configuration */
 594          ok(psnd_pcm_hw_params(data->pcmHandle, p), "set params")))
 595     {
 596         AL_PRINT("%s failed: %s\n", err, psnd_strerror(i));
 597         psnd_pcm_hw_params_free(p);
 598         psnd_pcm_close(data->pcmHandle);
 599         free(data);
 600         return ALC_FALSE;
 601     }
 602 #undef ok
 603     psnd_pcm_hw_params_free(p);
 604
 605     i = psnd_pcm_prepare(data->pcmHandle);
 606     if(i < 0)
 607     {
 608         AL_PRINT("prepare error: %s\n", psnd_strerror(i));
 609         psnd_pcm_close(data->pcmHandle);
 610         free(data);
 611         return ALC_FALSE;
 612     }
 613
 614     pDevice->ExtraData = data;
 615     return ALC_TRUE;
 616 }
 617
 618 static void alsa_close_capture(ALCdevice *pDevice)
 619 {
 620     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 621     psnd_pcm_close(data->pcmHandle);
 622
 623     free(data);
 624     pDevice->ExtraData = NULL;
 625 }
 626
 627 static void alsa_start_capture(ALCdevice *pDevice)
 628 {
 629     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 630     psnd_pcm_start(data->pcmHandle);
 631 }
 632
 633 static void alsa_stop_capture(ALCdevice *pDevice)
 634 {
 635     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 636     psnd_pcm_drain(data->pcmHandle);
 637 }
 638
 639 static void alsa_capture_samples(ALCdevice *pDevice, ALCvoid *pBuffer, ALCuint lSamples)
 640 {
 641     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 642     const snd_pcm_channel_area_t *areas = NULL;
 643     snd_pcm_sframes_t frames, commitres;
 644     snd_pcm_uframes_t size, offset;
 645     int err;
 646
 647     frames = psnd_pcm_avail_update(data->pcmHandle);
 648     if(frames < 0)
 649     {
 650         err = xrun_recovery(data->pcmHandle, frames);
 651         if (err < 0)
 652             AL_PRINT("available update failed: %s\n", psnd_strerror(err));
 653         else
 654             frames = psnd_pcm_avail_update(data->pcmHandle);
 655     }
 656     if (frames < (snd_pcm_sframes_t)lSamples)
 657     {
 658         SetALCError(ALC_INVALID_VALUE);
 659         return;
 660     }
 661
 662     // it is possible that contiguous areas are smaller, thus we use a loop
 663     while (lSamples > 0)
 664     {
 665         char *Pointer;
 666         int Count;
 667
 668         size = lSamples;
 669         err = psnd_pcm_mmap_begin(data->pcmHandle, &areas, &offset, &size);
 670         if (err < 0)
 671         {
 672             err = xrun_recovery(data->pcmHandle, err);
 673             if (err < 0)
 674             {
 675                 AL_PRINT("mmap begin error: %s\n", psnd_strerror(err));
 676                 break;
 677             }
 678             continue;
 679         }
 680
 681         Pointer = (char*)areas->addr + (offset * areas->step / 8);
 682         Count = size * pDevice->FrameSize;
 683
 684         memcpy(pBuffer, Pointer, Count);
 685         pBuffer = (char*)pBuffer + Count;
 686
 687         commitres = psnd_pcm_mmap_commit(data->pcmHandle, offset, size);
 688         if (commitres < 0 || (commitres-size) != 0)
 689         {
 690            AL_PRINT("mmap commit error: %s\n",
 691                     psnd_strerror(commitres >= 0 ? -EPIPE : commitres));
 692            break;
 693         }
 694
 695         lSamples -= size;
 696     }
 697 }
 698
 699 static ALCuint alsa_available_samples(ALCdevice *pDevice)
 700 {
 701     alsa_data *data = (alsa_data*)pDevice->ExtraData;
 702     snd_pcm_sframes_t frames = psnd_pcm_avail_update(data->pcmHandle);
 703     if(frames < 0)
 704     {
 705         int err = xrun_recovery(data->pcmHandle, frames);
 706         if (err < 0)
 707             AL_PRINT("available update failed: %s\n", psnd_strerror(err));
 708         else
 709             frames = psnd_pcm_avail_update(data->pcmHandle);
 710         if(frames < 0) /* ew.. */
 711             SetALCError(ALC_INVALID_DEVICE);
 712     }
 713     return max(frames, 0);
 714 }
 715
 716
 717 BackendFuncs alsa_funcs = {
 718     alsa_open_playback,
 719     alsa_close_playback,
 720     alsa_open_capture,
 721     alsa_close_capture,
 722     alsa_start_capture,
 723     alsa_stop_capture,
 724     alsa_capture_samples,
 725     alsa_available_samples
 726 };
 727
 728 void alc_alsa_init(BackendFuncs *func_list)
 729 {
 730     snd_ctl_t *handle;
 731     int card, err, dev, idx = 1;
 732     snd_ctl_card_info_t *info;
 733     snd_pcm_info_t *pcminfo;
 734     snd_pcm_stream_t stream = SND_PCM_STREAM_PLAYBACK;
 735     char name[128];
 736     char *str;
 737
 738     *func_list = alsa_funcs;
 739
 740 #ifdef HAVE_DLFCN_H
 741     alsa_handle = dlopen("libasound.so.2", RTLD_NOW);
 742     if(!alsa_handle)
 743         return;
 744     dlerror();
 745
 746 #define LOAD_FUNC(f) do { \
 747     p##f = (typeof(f)*)dlsym(alsa_handle, #f); \
 748     if((str=dlerror()) != NULL) \
 749     { \
 750         dlclose(alsa_handle); \
 751         alsa_handle = NULL; \
 752         AL_PRINT("Could not load %s from libasound.so.2: %s\n", #f, str); \
 753         return; \
 754     } \
 755 } while(0)
 756 #else
 757     str = NULL;
 758     alsa_handle = 0xDEADBEEF;
 759 #define LOAD_FUNC(f) p##f = f
 760 #endif
 761
 762 LOAD_FUNC(snd_strerror);
 763 LOAD_FUNC(snd_pcm_open);
 764 LOAD_FUNC(snd_pcm_close);
 765 LOAD_FUNC(snd_pcm_nonblock);
 766 LOAD_FUNC(snd_pcm_frames_to_bytes);
 767 LOAD_FUNC(snd_pcm_hw_params_malloc);
 768 LOAD_FUNC(snd_pcm_hw_params_free);
 769 LOAD_FUNC(snd_pcm_hw_params_any);
 770 LOAD_FUNC(snd_pcm_hw_params_set_access);
 771 LOAD_FUNC(snd_pcm_hw_params_set_format);
 772 LOAD_FUNC(snd_pcm_hw_params_set_channels);
 773 LOAD_FUNC(snd_pcm_hw_params_set_periods_near);
 774 LOAD_FUNC(snd_pcm_hw_params_set_rate_near);
 775 LOAD_FUNC(snd_pcm_hw_params_set_rate);
 776 LOAD_FUNC(snd_pcm_hw_params_set_buffer_size_near);
 777 LOAD_FUNC(snd_pcm_hw_params_set_buffer_size_min);
 778 LOAD_FUNC(snd_pcm_hw_params_get_access);
 779 LOAD_FUNC(snd_pcm_hw_params);
 780 LOAD_FUNC(snd_pcm_prepare);
 781 LOAD_FUNC(snd_pcm_start);
 782 LOAD_FUNC(snd_pcm_resume);
 783 LOAD_FUNC(snd_pcm_state);
 784 LOAD_FUNC(snd_pcm_avail_update);
 785 LOAD_FUNC(snd_pcm_areas_silence);
 786 LOAD_FUNC(snd_pcm_mmap_begin);
 787 LOAD_FUNC(snd_pcm_mmap_commit);
 788 LOAD_FUNC(snd_pcm_writei);
 789 LOAD_FUNC(snd_pcm_drain);
 790
 791 LOAD_FUNC(snd_pcm_info_malloc);
 792 LOAD_FUNC(snd_pcm_info_free);
 793 LOAD_FUNC(snd_pcm_info_set_device);
 794 LOAD_FUNC(snd_pcm_info_set_subdevice);
 795 LOAD_FUNC(snd_pcm_info_set_stream);
 796 LOAD_FUNC(snd_pcm_info_get_name);
 797 LOAD_FUNC(snd_ctl_pcm_next_device);
 798 LOAD_FUNC(snd_ctl_pcm_info);
 799 LOAD_FUNC(snd_ctl_open);
 800 LOAD_FUNC(snd_ctl_close);
 801 LOAD_FUNC(snd_ctl_card_info_malloc);
 802 LOAD_FUNC(snd_ctl_card_info_free);
 803 LOAD_FUNC(snd_ctl_card_info);
 804 LOAD_FUNC(snd_ctl_card_info_get_name);
 805 LOAD_FUNC(snd_card_next);
 806
 807 #undef LOAD_FUNC
 808
 809     psnd_ctl_card_info_malloc(&info);
 810     psnd_pcm_info_malloc(&pcminfo);
 811
 812     card = -1;
 813     if(psnd_card_next(&card) < 0 || card < 0)
 814         AL_PRINT("no playback cards found...\n");
 815     else
 816     {
 817         alsaDeviceList[0] = AppendDeviceList("ALSA Software on default");
 818         allDevNameMap[0].name = AppendAllDeviceList("ALSA Software on default");
 819     }
 820
 821     while (card >= 0) {
 822         sprintf(name, "hw:%d", card);
 823         if ((err = psnd_ctl_open(&handle, name, 0)) < 0) {
 824             AL_PRINT("control open (%i): %s\n", card, psnd_strerror(err));
 825             goto next_card;
 826         }
 827         if ((err = psnd_ctl_card_info(handle, info)) < 0) {
 828             AL_PRINT("control hardware info (%i): %s\n", card, psnd_strerror(err));
 829             psnd_ctl_close(handle);
 830             goto next_card;
 831         }
 832         if(card < MAX_DEVICES-1) {
 833             snprintf(name, sizeof(name), "ALSA Software on %s",
 834                      psnd_ctl_card_info_get_name(info));
 835             alsaDeviceList[card+1] = AppendDeviceList(name);
 836         }
 837
 838         dev = -1;
 839         while (idx < MAX_ALL_DEVICES) {
 840             const char *cname, *dname;
 841
 842             if (psnd_ctl_pcm_next_device(handle, &dev)<0)
 843                 AL_PRINT("snd_ctl_pcm_next_device failed\n");
 844             if (dev < 0)
 845                 break;
 846             psnd_pcm_info_set_device(pcminfo, dev);
 847             psnd_pcm_info_set_subdevice(pcminfo, 0);
 848             psnd_pcm_info_set_stream(pcminfo, stream);
 849             if ((err = psnd_ctl_pcm_info(handle, pcminfo)) < 0) {
 850                 if (err != -ENOENT)
 851                     AL_PRINT("control digital audio info (%i): %s\n", card, psnd_strerror(err));
 852                 continue;
 853             }
 854
 855             cname = psnd_ctl_card_info_get_name(info);
 856             dname = psnd_pcm_info_get_name(pcminfo);
 857             snprintf(name, sizeof(name), "ALSA Software on %s [%s]",
 858                      cname, dname);
 859             allDevNameMap[idx].name = AppendAllDeviceList(name);
 860             allDevNameMap[idx].card = card;
 861             allDevNameMap[idx].dev = dev;
 862             idx++;
 863         }
 864         psnd_ctl_close(handle);
 865 next_card:
 866         if(psnd_card_next(&card) < 0) {
 867             AL_PRINT("snd_card_next failed\n");
 868             break;
 869         }
 870     }
 871
 872
 873     stream = SND_PCM_STREAM_CAPTURE;
 874
 875     card = -1;
 876     if(psnd_card_next(&card) < 0 || card < 0) {
 877         AL_PRINT("no capture cards found...\n");
 878         psnd_pcm_info_free(pcminfo);
 879         psnd_ctl_card_info_free(info);
 880         return;
 881     }
 882
 883     alsaCaptureDeviceList[0] = AppendCaptureDeviceList("ALSA Capture on default");
 884
 885     while (card >= 0) {
 886         sprintf(name, "hw:%d", card);
 887         handle = NULL;
 888         if ((err = psnd_ctl_open(&handle, name, 0)) < 0) {
 889             AL_PRINT("control open (%i): %s\n", card, psnd_strerror(err));
 890         }
 891         if (err >= 0 && (err = psnd_ctl_card_info(handle, info)) < 0) {
 892             AL_PRINT("control hardware info (%i): %s\n", card, psnd_strerror(err));
 893         }
 894         else if (err >= 0 && card < MAX_DEVICES-1)
 895         {
 896             snprintf(name, sizeof(name), "ALSA Capture on %s",
 897                      psnd_ctl_card_info_get_name(info));
 898             alsaCaptureDeviceList[card+1] = AppendCaptureDeviceList(name);
 899         }
 900         if(handle) psnd_ctl_close(handle);
 901         if(psnd_card_next(&card) < 0) {
 902             AL_PRINT("snd_card_next failed\n");
 903             break;
 904         }
 905     }
 906     psnd_pcm_info_free(pcminfo);
 907     psnd_ctl_card_info_free(info);
 908 }