qemu/audio/paaudio.c

   1 /* public domain */
   2 #include "qemu-common.h"
   3 #include "audio.h"
   4
   5 #include <pulse/pulseaudio.h>
   6
   7 #define AUDIO_CAP "pulseaudio"
   8 #include "audio_int.h"
   9 #include "audio_pt_int.h"
  10
  11 typedef struct {
  12     int samples;
  13     char *server;
  14     char *sink;
  15     char *source;
  16 } PAConf;
  17
  18 typedef struct {
  19     PAConf conf;
  20     pa_threaded_mainloop *mainloop;
  21     pa_context *context;
  22 } paaudio;
  23
  24 typedef struct {
  25     HWVoiceOut hw;
  26     int done;
  27     int live;
  28     int decr;
  29     int rpos;
  30     pa_stream *stream;
  31     void *pcm_buf;
  32     struct audio_pt pt;
  33     paaudio *g;
  34 } PAVoiceOut;
  35
  36 typedef struct {
  37     HWVoiceIn hw;
  38     int done;
  39     int dead;
  40     int incr;
  41     int wpos;
  42     pa_stream *stream;
  43     void *pcm_buf;
  44     struct audio_pt pt;
  45     const void *read_data;
  46     size_t read_index, read_length;
  47     paaudio *g;
  48 } PAVoiceIn;
  49
  50 static void qpa_audio_fini(void *opaque);
  51
  52 static void GCC_FMT_ATTR (2, 3) qpa_logerr (int err, const char *fmt, ...)
  53 {
  54     va_list ap;
  55
  56     va_start (ap, fmt);
  57     AUD_vlog (AUDIO_CAP, fmt, ap);
  58     va_end (ap);
  59
  60     AUD_log (AUDIO_CAP, "Reason: %s\n", pa_strerror (err));
  61 }
  62
  63 #ifndef PA_CONTEXT_IS_GOOD
  64 static inline int PA_CONTEXT_IS_GOOD(pa_context_state_t x)
  65 {
  66     return
  67         x == PA_CONTEXT_CONNECTING ||
  68         x == PA_CONTEXT_AUTHORIZING ||
  69         x == PA_CONTEXT_SETTING_NAME ||
  70         x == PA_CONTEXT_READY;
  71 }
  72 #endif
  73
  74 #ifndef PA_STREAM_IS_GOOD
  75 static inline int PA_STREAM_IS_GOOD(pa_stream_state_t x)
  76 {
  77     return
  78         x == PA_STREAM_CREATING ||
  79         x == PA_STREAM_READY;
  80 }
  81 #endif
  82
  83 #define CHECK_SUCCESS_GOTO(c, rerror, expression, label)        \
  84     do {                                                        \
  85         if (!(expression)) {                                    \
  86             if (rerror) {                                       \
  87                 *(rerror) = pa_context_errno ((c)->context);    \
  88             }                                                   \
  89             goto label;                                         \
  90         }                                                       \
  91     } while (0);
  92
  93 #define CHECK_DEAD_GOTO(c, stream, rerror, label)                       \
  94     do {                                                                \
  95         if (!(c)->context || !PA_CONTEXT_IS_GOOD (pa_context_get_state((c)->context)) || \
  96             !(stream) || !PA_STREAM_IS_GOOD (pa_stream_get_state ((stream)))) { \
  97             if (((c)->context && pa_context_get_state ((c)->context) == PA_CONTEXT_FAILED) || \
  98                 ((stream) && pa_stream_get_state ((stream)) == PA_STREAM_FAILED)) { \
  99                 if (rerror) {                                           \
 100                     *(rerror) = pa_context_errno ((c)->context);        \
 101                 }                                                       \
 102             } else {                                                    \
 103                 if (rerror) {                                           \
 104                     *(rerror) = PA_ERR_BADSTATE;                        \
 105                 }                                                       \
 106             }                                                           \
 107             goto label;                                                 \
 108         }                                                               \
 109     } while (0);
 110
 111 static int qpa_simple_read (PAVoiceIn *p, void *data, size_t length, int *rerror)
 112 {
 113     paaudio *g = p->g;
 114
 115     pa_threaded_mainloop_lock (g->mainloop);
 116
 117     CHECK_DEAD_GOTO (g, p->stream, rerror, unlock_and_fail);
 118
 119     while (length > 0) {
 120         size_t l;
 121
 122         while (!p->read_data) {
 123             int r;
 124
 125             r = pa_stream_peek (p->stream, &p->read_data, &p->read_length);
 126             CHECK_SUCCESS_GOTO (g, rerror, r == 0, unlock_and_fail);
 127
 128             if (!p->read_data) {
 129                 pa_threaded_mainloop_wait (g->mainloop);
 130                 CHECK_DEAD_GOTO (g, p->stream, rerror, unlock_and_fail);
 131             } else {
 132                 p->read_index = 0;
 133             }
 134         }
 135
 136         l = p->read_length < length ? p->read_length : length;
 137         memcpy (data, (const uint8_t *) p->read_data+p->read_index, l);
 138
 139         data = (uint8_t *) data + l;
 140         length -= l;
 141
 142         p->read_index += l;
 143         p->read_length -= l;
 144
 145         if (!p->read_length) {
 146             int r;
 147
 148             r = pa_stream_drop (p->stream);
 149             p->read_data = NULL;
 150             p->read_length = 0;
 151             p->read_index = 0;
 152
 153             CHECK_SUCCESS_GOTO (g, rerror, r == 0, unlock_and_fail);
 154         }
 155     }
 156
 157     pa_threaded_mainloop_unlock (g->mainloop);
 158     return 0;
 159
 160 unlock_and_fail:
 161     pa_threaded_mainloop_unlock (g->mainloop);
 162     return -1;
 163 }
 164
 165 static int qpa_simple_write (PAVoiceOut *p, const void *data, size_t length, int *rerror)
 166 {
 167     paaudio *g = p->g;
 168
 169     pa_threaded_mainloop_lock (g->mainloop);
 170
 171     CHECK_DEAD_GOTO (g, p->stream, rerror, unlock_and_fail);
 172
 173     while (length > 0) {
 174         size_t l;
 175         int r;
 176
 177         while (!(l = pa_stream_writable_size (p->stream))) {
 178             pa_threaded_mainloop_wait (g->mainloop);
 179             CHECK_DEAD_GOTO (g, p->stream, rerror, unlock_and_fail);
 180         }
 181
 182         CHECK_SUCCESS_GOTO (g, rerror, l != (size_t) -1, unlock_and_fail);
 183
 184         if (l > length) {
 185             l = length;
 186         }
 187
 188         r = pa_stream_write (p->stream, data, l, NULL, 0LL, PA_SEEK_RELATIVE);
 189         CHECK_SUCCESS_GOTO (g, rerror, r >= 0, unlock_and_fail);
 190
 191         data = (const uint8_t *) data + l;
 192         length -= l;
 193     }
 194
 195     pa_threaded_mainloop_unlock (g->mainloop);
 196     return 0;
 197
 198 unlock_and_fail:
 199     pa_threaded_mainloop_unlock (g->mainloop);
 200     return -1;
 201 }
 202
 203 static void *qpa_thread_out (void *arg)
 204 {
 205     PAVoiceOut *pa = arg;
 206     HWVoiceOut *hw = &pa->hw;
 207
 208     if (audio_pt_lock (&pa->pt, AUDIO_FUNC)) {
 209         return NULL;
 210     }
 211
 212     for (;;) {
 213         int decr, to_mix, rpos;
 214
 215         for (;;) {
 216             if (pa->done) {
 217                 goto exit;
 218             }
 219
 220             if (pa->live > 0) {
 221                 break;
 222             }
 223
 224             if (audio_pt_wait (&pa->pt, AUDIO_FUNC)) {
 225                 goto exit;
 226             }
 227         }
 228
 229         decr = to_mix = audio_MIN (pa->live, pa->g->conf.samples >> 2);
 230         rpos = pa->rpos;
 231
 232         if (audio_pt_unlock (&pa->pt, AUDIO_FUNC)) {
 233             return NULL;
 234         }
 235
 236         while (to_mix) {
 237             int error;
 238             int chunk = audio_MIN (to_mix, hw->samples - rpos);
 239             struct st_sample *src = hw->mix_buf + rpos;
 240
 241             hw->clip (pa->pcm_buf, src, chunk);
 242
 243             if (qpa_simple_write (pa, pa->pcm_buf,
 244                                   chunk << hw->info.shift, &error) < 0) {
 245                 qpa_logerr (error, "pa_simple_write failed\n");
 246                 return NULL;
 247             }
 248
 249             rpos = (rpos + chunk) % hw->samples;
 250             to_mix -= chunk;
 251         }
 252
 253         if (audio_pt_lock (&pa->pt, AUDIO_FUNC)) {
 254             return NULL;
 255         }
 256
 257         pa->rpos = rpos;
 258         pa->live -= decr;
 259         pa->decr += decr;
 260     }
 261
 262  exit:
 263     audio_pt_unlock (&pa->pt, AUDIO_FUNC);
 264     return NULL;
 265 }
 266
 267 static int qpa_run_out (HWVoiceOut *hw, int live)
 268 {
 269     int decr;
 270     PAVoiceOut *pa = (PAVoiceOut *) hw;
 271
 272     if (audio_pt_lock (&pa->pt, AUDIO_FUNC)) {
 273         return 0;
 274     }
 275
 276     decr = audio_MIN (live, pa->decr);
 277     pa->decr -= decr;
 278     pa->live = live - decr;
 279     hw->rpos = pa->rpos;
 280     if (pa->live > 0) {
 281         audio_pt_unlock_and_signal (&pa->pt, AUDIO_FUNC);
 282     }
 283     else {
 284         audio_pt_unlock (&pa->pt, AUDIO_FUNC);
 285     }
 286     return decr;
 287 }
 288
 289 static int qpa_write (SWVoiceOut *sw, void *buf, int len)
 290 {
 291     return audio_pcm_sw_write (sw, buf, len);
 292 }
 293
 294 /* capture */
 295 static void *qpa_thread_in (void *arg)
 296 {
 297     PAVoiceIn *pa = arg;
 298     HWVoiceIn *hw = &pa->hw;
 299
 300     if (audio_pt_lock (&pa->pt, AUDIO_FUNC)) {
 301         return NULL;
 302     }
 303
 304     for (;;) {
 305         int incr, to_grab, wpos;
 306
 307         for (;;) {
 308             if (pa->done) {
 309                 goto exit;
 310             }
 311
 312             if (pa->dead > 0) {
 313                 break;
 314             }
 315
 316             if (audio_pt_wait (&pa->pt, AUDIO_FUNC)) {
 317                 goto exit;
 318             }
 319         }
 320
 321         incr = to_grab = audio_MIN (pa->dead, pa->g->conf.samples >> 2);
 322         wpos = pa->wpos;
 323
 324         if (audio_pt_unlock (&pa->pt, AUDIO_FUNC)) {
 325             return NULL;
 326         }
 327
 328         while (to_grab) {
 329             int error;
 330             int chunk = audio_MIN (to_grab, hw->samples - wpos);
 331             void *buf = advance (pa->pcm_buf, wpos);
 332
 333             if (qpa_simple_read (pa, buf,
 334                                  chunk << hw->info.shift, &error) < 0) {
 335                 qpa_logerr (error, "pa_simple_read failed\n");
 336                 return NULL;
 337             }
 338
 339             hw->conv (hw->conv_buf + wpos, buf, chunk);
 340             wpos = (wpos + chunk) % hw->samples;
 341             to_grab -= chunk;
 342         }
 343
 344         if (audio_pt_lock (&pa->pt, AUDIO_FUNC)) {
 345             return NULL;
 346         }
 347
 348         pa->wpos = wpos;
 349         pa->dead -= incr;
 350         pa->incr += incr;
 351     }
 352
 353  exit:
 354     audio_pt_unlock (&pa->pt, AUDIO_FUNC);
 355     return NULL;
 356 }
 357
 358 static int qpa_run_in (HWVoiceIn *hw)
 359 {
 360     int live, incr, dead;
 361     PAVoiceIn *pa = (PAVoiceIn *) hw;
 362
 363     if (audio_pt_lock (&pa->pt, AUDIO_FUNC)) {
 364         return 0;
 365     }
 366
 367     live = audio_pcm_hw_get_live_in (hw);
 368     dead = hw->samples - live;
 369     incr = audio_MIN (dead, pa->incr);
 370     pa->incr -= incr;
 371     pa->dead = dead - incr;
 372     hw->wpos = pa->wpos;
 373     if (pa->dead > 0) {
 374         audio_pt_unlock_and_signal (&pa->pt, AUDIO_FUNC);
 375     }
 376     else {
 377         audio_pt_unlock (&pa->pt, AUDIO_FUNC);
 378     }
 379     return incr;
 380 }
 381
 382 static int qpa_read (SWVoiceIn *sw, void *buf, int len)
 383 {
 384     return audio_pcm_sw_read (sw, buf, len);
 385 }
 386
 387 static pa_sample_format_t audfmt_to_pa (audfmt_e afmt, int endianness)
 388 {
 389     int format;
 390
 391     switch (afmt) {
 392     case AUD_FMT_S8:
 393     case AUD_FMT_U8:
 394         format = PA_SAMPLE_U8;
 395         break;
 396     case AUD_FMT_S16:
 397     case AUD_FMT_U16:
 398         format = endianness ? PA_SAMPLE_S16BE : PA_SAMPLE_S16LE;
 399         break;
 400     case AUD_FMT_S32:
 401     case AUD_FMT_U32:
 402         format = endianness ? PA_SAMPLE_S32BE : PA_SAMPLE_S32LE;
 403         break;
 404     default:
 405         dolog ("Internal logic error: Bad audio format %d\n", afmt);
 406         format = PA_SAMPLE_U8;
 407         break;
 408     }
 409     return format;
 410 }
 411
 412 static audfmt_e pa_to_audfmt (pa_sample_format_t fmt, int *endianness)
 413 {
 414     switch (fmt) {
 415     case PA_SAMPLE_U8:
 416         return AUD_FMT_U8;
 417     case PA_SAMPLE_S16BE:
 418         *endianness = 1;
 419         return AUD_FMT_S16;
 420     case PA_SAMPLE_S16LE:
 421         *endianness = 0;
 422         return AUD_FMT_S16;
 423     case PA_SAMPLE_S32BE:
 424         *endianness = 1;
 425         return AUD_FMT_S32;
 426     case PA_SAMPLE_S32LE:
 427         *endianness = 0;
 428         return AUD_FMT_S32;
 429     default:
 430         dolog ("Internal logic error: Bad pa_sample_format %d\n", fmt);
 431         return AUD_FMT_U8;
 432     }
 433 }
 434
 435 static void context_state_cb (pa_context *c, void *userdata)
 436 {
 437     paaudio *g = userdata;
 438
 439     switch (pa_context_get_state(c)) {
 440     case PA_CONTEXT_READY:
 441     case PA_CONTEXT_TERMINATED:
 442     case PA_CONTEXT_FAILED:
 443         pa_threaded_mainloop_signal (g->mainloop, 0);
 444         break;
 445
 446     case PA_CONTEXT_UNCONNECTED:
 447     case PA_CONTEXT_CONNECTING:
 448     case PA_CONTEXT_AUTHORIZING:
 449     case PA_CONTEXT_SETTING_NAME:
 450         break;
 451     }
 452 }
 453
 454 static void stream_state_cb (pa_stream *s, void * userdata)
 455 {
 456     paaudio *g = userdata;
 457
 458     switch (pa_stream_get_state (s)) {
 459
 460     case PA_STREAM_READY:
 461     case PA_STREAM_FAILED:
 462     case PA_STREAM_TERMINATED:
 463         pa_threaded_mainloop_signal (g->mainloop, 0);
 464         break;
 465
 466     case PA_STREAM_UNCONNECTED:
 467     case PA_STREAM_CREATING:
 468         break;
 469     }
 470 }
 471
 472 static void stream_request_cb (pa_stream *s, size_t length, void *userdata)
 473 {
 474     paaudio *g = userdata;
 475
 476     pa_threaded_mainloop_signal (g->mainloop, 0);
 477 }
 478
 479 static pa_stream *qpa_simple_new (
 480         paaudio *g,
 481         const char *name,
 482         pa_stream_direction_t dir,
 483         const char *dev,
 484         const pa_sample_spec *ss,
 485         const pa_channel_map *map,
 486         const pa_buffer_attr *attr,
 487         int *rerror)
 488 {
 489     int r;
 490     pa_stream *stream;
 491
 492     pa_threaded_mainloop_lock (g->mainloop);
 493
 494     stream = pa_stream_new (g->context, name, ss, map);
 495     if (!stream) {
 496         goto fail;
 497     }
 498
 499     pa_stream_set_state_callback (stream, stream_state_cb, g);
 500     pa_stream_set_read_callback (stream, stream_request_cb, g);
 501     pa_stream_set_write_callback (stream, stream_request_cb, g);
 502
 503     if (dir == PA_STREAM_PLAYBACK) {
 504         r = pa_stream_connect_playback (stream, dev, attr,
 505                                         PA_STREAM_INTERPOLATE_TIMING
 506 #ifdef PA_STREAM_ADJUST_LATENCY
 507                                         |PA_STREAM_ADJUST_LATENCY
 508 #endif
 509                                         |PA_STREAM_AUTO_TIMING_UPDATE, NULL, NULL);
 510     } else {
 511         r = pa_stream_connect_record (stream, dev, attr,
 512                                       PA_STREAM_INTERPOLATE_TIMING
 513 #ifdef PA_STREAM_ADJUST_LATENCY
 514                                       |PA_STREAM_ADJUST_LATENCY
 515 #endif
 516                                       |PA_STREAM_AUTO_TIMING_UPDATE);
 517     }
 518
 519     if (r < 0) {
 520       goto fail;
 521     }
 522
 523     pa_threaded_mainloop_unlock (g->mainloop);
 524
 525     return stream;
 526
 527 fail:
 528     pa_threaded_mainloop_unlock (g->mainloop);
 529
 530     if (stream) {
 531         pa_stream_unref (stream);
 532     }
 533
 534     *rerror = pa_context_errno (g->context);
 535
 536     return NULL;
 537 }
 538
 539 static int qpa_init_out(HWVoiceOut *hw, struct audsettings *as,
 540                         void *drv_opaque)
 541 {
 542     int error;
 543     pa_sample_spec ss;
 544     pa_buffer_attr ba;
 545     struct audsettings obt_as = *as;
 546     PAVoiceOut *pa = (PAVoiceOut *) hw;
 547     paaudio *g = pa->g = drv_opaque;
 548
 549     ss.format = audfmt_to_pa (as->fmt, as->endianness);
 550     ss.channels = as->nchannels;
 551     ss.rate = as->freq;
 552
 553     /*
 554      * qemu audio tick runs at 100 Hz (by default), so processing
 555      * data chunks worth 10 ms of sound should be a good fit.
 556      */
 557     ba.tlength = pa_usec_to_bytes (10 * 1000, &ss);
 558     ba.minreq = pa_usec_to_bytes (5 * 1000, &ss);
 559     ba.maxlength = -1;
 560     ba.prebuf = -1;
 561
 562     obt_as.fmt = pa_to_audfmt (ss.format, &obt_as.endianness);
 563
 564     pa->stream = qpa_simple_new (
 565         g,
 566         "qemu",
 567         PA_STREAM_PLAYBACK,
 568         g->conf.sink,
 569         &ss,
 570         NULL,                   /* channel map */
 571         &ba,                    /* buffering attributes */
 572         &error
 573         );
 574     if (!pa->stream) {
 575         qpa_logerr (error, "pa_simple_new for playback failed\n");
 576         goto fail1;
 577     }
 578
 579     audio_pcm_init_info (&hw->info, &obt_as);
 580     hw->samples = g->conf.samples;
 581     pa->pcm_buf = audio_calloc (AUDIO_FUNC, hw->samples, 1 << hw->info.shift);
 582     pa->rpos = hw->rpos;
 583     if (!pa->pcm_buf) {
 584         dolog ("Could not allocate buffer (%d bytes)\n",
 585                hw->samples << hw->info.shift);
 586         goto fail2;
 587     }
 588
 589     if (audio_pt_init (&pa->pt, qpa_thread_out, hw, AUDIO_CAP, AUDIO_FUNC)) {
 590         goto fail3;
 591     }
 592
 593     return 0;
 594
 595  fail3:
 596     g_free (pa->pcm_buf);
 597     pa->pcm_buf = NULL;
 598  fail2:
 599     if (pa->stream) {
 600         pa_stream_unref (pa->stream);
 601         pa->stream = NULL;
 602     }
 603  fail1:
 604     return -1;
 605 }
 606
 607 static int qpa_init_in(HWVoiceIn *hw, struct audsettings *as, void *drv_opaque)
 608 {
 609     int error;
 610     pa_sample_spec ss;
 611     struct audsettings obt_as = *as;
 612     PAVoiceIn *pa = (PAVoiceIn *) hw;
 613     paaudio *g = pa->g = drv_opaque;
 614
 615     ss.format = audfmt_to_pa (as->fmt, as->endianness);
 616     ss.channels = as->nchannels;
 617     ss.rate = as->freq;
 618
 619     obt_as.fmt = pa_to_audfmt (ss.format, &obt_as.endianness);
 620
 621     pa->stream = qpa_simple_new (
 622         g,
 623         "qemu",
 624         PA_STREAM_RECORD,
 625         g->conf.source,
 626         &ss,
 627         NULL,                   /* channel map */
 628         NULL,                   /* buffering attributes */
 629         &error
 630         );
 631     if (!pa->stream) {
 632         qpa_logerr (error, "pa_simple_new for capture failed\n");
 633         goto fail1;
 634     }
 635
 636     audio_pcm_init_info (&hw->info, &obt_as);
 637     hw->samples = g->conf.samples;
 638     pa->pcm_buf = audio_calloc (AUDIO_FUNC, hw->samples, 1 << hw->info.shift);
 639     pa->wpos = hw->wpos;
 640     if (!pa->pcm_buf) {
 641         dolog ("Could not allocate buffer (%d bytes)\n",
 642                hw->samples << hw->info.shift);
 643         goto fail2;
 644     }
 645
 646     if (audio_pt_init (&pa->pt, qpa_thread_in, hw, AUDIO_CAP, AUDIO_FUNC)) {
 647         goto fail3;
 648     }
 649
 650     return 0;
 651
 652  fail3:
 653     g_free (pa->pcm_buf);
 654     pa->pcm_buf = NULL;
 655  fail2:
 656     if (pa->stream) {
 657         pa_stream_unref (pa->stream);
 658         pa->stream = NULL;
 659     }
 660  fail1:
 661     return -1;
 662 }
 663
 664 static void qpa_fini_out (HWVoiceOut *hw)
 665 {
 666     void *ret;
 667     PAVoiceOut *pa = (PAVoiceOut *) hw;
 668
 669     audio_pt_lock (&pa->pt, AUDIO_FUNC);
 670     pa->done = 1;
 671     audio_pt_unlock_and_signal (&pa->pt, AUDIO_FUNC);
 672     audio_pt_join (&pa->pt, &ret, AUDIO_FUNC);
 673
 674     if (pa->stream) {
 675         pa_stream_unref (pa->stream);
 676         pa->stream = NULL;
 677     }
 678
 679     audio_pt_fini (&pa->pt, AUDIO_FUNC);
 680     g_free (pa->pcm_buf);
 681     pa->pcm_buf = NULL;
 682 }
 683
 684 static void qpa_fini_in (HWVoiceIn *hw)
 685 {
 686     void *ret;
 687     PAVoiceIn *pa = (PAVoiceIn *) hw;
 688
 689     audio_pt_lock (&pa->pt, AUDIO_FUNC);
 690     pa->done = 1;
 691     audio_pt_unlock_and_signal (&pa->pt, AUDIO_FUNC);
 692     audio_pt_join (&pa->pt, &ret, AUDIO_FUNC);
 693
 694     if (pa->stream) {
 695         pa_stream_unref (pa->stream);
 696         pa->stream = NULL;
 697     }
 698
 699     audio_pt_fini (&pa->pt, AUDIO_FUNC);
 700     g_free (pa->pcm_buf);
 701     pa->pcm_buf = NULL;
 702 }
 703
 704 static int qpa_ctl_out (HWVoiceOut *hw, int cmd, ...)
 705 {
 706     PAVoiceOut *pa = (PAVoiceOut *) hw;
 707     pa_operation *op;
 708     pa_cvolume v;
 709     paaudio *g = pa->g;
 710
 711 #ifdef PA_CHECK_VERSION    /* macro is present in 0.9.16+ */
 712     pa_cvolume_init (&v);  /* function is present in 0.9.13+ */
 713 #endif
 714
 715     switch (cmd) {
 716     case VOICE_VOLUME:
 717         {
 718             SWVoiceOut *sw;
 719             va_list ap;
 720
 721             va_start (ap, cmd);
 722             sw = va_arg (ap, SWVoiceOut *);
 723             va_end (ap);
 724
 725             v.channels = 2;
 726             v.values[0] = ((PA_VOLUME_NORM - PA_VOLUME_MUTED) * sw->vol.l) / UINT32_MAX;
 727             v.values[1] = ((PA_VOLUME_NORM - PA_VOLUME_MUTED) * sw->vol.r) / UINT32_MAX;
 728
 729             pa_threaded_mainloop_lock (g->mainloop);
 730
 731             op = pa_context_set_sink_input_volume (g->context,
 732                 pa_stream_get_index (pa->stream),
 733                 &v, NULL, NULL);
 734             if (!op)
 735                 qpa_logerr (pa_context_errno (g->context),
 736                             "set_sink_input_volume() failed\n");
 737             else
 738                 pa_operation_unref (op);
 739
 740             op = pa_context_set_sink_input_mute (g->context,
 741                 pa_stream_get_index (pa->stream),
 742                sw->vol.mute, NULL, NULL);
 743             if (!op) {
 744                 qpa_logerr (pa_context_errno (g->context),
 745                             "set_sink_input_mute() failed\n");
 746             } else {
 747                 pa_operation_unref (op);
 748             }
 749
 750             pa_threaded_mainloop_unlock (g->mainloop);
 751         }
 752     }
 753     return 0;
 754 }
 755
 756 static int qpa_ctl_in (HWVoiceIn *hw, int cmd, ...)
 757 {
 758     PAVoiceIn *pa = (PAVoiceIn *) hw;
 759     pa_operation *op;
 760     pa_cvolume v;
 761     paaudio *g = pa->g;
 762
 763 #ifdef PA_CHECK_VERSION
 764     pa_cvolume_init (&v);
 765 #endif
 766
 767     switch (cmd) {
 768     case VOICE_VOLUME:
 769         {
 770             SWVoiceIn *sw;
 771             va_list ap;
 772
 773             va_start (ap, cmd);
 774             sw = va_arg (ap, SWVoiceIn *);
 775             va_end (ap);
 776
 777             v.channels = 2;
 778             v.values[0] = ((PA_VOLUME_NORM - PA_VOLUME_MUTED) * sw->vol.l) / UINT32_MAX;
 779             v.values[1] = ((PA_VOLUME_NORM - PA_VOLUME_MUTED) * sw->vol.r) / UINT32_MAX;
 780
 781             pa_threaded_mainloop_lock (g->mainloop);
 782
 783             /* FIXME: use the upcoming "set_source_output_{volume,mute}" */
 784             op = pa_context_set_source_volume_by_index (g->context,
 785                 pa_stream_get_device_index (pa->stream),
 786                 &v, NULL, NULL);
 787             if (!op) {
 788                 qpa_logerr (pa_context_errno (g->context),
 789                             "set_source_volume() failed\n");
 790             } else {
 791                 pa_operation_unref(op);
 792             }
 793
 794             op = pa_context_set_source_mute_by_index (g->context,
 795                 pa_stream_get_index (pa->stream),
 796                 sw->vol.mute, NULL, NULL);
 797             if (!op) {
 798                 qpa_logerr (pa_context_errno (g->context),
 799                             "set_source_mute() failed\n");
 800             } else {
 801                 pa_operation_unref (op);
 802             }
 803
 804             pa_threaded_mainloop_unlock (g->mainloop);
 805         }
 806     }
 807     return 0;
 808 }
 809
 810 /* common */
 811 static PAConf glob_conf = {
 812     .samples = 4096,
 813 };
 814
 815 static void *qpa_audio_init (void)
 816 {
 817     paaudio *g = g_malloc(sizeof(paaudio));
 818     g->conf = glob_conf;
 819     g->mainloop = NULL;
 820     g->context = NULL;
 821
 822     g->mainloop = pa_threaded_mainloop_new ();
 823     if (!g->mainloop) {
 824         goto fail;
 825     }
 826
 827     g->context = pa_context_new (pa_threaded_mainloop_get_api (g->mainloop),
 828                                  g->conf.server);
 829     if (!g->context) {
 830         goto fail;
 831     }
 832
 833     pa_context_set_state_callback (g->context, context_state_cb, g);
 834
 835     if (pa_context_connect (g->context, g->conf.server, 0, NULL) < 0) {
 836         qpa_logerr (pa_context_errno (g->context),
 837                     "pa_context_connect() failed\n");
 838         goto fail;
 839     }
 840
 841     pa_threaded_mainloop_lock (g->mainloop);
 842
 843     if (pa_threaded_mainloop_start (g->mainloop) < 0) {
 844         goto unlock_and_fail;
 845     }
 846
 847     for (;;) {
 848         pa_context_state_t state;
 849
 850         state = pa_context_get_state (g->context);
 851
 852         if (state == PA_CONTEXT_READY) {
 853             break;
 854         }
 855
 856         if (!PA_CONTEXT_IS_GOOD (state)) {
 857             qpa_logerr (pa_context_errno (g->context),
 858                         "Wrong context state\n");
 859             goto unlock_and_fail;
 860         }
 861
 862         /* Wait until the context is ready */
 863         pa_threaded_mainloop_wait (g->mainloop);
 864     }
 865
 866     pa_threaded_mainloop_unlock (g->mainloop);
 867
 868     return g;
 869
 870 unlock_and_fail:
 871     pa_threaded_mainloop_unlock (g->mainloop);
 872 fail:
 873     AUD_log (AUDIO_CAP, "Failed to initialize PA context");
 874     qpa_audio_fini(g);
 875     return NULL;
 876 }
 877
 878 static void qpa_audio_fini (void *opaque)
 879 {
 880     paaudio *g = opaque;
 881
 882     if (g->mainloop) {
 883         pa_threaded_mainloop_stop (g->mainloop);
 884     }
 885
 886     if (g->context) {
 887         pa_context_disconnect (g->context);
 888         pa_context_unref (g->context);
 889     }
 890
 891     if (g->mainloop) {
 892         pa_threaded_mainloop_free (g->mainloop);
 893     }
 894
 895     g_free(g);
 896 }
 897
 898 struct audio_option qpa_options[] = {
 899     {
 900         .name  = "SAMPLES",
 901         .tag   = AUD_OPT_INT,
 902         .valp  = &glob_conf.samples,
 903         .descr = "buffer size in samples"
 904     },
 905     {
 906         .name  = "SERVER",
 907         .tag   = AUD_OPT_STR,
 908         .valp  = &glob_conf.server,
 909         .descr = "server address"
 910     },
 911     {
 912         .name  = "SINK",
 913         .tag   = AUD_OPT_STR,
 914         .valp  = &glob_conf.sink,
 915         .descr = "sink device name"
 916     },
 917     {
 918         .name  = "SOURCE",
 919         .tag   = AUD_OPT_STR,
 920         .valp  = &glob_conf.source,
 921         .descr = "source device name"
 922     },
 923     { /* End of list */ }
 924 };
 925
 926 static struct audio_pcm_ops qpa_pcm_ops = {
 927     .init_out = qpa_init_out,
 928     .fini_out = qpa_fini_out,
 929     .run_out  = qpa_run_out,
 930     .write    = qpa_write,
 931     .ctl_out  = qpa_ctl_out,
 932
 933     .init_in  = qpa_init_in,
 934     .fini_in  = qpa_fini_in,
 935     .run_in   = qpa_run_in,
 936     .read     = qpa_read,
 937     .ctl_in   = qpa_ctl_in
 938 };
 939
 940 struct audio_driver pa_audio_driver = {
 941     .name           = "pa",
 942     .descr          = "http://www.pulseaudio.org/",
 943     .options        = qpa_options,
 944     .init           = qpa_audio_init,
 945     .fini           = qpa_audio_fini,
 946     .pcm_ops        = &qpa_pcm_ops,
 947     .can_be_default = 1,
 948     .max_voices_out = INT_MAX,
 949     .max_voices_in  = INT_MAX,
 950     .voice_size_out = sizeof (PAVoiceOut),
 951     .voice_size_in  = sizeof (PAVoiceIn),
 952     .ctl_caps       = VOICE_VOLUME_CAP
 953 };