polyp/protocol-native.c

   1 /* $Id$ */
   2
   3 /***
   4   This file is part of polypaudio.
   5
   6   polypaudio is free software; you can redistribute it and/or modify
   7   it under the terms of the GNU 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   polypaudio 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 General Public License
  17   along with polypaudio; 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 <stdio.h>
  28 #include <assert.h>
  29 #include <stdlib.h>
  30
  31 #include "protocol-native.h"
  32 #include "native-common.h"
  33 #include "packet.h"
  34 #include "client.h"
  35 #include "source-output.h"
  36 #include "sink-input.h"
  37 #include "pstream.h"
  38 #include "tagstruct.h"
  39 #include "pdispatch.h"
  40 #include "pstream-util.h"
  41 #include "authkey.h"
  42 #include "namereg.h"
  43 #include "scache.h"
  44 #include "xmalloc.h"
  45 #include "util.h"
  46 #include "subscribe.h"
  47
  48 struct connection;
  49 struct pa_protocol_native;
  50
  51 struct record_stream {
  52     struct connection *connection;
  53     uint32_t index;
  54     struct pa_source_output *source_output;
  55     struct pa_memblockq *memblockq;
  56     size_t fragment_size;
  57 };
  58
  59 struct playback_stream {
  60     int type;
  61     struct connection *connection;
  62     uint32_t index;
  63     struct pa_sink_input *sink_input;
  64     struct pa_memblockq *memblockq;
  65     size_t requested_bytes;
  66     int drain_request;
  67     uint32_t drain_tag;
  68 };
  69
  70 struct upload_stream {
  71     int type;
  72     struct connection *connection;
  73     uint32_t index;
  74     struct pa_memchunk memchunk;
  75     size_t length;
  76     char *name;
  77     struct pa_sample_spec sample_spec;
  78 };
  79
  80 struct output_stream {
  81     int type;
  82 };
  83
  84 enum {
  85     UPLOAD_STREAM,
  86     PLAYBACK_STREAM
  87 };
  88
  89 struct connection {
  90     int authorized;
  91     struct pa_protocol_native *protocol;
  92     struct pa_client *client;
  93     struct pa_pstream *pstream;
  94     struct pa_pdispatch *pdispatch;
  95     struct pa_idxset *record_streams, *output_streams;
  96     uint32_t rrobin_index;
  97     struct pa_subscription *subscription;
  98 };
  99
 100 struct pa_protocol_native {
 101     struct pa_module *module;
 102     int public;
 103     struct pa_core *core;
 104     struct pa_socket_server *server;
 105     struct pa_idxset *connections;
 106     uint8_t auth_cookie[PA_NATIVE_COOKIE_LENGTH];
 107 };
 108
 109 static int sink_input_peek_cb(struct pa_sink_input *i, struct pa_memchunk *chunk);
 110 static void sink_input_drop_cb(struct pa_sink_input *i, const struct pa_memchunk *chunk, size_t length);
 111 static void sink_input_kill_cb(struct pa_sink_input *i);
 112 static uint32_t sink_input_get_latency_cb(struct pa_sink_input *i);
 113
 114 static void request_bytes(struct playback_stream*s);
 115
 116 static void source_output_kill_cb(struct pa_source_output *o);
 117 static void source_output_push_cb(struct pa_source_output *o, const struct pa_memchunk *chunk);
 118
 119 static void command_exit(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 120 static void command_create_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 121 static void command_drain_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 122 static void command_create_record_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 123 static void command_delete_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 124 static void command_auth(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 125 static void command_set_name(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 126 static void command_lookup(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 127 static void command_stat(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 128 static void command_get_playback_latency(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 129 static void command_create_upload_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 130 static void command_finish_upload_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 131 static void command_play_sample(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 132 static void command_remove_sample(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 133 static void command_get_info(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 134 static void command_get_info_list(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 135 static void command_get_server_info(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 136 static void command_subscribe(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 137 static void command_set_volume(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 138 static void command_cork_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 139 static void command_flush_or_trigger_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata);
 140
 141 static const struct pa_pdispatch_command command_table[PA_COMMAND_MAX] = {
 142     [PA_COMMAND_ERROR] = { NULL },
 143     [PA_COMMAND_TIMEOUT] = { NULL },
 144     [PA_COMMAND_REPLY] = { NULL },
 145     [PA_COMMAND_CREATE_PLAYBACK_STREAM] = { command_create_playback_stream },
 146     [PA_COMMAND_DELETE_PLAYBACK_STREAM] = { command_delete_stream },
 147     [PA_COMMAND_DRAIN_PLAYBACK_STREAM] = { command_drain_playback_stream },
 148     [PA_COMMAND_CREATE_RECORD_STREAM] = { command_create_record_stream },
 149     [PA_COMMAND_DELETE_RECORD_STREAM] = { command_delete_stream },
 150     [PA_COMMAND_AUTH] = { command_auth },
 151     [PA_COMMAND_REQUEST] = { NULL },
 152     [PA_COMMAND_EXIT] = { command_exit },
 153     [PA_COMMAND_SET_NAME] = { command_set_name },
 154     [PA_COMMAND_LOOKUP_SINK] = { command_lookup },
 155     [PA_COMMAND_LOOKUP_SOURCE] = { command_lookup },
 156     [PA_COMMAND_STAT] = { command_stat },
 157     [PA_COMMAND_GET_PLAYBACK_LATENCY] = { command_get_playback_latency },
 158     [PA_COMMAND_CREATE_UPLOAD_STREAM] = { command_create_upload_stream },
 159     [PA_COMMAND_DELETE_UPLOAD_STREAM] = { command_delete_stream },
 160     [PA_COMMAND_FINISH_UPLOAD_STREAM] = { command_finish_upload_stream },
 161     [PA_COMMAND_PLAY_SAMPLE] = { command_play_sample },
 162     [PA_COMMAND_REMOVE_SAMPLE] = { command_remove_sample },
 163     [PA_COMMAND_GET_SINK_INFO] = { command_get_info },
 164     [PA_COMMAND_GET_SOURCE_INFO] = { command_get_info },
 165     [PA_COMMAND_GET_CLIENT_INFO] = { command_get_info },
 166     [PA_COMMAND_GET_MODULE_INFO] = { command_get_info },
 167     [PA_COMMAND_GET_SINK_INPUT_INFO] = { command_get_info },
 168     [PA_COMMAND_GET_SOURCE_OUTPUT_INFO] = { command_get_info },
 169     [PA_COMMAND_GET_SAMPLE_INFO] = { command_get_info },
 170     [PA_COMMAND_GET_SINK_INFO_LIST] = { command_get_info_list },
 171     [PA_COMMAND_GET_SOURCE_INFO_LIST] = { command_get_info_list },
 172     [PA_COMMAND_GET_MODULE_INFO_LIST] = { command_get_info_list },
 173     [PA_COMMAND_GET_CLIENT_INFO_LIST] = { command_get_info_list },
 174     [PA_COMMAND_GET_SINK_INPUT_INFO_LIST] = { command_get_info_list },
 175     [PA_COMMAND_GET_SOURCE_OUTPUT_INFO_LIST] = { command_get_info_list },
 176     [PA_COMMAND_GET_SAMPLE_INFO_LIST] = { command_get_info_list },
 177     [PA_COMMAND_GET_SERVER_INFO] = { command_get_server_info },
 178     [PA_COMMAND_SUBSCRIBE] = { command_subscribe },
 179     [PA_COMMAND_SET_SINK_VOLUME] = { command_set_volume },
 180     [PA_COMMAND_SET_SINK_INPUT_VOLUME] = { command_set_volume },
 181     [PA_COMMAND_CORK_PLAYBACK_STREAM] = { command_cork_playback_stream },
 182     [PA_COMMAND_FLUSH_PLAYBACK_STREAM] = { command_flush_or_trigger_playback_stream },
 183     [PA_COMMAND_TRIGGER_PLAYBACK_STREAM] = { command_flush_or_trigger_playback_stream },
 184 };
 185
 186 /* structure management */
 187
 188 static struct upload_stream* upload_stream_new(struct connection *c, const struct pa_sample_spec *ss, const char *name, size_t length) {
 189     struct upload_stream *s;
 190     assert(c && ss && name && length);
 191
 192     s = pa_xmalloc(sizeof(struct upload_stream));
 193     s->type = UPLOAD_STREAM;
 194     s->connection = c;
 195     s->sample_spec = *ss;
 196     s->name = pa_xstrdup(name);
 197
 198     s->memchunk.memblock = NULL;
 199     s->memchunk.index = 0;
 200     s->memchunk.length = 0;
 201
 202     s->length = length;
 203
 204     pa_idxset_put(c->output_streams, s, &s->index);
 205     return s;
 206 }
 207
 208 static void upload_stream_free(struct upload_stream *o) {
 209     assert(o && o->connection);
 210
 211     pa_idxset_remove_by_data(o->connection->output_streams, o, NULL);
 212
 213     pa_xfree(o->name);
 214
 215     if (o->memchunk.memblock)
 216         pa_memblock_unref(o->memchunk.memblock);
 217
 218     pa_xfree(o);
 219 }
 220
 221 static struct record_stream* record_stream_new(struct connection *c, struct pa_source *source, const struct pa_sample_spec *ss, const char *name, size_t maxlength, size_t fragment_size) {
 222     struct record_stream *s;
 223     struct pa_source_output *source_output;
 224     size_t base;
 225     assert(c && source && ss && name && maxlength);
 226
 227     if (!(source_output = pa_source_output_new(source, name, ss)))
 228         return NULL;
 229
 230     s = pa_xmalloc(sizeof(struct record_stream));
 231     s->connection = c;
 232     s->source_output = source_output;
 233     s->source_output->push = source_output_push_cb;
 234     s->source_output->kill = source_output_kill_cb;
 235     s->source_output->userdata = s;
 236     s->source_output->owner = c->protocol->module;
 237     s->source_output->client = c->client;
 238
 239     s->memblockq = pa_memblockq_new(maxlength, 0, base = pa_frame_size(ss), 0, 0, c->protocol->core->memblock_stat);
 240     assert(s->memblockq);
 241
 242     s->fragment_size = (fragment_size/base)*base;
 243     if (!s->fragment_size)
 244         s->fragment_size = base;
 245
 246     pa_idxset_put(c->record_streams, s, &s->index);
 247     return s;
 248 }
 249
 250 static void record_stream_free(struct record_stream* r) {
 251     assert(r && r->connection);
 252
 253     pa_idxset_remove_by_data(r->connection->record_streams, r, NULL);
 254     pa_source_output_free(r->source_output);
 255     pa_memblockq_free(r->memblockq);
 256     pa_xfree(r);
 257 }
 258
 259 static struct playback_stream* playback_stream_new(struct connection *c, struct pa_sink *sink, const struct pa_sample_spec *ss, const char *name,
 260                                                    size_t maxlength,
 261                                                    size_t tlength,
 262                                                    size_t prebuf,
 263                                                    size_t minreq) {
 264     struct playback_stream *s;
 265     struct pa_sink_input *sink_input;
 266     assert(c && sink && ss && name && maxlength);
 267
 268     if (!(sink_input = pa_sink_input_new(sink, name, ss)))
 269         return NULL;
 270
 271     s = pa_xmalloc(sizeof(struct playback_stream));
 272     s->type = PLAYBACK_STREAM;
 273     s->connection = c;
 274     s->sink_input = sink_input;
 275
 276     s->sink_input->peek = sink_input_peek_cb;
 277     s->sink_input->drop = sink_input_drop_cb;
 278     s->sink_input->kill = sink_input_kill_cb;
 279     s->sink_input->get_latency = sink_input_get_latency_cb;
 280     s->sink_input->userdata = s;
 281     s->sink_input->owner = c->protocol->module;
 282     s->sink_input->client = c->client;
 283
 284     s->memblockq = pa_memblockq_new(maxlength, tlength, pa_frame_size(ss), prebuf, minreq, c->protocol->core->memblock_stat);
 285     assert(s->memblockq);
 286
 287     s->requested_bytes = 0;
 288     s->drain_request = 0;
 289
 290     pa_idxset_put(c->output_streams, s, &s->index);
 291     return s;
 292 }
 293
 294 static void playback_stream_free(struct playback_stream* p) {
 295     assert(p && p->connection);
 296
 297     if (p->drain_request)
 298         pa_pstream_send_error(p->connection->pstream, p->drain_tag, PA_ERROR_NOENTITY);
 299
 300     pa_idxset_remove_by_data(p->connection->output_streams, p, NULL);
 301     pa_sink_input_free(p->sink_input);
 302     pa_memblockq_free(p->memblockq);
 303     pa_xfree(p);
 304 }
 305
 306 static void connection_free(struct connection *c) {
 307     struct record_stream *r;
 308     struct output_stream *o;
 309     assert(c && c->protocol);
 310
 311     pa_idxset_remove_by_data(c->protocol->connections, c, NULL);
 312     while ((r = pa_idxset_first(c->record_streams, NULL)))
 313         record_stream_free(r);
 314     pa_idxset_free(c->record_streams, NULL, NULL);
 315
 316     while ((o = pa_idxset_first(c->output_streams, NULL)))
 317         if (o->type == PLAYBACK_STREAM)
 318             playback_stream_free((struct playback_stream*) o);
 319         else
 320             upload_stream_free((struct upload_stream*) o);
 321     pa_idxset_free(c->output_streams, NULL, NULL);
 322
 323     pa_pdispatch_unref(c->pdispatch);
 324     pa_pstream_close(c->pstream);
 325     pa_pstream_unref(c->pstream);
 326     pa_client_free(c->client);
 327
 328     if (c->subscription)
 329         pa_subscription_free(c->subscription);
 330
 331     pa_xfree(c);
 332 }
 333
 334 static void request_bytes(struct playback_stream *s) {
 335     struct pa_tagstruct *t;
 336     size_t l;
 337     assert(s);
 338
 339     if (!(l = pa_memblockq_missing(s->memblockq)))
 340         return;
 341
 342     if (l <= s->requested_bytes)
 343         return;
 344
 345     l -= s->requested_bytes;
 346
 347     if (l < pa_memblockq_get_minreq(s->memblockq))
 348         return;
 349
 350     s->requested_bytes += l;
 351
 352     t = pa_tagstruct_new(NULL, 0);
 353     assert(t);
 354     pa_tagstruct_putu32(t, PA_COMMAND_REQUEST);
 355     pa_tagstruct_putu32(t, (uint32_t) -1); /* tag */
 356     pa_tagstruct_putu32(t, s->index);
 357     pa_tagstruct_putu32(t, l);
 358     pa_pstream_send_tagstruct(s->connection->pstream, t);
 359
 360     /*fprintf(stderr, "Requesting %u bytes\n", l);*/
 361 }
 362
 363 static void send_memblock(struct connection *c) {
 364     uint32_t start;
 365     struct record_stream *r;
 366
 367     start = PA_IDXSET_INVALID;
 368     for (;;) {
 369         struct pa_memchunk chunk;
 370
 371         if (!(r = pa_idxset_rrobin(c->record_streams, &c->rrobin_index)))
 372             return;
 373
 374         if (start == PA_IDXSET_INVALID)
 375             start = c->rrobin_index;
 376         else if (start == c->rrobin_index)
 377             return;
 378
 379         if (pa_memblockq_peek(r->memblockq,  &chunk) >= 0) {
 380             if (chunk.length > r->fragment_size)
 381                 chunk.length = r->fragment_size;
 382
 383             pa_pstream_send_memblock(c->pstream, r->index, 0, &chunk);
 384             pa_memblockq_drop(r->memblockq, &chunk, chunk.length);
 385             pa_memblock_unref(chunk.memblock);
 386
 387             return;
 388         }
 389     }
 390 }
 391
 392 static void send_playback_stream_killed(struct playback_stream *p) {
 393     struct pa_tagstruct *t;
 394     assert(p);
 395
 396     t = pa_tagstruct_new(NULL, 0);
 397     assert(t);
 398     pa_tagstruct_putu32(t, PA_COMMAND_PLAYBACK_STREAM_KILLED);
 399     pa_tagstruct_putu32(t, (uint32_t) -1); /* tag */
 400     pa_tagstruct_putu32(t, p->index);
 401     pa_pstream_send_tagstruct(p->connection->pstream, t);
 402 }
 403
 404 static void send_record_stream_killed(struct record_stream *r) {
 405     struct pa_tagstruct *t;
 406     assert(r);
 407
 408     t = pa_tagstruct_new(NULL, 0);
 409     assert(t);
 410     pa_tagstruct_putu32(t, PA_COMMAND_RECORD_STREAM_KILLED);
 411     pa_tagstruct_putu32(t, (uint32_t) -1); /* tag */
 412     pa_tagstruct_putu32(t, r->index);
 413     pa_pstream_send_tagstruct(r->connection->pstream, t);
 414 }
 415
 416
 417 /*** sinkinput callbacks ***/
 418
 419 static int sink_input_peek_cb(struct pa_sink_input *i, struct pa_memchunk *chunk) {
 420     struct playback_stream *s;
 421     assert(i && i->userdata && chunk);
 422     s = i->userdata;
 423
 424     /*fprintf(stderr, "%3.0f      \r", (double) pa_memblockq_get_length(s->memblockq)/pa_memblockq_get_tlength(s->memblockq)*100);*/
 425
 426     if (pa_memblockq_peek(s->memblockq, chunk) < 0)
 427         return -1;
 428
 429     return 0;
 430 }
 431
 432 static void sink_input_drop_cb(struct pa_sink_input *i, const struct pa_memchunk *chunk, size_t length) {
 433     struct playback_stream *s;
 434     assert(i && i->userdata && length);
 435     s = i->userdata;
 436
 437     pa_memblockq_drop(s->memblockq, chunk, length);
 438     request_bytes(s);
 439
 440     if (s->drain_request && !pa_memblockq_is_readable(s->memblockq)) {
 441         pa_pstream_send_simple_ack(s->connection->pstream, s->drain_tag);
 442         s->drain_request = 0;
 443     }
 444
 445     /*fprintf(stderr, "after_drop: %u\n", pa_memblockq_get_length(s->memblockq));*/
 446 }
 447
 448 static void sink_input_kill_cb(struct pa_sink_input *i) {
 449     assert(i && i->userdata);
 450     send_playback_stream_killed((struct playback_stream *) i->userdata);
 451     playback_stream_free((struct playback_stream *) i->userdata);
 452 }
 453
 454 static uint32_t sink_input_get_latency_cb(struct pa_sink_input *i) {
 455     struct playback_stream *s;
 456     assert(i && i->userdata);
 457     s = i->userdata;
 458
 459     /*fprintf(stderr, "get_latency: %u\n", pa_memblockq_get_length(s->memblockq));*/
 460
 461     return pa_bytes_to_usec(pa_memblockq_get_length(s->memblockq), &s->sink_input->sample_spec);
 462 }
 463
 464 /*** source_output callbacks ***/
 465
 466 static void source_output_push_cb(struct pa_source_output *o, const struct pa_memchunk *chunk) {
 467     struct record_stream *s;
 468     assert(o && o->userdata && chunk);
 469     s = o->userdata;
 470
 471     pa_memblockq_push(s->memblockq, chunk, 0);
 472     if (!pa_pstream_is_pending(s->connection->pstream))
 473         send_memblock(s->connection);
 474 }
 475
 476 static void source_output_kill_cb(struct pa_source_output *o) {
 477     assert(o && o->userdata);
 478     send_record_stream_killed((struct record_stream *) o->userdata);
 479     record_stream_free((struct record_stream *) o->userdata);
 480 }
 481
 482 /*** pdispatch callbacks ***/
 483
 484 static void protocol_error(struct connection *c) {
 485     fprintf(stderr, __FILE__": protocol error, kicking client\n");
 486     connection_free(c);
 487 }
 488
 489 static void command_create_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 490     struct connection *c = userdata;
 491     struct playback_stream *s;
 492     size_t maxlength, tlength, prebuf, minreq;
 493     uint32_t sink_index;
 494     const char *name, *sink_name;
 495     struct pa_sample_spec ss;
 496     struct pa_tagstruct *reply;
 497     struct pa_sink *sink;
 498     assert(c && t && c->protocol && c->protocol->core);
 499
 500     if (pa_tagstruct_gets(t, &name) < 0 ||
 501         pa_tagstruct_get_sample_spec(t, &ss) < 0 ||
 502         pa_tagstruct_getu32(t, &sink_index) < 0 ||
 503         pa_tagstruct_gets(t, &sink_name) < 0 ||
 504         pa_tagstruct_getu32(t, &maxlength) < 0 ||
 505         pa_tagstruct_getu32(t, &tlength) < 0 ||
 506         pa_tagstruct_getu32(t, &prebuf) < 0 ||
 507         pa_tagstruct_getu32(t, &minreq) < 0 ||
 508         !pa_tagstruct_eof(t)) {
 509         protocol_error(c);
 510         return;
 511     }
 512
 513     if (!c->authorized) {
 514         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 515         return;
 516     }
 517
 518     if (sink_index != (uint32_t) -1)
 519         sink = pa_idxset_get_by_index(c->protocol->core->sinks, sink_index);
 520     else
 521         sink = pa_namereg_get(c->protocol->core, *sink_name ? sink_name : NULL, PA_NAMEREG_SINK, 1);
 522
 523     if (!sink) {
 524         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 525         return;
 526     }
 527
 528     if (!(s = playback_stream_new(c, sink, &ss, name, maxlength, tlength, prebuf, minreq))) {
 529         pa_pstream_send_error(c->pstream, tag, PA_ERROR_INVALID);
 530         return;
 531     }
 532
 533     reply = pa_tagstruct_new(NULL, 0);
 534     assert(reply);
 535     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 536     pa_tagstruct_putu32(reply, tag);
 537     pa_tagstruct_putu32(reply, s->index);
 538     assert(s->sink_input);
 539     pa_tagstruct_putu32(reply, s->sink_input->index);
 540     pa_pstream_send_tagstruct(c->pstream, reply);
 541     request_bytes(s);
 542 }
 543
 544 static void command_delete_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 545     struct connection *c = userdata;
 546     uint32_t channel;
 547     assert(c && t);
 548
 549     if (pa_tagstruct_getu32(t, &channel) < 0 ||
 550         !pa_tagstruct_eof(t)) {
 551         protocol_error(c);
 552         return;
 553     }
 554
 555     if (!c->authorized) {
 556         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 557         return;
 558     }
 559
 560     if (command == PA_COMMAND_DELETE_PLAYBACK_STREAM) {
 561         struct playback_stream *s;
 562         if (!(s = pa_idxset_get_by_index(c->output_streams, channel)) || (s->type != PLAYBACK_STREAM)) {
 563             pa_pstream_send_error(c->pstream, tag, PA_ERROR_EXIST);
 564             return;
 565         }
 566
 567         playback_stream_free(s);
 568     } else if (command == PA_COMMAND_DELETE_RECORD_STREAM) {
 569         struct record_stream *s;
 570         if (!(s = pa_idxset_get_by_index(c->record_streams, channel))) {
 571             pa_pstream_send_error(c->pstream, tag, PA_ERROR_EXIST);
 572             return;
 573         }
 574
 575         record_stream_free(s);
 576     } else {
 577         struct upload_stream *s;
 578         assert(command == PA_COMMAND_DELETE_UPLOAD_STREAM);
 579         if (!(s = pa_idxset_get_by_index(c->output_streams, channel)) || (s->type != UPLOAD_STREAM)) {
 580             pa_pstream_send_error(c->pstream, tag, PA_ERROR_EXIST);
 581             return;
 582         }
 583
 584         upload_stream_free(s);
 585     }
 586
 587     pa_pstream_send_simple_ack(c->pstream, tag);
 588 }
 589
 590 static void command_create_record_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 591     struct connection *c = userdata;
 592     struct record_stream *s;
 593     size_t maxlength, fragment_size;
 594     uint32_t source_index;
 595     const char *name, *source_name;
 596     struct pa_sample_spec ss;
 597     struct pa_tagstruct *reply;
 598     struct pa_source *source;
 599     assert(c && t && c->protocol && c->protocol->core);
 600
 601     if (pa_tagstruct_gets(t, &name) < 0 ||
 602         pa_tagstruct_get_sample_spec(t, &ss) < 0 ||
 603         pa_tagstruct_getu32(t, &source_index) < 0 ||
 604         pa_tagstruct_gets(t, &source_name) < 0 ||
 605         pa_tagstruct_getu32(t, &maxlength) < 0 ||
 606         pa_tagstruct_getu32(t, &fragment_size) < 0 ||
 607         !pa_tagstruct_eof(t)) {
 608         protocol_error(c);
 609         return;
 610     }
 611
 612     if (!c->authorized) {
 613         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 614         return;
 615     }
 616
 617     if (source_index != (uint32_t) -1)
 618         source = pa_idxset_get_by_index(c->protocol->core->sources, source_index);
 619     else
 620         source = pa_namereg_get(c->protocol->core, *source_name ? source_name : NULL, PA_NAMEREG_SOURCE, 1);
 621
 622     if (!source) {
 623         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 624         return;
 625     }
 626
 627     if (!(s = record_stream_new(c, source, &ss, name, maxlength, fragment_size))) {
 628         pa_pstream_send_error(c->pstream, tag, PA_ERROR_INVALID);
 629         return;
 630     }
 631
 632     reply = pa_tagstruct_new(NULL, 0);
 633     assert(reply);
 634     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 635     pa_tagstruct_putu32(reply, tag);
 636     pa_tagstruct_putu32(reply, s->index);
 637     assert(s->source_output);
 638     pa_tagstruct_putu32(reply, s->source_output->index);
 639     pa_pstream_send_tagstruct(c->pstream, reply);
 640 }
 641
 642 static void command_exit(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 643     struct connection *c = userdata;
 644     assert(c && t);
 645
 646     if (!pa_tagstruct_eof(t)) {
 647         protocol_error(c);
 648         return;
 649     }
 650
 651     if (!c->authorized) {
 652         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 653         return;
 654     }
 655
 656     assert(c->protocol && c->protocol->core && c->protocol->core->mainloop);
 657     c->protocol->core->mainloop->quit(c->protocol->core->mainloop, 0);
 658     pa_pstream_send_simple_ack(c->pstream, tag); /* nonsense */
 659     return;
 660 }
 661
 662 static void command_auth(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 663     struct connection *c = userdata;
 664     const void*cookie;
 665     assert(c && t);
 666
 667     if (pa_tagstruct_get_arbitrary(t, &cookie, PA_NATIVE_COOKIE_LENGTH) < 0 ||
 668         !pa_tagstruct_eof(t)) {
 669         protocol_error(c);
 670         return;
 671     }
 672
 673     if (memcmp(c->protocol->auth_cookie, cookie, PA_NATIVE_COOKIE_LENGTH) != 0) {
 674         fprintf(stderr, "protocol-native.c: Denied access to client with invalid authorization key.\n");
 675         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 676         return;
 677     }
 678
 679     c->authorized = 1;
 680     pa_pstream_send_simple_ack(c->pstream, tag);
 681     return;
 682 }
 683
 684 static void command_set_name(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 685     struct connection *c = userdata;
 686     const char *name;
 687     assert(c && t);
 688
 689     if (pa_tagstruct_gets(t, &name) < 0 ||
 690         !pa_tagstruct_eof(t)) {
 691         protocol_error(c);
 692         return;
 693     }
 694
 695     pa_client_rename(c->client, name);
 696     pa_pstream_send_simple_ack(c->pstream, tag);
 697     return;
 698 }
 699
 700 static void command_lookup(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 701     struct connection *c = userdata;
 702     const char *name;
 703     uint32_t index = PA_IDXSET_INVALID;
 704     assert(c && t);
 705
 706     if (pa_tagstruct_gets(t, &name) < 0 ||
 707         !pa_tagstruct_eof(t)) {
 708         protocol_error(c);
 709         return;
 710     }
 711
 712     if (!c->authorized) {
 713         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 714         return;
 715     }
 716
 717     if (command == PA_COMMAND_LOOKUP_SINK) {
 718         struct pa_sink *sink;
 719         if ((sink = pa_namereg_get(c->protocol->core, name, PA_NAMEREG_SINK, 1)))
 720             index = sink->index;
 721     } else {
 722         struct pa_source *source;
 723         assert(command == PA_COMMAND_LOOKUP_SOURCE);
 724         if ((source = pa_namereg_get(c->protocol->core, name, PA_NAMEREG_SOURCE, 1)))
 725             index = source->index;
 726     }
 727
 728     if (index == PA_IDXSET_INVALID)
 729         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 730     else {
 731         struct pa_tagstruct *reply;
 732         reply = pa_tagstruct_new(NULL, 0);
 733         assert(reply);
 734         pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 735         pa_tagstruct_putu32(reply, tag);
 736         pa_tagstruct_putu32(reply, index);
 737         pa_pstream_send_tagstruct(c->pstream, reply);
 738     }
 739 }
 740
 741 static void command_drain_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 742     struct connection *c = userdata;
 743     uint32_t index;
 744     struct playback_stream *s;
 745     assert(c && t);
 746
 747     if (pa_tagstruct_getu32(t, &index) < 0 ||
 748         !pa_tagstruct_eof(t)) {
 749         protocol_error(c);
 750         return;
 751     }
 752
 753     if (!c->authorized) {
 754         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 755         return;
 756     }
 757
 758     if (!(s = pa_idxset_get_by_index(c->output_streams, index)) || s->type != PLAYBACK_STREAM) {
 759         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 760         return;
 761     }
 762
 763     s->drain_request = 0;
 764
 765     pa_memblockq_prebuf_disable(s->memblockq);
 766
 767     if (!pa_memblockq_is_readable(s->memblockq))
 768         pa_pstream_send_simple_ack(c->pstream, tag);
 769     else {
 770         s->drain_request = 1;
 771         s->drain_tag = tag;
 772
 773         pa_sink_notify(s->sink_input->sink);
 774     }
 775 }
 776
 777 static void command_stat(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 778     struct connection *c = userdata;
 779     struct pa_tagstruct *reply;
 780     assert(c && t);
 781
 782     if (!pa_tagstruct_eof(t)) {
 783         protocol_error(c);
 784         return;
 785     }
 786
 787     if (!c->authorized) {
 788         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 789         return;
 790     }
 791
 792     reply = pa_tagstruct_new(NULL, 0);
 793     assert(reply);
 794     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 795     pa_tagstruct_putu32(reply, tag);
 796     pa_tagstruct_putu32(reply, c->protocol->core->memblock_stat->total);
 797     pa_tagstruct_putu32(reply, c->protocol->core->memblock_stat->total_size);
 798     pa_tagstruct_putu32(reply, c->protocol->core->memblock_stat->allocated);
 799     pa_tagstruct_putu32(reply, c->protocol->core->memblock_stat->allocated_size);
 800     pa_tagstruct_putu32(reply, pa_scache_total_size(c->protocol->core));
 801     pa_pstream_send_tagstruct(c->pstream, reply);
 802 }
 803
 804 static void command_get_playback_latency(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 805     struct connection *c = userdata;
 806     struct pa_tagstruct *reply;
 807     struct playback_stream *s;
 808     uint32_t index;
 809     assert(c && t);
 810
 811     if (pa_tagstruct_getu32(t, &index) < 0 ||
 812         !pa_tagstruct_eof(t)) {
 813         protocol_error(c);
 814         return;
 815     }
 816
 817     if (!c->authorized) {
 818         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 819         return;
 820     }
 821
 822     if (!(s = pa_idxset_get_by_index(c->output_streams, index)) || s->type != PLAYBACK_STREAM) {
 823         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 824         return;
 825     }
 826
 827     reply = pa_tagstruct_new(NULL, 0);
 828     assert(reply);
 829     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 830     pa_tagstruct_putu32(reply, tag);
 831     pa_tagstruct_putu32(reply, pa_sink_input_get_latency(s->sink_input));
 832     pa_tagstruct_putu32(reply, pa_sink_get_latency(s->sink_input->sink));
 833     pa_tagstruct_put_boolean(reply, pa_memblockq_is_readable(s->memblockq));
 834     pa_tagstruct_putu32(reply, pa_memblockq_get_length(s->memblockq));
 835     pa_pstream_send_tagstruct(c->pstream, reply);
 836 }
 837
 838 static void command_create_upload_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 839     struct connection *c = userdata;
 840     struct upload_stream *s;
 841     size_t length;
 842     const char *name;
 843     struct pa_sample_spec ss;
 844     struct pa_tagstruct *reply;
 845     assert(c && t && c->protocol && c->protocol->core);
 846
 847     if (pa_tagstruct_gets(t, &name) < 0 ||
 848         pa_tagstruct_get_sample_spec(t, &ss) < 0 ||
 849         pa_tagstruct_getu32(t, &length) < 0 ||
 850         !pa_tagstruct_eof(t)) {
 851         protocol_error(c);
 852         return;
 853     }
 854
 855     if (!c->authorized) {
 856         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 857         return;
 858     }
 859
 860     if ((length % pa_frame_size(&ss)) != 0 || length <= 0 || !*name) {
 861         pa_pstream_send_error(c->pstream, tag, PA_ERROR_INVALID);
 862         return;
 863     }
 864
 865     if (!(s = upload_stream_new(c, &ss, name, length))) {
 866         pa_pstream_send_error(c->pstream, tag, PA_ERROR_INVALID);
 867         return;
 868     }
 869
 870     reply = pa_tagstruct_new(NULL, 0);
 871     assert(reply);
 872     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
 873     pa_tagstruct_putu32(reply, tag);
 874     pa_tagstruct_putu32(reply, s->index);
 875     pa_pstream_send_tagstruct(c->pstream, reply);
 876
 877     reply = pa_tagstruct_new(NULL, 0);
 878     assert(reply);
 879     pa_tagstruct_putu32(reply, PA_COMMAND_REQUEST);
 880     pa_tagstruct_putu32(reply, (uint32_t) -1); /* tag */
 881     pa_tagstruct_putu32(reply, s->index);
 882     pa_tagstruct_putu32(reply, length);
 883     pa_pstream_send_tagstruct(c->pstream, reply);
 884 }
 885
 886 static void command_finish_upload_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 887     struct connection *c = userdata;
 888     uint32_t channel;
 889     struct upload_stream *s;
 890     uint32_t index;
 891     assert(c && t);
 892
 893     if (pa_tagstruct_getu32(t, &channel) < 0 ||
 894         !pa_tagstruct_eof(t)) {
 895         protocol_error(c);
 896         return;
 897     }
 898
 899     if (!c->authorized) {
 900         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 901         return;
 902     }
 903
 904     if (!(s = pa_idxset_get_by_index(c->output_streams, channel)) || (s->type != UPLOAD_STREAM)) {
 905         pa_pstream_send_error(c->pstream, tag, PA_ERROR_EXIST);
 906         return;
 907     }
 908
 909     pa_scache_add_item(c->protocol->core, s->name, &s->sample_spec, &s->memchunk, &index);
 910     pa_pstream_send_simple_ack(c->pstream, tag);
 911     upload_stream_free(s);
 912 }
 913
 914 static void command_play_sample(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 915     struct connection *c = userdata;
 916     uint32_t sink_index, volume;
 917     struct pa_sink *sink;
 918     const char *name, *sink_name;
 919     assert(c && t);
 920
 921     if (pa_tagstruct_getu32(t, &sink_index) < 0 ||
 922         pa_tagstruct_gets(t, &sink_name) < 0 ||
 923         pa_tagstruct_getu32(t, &volume) < 0 ||
 924         pa_tagstruct_gets(t, &name) < 0 ||
 925         !pa_tagstruct_eof(t)) {
 926         protocol_error(c);
 927         return;
 928     }
 929
 930     if (!c->authorized) {
 931         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 932         return;
 933     }
 934
 935     if (sink_index != (uint32_t) -1)
 936         sink = pa_idxset_get_by_index(c->protocol->core->sinks, sink_index);
 937     else
 938         sink = pa_namereg_get(c->protocol->core, *sink_name ? sink_name : NULL, PA_NAMEREG_SINK, 1);
 939
 940     if (!sink) {
 941         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 942         return;
 943     }
 944
 945     if (pa_scache_play_item(c->protocol->core, name, sink, volume) < 0) {
 946         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 947         return;
 948     }
 949
 950     pa_pstream_send_simple_ack(c->pstream, tag);
 951 }
 952
 953 static void command_remove_sample(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
 954     struct connection *c = userdata;
 955     const char *name;
 956     assert(c && t);
 957
 958     if (pa_tagstruct_gets(t, &name) < 0 ||
 959         !pa_tagstruct_eof(t)) {
 960         protocol_error(c);
 961         return;
 962     }
 963
 964     if (!c->authorized) {
 965         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
 966         return;
 967     }
 968
 969     if (pa_scache_remove_item(c->protocol->core, name) < 0) {
 970         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
 971         return;
 972     }
 973
 974     pa_pstream_send_simple_ack(c->pstream, tag);
 975 }
 976
 977 static void sink_fill_tagstruct(struct pa_tagstruct *t, struct pa_sink *sink) {
 978     assert(t && sink);
 979     pa_tagstruct_putu32(t, sink->index);
 980     pa_tagstruct_puts(t, sink->name);
 981     pa_tagstruct_puts(t, sink->description ? sink->description : "");
 982     pa_tagstruct_put_sample_spec(t, &sink->sample_spec);
 983     pa_tagstruct_putu32(t, sink->owner ? sink->owner->index : (uint32_t) -1);
 984     pa_tagstruct_putu32(t, sink->volume);
 985     pa_tagstruct_putu32(t, sink->monitor_source->index);
 986     pa_tagstruct_puts(t, sink->monitor_source->name);
 987     pa_tagstruct_putu32(t, pa_sink_get_latency(sink));
 988 }
 989
 990 static void source_fill_tagstruct(struct pa_tagstruct *t, struct pa_source *source) {
 991     assert(t && source);
 992     pa_tagstruct_putu32(t, source->index);
 993     pa_tagstruct_puts(t, source->name);
 994     pa_tagstruct_puts(t, source->description ? source->description : "");
 995     pa_tagstruct_put_sample_spec(t, &source->sample_spec);
 996     pa_tagstruct_putu32(t, source->owner ? source->owner->index : (uint32_t) -1);
 997     pa_tagstruct_putu32(t, source->monitor_of ? source->monitor_of->index : (uint32_t) -1);
 998     pa_tagstruct_puts(t, source->monitor_of ? source->monitor_of->name : "");
 999 }
