src/modules/module-bt-device.c

   1 /***
   2     This file is part of PulseAudio.
   3
   4     Copyright 2008 Joao Paulo Rechi Vita
   5
   6     PulseAudio is free software; you can redistribute it and/or modify
   7     it under the terms of the GNU Lesser General Public License as published
   8     by the Free Software Foundation; either version 2 of the License,
   9     or (at your option) any later version.
  10
  11     PulseAudio is distributed in the hope that it will be useful, but
  12     WITHOUT ANY WARRANTY; without even the implied warranty of
  13     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
  14     General Public License for more details.
  15
  16     You should have received a copy of the GNU Lesser General Public License
  17     along with PulseAudio; if not, write to the Free Software
  18     Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
  19     USA.
  20 ***/
  21
  22 #ifdef HAVE_CONFIG_H
  23 #include <config.h>
  24 #endif
  25
  26 #include <string.h>
  27 #include <errno.h>
  28 #include <poll.h>
  29
  30 #include <pulse/xmalloc.h>
  31 #include <pulse/timeval.h>
  32 #include <pulse/sample.h>
  33 #include <pulsecore/core-util.h>
  34 #include <pulsecore/core-error.h>
  35 #include <pulsecore/module.h>
  36 #include <pulsecore/modargs.h>
  37 #include <pulsecore/thread.h>
  38 #include <pulsecore/thread-mq.h>
  39 #include <pulsecore/rtpoll.h>
  40 #include <pulsecore/time-smoother.h>
  41 #include <pulsecore/rtclock.h>
  42
  43 #include "dbus-util.h"
  44 #include "module-bt-device-symdef.h"
  45 #include "bt-ipc.h"
  46 #include "bt-sbc.h"
  47
  48 #define DEFAULT_SINK_NAME "bt_sink"
  49 #define BUFFER_SIZE 2048
  50 #define MAX_BITPOOL 64
  51 #define MIN_BITPOOL 2
  52
  53 PA_MODULE_AUTHOR("Joao Paulo Rechi Vita");
  54 PA_MODULE_DESCRIPTION("Bluetooth audio sink and source");
  55 PA_MODULE_VERSION(PACKAGE_VERSION);
  56 PA_MODULE_LOAD_ONCE(FALSE);
  57 PA_MODULE_USAGE(
  58         "name=<name of the device> "
  59         "addr=<address of the device> "
  60         "profile=<a2dp|hsp>");
  61
  62 struct bt_a2dp {
  63     sbc_capabilities_t sbc_capabilities;
  64     sbc_t sbc;                           /* Codec data */
  65     int sbc_initialized;                 /* Keep track if the encoder is initialized */
  66     int codesize;                        /* SBC codesize */
  67     int samples;                         /* Number of encoded samples */
  68     uint8_t buffer[BUFFER_SIZE];         /* Codec transfer buffer */
  69     int count;                           /* Codec transfer buffer counter */
  70
  71     int nsamples;                        /* Cumulative number of codec samples */
  72     uint16_t seq_num;                    /* Cumulative packet sequence */
  73     int frame_count;                     /* Current frames in buffer*/
  74 };
  75
  76 struct userdata {
  77     pa_core *core;
  78     pa_module *module;
  79     pa_sink *sink;
  80
  81     pa_thread_mq thread_mq;
  82     pa_rtpoll *rtpoll;
  83     pa_rtpoll_item *rtpoll_item;
  84     pa_thread *thread;
  85
  86     int64_t offset;
  87     pa_smoother *smoother;
  88
  89     pa_memchunk memchunk;
  90     pa_mempool *mempool;
  91
  92     const char *name;
  93     const char *addr;
  94     const char *profile;
  95     int rate;
  96     int channels;
  97     pa_sample_spec ss;
  98
  99     int audioservice_fd;
 100     int stream_fd;
 101
 102     int transport;
 103     int link_mtu;
 104     size_t block_size;
 105     pa_usec_t latency;
 106
 107     struct bt_a2dp a2dp;
 108 };
 109
 110 static const char* const valid_modargs[] = {
 111     "name",
 112     "addr",
 113     "profile",
 114     "rate",
 115     "channels",
 116     NULL
 117 };
 118
 119 static int bt_audioservice_send(int sk, const bt_audio_msg_header_t *msg) {
 120     int e;
 121     pa_log/*_debug*/("sending %s", bt_audio_strmsg(msg->msg_type));
 122     if (send(sk, msg, BT_AUDIO_IPC_PACKET_SIZE, 0) > 0)
 123         e = 0;
 124     else {
 125         e = -errno;
 126         pa_log_error("Error sending data to audio service: %s(%d)", pa_cstrerror(errno), errno);
 127     }
 128     return e;
 129 }
 130
 131 static int bt_audioservice_recv(int sk, bt_audio_msg_header_t *inmsg) {
 132     int e;
 133     const char *type;
 134
 135     pa_log/*_debug*/("trying to receive msg from audio service...");
 136     if (recv(sk, inmsg, BT_AUDIO_IPC_PACKET_SIZE, 0) > 0) {
 137         type = bt_audio_strmsg(inmsg->msg_type);
 138         if (type) {
 139             pa_log/*_debug*/("Received %s", type);
 140             e = 0;
 141         }
 142         else {
 143             e = -EINVAL;
 144             pa_log_error("Bogus message type %d received from audio service", inmsg->msg_type);
 145         }
 146     }
 147     else {
 148         e = -errno;
 149         pa_log_error("Error receiving data from audio service: %s(%d)", pa_cstrerror(errno), errno);
 150     }
 151
 152     return e;
 153 }
 154
 155 static int bt_audioservice_expect(int sk, bt_audio_msg_header_t *rsp_hdr, int expected_type) {
 156     int e = bt_audioservice_recv(sk, rsp_hdr);
 157     if (e == 0) {
 158         if (rsp_hdr->msg_type != expected_type) {
 159             e = -EINVAL;
 160             pa_log_error("Bogus message %s received while %s was expected", bt_audio_strmsg(rsp_hdr->msg_type),
 161                     bt_audio_strmsg(expected_type));
 162         }
 163     }
 164     return e;
 165 }
 166
 167 static int bt_getcaps(struct userdata *u) {
 168     int e;
 169     char buf[BT_AUDIO_IPC_PACKET_SIZE];
 170     bt_audio_rsp_msg_header_t *rsp_hdr = (void*) buf;
 171     struct bt_getcapabilities_req *getcaps_req = (void*) buf;
 172     struct bt_getcapabilities_rsp *getcaps_rsp = (void*) buf;
 173
 174     memset(getcaps_req, 0, BT_AUDIO_IPC_PACKET_SIZE);
 175     getcaps_req->h.msg_type = BT_GETCAPABILITIES_REQ;
 176     strncpy(getcaps_req->device, u->addr, 18);
 177     if (strcasecmp(u->profile, "a2dp") == 0)
 178         getcaps_req->transport = BT_CAPABILITIES_TRANSPORT_A2DP;
 179     else if (strcasecmp(u->profile, "hsp") == 0)
 180         getcaps_req->transport = BT_CAPABILITIES_TRANSPORT_SCO;
 181     else {
 182         pa_log_error("invalid profile argument: %s", u->profile);
 183         return -1;
 184     }
 185     getcaps_req->flags = 0;
 186     getcaps_req->flags |= BT_FLAG_AUTOCONNECT;
 187
 188     e = bt_audioservice_send(u->audioservice_fd, &getcaps_req->h);
 189     if (e < 0) {
 190         pa_log_error("failed to send GETCAPABILITIES_REQ");
 191         return e;
 192     }
 193
 194     e = bt_audioservice_expect(u->audioservice_fd, &rsp_hdr->msg_h, BT_GETCAPABILITIES_RSP);
 195     if (e < 0) {
 196         pa_log_error("failed to expect for GETCAPABILITIES_RSP");
 197         return e;
 198     }
 199     if (rsp_hdr->posix_errno != 0) {
 200         pa_log_error("BT_GETCAPABILITIES failed : %s (%d)", pa_cstrerror(rsp_hdr->posix_errno), rsp_hdr->posix_errno);
 201         return -rsp_hdr->posix_errno;
 202     }
 203
 204     if ((u->transport = getcaps_rsp->transport) == BT_CAPABILITIES_TRANSPORT_A2DP)
 205         u->a2dp.sbc_capabilities = getcaps_rsp->sbc_capabilities;
 206
 207     return 0;
 208 }
 209
 210 static uint8_t default_bitpool(uint8_t freq, uint8_t mode) {
 211     switch (freq) {
 212         case BT_SBC_SAMPLING_FREQ_16000:
 213         case BT_SBC_SAMPLING_FREQ_32000:
 214             return 53;
 215         case BT_SBC_SAMPLING_FREQ_44100:
 216             switch (mode) {
 217                 case BT_A2DP_CHANNEL_MODE_MONO:
 218                 case BT_A2DP_CHANNEL_MODE_DUAL_CHANNEL:
 219                     return 31;
 220                 case BT_A2DP_CHANNEL_MODE_STEREO:
 221                 case BT_A2DP_CHANNEL_MODE_JOINT_STEREO:
 222                     return 53;
 223                 default:
 224                     pa_log_warn("Invalid channel mode %u", mode);
 225                     return 53;
 226             }
 227         case BT_SBC_SAMPLING_FREQ_48000:
 228             switch (mode) {
 229                 case BT_A2DP_CHANNEL_MODE_MONO:
 230                 case BT_A2DP_CHANNEL_MODE_DUAL_CHANNEL:
 231                     return 29;
 232                 case BT_A2DP_CHANNEL_MODE_STEREO:
 233                 case BT_A2DP_CHANNEL_MODE_JOINT_STEREO:
 234                     return 51;
 235                 default:
 236                     pa_log_warn("Invalid channel mode %u", mode);
 237                     return 51;
 238             }
 239         default:
 240             pa_log_warn("Invalid sampling freq %u", freq);
 241             return 53;
 242     }
 243 }
 244
 245 static int bt_a2dp_init(struct userdata *u) {
 246     sbc_capabilities_t *cap = &u->a2dp.sbc_capabilities;
 247     unsigned int max_bitpool, min_bitpool, rate, channels;
 248
 249     switch (u->rate) {
 250         case 48000:
 251             cap->frequency = BT_SBC_SAMPLING_FREQ_48000;
 252             break;
 253         case 44100:
 254             cap->frequency = BT_SBC_SAMPLING_FREQ_44100;
 255             break;
 256         case 32000:
 257             cap->frequency = BT_SBC_SAMPLING_FREQ_32000;
 258             break;
 259         case 16000:
 260             cap->frequency = BT_SBC_SAMPLING_FREQ_16000;
 261             break;
 262         default:
 263             pa_log_error("Rate %d not supported", rate);
 264             return -1;
 265     }
 266
 267 //    if (cfg->has_channel_mode)
 268 //        cap->channel_mode = cfg->channel_mode;
 269 //    else
 270     if (channels == 2) {
 271         if (cap->channel_mode & BT_A2DP_CHANNEL_MODE_JOINT_STEREO)
 272             cap->channel_mode = BT_A2DP_CHANNEL_MODE_JOINT_STEREO;
 273         else if (cap->channel_mode & BT_A2DP_CHANNEL_MODE_STEREO)
 274             cap->channel_mode = BT_A2DP_CHANNEL_MODE_STEREO;
 275         else if (cap->channel_mode & BT_A2DP_CHANNEL_MODE_DUAL_CHANNEL)
 276             cap->channel_mode = BT_A2DP_CHANNEL_MODE_DUAL_CHANNEL;
 277     } else {
 278         if (cap->channel_mode & BT_A2DP_CHANNEL_MODE_MONO)
 279             cap->channel_mode = BT_A2DP_CHANNEL_MODE_MONO;
 280     }
 281
 282     if (!cap->channel_mode) {
 283         pa_log_error("No supported channel modes");
 284         return -1;
 285     }
 286
 287 //    if (cfg->has_block_length)
 288 //        cap->block_length = cfg->block_length;
 289 //    else
 290     if (cap->block_length & BT_A2DP_BLOCK_LENGTH_16)
 291         cap->block_length = BT_A2DP_BLOCK_LENGTH_16;
 292     else if (cap->block_length & BT_A2DP_BLOCK_LENGTH_12)
 293         cap->block_length = BT_A2DP_BLOCK_LENGTH_12;
 294     else if (cap->block_length & BT_A2DP_BLOCK_LENGTH_8)
 295         cap->block_length = BT_A2DP_BLOCK_LENGTH_8;
 296     else if (cap->block_length & BT_A2DP_BLOCK_LENGTH_4)
 297         cap->block_length = BT_A2DP_BLOCK_LENGTH_4;
 298     else {
 299         pa_log_error("No supported block lengths");
 300         return -1;
 301     }
 302
 303 //    if (cfg->has_subbands)
 304 //        cap->subbands = cfg->subbands;
 305     if (cap->subbands & BT_A2DP_SUBBANDS_8)
 306         cap->subbands = BT_A2DP_SUBBANDS_8;
 307     else if (cap->subbands & BT_A2DP_SUBBANDS_4)
 308         cap->subbands = BT_A2DP_SUBBANDS_4;
 309     else {
 310         pa_log_error("No supported subbands");
 311         return -1;
 312     }
 313
 314 //    if (cfg->has_allocation_method)
 315 //        cap->allocation_method = cfg->allocation_method;
 316     if (cap->allocation_method & BT_A2DP_ALLOCATION_LOUDNESS)
 317         cap->allocation_method = BT_A2DP_ALLOCATION_LOUDNESS;
 318     else if (cap->allocation_method & BT_A2DP_ALLOCATION_SNR)
 319         cap->allocation_method = BT_A2DP_ALLOCATION_SNR;
 320
 321 //    if (cfg->has_bitpool)
 322 //        min_bitpool = max_bitpool = cfg->bitpool;
 323 //    else {
 324     min_bitpool = MAX(MIN_BITPOOL, cap->min_bitpool);
 325     max_bitpool = MIN(default_bitpool(cap->frequency, cap->channel_mode), cap->max_bitpool);
 326 //    }
 327
 328     cap->min_bitpool = min_bitpool;
 329     cap->max_bitpool = max_bitpool;
 330
 331     return 0;
 332 }
 333
 334 static void bt_a2dp_setup(struct bt_a2dp *a2dp) {
 335     sbc_capabilities_t active_capabilities = a2dp->sbc_capabilities;
 336
 337     if (a2dp->sbc_initialized)
 338         sbc_reinit(&a2dp->sbc, 0);
 339     else
 340         sbc_init(&a2dp->sbc, 0);
 341     a2dp->sbc_initialized = 1;
 342
 343     if (active_capabilities.frequency & BT_SBC_SAMPLING_FREQ_16000)
 344         a2dp->sbc.frequency = SBC_FREQ_16000;
 345
 346     if (active_capabilities.frequency & BT_SBC_SAMPLING_FREQ_32000)
 347         a2dp->sbc.frequency = SBC_FREQ_32000;
 348
 349     if (active_capabilities.frequency & BT_SBC_SAMPLING_FREQ_44100)
 350         a2dp->sbc.frequency = SBC_FREQ_44100;
 351
 352     if (active_capabilities.frequency & BT_SBC_SAMPLING_FREQ_48000)
 353         a2dp->sbc.frequency = SBC_FREQ_48000;
 354
 355     if (active_capabilities.channel_mode & BT_A2DP_CHANNEL_MODE_MONO)
 356         a2dp->sbc.mode = SBC_MODE_MONO;
 357
 358     if (active_capabilities.channel_mode & BT_A2DP_CHANNEL_MODE_DUAL_CHANNEL)
 359         a2dp->sbc.mode = SBC_MODE_DUAL_CHANNEL;
 360
 361     if (active_capabilities.channel_mode & BT_A2DP_CHANNEL_MODE_STEREO)
 362         a2dp->sbc.mode = SBC_MODE_STEREO;
 363
 364     if (active_capabilities.channel_mode & BT_A2DP_CHANNEL_MODE_JOINT_STEREO)
 365         a2dp->sbc.mode = SBC_MODE_JOINT_STEREO;
 366
 367     a2dp->sbc.allocation = active_capabilities.allocation_method == BT_A2DP_ALLOCATION_SNR ? SBC_AM_SNR : SBC_AM_LOUDNESS;
 368
 369     switch (active_capabilities.subbands) {
 370         case BT_A2DP_SUBBANDS_4:
 371             a2dp->sbc.subbands = SBC_SB_4;
 372             break;
 373         case BT_A2DP_SUBBANDS_8:
 374             a2dp->sbc.subbands = SBC_SB_8;
 375             break;
 376     }
 377
 378     switch (active_capabilities.block_length) {
 379         case BT_A2DP_BLOCK_LENGTH_4:
 380             a2dp->sbc.blocks = SBC_BLK_4;
 381             break;
 382         case BT_A2DP_BLOCK_LENGTH_8:
 383             a2dp->sbc.blocks = SBC_BLK_8;
 384             break;
 385         case BT_A2DP_BLOCK_LENGTH_12:
 386             a2dp->sbc.blocks = SBC_BLK_12;
 387             break;
 388         case BT_A2DP_BLOCK_LENGTH_16:
 389             a2dp->sbc.blocks = SBC_BLK_16;
 390             break;
 391     }
 392
 393     a2dp->sbc.bitpool = active_capabilities.max_bitpool;
 394     a2dp->codesize = sbc_get_codesize(&a2dp->sbc);
 395 //    a2dp->count = sizeof(struct rtp_header) + sizeof(struct rtp_payload);
 396 }
 397
 398 static int bt_setconf(struct userdata *u) {
 399     int e;
 400     char buf[BT_AUDIO_IPC_PACKET_SIZE];
 401     bt_audio_rsp_msg_header_t *rsp_hdr = (void*) buf;
 402     struct bt_setconfiguration_req *setconf_req = (void*) buf;
 403     struct bt_setconfiguration_rsp *setconf_rsp = (void*) buf;
 404
 405     if (u->transport == BT_CAPABILITIES_TRANSPORT_A2DP) {
 406         e = bt_a2dp_init(u);
 407         if (e < 0) {
 408             pa_log_error("a2dp_init error");
 409             return e;
 410         }
 411     }
 412
 413     memset(setconf_req, 0, BT_AUDIO_IPC_PACKET_SIZE);
 414     setconf_req->h.msg_type = BT_SETCONFIGURATION_REQ;
 415     strncpy(setconf_req->device, u->addr, 18);
 416     setconf_req->transport = u->transport;
 417     if (u->transport == BT_CAPABILITIES_TRANSPORT_A2DP)
 418         setconf_req->sbc_capabilities = u->a2dp.sbc_capabilities;
 419     setconf_req->access_mode = BT_CAPABILITIES_ACCESS_MODE_WRITE;
 420
 421     e = bt_audioservice_send(u->audioservice_fd, &setconf_req->h);
 422     if (e < 0) {
 423         pa_log_error("failed to send BT_SETCONFIGURATION_REQ");
 424         return e;
 425     }
 426
 427     e = bt_audioservice_expect(u->audioservice_fd, &rsp_hdr->msg_h, BT_SETCONFIGURATION_RSP);
 428     if (e < 0) {
 429         pa_log_error("failed to expect BT_SETCONFIGURATION_RSP");
 430         return e;
 431     }
 432
 433     if (rsp_hdr->posix_errno != 0) {
 434         pa_log_error("BT_SETCONFIGURATION failed : %s(%d)", pa_cstrerror(rsp_hdr->posix_errno), rsp_hdr->posix_errno);
 435         return -rsp_hdr->posix_errno;
 436     }
 437
 438     u->transport = setconf_rsp->transport;
 439     u->link_mtu = setconf_rsp->link_mtu;
 440     if (u->transport == BT_CAPABILITIES_TRANSPORT_A2DP)
 441         /* TODO: Check the max possible size */ u->block_size = u->link_mtu / 2;
 442     else
 443         u->block_size = u->link_mtu;
 444
 445     /* setup SBC encoder now we agree on parameters */
 446     if (u->transport == BT_CAPABILITIES_TRANSPORT_A2DP) {
 447         bt_a2dp_setup(&u->a2dp);
 448         pa_log/*debug*/("\tallocation=%u\n\tsubbands=%u\n\tblocks=%u\n\tbitpool=%u\n",
 449                 u->a2dp.sbc.allocation, u->a2dp.sbc.subbands, u->a2dp.sbc.blocks, u->a2dp.sbc.bitpool);
 450     }
 451
 452     return 0;
 453 }
 454
 455 static int bt_getstreamfd(struct userdata *u) {
 456     int e/*, opt_name*/;
 457     char buf[BT_AUDIO_IPC_PACKET_SIZE];
 458     struct bt_streamstart_req *start_req = (void*) buf;
 459     bt_audio_rsp_msg_header_t *rsp_hdr = (void*) buf;
 460     struct bt_streamfd_ind *streamfd_ind = (void*) buf;
 461
 462     memset(start_req, 0, BT_AUDIO_IPC_PACKET_SIZE);
 463     start_req->h.msg_type = BT_STREAMSTART_REQ;
 464
 465     e = bt_audioservice_send(u->audioservice_fd, &start_req->h);
 466     if (e < 0) {
 467         pa_log_error("failed to send BT_STREAMSTART_REQ");
 468         return e;
 469     }
 470
 471     e = bt_audioservice_expect(u->audioservice_fd, &rsp_hdr->msg_h, BT_STREAMSTART_RSP);
 472     if (e < 0) {
 473         pa_log_error("failed to expect BT_STREAMSTART_RSP");
 474         return e;
 475     }
 476
 477     if (rsp_hdr->posix_errno != 0) {
 478         pa_log_error("BT_START failed : %s(%d)", pa_cstrerror(rsp_hdr->posix_errno), rsp_hdr->posix_errno);
 479         return -rsp_hdr->posix_errno;
 480     }
 481
 482     e = bt_audioservice_expect(u->audioservice_fd, &streamfd_ind->h, BT_STREAMFD_IND);
 483     if (e < 0) {
 484         pa_log_error("failed to expect BT_STREAMFD_IND");
 485         return e;
 486     }
 487
 488     if (u->stream_fd >= 0)
 489         pa_close(u->stream_fd);
 490
 491     u->stream_fd = bt_audio_service_get_data_fd(u->audioservice_fd);
 492     if (u->stream_fd < 0) {
 493         pa_log_error("failed to get data fd");
 494         return -errno;
 495     }
 496
 497 //    if (u->transport == BT_CAPABILITIES_TRANSPORT_A2DP) {
 498 //        opt_name = SO_SNDTIMEO;
 499 //        if (setsockopt(u->stream_fd, SOL_SOCKET, opt_name, &t, sizeof(t)) < 0) {
 500 //            pa_log_error("failed to set socket options for A2DP");
 501 //            return -errno;
 502 //        }
 503 //    }
 504 //    else {
 505 //        opt_name = SCO_TXBUFS;
 506 //        if (setsockopt(u->stream_fd, SOL_SCO, opt_name, &period_count, sizeof(period_count)) == 0)
 507 //            return 0;
 508 //        opt_name = SO_SNDBUF;
 509 //        if (setsockopt(u->stream_fd, SOL_SCO, opt_name, &period_count, sizeof(period_count)) == 0)
 510 //            return 0;
 511 //        /* FIXME : handle error codes */
 512 //    }
 513     pa_make_fd_nonblock(u->stream_fd);
 514
 515     return 0;
 516 }
 517
 518 static int bt_hw_constraint(struct userdata *u) {
 519     /*TODO: A2DP */
 520     u->ss.format = PA_SAMPLE_S16LE;
 521     u->ss.rate = 8000;
 522     u->ss.channels = 1;
 523     return 0;
 524 }
 525
 526 static int sink_process_msg(pa_msgobject *o, int code, void *data, int64_t offset, pa_memchunk *chunk) {
 527     struct userdata *u = PA_SINK(o)->userdata;
 528
 529     switch (code) {
 530
 531         case PA_SINK_MESSAGE_SET_STATE:
 532             switch ((pa_sink_state_t) PA_PTR_TO_UINT(data)) {
 533                 case PA_SINK_SUSPENDED:
 534                     pa_assert(PA_SINK_IS_OPENED(u->sink->thread_info.state));
 535                     pa_smoother_pause(u->smoother, pa_rtclock_usec());
 536                     break;
 537                 case PA_SINK_IDLE:
 538                 case PA_SINK_RUNNING:
 539                     if (u->sink->thread_info.state == PA_SINK_SUSPENDED)
 540                         pa_smoother_resume(u->smoother, pa_rtclock_usec());
 541                     break;
 542                 case PA_SINK_UNLINKED:
 543                 case PA_SINK_INIT:
 544                     ;
 545             }
 546             break;
 547
 548         case PA_SINK_MESSAGE_GET_LATENCY: {
 549             pa_usec_t w, r;
 550             r = pa_smoother_get(u->smoother, pa_rtclock_usec());
 551             w = pa_bytes_to_usec(u->offset + u->memchunk.length, &u->sink->sample_spec);
 552             *((pa_usec_t*) data) = w > r ? w - r : 0;
 553             break;
 554         }
 555
 556     }
 557
 558     return pa_sink_process_msg(o, code, data, offset, chunk);
 559 }
 560
 561 static void thread_func(void *userdata) {
 562     struct userdata *u = userdata;
 563     int write_type = 0;
 564
 565     pa_assert(u);
 566
 567     pa_log/*_debug*/("Thread starting up");
 568
 569     pa_thread_mq_install(&u->thread_mq);
 570     pa_rtpoll_install(u->rtpoll);
 571
 572     pa_smoother_set_time_offset(u->smoother, pa_rtclock_usec());
 573
 574     for (;;) {
 575         int ret;
 576         struct pollfd *pollfd;
 577
 578         if (PA_SINK_IS_OPENED(u->sink->thread_info.state)) {
 579             if (u->sink->thread_info.rewind_requested) {
 580                 pa_log("rewind_requested");
 581                 pa_sink_process_rewind(u->sink, 0);
 582                 pa_log("rewind_finished");
 583             }
 584         }
 585
 586         pollfd = pa_rtpoll_item_get_pollfd(u->rtpoll_item, NULL);
 587
 588         /* Render some data and write it to the fifo */
 589         if (PA_SINK_IS_OPENED(u->sink->thread_info.state) && pollfd->revents) {
 590             pa_usec_t usec;
 591             int64_t n;
 592             pa_log("Render some data and write it to the fifo");
 593
 594             for (;;) {
 595                 ssize_t l;
 596                 void *p;
 597
 598                 u->memchunk.memblock = pa_memblock_new(u->mempool, u->block_size);
 599                 pa_log("memblock allocated");
 600                 u->memchunk.length = pa_memblock_get_length(u->memchunk.memblock);
 601                 pa_log("memchunk length");
 602                 pa_sink_render_into_full(u->sink, &u->memchunk);
 603                 pa_log("rendered");
 604
 605                 pa_assert(u->memchunk.length > 0);
 606
 607                 p = pa_memblock_acquire(u->memchunk.memblock);
 608                 pa_log("memblock acquired");
 609                 l = pa_write(u->stream_fd, (uint8_t*) p, u->memchunk.length, &write_type);
 610                 pa_log("memblock written");
 611                 pa_memblock_release(u->memchunk.memblock);
 612                 pa_log("memblock released");
 613
 614                 pa_assert(l != 0);
 615
 616                 if (l < 0) {
 617                     pa_log("l = %d < 0", l);
 618                     if (errno == EINTR)
 619                         continue;
 620                     else if (errno == EAGAIN)
 621                         goto filled_up;
 622                     else {
 623                         pa_log("Failed to write data to FIFO: %s", pa_cstrerror(errno));
 624                         goto fail;
 625                     }
 626                 } else {
 627                     pa_log("l = %d >= 0", l);
 628                     u->offset += l;
 629                     pa_memblock_unref(u->memchunk.memblock);
 630                     pa_log("memblock unrefered");
 631                     pa_memchunk_reset(&u->memchunk);
 632                     pa_log("memchunk reseted");
 633                     pollfd->revents = 0;
 634                 }
 635             }
 636
 637 filled_up:
 638
 639             pa_log("filled_up");
 640             /* At this spot we know that the socket buffers are fully filled up.
 641              * This is the best time to estimate the playback position of the server */
 642             n = u->offset;
 643
 644 //#ifdef SIOCOUTQ
 645 //           {
 646 //               int l;
 647 //               if (ioctl(u->fd, SIOCOUTQ, &l) >= 0 && l > 0)
 648 //                   n -= l;
 649 //           }
 650 //#endif
 651
 652             usec = pa_bytes_to_usec(n, &u->sink->sample_spec);
 653             if (usec > u->latency)
 654                 usec -= u->latency;
 655             else
 656                 usec = 0;
 657             pa_smoother_put(u->smoother, pa_rtclock_usec(), usec);
 658         }
 659
 660         /* Hmm, nothing to do. Let's sleep */
 661         pa_log("let's sleep");
 662         pollfd->events = PA_SINK_IS_OPENED(u->sink->thread_info.state) ? POLLOUT : 0;
 663
 664         if ((ret = pa_rtpoll_run(u->rtpoll, TRUE)) < 0) {
 665             pa_log("ret < 0");
 666             goto fail;
 667         }
 668         pa_log("waking up");
 669
 670         if (ret == 0) {
 671             pa_log("ret == 0");
 672             goto finish;
 673         }
 674
 675         pollfd = pa_rtpoll_item_get_pollfd(u->rtpoll_item, NULL);
 676         if (pollfd->revents & ~POLLOUT) {
 677             pa_log("FIFO shutdown.");
 678             goto fail;
 679         }
 680     }
 681
 682 fail:
 683     /* If this was no regular exit from the loop we have to continue processing messages until we receive PA_MESSAGE_SHUTDOWN */
 684     pa_log("fail");
 685     pa_asyncmsgq_post(u->thread_mq.outq, PA_MSGOBJECT(u->core), PA_CORE_MESSAGE_UNLOAD_MODULE, u->module, 0, NULL, NULL);
 686     pa_asyncmsgq_wait_for(u->thread_mq.inq, PA_MESSAGE_SHUTDOWN);
 687
 688 finish:
 689     pa_log_debug("Thread shutting down");
 690 }
 691
 692 int pa__init(pa_module* m) {
 693     int e;
 694     const char *rate, *channels;
 695     pa_modargs *ma;
 696     pa_sink_new_data data;
 697     struct pollfd *pollfd;
 698     struct userdata *u;
 699
 700     pa_assert(m);
 701     m->userdata = u = pa_xnew0(struct userdata, 1);
 702     u->module = m;
 703     u->core = m->core;
 704     u->audioservice_fd = -1;
 705     u->stream_fd = -1;
 706     u->transport = -1;
 707     u->offset = 0;
 708     u->latency = 0;
 709     u->smoother = pa_smoother_new(PA_USEC_PER_SEC, PA_USEC_PER_SEC*2, TRUE, 10);
 710     u->mempool = pa_mempool_new(FALSE);
 711     pa_memchunk_reset(&u->memchunk);
 712     u->rtpoll = pa_rtpoll_new();
 713     pa_thread_mq_init(&u->thread_mq, u->core->mainloop, u->rtpoll);
 714     u->rtpoll_item = NULL;
 715
 716     if (!(ma = pa_modargs_new(m->argument, valid_modargs))) {
 717         pa_log_error("failed to parse module arguments");
 718         goto fail;
 719     }
 720     if (!(u->name = pa_xstrdup(pa_modargs_get_value(ma, "name", DEFAULT_SINK_NAME)))) {
 721         pa_log_error("failed to get device name from module arguments");
 722         goto fail;
 723     }
 724     if (!(u->addr = pa_xstrdup(pa_modargs_get_value(ma, "addr", NULL)))) {
 725         pa_log_error("failed to get device address from module arguments");
 726         goto fail;
 727     }
 728     if (!(u->profile = pa_xstrdup(pa_modargs_get_value(ma, "profile", NULL)))) {
 729         pa_log_error("failed to get profile from module arguments");
 730         goto fail;
 731     }
 732     if (pa_modargs_get_value_u32(ma, "rate", &u->rate) < 0) {
 733         pa_log_error("failed to get rate from module arguments");
 734         goto fail;
 735     }
 736     if (pa_modargs_get_value_u32(ma, "channels", &u->channels) < 0) {
 737         pa_log_error("failed to get channels from module arguments");
 738         goto fail;
 739     }
 740     pa_log("Loading module-bt-device for %s (%s), profile %s", u->name, u->addr, u->profile);
 741
 742     /* connect to the bluez audio service */
 743     u->audioservice_fd = bt_audio_service_open();
 744     if (u->audioservice_fd <= 0) {
 745         pa_log_error("couldn't connect to bluetooth audio service");
 746         goto fail;
 747     }
 748
 749     /* queries device capabilities */
 750     e = bt_getcaps(u);
 751     if (e < 0) {
 752         pa_log_error("failed to get device capabilities");
 753         goto fail;
 754     }
 755
 756     /* configures the connection */
 757     e = bt_setconf(u);
 758     if (e < 0) {
 759         pa_log_error("failed to set config");
 760         goto fail;
 761     }
 762
 763     /* gets the device socket */
 764     e = bt_getstreamfd(u);
 765     if (e < 0) {
 766         pa_log_error("failed to get stream fd (%d)", e);
 767         goto fail;
 768     }
 769     u->rtpoll_item = pa_rtpoll_item_new(u->rtpoll, PA_RTPOLL_NEVER, 1);
 770     pollfd = pa_rtpoll_item_get_pollfd(u->rtpoll_item, NULL);
 771     pollfd->fd = u->stream_fd;
 772     pollfd->events = pollfd->revents = 0;
 773
 774     /* configure hw supported sample specs */
 775     e = bt_hw_constraint(u);
 776     if (e < 0) {
 777         pa_log_error("failed to configure sample spec");
 778         goto fail;
 779     }
 780
 781     /* create sink */
 782     pa_sink_new_data_init(&data);
 783     data.driver = __FILE__;
 784     data.module = m;
 785     pa_sink_new_data_set_name(&data, u->name);
 786     pa_sink_new_data_set_sample_spec(&data, &u->ss);
 787     pa_proplist_sets(data.proplist, PA_PROP_DEVICE_STRING, u->name);
 788     pa_proplist_setf(data.proplist, PA_PROP_DEVICE_DESCRIPTION, "Bluetooth sink '%s' (%s)", u->name, u->addr);
 789     u->sink = pa_sink_new(m->core, &data, PA_SINK_HARDWARE|PA_SINK_LATENCY|PA_SINK_NETWORK);
 790     pa_sink_new_data_done(&data);
 791     if (!u->sink) {
 792         pa_log_error("failed to create sink");
 793         goto fail;
 794     }
 795     u->sink->userdata = u;
 796     u->sink->parent.process_msg = sink_process_msg;
 797     pa_sink_set_asyncmsgq(u->sink, u->thread_mq.inq);
 798     pa_sink_set_rtpoll(u->sink, u->rtpoll);
 799
 800     /* start rt thread */
 801     if (!(u->thread = pa_thread_new(thread_func, u))) {
 802         pa_log_error("failed to create thread");
 803         goto fail;
 804     }
 805     pa_sink_put(u->sink);
 806
 807     pa_modargs_free(ma);
 808     return 0;
 809
 810 fail:
 811     if (ma)
 812         pa_modargs_free(ma);
 813     pa__done(m);
 814     return -1;
 815 }
 816
 817 void pa__done(pa_module *m) {
 818     pa_log("Unloading module-bt-device");
 819 }
 820