src/protocol-native.c

   1 #include <string.h>
   2 #include <stdio.h>
   3 #include <assert.h>
   4 #include <stdlib.h>
   5
   6 #include "protocol-native.h"
   7 #include "protocol-native-spec.h"
   8 #include "packet.h"
   9 #include "client.h"
  10 #include "sourceoutput.h"
  11 #include "sinkinput.h"
  12 #include "pstream.h"
  13 #include "tagstruct.h"
  14 #include "pdispatch.h"
  15 #include "pstream-util.h"
  16 #include "authkey.h"
  17 #include "namereg.h"
  18
  19 struct connection;
  20 struct pa_protocol_native;
  21
  22 struct record_stream {
  23     struct connection *connection;
  24     uint32_t index;
  25     struct pa_source_output *source_output;
  26     struct pa_memblockq *memblockq;
  27     size_t fragment_size;
  28 };
  29
  30 struct playback_stream {
  31     struct connection *connection;
  32     uint32_t index;
  33     struct pa_sink_input *sink_input;
  34     struct pa_memblockq *memblockq;
  35     size_t requested_bytes;
  36     int drain_request;
  37     uint32_t drain_tag;
  38 };
  39
  40 struct connection {
  41     int authorized;
  42     struct pa_protocol_native *protocol;
  43     struct pa_client *client;
  44     struct pa_pstream *pstream;
  45     struct pa_pdispatch *pdispatch;
  46     struct pa_idxset *record_streams, *playback_streams;
  47     uint32_t rrobin_index;
  48 };
  49
  50 struct pa_protocol_native {
  51     struct pa_module *module;
  52     int public;
  53     struct pa_core *core;
  54     struct pa_socket_server *server;
  55     struct pa_idxset *connections;
  56     uint8_t auth_cookie[PA_NATIVE_COOKIE_LENGTH];
  57 };
  58
  59 static int sink_input_peek_cb(struct pa_sink_input *i, struct pa_memchunk *chunk);
  60 static void sink_input_drop_cb(struct pa_sink_input *i, size_t length);
  61 static void sink_input_kill_cb(struct pa_sink_input *i);
  62 static uint32_t sink_input_get_latency_cb(struct pa_sink_input *i);
  63
  64 static void request_bytes(struct playback_stream*s);
  65
  66 static void source_output_kill_cb(struct pa_source_output *o);
  67 static void source_output_push_cb(struct pa_source_output *o, const struct pa_memchunk *chunk);
  68
  69 static void command_exit(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  70 static void command_create_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  71 static void command_delete_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  72 static void command_drain_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  73 static void command_create_record_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  74 static void command_delete_record_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  75 static void command_auth(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  76 static void command_set_name(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  77 static void command_lookup(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  78 static void command_stat(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  79 static void command_get_playback_latency(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
  80
  81 static const struct pa_pdispatch_command command_table[PA_COMMAND_MAX] = {
  82     [PA_COMMAND_ERROR] = { NULL },
  83     [PA_COMMAND_TIMEOUT] = { NULL },
  84     [PA_COMMAND_REPLY] = { NULL },
  85     [PA_COMMAND_CREATE_PLAYBACK_STREAM] = { command_create_playback_stream },
  86     [PA_COMMAND_DELETE_PLAYBACK_STREAM] = { command_delete_playback_stream },
  87     [PA_COMMAND_DRAIN_PLAYBACK_STREAM] = { command_drain_playback_stream },
  88     [PA_COMMAND_CREATE_RECORD_STREAM] = { command_create_record_stream },
  89     [PA_COMMAND_DELETE_RECORD_STREAM] = { command_delete_record_stream },
  90     [PA_COMMAND_AUTH] = { command_auth },
  91     [PA_COMMAND_REQUEST] = { NULL },
  92     [PA_COMMAND_EXIT] = { command_exit },
  93     [PA_COMMAND_SET_NAME] = { command_set_name },
  94     [PA_COMMAND_LOOKUP_SINK] = { command_lookup },
  95     [PA_COMMAND_LOOKUP_SOURCE] = { command_lookup },
  96     [PA_COMMAND_STAT] = { command_stat },
  97     [PA_COMMAND_GET_PLAYBACK_LATENCY] = { command_get_playback_latency },
  98 };
  99
 100 /* structure management */
 101
 102 static struct record_stream* record_stream_new(struct connection *c, struct pa_source *source, struct pa_sample_spec *ss, const char *name, size_t maxlength, size_t fragment_size) {
 103     struct record_stream *s;
 104     struct pa_source_output *source_output;
 105     size_t base;
 106     assert(c && source && ss && name && maxlength);
 107
 108     if (!(source_output = pa_source_output_new(source, name, ss)))
 109         return NULL;
 110
 111     s = malloc(sizeof(struct record_stream));
 112     assert(s);
 113     s->connection = c;
 114     s->source_output = source_output;
 115     s->source_output->push = source_output_push_cb;
 116     s->source_output->kill = source_output_kill_cb;
 117     s->source_output->userdata = s;
 118     s->source_output->owner = c->protocol->module;
 119     s->source_output->client = c->client;
 120
 121     s->memblockq = pa_memblockq_new(maxlength, 0, base = pa_sample_size(ss), 0, 0);
 122     assert(s->memblockq);
 123
 124     s->fragment_size = (fragment_size/base)*base;
 125     if (!s->fragment_size)
 126         s->fragment_size = base;
 127
 128     pa_idxset_put(c->record_streams, s, &s->index);
 129     return s;
 130 }
 131
 132 static void record_stream_free(struct record_stream* r) {
 133     assert(r && r->connection);
 134
 135     pa_idxset_remove_by_data(r->connection->record_streams, r, NULL);
 136     pa_source_output_free(r->source_output);
 137     pa_memblockq_free(r->memblockq);
 138     free(r);
 139 }
 140
 141 static struct playback_stream* playback_stream_new(struct connection *c, struct pa_sink *sink, struct pa_sample_spec *ss, const char *name,
 142                                                    size_t maxlength,
 143                                                    size_t tlength,
 144                                                    size_t prebuf,
 145                                                    size_t minreq) {
 146     struct playback_stream *s;
 147     struct pa_sink_input *sink_input;
 148     assert(c && sink && ss && name && maxlength);
 149
 150     if (!(sink_input = pa_sink_input_new(sink, name, ss)))
 151         return NULL;
 152
 153     s = malloc(sizeof(struct playback_stream));
 154     assert (s);
 155     s->connection = c;
 156     s->sink_input = sink_input;
 157
 158     s->sink_input->peek = sink_input_peek_cb;
 159     s->sink_input->drop = sink_input_drop_cb;
 160     s->sink_input->kill = sink_input_kill_cb;
 161     s->sink_input->get_latency = sink_input_get_latency_cb;
 162     s->sink_input->userdata = s;
 163     s->sink_input->owner = c->protocol->module;
 164     s->sink_input->client = c->client;
 165
 166     s->memblockq = pa_memblockq_new(maxlength, tlength, pa_sample_size(ss), prebuf, minreq);
 167     assert(s->memblockq);
 168
 169     s->requested_bytes = 0;
 170     s->drain_request = 0;
 171
 172     pa_idxset_put(c->playback_streams, s, &s->index);
 173     return s;
 174 }
 175
 176 static void playback_stream_free(struct playback_stream* p) {
 177     assert(p && p->connection);
 178
 179     if (p->drain_request)
 180         pa_pstream_send_error(p->connection->pstream, p->drain_tag, PA_ERROR_NOENTITY);
 181
 182     pa_idxset_remove_by_data(p->connection->playback_streams, p, NULL);
 183     pa_sink_input_free(p->sink_input);
 184     pa_memblockq_free(p->memblockq);
 185     free(p);
 186 }
 187
 188 static void connection_free(struct connection *c) {
 189     struct record_stream *r;
 190     struct playback_stream *p;
 191     assert(c && c->protocol);
 192
 193     pa_idxset_remove_by_data(c->protocol->connections, c, NULL);
 194     while ((r = pa_idxset_first(c->record_streams, NULL)))
 195         record_stream_free(r);
 196     pa_idxset_free(c->record_streams, NULL, NULL);
 197
 198     while ((p = pa_idxset_first(c->playback_streams, NULL)))
 199         playback_stream_free(p);
 200     pa_idxset_free(c->playback_streams, NULL, NULL);
 201
 202     pa_pdispatch_free(c->pdispatch);
 203     pa_pstream_free(c->pstream);
 204     pa_client_free(c->client);
 205     free(c);
 206 }
 207
 208 static void request_bytes(struct playback_stream *s) {
 209     struct pa_tagstruct *t;
 210     size_t l;
 211     assert(s);
 212
 213     if (!(l = pa_memblockq_missing(s->memblockq)))
 214         return;
 215
 216     if (l <= s->requested_bytes)
 217         return;
 218
 219     l -= s->requested_bytes;
 220
 221     if (l < pa_memblockq_get_minreq(s->memblockq))
 222         return;
 223
 224     s->requested_bytes += l;
 225
 226     t = pa_tagstruct_new(NULL, 0);
 227     assert(t);
 228     pa_tagstruct_putu32(t, PA_COMMAND_REQUEST);
 229     pa_tagstruct_putu32(t, (uint32_t) -1); /* tag */
 230     pa_tagstruct_putu32(t, s->index);
 231     pa_tagstruct_putu32(t, l);
 232     pa_pstream_send_tagstruct(s->connection->pstream, t);
 233
 234     /*fprintf(stderr, "Requesting %u bytes\n", l);*/
 235 }
 236
 237 static void send_memblock(struct connection *c) {
 238     uint32_t start;
 239     struct record_stream *r;
 240
 241     start = PA_IDXSET_INVALID;
 242     for (;;) {
 243         struct pa_memchunk chunk;
 244
 245         if (!(r = pa_idxset_rrobin(c->record_streams, &c->rrobin_index)))
 246             return;
 247
 248         if (start == PA_IDXSET_INVALID)
 249             start = c->rrobin_index;
 250         else if (start == c->rrobin_index)
 251             return;
 252
 253         if (pa_memblockq_peek(r->memblockq,  &chunk) >= 0) {
 254             if (chunk.length > r->fragment_size)
 255                 chunk.length = r->fragment_size;
 256
 257             pa_pstream_send_memblock(c->pstream, r->index, 0, &chunk);
 258             pa_memblockq_drop(r->memblockq, chunk.length);
 259             pa_memblock_unref(chunk.memblock);
 260
 261             return;
 262         }
 263     }
 264 }
 265
 266 static void send_playback_stream_killed(struct playback_stream *p) {
 267     struct pa_tagstruct *t;
 268     assert(p);
 269
 270     t = pa_tagstruct_new(NULL, 0);
 271     assert(t);
 272     pa_tagstruct_putu32(t, PA_COMMAND_PLAYBACK_STREAM_KILLED);
 273     pa_tagstruct_putu32(t, (uint32_t) -1); /* tag */
 274     pa_tagstruct_putu32(t, p->index);
 275     pa_pstream_send_tagstruct(p->connection->pstream, t);
 276 }
 277
 278 static void send_record_stream_killed(struct record_stream *r) {
 279     struct pa_tagstruct *t;
 280     assert(r);
 281
 282     t = pa_tagstruct_new(NULL, 0);
 283     assert(t);
 284     pa_tagstruct_putu32(t, PA_COMMAND_RECORD_STREAM_KILLED);
 285     pa_tagstruct_putu32(t, (uint32_t) -1); /* tag */
 286     pa_tagstruct_putu32(t, r->index);
 287     pa_pstream_send_tagstruct(r->connection->pstream, t);
 288 }
 289
 290
 291 /*** sinkinput callbacks ***/
 292
 293 static int sink_input_peek_cb(struct pa_sink_input *i, struct pa_memchunk *chunk) {
 294     struct playback_stream *s;
 295     assert(i && i->userdata && chunk);
 296     s = i->userdata;
 297
 298     if (pa_memblockq_peek(s->memblockq, chunk) < 0)
 299         return -1;
 300
 301     return 0;
 302 }
 303
 304 static void sink_input_drop_cb(struct pa_sink_input *i, size_t length) {
 305     struct playback_stream *s;
 306     assert(i && i->userdata && length);
 307     s = i->userdata;
 308
 309     pa_memblockq_drop(s->memblockq, length);
 310     request_bytes(s);
 311
 312     if (s->drain_request && !pa_memblockq_is_readable(s->memblockq)) {
 313         pa_pstream_send_simple_ack(s->connection->pstream, s->drain_tag);
 314         s->drain_request = 0;
 315     }
 316 }
 317
 318 static void sink_input_kill_cb(struct pa_sink_input *i) {
 319     assert(i && i->userdata);
 320     send_playback_stream_killed((struct playback_stream *) i->userdata);
 321     playback_stream_free((struct playback_stream *) i->userdata);
 322 }
 323
 324 static uint32_t sink_input_get_latency_cb(struct pa_sink_input *i) {
 325     struct playback_stream *s;
 326     assert(i && i->userdata);
 327     s = i->userdata;
 328
 329     return pa_samples_usec(pa_memblockq_get_length(s->memblockq), &s->sink_input->sample_spec);
 330 }
 331
 332 /*** source_output callbacks ***/
 333
 334 static void source_output_push_cb(struct pa_source_output *o, const struct pa_memchunk *chunk) {
 335     struct record_stream *s;
 336     assert(o && o->userdata && chunk);
 337     s = o->userdata;
 338
 339     pa_memblockq_push(s->memblockq, chunk, 0);
 340     if (!pa_pstream_is_pending(s->connection->pstream))
 341         send_memblock(s->connection);
 342 }
 343
 344 static void source_output_kill_cb(struct pa_source_output *o) {
 345     assert(o && o->userdata);
 346     send_record_stream_killed((struct record_stream *) o->userdata);
 347     record_stream_free((struct record_stream *) o->userdata);
 348 }
 349
 350 /*** pdispatch callbacks ***/
 351
 352 static void protocol_error(struct connection *c) {
 353     fprintf(stderr, __FILE__": protocol error, kicking client\n");
 354     connection_free(c);
 355 }
 356
 357 static void command_create_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 358     struct connection *c = userdata;
 359     struct playback_stream *s;
 360     size_t maxlength, tlength, prebuf, minreq;
 361     uint32_t sink_index;
 362     const char *name;
 363     struct pa_sample_spec ss;
 364     struct pa_tagstruct *reply;
 365     struct pa_sink *sink;
 366     assert(c && t && c->protocol && c->protocol->core);
 367
 368     if (pa_tagstruct_gets(t, &name) < 0 ||
 369         pa_tagstruct_get_sample_spec(t, &ss) < 0 ||
 370         pa_tagstruct_getu32(t, &sink_index) < 0 ||
 371         pa_tagstruct_getu32(t, &maxlength) < 0 ||
 372         pa_tagstruct_getu32(t, &tlength) < 0 ||
 373         pa_tagstruct_getu32(t, &prebuf) < 0 ||
 374         pa_tagstruct_getu32(t, &minreq) < 0 ||
 375         !pa_tagstruct_eof(t)) {
 376         protocol_error(c);
 377         return;
 378     }
 379
 380     if (!c->authorized) {
 381         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 382         return;
 383     }
 384
 385     if (sink_index == (uint32_t) -1)
 386         sink = pa_sink_get_default(c->protocol->core);
 387     else
 388         sink = pa_idxset_get_by_index(c->protocol->core->sinks, sink_index);
 389
 390     if (!sink) {
 391         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 392         return;
 393     }
 394
 395     if (!(s = playback_stream_new(c, sink, &ss, name, maxlength, tlength, prebuf, minreq))) {
 396         pa_pstream_send_error(c->pstream, tag, PA_ERROR_INVALID);
 397         return;
 398     }
 399
 400     reply = pa_tagstruct_new(NULL, 0);
 401     assert(reply);
 402     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 403     pa_tagstruct_putu32(reply, tag);
 404     pa_tagstruct_putu32(reply, s->index);
 405     assert(s->sink_input);
 406     pa_tagstruct_putu32(reply, s->sink_input->index);
 407     pa_pstream_send_tagstruct(c->pstream, reply);
 408     request_bytes(s);
 409 }
 410
 411 static void command_delete_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 412     struct connection *c = userdata;
 413     uint32_t channel;
 414     struct playback_stream *s;
 415     assert(c && t);
 416
 417     if (pa_tagstruct_getu32(t, &channel) < 0 ||
 418         !pa_tagstruct_eof(t)) {
 419         protocol_error(c);
 420         return;
 421     }
 422
 423     if (!c->authorized) {
 424         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 425         return;
 426     }
 427
 428     if (!(s = pa_idxset_get_by_index(c->playback_streams, channel))) {
 429         pa_pstream_send_error(c->pstream, tag, PA_ERROR_EXIST);
 430         return;
 431     }
 432
 433     playback_stream_free(s);
 434     pa_pstream_send_simple_ack(c->pstream, tag);
 435 }
 436
 437 static void command_create_record_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 438     struct connection *c = userdata;
 439     struct record_stream *s;
 440     size_t maxlength, fragment_size;
 441     uint32_t source_index;
 442     const char *name;
 443     struct pa_sample_spec ss;
 444     struct pa_tagstruct *reply;
 445     struct pa_source *source;
 446     assert(c && t && c->protocol && c->protocol->core);
 447
 448     if (pa_tagstruct_gets(t, &name) < 0 ||
 449         pa_tagstruct_get_sample_spec(t, &ss) < 0 ||
 450         pa_tagstruct_getu32(t, &source_index) < 0 ||
 451         pa_tagstruct_getu32(t, &maxlength) < 0 ||
 452         pa_tagstruct_getu32(t, &fragment_size) < 0 ||
 453         !pa_tagstruct_eof(t)) {
 454         protocol_error(c);
 455         return;
 456     }
 457
 458     if (!c->authorized) {
 459         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 460         return;
 461     }
 462
 463     if (source_index == (uint32_t) -1)
 464         source = pa_source_get_default(c->protocol->core);
 465     else
 466         source = pa_idxset_get_by_index(c->protocol->core->sources, source_index);
 467
 468     if (!source) {
 469         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 470         return;
 471     }
 472
 473     if (!(s = record_stream_new(c, source, &ss, name, maxlength, fragment_size))) {
 474         pa_pstream_send_error(c->pstream, tag, PA_ERROR_INVALID);
 475         return;
 476     }
 477
 478     reply = pa_tagstruct_new(NULL, 0);
 479     assert(reply);
 480     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 481     pa_tagstruct_putu32(reply, tag);
 482     pa_tagstruct_putu32(reply, s->index);
 483     assert(s->source_output);
 484     pa_tagstruct_putu32(reply, s->source_output->index);
 485     pa_pstream_send_tagstruct(c->pstream, reply);
 486 }
 487
 488 static void command_delete_record_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 489     struct connection *c = userdata;
 490     uint32_t channel;
 491     struct record_stream *s;
 492     assert(c && t);
 493
 494     if (pa_tagstruct_getu32(t, &channel) < 0 ||
 495         !pa_tagstruct_eof(t)) {
 496         protocol_error(c);
 497         return;
 498     }
 499
 500     if (!c->authorized) {
 501         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 502         return;
 503     }
 504
 505     if (!(s = pa_idxset_get_by_index(c->record_streams, channel))) {
 506         pa_pstream_send_error(c->pstream, tag, PA_ERROR_EXIST);
 507         return;
 508     }
 509
 510     record_stream_free(s);
 511     pa_pstream_send_simple_ack(c->pstream, tag);
 512 }
 513
 514 static void command_exit(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 515     struct connection *c = userdata;
 516     assert(c && t);
 517
 518     if (!pa_tagstruct_eof(t)) {
 519         protocol_error(c);
 520         return;
 521     }
 522
 523     if (!c->authorized) {
 524         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 525         return;
 526     }
 527
 528     assert(c->protocol && c->protocol->core && c->protocol->core->mainloop);
 529     c->protocol->core->mainloop->quit(c->protocol->core->mainloop, 0);
 530     pa_pstream_send_simple_ack(c->pstream, tag); /* nonsense */
 531     return;
 532 }
 533
 534 static void command_auth(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 535     struct connection *c = userdata;
 536     const void*cookie;
 537     assert(c && t);
 538
 539     if (pa_tagstruct_get_arbitrary(t, &cookie, PA_NATIVE_COOKIE_LENGTH) < 0 ||
 540         !pa_tagstruct_eof(t)) {
 541         protocol_error(c);
 542         return;
 543     }
 544
 545     if (memcmp(c->protocol->auth_cookie, cookie, PA_NATIVE_COOKIE_LENGTH) != 0) {
 546         fprintf(stderr, "protocol-native.c: Denied access to client with invalid authorization key.\n");
 547         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 548         return;
 549     }
 550
 551     c->authorized = 1;
 552     pa_pstream_send_simple_ack(c->pstream, tag);
 553     return;
 554 }
 555
 556 static void command_set_name(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 557     struct connection *c = userdata;
 558     const char *name;
 559     assert(c && t);
 560
 561     if (pa_tagstruct_gets(t, &name) < 0 ||
 562         !pa_tagstruct_eof(t)) {
 563         protocol_error(c);
 564         return;
 565     }
 566
 567     pa_client_rename(c->client, name);
 568     pa_pstream_send_simple_ack(c->pstream, tag);
 569     return;
 570 }
 571
 572 static void command_lookup(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 573     struct connection *c = userdata;
 574     const char *name;
 575     uint32_t index = PA_IDXSET_INVALID;
 576     assert(c && t);
 577
 578     if (pa_tagstruct_gets(t, &name) < 0 ||
 579         !pa_tagstruct_eof(t)) {
 580         protocol_error(c);
 581         return;
 582     }
 583
 584     if (!c->authorized) {
 585         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 586         return;
 587     }
 588
 589     if (command == PA_COMMAND_LOOKUP_SINK) {
 590         struct pa_sink *sink;
 591         if ((sink = pa_namereg_get(c->protocol->core, name, PA_NAMEREG_SINK)))
 592             index = sink->index;
 593     } else {
 594         struct pa_source *source;
 595         assert(command == PA_COMMAND_LOOKUP_SOURCE);
 596         if ((source = pa_namereg_get(c->protocol->core, name, PA_NAMEREG_SOURCE)))
 597             index = source->index;
 598     }
 599
 600     if (index == PA_IDXSET_INVALID)
 601         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 602     else {
 603         struct pa_tagstruct *reply;
 604         reply = pa_tagstruct_new(NULL, 0);
 605         assert(reply);
 606         pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 607         pa_tagstruct_putu32(reply, tag);
 608         pa_tagstruct_putu32(reply, index);
 609         pa_pstream_send_tagstruct(c->pstream, reply);
 610     }
 611 }
 612
 613 static void command_drain_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 614     struct connection *c = userdata;
 615     uint32_t index;
 616     struct playback_stream *s;
 617     assert(c && t);
 618
 619     if (pa_tagstruct_getu32(t, &index) < 0 ||
 620         !pa_tagstruct_eof(t)) {
 621         protocol_error(c);
 622         return;
 623     }
 624
 625     if (!c->authorized) {
 626         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 627         return;
 628     }
 629
 630     if (!(s = pa_idxset_get_by_index(c->playback_streams, index))) {
 631         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 632         return;
 633     }
 634
 635     s->drain_request = 0;
 636
 637     if (!pa_memblockq_is_readable(s->memblockq))
 638         pa_pstream_send_simple_ack(c->pstream, tag);
 639     else {
 640         s->drain_request = 1;
 641         s->drain_tag = tag;
 642     }
 643 }
 644
 645 static void command_stat(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 646     struct connection *c = userdata;
 647     assert(c && t);
 648     struct pa_tagstruct *reply;
 649
 650     if (!pa_tagstruct_eof(t)) {
 651         protocol_error(c);
 652         return;
 653     }
 654
 655     if (!c->authorized) {
 656         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 657         return;
 658     }
 659
 660     reply = pa_tagstruct_new(NULL, 0);
 661     assert(reply);
 662     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 663     pa_tagstruct_putu32(reply, tag);
 664     pa_tagstruct_putu32(reply, pa_memblock_get_count());
 665     pa_tagstruct_putu32(reply, pa_memblock_get_total());
 666     pa_pstream_send_tagstruct(c->pstream, reply);
 667 }
 668
 669 static void command_get_playback_latency(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 670     struct connection *c = userdata;
 671     assert(c && t);
 672     struct pa_tagstruct *reply;
 673     struct playback_stream *s;
 674     uint32_t index, latency;
 675
 676     if (pa_tagstruct_getu32(t, &index) < 0 ||
 677         !pa_tagstruct_eof(t)) {
 678         protocol_error(c);
 679         return;
 680     }
 681
 682     if (!c->authorized) {
 683         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 684         return;
 685     }
 686
 687     if (!(s = pa_idxset_get_by_index(c->playback_streams, index))) {
 688         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 689         return;
 690     }
 691
 692     latency = pa_sink_input_get_latency(s->sink_input);
 693     reply = pa_tagstruct_new(NULL, 0);
 694     assert(reply);
 695     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 696     pa_tagstruct_putu32(reply, tag);
 697     pa_tagstruct_putu32(reply, latency);
 698     pa_pstream_send_tagstruct(c->pstream, reply);
 699 }
 700
 701 /*** pstream callbacks ***/
 702
 703 static void pstream_packet_callback(struct pa_pstream *p, struct pa_packet *packet, void *userdata) {
 704     struct connection *c = userdata;
 705     assert(p && packet && packet->data && c);
 706
 707     if (pa_pdispatch_run(c->pdispatch, packet, c) < 0) {
 708         fprintf(stderr, "protocol-native: invalid packet.\n");
 709         connection_free(c);
 710     }
 711 }
 712
 713 static void pstream_memblock_callback(struct pa_pstream *p, uint32_t channel, int32_t delta, const struct pa_memchunk *chunk, void *userdata) {
 714     struct connection *c = userdata;
 715     struct playback_stream *stream;
 716     assert(p && chunk && userdata);
 717
 718     if (!(stream = pa_idxset_get_by_index(c->playback_streams, channel))) {
 719         fprintf(stderr, "protocol-native: client sent block for invalid stream.\n");
 720         connection_free(c);
 721         return;
 722     }
 723
 724     if (chunk->length >= stream->requested_bytes)
 725         stream->requested_bytes = 0;
 726     else
 727         stream->requested_bytes -= chunk->length;
 728
 729     pa_memblockq_push_align(stream->memblockq, chunk, delta);
 730     assert(stream->sink_input);
 731     pa_sink_notify(stream->sink_input->sink);
 732
 733     /*fprintf(stderr, "Recieved %u bytes.\n", chunk->length);*/
 734 }
 735
 736 static void pstream_die_callback(struct pa_pstream *p, void *userdata) {
 737     struct connection *c = userdata;
 738     assert(p && c);
 739     connection_free(c);
 740
 741     fprintf(stderr, "protocol-native: connection died.\n");
 742 }
 743
 744
 745 static void pstream_drain_callback(struct pa_pstream *p, void *userdata) {
 746     struct connection *c = userdata;
 747     assert(p && c);
 748
 749     send_memblock(c);
 750 }
 751
 752 /*** client callbacks ***/
 753
 754 static void client_kill_cb(struct pa_client *c) {
 755     assert(c && c->userdata);
 756     connection_free(c->userdata);
 757 }
 758
 759 /*** socket server callbacks ***/
 760
 761 static void on_connection(struct pa_socket_server*s, struct pa_iochannel *io, void *userdata) {
 762     struct pa_protocol_native *p = userdata;
 763     struct connection *c;
 764     assert(s && io && p);
 765
 766     c = malloc(sizeof(struct connection));
 767     assert(c);
 768     c->authorized = p->public;
 769     c->protocol = p;
 770     assert(p->core);
 771     c->client = pa_client_new(p->core, "NATIVE", "Client");
 772     assert(c->client);
 773     c->client->kill = client_kill_cb;
 774     c->client->userdata = c;
 775     c->client->owner = p->module;
 776
 777     c->pstream = pa_pstream_new(p->core->mainloop, io);
 778     assert(c->pstream);
 779
 780     pa_pstream_set_recieve_packet_callback(c->pstream, pstream_packet_callback, c);
 781     pa_pstream_set_recieve_memblock_callback(c->pstream, pstream_memblock_callback, c);
 782     pa_pstream_set_die_callback(c->pstream, pstream_die_callback, c);
 783     pa_pstream_set_drain_callback(c->pstream, pstream_drain_callback, c);
 784
 785     c->pdispatch = pa_pdispatch_new(p->core->mainloop, command_table, PA_COMMAND_MAX);
 786     assert(c->pdispatch);
 787
 788     c->record_streams = pa_idxset_new(NULL, NULL);
 789     c->playback_streams = pa_idxset_new(NULL, NULL);
 790     assert(c->record_streams && c->playback_streams);
 791
 792     c->rrobin_index = PA_IDXSET_INVALID;
 793
 794     pa_idxset_put(p->connections, c, NULL);
 795 }
 796
 797 /*** module entry points ***/
 798
 799 struct pa_protocol_native* pa_protocol_native_new(struct pa_core *core, struct pa_socket_server *server, struct pa_module *m, struct pa_modargs *ma) {
 800     struct pa_protocol_native *p;
 801     uint32_t public;
 802     assert(core && server && ma);
 803
 804     if (pa_modargs_get_value_u32(ma, "public", &public) < 0) {
 805         fprintf(stderr, __FILE__": public= expects numeric argument.\n");
 806         return NULL;
 807     }
 808
 809     p = malloc(sizeof(struct pa_protocol_native));
 810     assert(p);
 811
 812     if (pa_authkey_load_from_home(pa_modargs_get_value(ma, "cookie", PA_NATIVE_COOKIE_FILE), p->auth_cookie, sizeof(p->auth_cookie)) < 0) {
 813         free(p);
 814         return NULL;
 815     }
 816
 817     p->module = m;
 818     p->public = public;
 819     p->server = server;
 820     p->core = core;
 821     p->connections = pa_idxset_new(NULL, NULL);
 822     assert(p->connections);
 823
 824     pa_socket_server_set_callback(p->server, on_connection, p);
 825
 826     return p;
 827 }
 828
 829 void pa_protocol_native_free(struct pa_protocol_native *p) {
 830     struct connection *c;
 831     assert(p);
 832
 833     while ((c = pa_idxset_first(p->connections, NULL)))
 834         connection_free(c);
 835     pa_idxset_free(p->connections, NULL, NULL);
 836     pa_socket_server_free(p->server);
 837     free(p);
 838 }