1000
1001 static void client_fill_tagstruct(struct pa_tagstruct *t, struct pa_client *client) {
1002     assert(t && client);
1003     pa_tagstruct_putu32(t, client->index);
1004     pa_tagstruct_puts(t, client->name);
1005     pa_tagstruct_puts(t, client->protocol_name);
1006     pa_tagstruct_putu32(t, client->owner ? client->owner->index : (uint32_t) -1);
1007 }
1008
1009 static void module_fill_tagstruct(struct pa_tagstruct *t, struct pa_module *module) {
1010     assert(t && module);
1011     pa_tagstruct_putu32(t, module->index);
1012     pa_tagstruct_puts(t, module->name);
1013     pa_tagstruct_puts(t, module->argument ? module->argument : "");
1014     pa_tagstruct_putu32(t, module->n_used);
1015     pa_tagstruct_put_boolean(t, module->auto_unload);
1016 }
1017
1018 static void sink_input_fill_tagstruct(struct pa_tagstruct *t, struct pa_sink_input *s) {
1019     assert(t && s);
1020     pa_tagstruct_putu32(t, s->index);
1021     pa_tagstruct_puts(t, s->name ? s->name : "");
1022     pa_tagstruct_putu32(t, s->owner ? s->owner->index : (uint32_t) -1);
1023     pa_tagstruct_putu32(t, s->client ? s->client->index : (uint32_t) -1);
1024     pa_tagstruct_putu32(t, s->sink->index);
1025     pa_tagstruct_put_sample_spec(t, &s->sample_spec);
1026     pa_tagstruct_putu32(t, s->volume);
1027     pa_tagstruct_putu32(t, pa_sink_input_get_latency(s));
1028     pa_tagstruct_putu32(t, pa_sink_get_latency(s->sink));
1029 }
1030
1031 static void source_output_fill_tagstruct(struct pa_tagstruct *t, struct pa_source_output *s) {
1032     assert(t && s);
1033     pa_tagstruct_putu32(t, s->index);
1034     pa_tagstruct_puts(t, s->name ? s->name : "");
1035     pa_tagstruct_putu32(t, s->owner ? s->owner->index : (uint32_t) -1);
1036     pa_tagstruct_putu32(t, s->client ? s->client->index : (uint32_t) -1);
1037     pa_tagstruct_putu32(t, s->source->index);
1038     pa_tagstruct_put_sample_spec(t, &s->sample_spec);
1039 }
1040
1041 static void scache_fill_tagstruct(struct pa_tagstruct *t, struct pa_scache_entry *e) {
1042     assert(t && e);
1043     pa_tagstruct_putu32(t, e->index);
1044     pa_tagstruct_puts(t, e->name);
1045     pa_tagstruct_putu32(t, e->volume);
1046     pa_tagstruct_putu32(t, pa_bytes_to_usec(e->memchunk.length, &e->sample_spec));
1047     pa_tagstruct_put_sample_spec(t, &e->sample_spec);
1048     pa_tagstruct_putu32(t, e->memchunk.length);
1049 }
1050
1051 static void command_get_info(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1052     struct connection *c = userdata;
1053     uint32_t index;
1054     struct pa_sink *sink = NULL;
1055     struct pa_source *source = NULL;
1056     struct pa_client *client = NULL;
1057     struct pa_module *module = NULL;
1058     struct pa_sink_input *si = NULL;
1059     struct pa_source_output *so = NULL;
1060     struct pa_scache_entry *sce = NULL;
1061     const char *name;
1062     struct pa_tagstruct *reply;
1063     assert(c && t);
1064
1065
1066     if (pa_tagstruct_getu32(t, &index) < 0 ||
1067         (command != PA_COMMAND_GET_CLIENT_INFO &&
1068          command != PA_COMMAND_GET_MODULE_INFO &&
1069          command != PA_COMMAND_GET_SINK_INPUT_INFO &&
1070          command != PA_COMMAND_GET_SOURCE_OUTPUT_INFO &&
1071          pa_tagstruct_gets(t, &name) < 0) ||
1072         !pa_tagstruct_eof(t)) {
1073         protocol_error(c);
1074         return;
1075     }
1076
1077     if (!c->authorized) {
1078         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1079         return;
1080     }
1081
1082     if (command == PA_COMMAND_GET_SINK_INFO) {
1083         if (index != (uint32_t) -1)
1084             sink = pa_idxset_get_by_index(c->protocol->core->sinks, index);
1085         else
1086             sink = pa_namereg_get(c->protocol->core, *name ? name : NULL, PA_NAMEREG_SINK, 1);
1087     } else if (command == PA_COMMAND_GET_SOURCE_INFO) {
1088         if (index != (uint32_t) -1)
1089             source = pa_idxset_get_by_index(c->protocol->core->sources, index);
1090         else
1091             source = pa_namereg_get(c->protocol->core, *name ? name : NULL, PA_NAMEREG_SOURCE, 1);
1092     } else if (command == PA_COMMAND_GET_CLIENT_INFO)
1093         client = pa_idxset_get_by_index(c->protocol->core->clients, index);
1094     else if (command == PA_COMMAND_GET_MODULE_INFO)
1095         module = pa_idxset_get_by_index(c->protocol->core->modules, index);
1096     else if (command == PA_COMMAND_GET_SINK_INPUT_INFO)
1097         si = pa_idxset_get_by_index(c->protocol->core->sink_inputs, index);
1098     else if (command == PA_COMMAND_GET_SOURCE_OUTPUT_INFO)
1099         so = pa_idxset_get_by_index(c->protocol->core->source_outputs, index);
1100     else {
1101         assert(command == PA_COMMAND_GET_SAMPLE_INFO && name);
1102         if (index != (uint32_t) -1)
1103             sce = pa_idxset_get_by_index(c->protocol->core->scache, index);
1104         else
1105             sce = pa_namereg_get(c->protocol->core, name, PA_NAMEREG_SAMPLE, 0);
1106     }
1107
1108     if (!sink && !source && !client && !module && !si && !so && !sce) {
1109         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
1110         return;
1111     }
1112
1113     reply = pa_tagstruct_new(NULL, 0);
1114     assert(reply);
1115     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
1116     pa_tagstruct_putu32(reply, tag);
1117     if (sink)
1118         sink_fill_tagstruct(reply, sink);
1119     else if (source)
1120         source_fill_tagstruct(reply, source);
1121     else if (client)
1122         client_fill_tagstruct(reply, client);
1123     else if (module)
1124         module_fill_tagstruct(reply, module);
1125     else if (si)
1126         sink_input_fill_tagstruct(reply, si);
1127     else if (so)
1128         source_output_fill_tagstruct(reply, so);
1129     else
1130         scache_fill_tagstruct(reply, sce);
1131     pa_pstream_send_tagstruct(c->pstream, reply);
1132 }
1133
1134 static void command_get_info_list(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1135     struct connection *c = userdata;
1136     struct pa_idxset *i;
1137     uint32_t index;
1138     void *p;
1139     struct pa_tagstruct *reply;
1140     assert(c && t);
1141
1142     if (!pa_tagstruct_eof(t)) {
1143         protocol_error(c);
1144         return;
1145     }
1146
1147     if (!c->authorized) {
1148         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1149         return;
1150     }
1151
1152     reply = pa_tagstruct_new(NULL, 0);
1153     assert(reply);
1154     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
1155     pa_tagstruct_putu32(reply, tag);
1156
1157     if (command == PA_COMMAND_GET_SINK_INFO_LIST)
1158         i = c->protocol->core->sinks;
1159     else if (command == PA_COMMAND_GET_SOURCE_INFO_LIST)
1160         i = c->protocol->core->sources;
1161     else if (command == PA_COMMAND_GET_CLIENT_INFO_LIST)
1162         i = c->protocol->core->clients;
1163     else if (command == PA_COMMAND_GET_MODULE_INFO_LIST)
1164         i = c->protocol->core->modules;
1165     else if (command == PA_COMMAND_GET_SINK_INPUT_INFO_LIST)
1166         i = c->protocol->core->sink_inputs;
1167     else if (command == PA_COMMAND_GET_SOURCE_OUTPUT_INFO_LIST)
1168         i = c->protocol->core->source_outputs;
1169     else {
1170         assert(command == PA_COMMAND_GET_SAMPLE_INFO_LIST);
1171         i = c->protocol->core->scache;
1172     }
1173
1174     if (i) {
1175         for (p = pa_idxset_first(i, &index); p; p = pa_idxset_next(i, &index)) {
1176             if (command == PA_COMMAND_GET_SINK_INFO_LIST)
1177                 sink_fill_tagstruct(reply, p);
1178             else if (command == PA_COMMAND_GET_SOURCE_INFO_LIST)
1179                 source_fill_tagstruct(reply, p);
1180             else if (command == PA_COMMAND_GET_CLIENT_INFO_LIST)
1181                 client_fill_tagstruct(reply, p);
1182             else if (command == PA_COMMAND_GET_MODULE_INFO_LIST)
1183                 module_fill_tagstruct(reply, p);
1184             else if (command == PA_COMMAND_GET_SINK_INPUT_INFO_LIST)
1185                 sink_input_fill_tagstruct(reply, p);
1186             else if (command == PA_COMMAND_GET_SOURCE_OUTPUT_INFO_LIST)
1187                 source_output_fill_tagstruct(reply, p);
1188             else {
1189                 assert(command == PA_COMMAND_GET_SAMPLE_INFO_LIST);
1190                 scache_fill_tagstruct(reply, p);
1191             }
1192         }
1193     }
1194
1195     pa_pstream_send_tagstruct(c->pstream, reply);
1196 }
1197
1198 static void command_get_server_info(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1199     struct connection *c = userdata;
1200     struct pa_tagstruct *reply;
1201     char txt[256];
1202     assert(c && t);
1203
1204     if (!pa_tagstruct_eof(t)) {
1205         protocol_error(c);
1206         return;
1207     }
1208
1209     if (!c->authorized) {
1210         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1211         return;
1212     }
1213
1214     reply = pa_tagstruct_new(NULL, 0);
1215     assert(reply);
1216     pa_tagstruct_putu32(reply, PA_COMMAND_REPLY);
1217     pa_tagstruct_putu32(reply, tag);
1218     pa_tagstruct_puts(reply, PACKAGE_NAME);
1219     pa_tagstruct_puts(reply, PACKAGE_VERSION);
1220     pa_tagstruct_puts(reply, pa_get_user_name(txt, sizeof(txt)));
1221     pa_tagstruct_puts(reply, pa_get_host_name(txt, sizeof(txt)));
1222     pa_tagstruct_put_sample_spec(reply, &c->protocol->core->default_sample_spec);
1223     pa_pstream_send_tagstruct(c->pstream, reply);
1224 }
1225
1226 static void subscription_cb(struct pa_core *core, enum pa_subscription_event_type e, uint32_t index, void *userdata) {
1227     struct pa_tagstruct *t;
1228     struct connection *c = userdata;
1229     assert(c && core);
1230
1231     t = pa_tagstruct_new(NULL, 0);
1232     assert(t);
1233     pa_tagstruct_putu32(t, PA_COMMAND_SUBSCRIBE_EVENT);
1234     pa_tagstruct_putu32(t, (uint32_t) -1);
1235     pa_tagstruct_putu32(t, e);
1236     pa_tagstruct_putu32(t, index);
1237     pa_pstream_send_tagstruct(c->pstream, t);
1238 }
1239
1240 static void command_subscribe(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1241     struct connection *c = userdata;
1242     enum pa_subscription_mask m;
1243     assert(c && t);
1244
1245     if (pa_tagstruct_getu32(t, &m) < 0 ||
1246         !pa_tagstruct_eof(t)) {
1247         protocol_error(c);
1248         return;
1249     }
1250
1251     if (!c->authorized) {
1252         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1253         return;
1254     }
1255
1256     if (c->subscription)
1257         pa_subscription_free(c->subscription);
1258
1259     if (m != 0) {
1260         c->subscription = pa_subscription_new(c->protocol->core, m, subscription_cb, c);
1261         assert(c->subscription);
1262     } else
1263         c->subscription = NULL;
1264
1265     pa_pstream_send_simple_ack(c->pstream, tag);
1266 }
1267
1268 static void command_set_volume(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1269     struct connection *c = userdata;
1270     uint32_t index, volume;
1271     struct pa_sink *sink = NULL;
1272     struct pa_sink_input *si = NULL;
1273     const char *name = NULL;
1274     assert(c && t);
1275
1276     if (pa_tagstruct_getu32(t, &index) < 0 ||
1277         (command == PA_COMMAND_SET_SINK_VOLUME && pa_tagstruct_gets(t, &name) < 0) ||
1278         pa_tagstruct_getu32(t, &volume) ||
1279         !pa_tagstruct_eof(t)) {
1280         protocol_error(c);
1281         return;
1282     }
1283
1284     if (!c->authorized) {
1285         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1286         return;
1287     }
1288
1289     if (command == PA_COMMAND_SET_SINK_VOLUME) {
1290         if (index != (uint32_t) -1)
1291             sink = pa_idxset_get_by_index(c->protocol->core->sinks, index);
1292         else
1293             sink = pa_namereg_get(c->protocol->core, *name ? name : NULL, PA_NAMEREG_SINK, 1);
1294     }  else {
1295         assert(command == PA_COMMAND_SET_SINK_INPUT_VOLUME);
1296         si = pa_idxset_get_by_index(c->protocol->core->sink_inputs, index);
1297     }
1298
1299     if (!si && !sink) {
1300         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
1301         return;
1302     }
1303
1304     if (sink)
1305         pa_sink_set_volume(sink, volume);
1306     else if (si)
1307         pa_sink_input_set_volume(si, volume);
1308
1309     pa_pstream_send_simple_ack(c->pstream, tag);
1310 }
1311
1312 static void command_cork_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1313     struct connection *c = userdata;
1314     uint32_t index;
1315     uint32_t b;
1316     struct playback_stream *s;
1317     assert(c && t);
1318
1319     if (pa_tagstruct_getu32(t, &index) < 0 ||
1320         pa_tagstruct_getu32(t, &b) < 0 ||
1321         !pa_tagstruct_eof(t)) {
1322         protocol_error(c);
1323         return;
1324     }
1325
1326     if (!c->authorized) {
1327         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1328         return;
1329     }
1330
1331     if (!(s = pa_idxset_get_by_index(c->output_streams, index)) || s->type != PLAYBACK_STREAM) {
1332         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
1333         return;
1334     }
1335
1336     pa_sink_input_cork(s->sink_input, b);
1337     pa_pstream_send_simple_ack(c->pstream, tag);
1338 }
1339
1340 static void command_flush_or_trigger_playback_stream(struct pa_pdispatch *pd, uint32_t command, uint32_t tag, struct pa_tagstruct *t, void *userdata) {
1341     struct connection *c = userdata;
1342     uint32_t index;
1343     struct playback_stream *s;
1344     assert(c && t);
1345
1346     if (pa_tagstruct_getu32(t, &index) < 0 ||
1347         !pa_tagstruct_eof(t)) {
1348         protocol_error(c);
1349         return;
1350     }
1351
1352     if (!c->authorized) {
1353         pa_pstream_send_error(c->pstream, tag, PA_ERROR_ACCESS);
1354         return;
1355     }
1356
1357     if (!(s = pa_idxset_get_by_index(c->output_streams, index)) || s->type != PLAYBACK_STREAM) {
1358         pa_pstream_send_error(c->pstream, tag, PA_ERROR_NOENTITY);
1359         return;
1360     }
1361
1362     if (command == PA_COMMAND_TRIGGER_PLAYBACK_STREAM)
1363         pa_memblockq_prebuf_disable(s->memblockq);
1364     else {
1365         assert(command == PA_COMMAND_FLUSH_PLAYBACK_STREAM);
1366         pa_memblockq_flush(s->memblockq);
1367         /*fprintf(stderr, "flush: %u\n", pa_memblockq_get_length(s->memblockq));*/
1368     }
1369
1370     pa_sink_notify(s->sink_input->sink);
1371     pa_pstream_send_simple_ack(c->pstream, tag);
1372     request_bytes(s);
1373 }
1374
1375 /*** pstream callbacks ***/
1376
1377 static void pstream_packet_callback(struct pa_pstream *p, struct pa_packet *packet, void *userdata) {
1378     struct connection *c = userdata;
1379     assert(p && packet && packet->data && c);
1380
1381     if (pa_pdispatch_run(c->pdispatch, packet, c) < 0) {
1382         fprintf(stderr, "protocol-native: invalid packet.\n");
1383         connection_free(c);
1384     }
1385 }
1386
1387 static void pstream_memblock_callback(struct pa_pstream *p, uint32_t channel, uint32_t delta, const struct pa_memchunk *chunk, void *userdata) {
1388     struct connection *c = userdata;
1389     struct output_stream *stream;
1390     assert(p && chunk && userdata);
1391
1392     if (!(stream = pa_idxset_get_by_index(c->output_streams, channel))) {
1393         fprintf(stderr, "protocol-native: client sent block for invalid stream.\n");
1394         connection_free(c);
1395         return;
1396     }
1397
1398     if (stream->type == PLAYBACK_STREAM) {
1399         struct playback_stream *p = (struct playback_stream*) stream;
1400         if (chunk->length >= p->requested_bytes)
1401             p->requested_bytes = 0;
1402         else
1403             p->requested_bytes -= chunk->length;
1404
1405         pa_memblockq_push_align(p->memblockq, chunk, delta);
1406         assert(p->sink_input);
1407         /*fprintf(stderr, "after_recv: %u\n", pa_memblockq_get_length(p->memblockq));*/
1408
1409         pa_sink_notify(p->sink_input->sink);
1410         /*fprintf(stderr, "Recieved %u bytes.\n", chunk->length);*/
1411
1412     } else {
1413         struct upload_stream *u = (struct upload_stream*) stream;
1414         size_t l;
1415         assert(u->type == UPLOAD_STREAM);
1416
1417         if (!u->memchunk.memblock) {
1418             if (u->length == chunk->length) {
1419                 u->memchunk = *chunk;
1420                 pa_memblock_ref(u->memchunk.memblock);
1421                 u->length = 0;
1422             } else {
1423                 u->memchunk.memblock = pa_memblock_new(u->length, c->protocol->core->memblock_stat);
1424                 u->memchunk.index = u->memchunk.length = 0;
1425             }
1426         }
1427
1428         assert(u->memchunk.memblock);
1429
1430         l = u->length;
1431         if (l > chunk->length)
1432             l = chunk->length;
1433
1434         if (l > 0) {
1435             memcpy((uint8_t*) u->memchunk.memblock->data + u->memchunk.index + u->memchunk.length,
1436                    (uint8_t*) chunk->memblock->data+chunk->index, l);
1437             u->memchunk.length += l;
1438             u->length -= l;
1439         }
1440     }
1441 }
1442
1443 static void pstream_die_callback(struct pa_pstream *p, void *userdata) {
1444     struct connection *c = userdata;
1445     assert(p && c);
1446     connection_free(c);
1447
1448 /*    fprintf(stderr, "protocol-native: connection died.\n");*/
1449 }
1450
1451
1452 static void pstream_drain_callback(struct pa_pstream *p, void *userdata) {
1453     struct connection *c = userdata;
1454     assert(p && c);
1455
1456     send_memblock(c);
1457 }
1458
1459 /*** client callbacks ***/
1460
1461 static void client_kill_cb(struct pa_client *c) {
1462     assert(c && c->userdata);
1463     connection_free(c->userdata);
1464 }
1465
1466 /*** socket server callbacks ***/
1467
1468 static void on_connection(struct pa_socket_server*s, struct pa_iochannel *io, void *userdata) {
1469     struct pa_protocol_native *p = userdata;
1470     struct connection *c;
1471     assert(io && p);
1472
1473     c = pa_xmalloc(sizeof(struct connection));
1474     c->authorized = p->public;
1475     c->protocol = p;
1476     assert(p->core);
1477     c->client = pa_client_new(p->core, "NATIVE", "Client");
1478     assert(c->client);
1479     c->client->kill = client_kill_cb;
1480     c->client->userdata = c;
1481     c->client->owner = p->module;
1482
1483     c->pstream = pa_pstream_new(p->core->mainloop, io, p->core->memblock_stat);
1484     assert(c->pstream);
1485
1486     pa_pstream_set_recieve_packet_callback(c->pstream, pstream_packet_callback, c);
1487     pa_pstream_set_recieve_memblock_callback(c->pstream, pstream_memblock_callback, c);
1488     pa_pstream_set_die_callback(c->pstream, pstream_die_callback, c);
1489     pa_pstream_set_drain_callback(c->pstream, pstream_drain_callback, c);
1490
1491     c->pdispatch = pa_pdispatch_new(p->core->mainloop, command_table, PA_COMMAND_MAX);
1492     assert(c->pdispatch);
1493
1494     c->record_streams = pa_idxset_new(NULL, NULL);
1495     c->output_streams = pa_idxset_new(NULL, NULL);
1496     assert(c->record_streams && c->output_streams);
1497
1498     c->rrobin_index = PA_IDXSET_INVALID;
1499     c->subscription = NULL;
1500
1501     pa_idxset_put(p->connections, c, NULL);
1502 }
1503
1504 /*** module entry points ***/
1505
1506 static struct pa_protocol_native* protocol_new_internal(struct pa_core *c, struct pa_module *m, struct pa_modargs *ma) {
1507     struct pa_protocol_native *p;
1508     int public;
1509     assert(c && ma);
1510
1511     if (pa_modargs_get_value_boolean(ma, "public", &public) < 0) {
1512         fprintf(stderr, __FILE__": public= expects numeric argument.\n");
1513         return NULL;
1514     }
1515
1516     p = pa_xmalloc(sizeof(struct pa_protocol_native));
1517
1518     if (pa_authkey_load_from_home(pa_modargs_get_value(ma, "cookie", PA_NATIVE_COOKIE_FILE), p->auth_cookie, sizeof(p->auth_cookie)) < 0) {
1519         pa_xfree(p);
1520         return NULL;
1521     }
1522
1523     p->module = m;
1524     p->public = public;
1525     p->server = NULL;
1526     p->core = c;
1527     p->connections = pa_idxset_new(NULL, NULL);
1528     assert(p->connections);
1529
1530     return p;
1531 }
1532
1533 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) {
1534     struct pa_protocol_native *p;
1535
1536     if (!(p = protocol_new_internal(core, m, ma)))
1537         return NULL;
1538
1539     p->server = server;
1540     pa_socket_server_set_callback(p->server, on_connection, p);
1541
1542     return p;
1543 }
1544
1545 void pa_protocol_native_free(struct pa_protocol_native *p) {
1546     struct connection *c;
1547     assert(p);
1548
1549     while ((c = pa_idxset_first(p->connections, NULL)))
1550         connection_free(c);
1551     pa_idxset_free(p->connections, NULL, NULL);
1552
1553     if (p->server)
1554         pa_socket_server_unref(p->server);
1555
1556     pa_xfree(p);
1557 }
1558
1559 struct pa_protocol_native* pa_protocol_native_new_iochannel(struct pa_core*core, struct pa_iochannel *io, struct pa_module *m, struct pa_modargs *ma) {
1560     struct pa_protocol_native *p;
1561
1562     if (!(p = protocol_new_internal(core, m, ma)))
1563         return NULL;
1564
1565     on_connection(NULL, io, p);
1566
1567     return p;
1568 }