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