audiod.c

   1 /*
   2  * Copyright (C) 2005-2007 Andre Noll <maan@systemlinux.org>
   3  *
   4  * Licensed under the GPL v2. For licencing details see COPYING.
   5  */
   6
   7 /** \file audiod.c the paraslash's audio daemon */
   8
   9 #include "para.h"
  10
  11 #include "audiod.cmdline.h"
  12 #include "list.h"
  13 #include "sched.h"
  14 #include "recv.h"
  15 #include "filter.h"
  16 #include "grab_client.cmdline.h"
  17 #include "grab_client.h"
  18 #include "client.cmdline.h"
  19 #include "client.h"
  20 #include "audiod.h"
  21 #include "net.h"
  22 #include "daemon.h"
  23 #include "string.h"
  24 #include "fd.h"
  25 #include "write.h"
  26 #include "write_common.h"
  27 #include "error.h"
  28 #include "signal.h"
  29
  30 /** define the array of error lists needed by para_audiod */
  31 INIT_AUDIOD_ERRLISTS;
  32 /** define the array containing all supported audio formats */
  33 const char *audio_formats[] = {AUDIOD_AUDIO_FORMAT_ARRAY NULL};
  34
  35 /** defines how to handle one supported audio format */
  36 struct audio_format_info {
  37         /** pointer to the receiver for this audio format */
  38         struct receiver *receiver;
  39         /** the receiver configuration */
  40         void *receiver_conf;
  41         /** the number of filters that should be activated for this audio format */
  42         unsigned int num_filters;
  43         /** pointer to the array of filters to be activated */
  44         struct filter **filters;
  45         /** pointer to the array of filter configurations */
  46         void **filter_conf;
  47         /** the number of filters that should be activated for this audio format */
  48         unsigned int num_writers;
  49         /** pointer to the array of writers to be activated */
  50         struct writer **writers;
  51         /** pointer to the array of writer configurations */
  52         void **writer_conf;
  53         /** do not start receiver/filters/writer before this time */
  54         struct timeval restart_barrier;
  55 };
  56
  57 /**
  58  * para_audiod uses \p MAX_STREAM_SLOTS different slots, each of which may
  59  * be associated with a receiver/filter/writer triple. This array holds all
  60  * information on the status of these slots.
  61  *
  62  * \sa struct slot_info
  63  * */
  64 struct slot_info slot[MAX_STREAM_SLOTS];
  65
  66
  67 /**
  68  * the current mode of operation of which can be changed by the on/off/cycle
  69  * commands. It is either, AUDIOD_OFF, AUDIOD_ON or AUDIOD_STANDBY.
  70  */
  71 int audiod_status = AUDIOD_ON;
  72
  73 /**
  74  * the gengetopt args_info struct that holds information on all command line
  75  * arguments
  76  */
  77 struct audiod_args_info conf;
  78
  79 static char *socket_name;
  80 static FILE *logfile;
  81 static struct audio_format_info afi[NUM_AUDIO_FORMATS];
  82
  83 static struct signal_task signal_task_struct, *sig_task = &signal_task_struct;
  84
  85 static struct status_task status_task_struct;
  86
  87 /**
  88  * the task that calls the status command of para_server
  89  *
  90  * \sa struct status_task
  91  */
  92 struct status_task *stat_task = &status_task_struct;
  93 static struct timeval initial_delay_barrier;
  94
  95 /**
  96  * the task for handling audiod commands
  97  *
  98  * \sa struct task, struct sched
  99  */
 100 struct command_task {
 101         /** the local listening socket */
 102         int fd;
 103         /** the associated task structure */
 104         struct task task;
 105 };
 106
 107 /** iterate over all supported audio formats */
 108 #define FOR_EACH_AUDIO_FORMAT(af) for (af = 0; af < NUM_AUDIO_FORMATS; af++)
 109
 110 /**
 111  * get the audio format number
 112  * \param name the name of the audio format
 113  *
 114  * \return The audio format number on success, -E_UNSUPPORTED_AUDIO_FORMAT if
 115  * \a name is not a supported audio format.
 116  */
 117 int get_audio_format_num(char *name)
 118 {
 119         int i;
 120         FOR_EACH_AUDIO_FORMAT(i)
 121                 if (!strcmp(name, audio_formats[i]))
 122                         return i;
 123         return -E_UNSUPPORTED_AUDIO_FORMAT;
 124 }
 125
 126 /**
 127  * the log function of para_audiod
 128  *
 129  * \param ll loglevel
 130  * \param fmt the format string
 131  */
 132 void para_log(int ll, const char* fmt,...)
 133 {
 134         va_list argp;
 135         FILE *outfd;
 136         struct tm *tm;
 137         time_t t1;
 138         char str[MAXLINE] = "";
 139         static char *hostname;
 140
 141         if (ll < conf.loglevel_arg)
 142                 return;
 143         if (!hostname)
 144                 hostname = para_hostname();
 145         outfd = logfile? logfile : stderr;
 146         time(&t1);
 147         tm = localtime(&t1);
 148         strftime(str, MAXLINE, "%b %d %H:%M:%S", tm);
 149         fprintf(outfd, "%s %s ", str, hostname);
 150         if (conf.loglevel_arg <= INFO)
 151                 fprintf(outfd, "%i ", ll);
 152         va_start(argp, fmt);
 153         vfprintf(outfd, fmt, argp);
 154         va_end(argp);
 155 }
 156
 157 static char *configfile_exists(void)
 158 {
 159         char *home = para_homedir();
 160         char *config_file = make_message("%s/.paraslash/audiod.conf",
 161                 home);
 162         free(home);
 163         if (file_exists(config_file))
 164                 return config_file;
 165         free(config_file);
 166         return NULL;
 167 }
 168
 169 static void setup_signal_handling(void)
 170 {
 171         sig_task->fd = para_signal_init();
 172         PARA_INFO_LOG("signal pipe: fd %d\n", sig_task->fd);
 173         para_install_sighandler(SIGINT);
 174         para_install_sighandler(SIGTERM);
 175         para_install_sighandler(SIGHUP);
 176         signal(SIGPIPE, SIG_IGN);
 177 }
 178
 179 static void clear_slot(int slot_num)
 180 {
 181         struct slot_info *s = &slot[slot_num];
 182
 183         PARA_INFO_LOG("clearing slot %d\n", slot_num);
 184         memset(s, 0, sizeof(struct slot_info));
 185         s->format = -1;
 186 }
 187
 188 static void close_receiver(int slot_num)
 189 {
 190         struct slot_info *s = &slot[slot_num];
 191         struct audio_format_info *a;
 192
 193         if (s->format < 0 || !s->receiver_node)
 194                 return;
 195         a = &afi[s->format];
 196         PARA_NOTICE_LOG("closing %s receiver in slot %d (eof = %d)\n",
 197                 audio_formats[s->format] , slot_num, s->receiver_node->eof);
 198         a->receiver->close(s->receiver_node);
 199         free(s->receiver_node);
 200         s->receiver_node = NULL;
 201 }
 202
 203 static void kill_all_decoders(void)
 204 {
 205         int i;
 206
 207         FOR_EACH_SLOT(i) {
 208                 struct slot_info *s = &slot[i];
 209                 if (s->wng && !s->wng->eof) {
 210                         PARA_INFO_LOG("unregistering writer node group in slot %d\n",
 211                                 i);
 212                         wng_unregister(s->wng);
 213                         s->wng->eof = 1;
 214                 }
 215                 if (s->fc && !s->fc->eof) {
 216                         PARA_INFO_LOG("unregistering filter chain in slot %d\n", i);
 217                         unregister_task(&s->fc->task);
 218                         s->fc->eof = 1;
 219                 }
 220                 if (s->receiver_node && !s->receiver_node->eof) {
 221                         PARA_INFO_LOG("unregistering receiver_node in slot %d\n", i);
 222                         unregister_task(&s->receiver_node->task);
 223                         s->receiver_node->eof = 1;
 224                 }
 225         }
 226 }
 227
 228 static int get_empty_slot(void)
 229 {
 230         int i;
 231         struct slot_info *s;
 232
 233         FOR_EACH_SLOT(i) {
 234                 s = &slot[i];
 235                 if (s->format < 0) {
 236                         clear_slot(i);
 237                         return i;
 238                 }
 239                 if (s->wng || s->receiver_node || s->fc)
 240                         continue;
 241                 clear_slot(i);
 242                 return i;
 243         }
 244         return -E_NO_MORE_SLOTS;
 245 }
 246
 247 /**
 248  * get the number of filters
 249  *
 250  * \param audio_format_num the number identifying the audio format
 251  *
 252  * \return the number of filters for the given audio format
 253  *
 254  * \sa struct filter;
 255  */
 256 int num_filters(int audio_format_num)
 257 {
 258         return afi[audio_format_num].num_filters;
 259 }
 260
 261 static void filter_event_handler(struct task *t)
 262 {
 263         PARA_NOTICE_LOG("%s\n", PARA_STRERROR(-t->ret));
 264         struct filter_chain *fc = t->private_data;
 265         fc->eof = 1;
 266         unregister_task(t);
 267 }
 268
 269 static void open_filters(int slot_num)
 270 {
 271         struct slot_info *s = &slot[slot_num];
 272         struct audio_format_info *a = &afi[s->format];
 273         int nf = a->num_filters;
 274         int i;
 275
 276         s->fc = NULL;
 277         if (!nf)
 278                 return;
 279         PARA_INFO_LOG("opening %s filters\n", audio_formats[s->format]);
 280         s->fc = para_calloc(sizeof(struct filter_chain));
 281         INIT_LIST_HEAD(&s->fc->filters);
 282         s->fc->inbuf = s->receiver_node->buf;
 283         s->fc->in_loaded = &s->receiver_node->loaded;
 284         s->fc->input_eof = &s->receiver_node->eof;
 285         s->fc->task.pre_select = filter_pre_select;
 286         s->fc->task.event_handler = filter_event_handler;
 287         s->fc->task.private_data = s->fc;
 288         s->fc->eof = 0;
 289
 290         s->receiver_node->output_eof = &s->fc->eof;
 291         sprintf(s->fc->task.status, "filter chain");
 292         for (i = 0; i < nf; i++) {
 293                 struct filter_node *fn = para_calloc(sizeof(struct filter_node));
 294                 fn->conf = a->filter_conf[i];
 295                 fn->fc = s->fc;
 296                 fn->filter = a->filters[i];
 297                 INIT_LIST_HEAD(&fn->callbacks);
 298                 list_add_tail(&fn->node, &s->fc->filters);
 299                 fn->filter->open(fn);
 300                 PARA_NOTICE_LOG("%s filter %d/%d (%s) started in slot %d\n",
 301                         audio_formats[s->format], i + 1,  nf,
 302                         fn->filter->name, slot_num);
 303                 s->fc->outbuf = fn->buf;
 304                 s->fc->out_loaded = &fn->loaded;
 305         }
 306         register_task(&s->fc->task);
 307 }
 308
 309 static void wng_event_handler(struct task *t)
 310 {
 311         struct writer_node_group *wng = t->private_data;
 312
 313         PARA_INFO_LOG("%s\n", PARA_STRERROR(-t->ret));
 314         wng->eof = 1;
 315         wng_unregister(wng);
 316 }
 317
 318 static void open_writers(int slot_num)
 319 {
 320         int ret, i;
 321         struct slot_info *s = &slot[slot_num];
 322         struct audio_format_info *a = &afi[s->format];
 323
 324         PARA_INFO_LOG("opening %s writers\n", audio_formats[s->format]);
 325         if (!a->num_writers)
 326                 s->wng = setup_default_wng();
 327         else
 328                 s->wng = wng_new(a->num_writers);
 329         if (s->fc) {
 330                 s->wng->buf = s->fc->outbuf;
 331                 s->wng->loaded = s->fc->out_loaded;
 332                 s->wng->input_eof = &s->fc->eof;
 333                 s->wng->channels = &s->fc->channels;
 334                 s->wng->samplerate = &s->fc->samplerate;
 335                 s->fc->output_eof = &s->wng->eof;
 336                 PARA_INFO_LOG("samplerate: %d\n", *s->wng->samplerate);
 337         } else {
 338                 s->wng->buf = s->receiver_node->buf;
 339                 s->wng->loaded = &s->receiver_node->loaded;
 340                 s->wng->input_eof = &s->receiver_node->eof;
 341         }
 342         s->wng->task.event_handler = wng_event_handler;
 343         for (i = 0; i < a->num_writers; i++) {
 344                 s->wng->writer_nodes[i].conf = a->writer_conf[i];
 345                 s->wng->writer_nodes[i].writer = a->writers[i];
 346         }
 347         ret = wng_open(s->wng);
 348         if (ret < 0) {
 349                 PARA_ERROR_LOG("%s\n", PARA_STRERROR(-ret));
 350                 return;
 351         }
 352         s->wstime = *now;
 353         activate_inactive_grab_clients(slot_num, s->format, &s->fc->filters);
 354 }
 355
 356 static void rn_event_handler(struct task *t)
 357 {
 358         struct receiver_node *rn = t->private_data;
 359         const struct timeval restart_delay = {0, 10 * 1000};
 360         int i;
 361
 362         PARA_NOTICE_LOG("%s\n", PARA_STRERROR(-t->ret));
 363         unregister_task(t);
 364         rn->eof = 1;
 365         /* set restart barrier */
 366         FOR_EACH_SLOT(i) {
 367                 if (slot[i].receiver_node != rn)
 368                         continue;
 369                 tv_add(now, &restart_delay, &afi[slot[i].format].restart_barrier);
 370         }
 371 }
 372
 373 static int open_receiver(int format)
 374 {
 375         struct audio_format_info *a = &afi[format];
 376         struct slot_info *s;
 377         int ret, slot_num;
 378         struct receiver_node *rn;
 379         const struct timeval restart_delay = {1, 0};
 380
 381         ret = get_empty_slot();
 382         if (ret < 0)
 383                 goto err;
 384         slot_num = ret;
 385         s = &slot[slot_num];
 386         s->format = format;
 387         s->receiver_node = para_calloc(sizeof(struct receiver_node));
 388         rn = s->receiver_node;
 389         rn->receiver = a->receiver;
 390         rn->conf = a->receiver_conf;
 391         ret = a->receiver->open(s->receiver_node);
 392         if (ret < 0) {
 393                 free(s->receiver_node);
 394                 s->receiver_node = NULL;
 395                 goto err;
 396         }
 397         PARA_NOTICE_LOG("started %s: %s receiver in slot %d\n",
 398                 audio_formats[s->format], a->receiver->name, slot_num);
 399         rn->task.private_data = s->receiver_node;
 400         rn->task.pre_select = a->receiver->pre_select;
 401         rn->task.post_select = a->receiver->post_select;
 402         rn->task.event_handler = rn_event_handler;
 403         sprintf(rn->task.status, "%s receiver node", rn->receiver->name);
 404         register_task(&rn->task);
 405         return 1;
 406 err:
 407         PARA_ERROR_LOG("%s\n", PARA_STRERROR(-ret));
 408         tv_add(now, &restart_delay, &afi[format].restart_barrier);
 409         return ret;
 410 }
 411
 412 static int receiver_running(int format)
 413 {
 414         int i;
 415
 416         FOR_EACH_SLOT(i) {
 417                 struct slot_info *s = &slot[i];
 418                 if (s->format == format && s->receiver_node
 419                                 && !s->receiver_node->eof)
 420                         return 1;
 421         }
 422         return 0;
 423 }
 424
 425 static int open_current_receiver(struct sched *s)
 426 {
 427         int i;
 428         struct timeval diff;
 429         char *audio_format = stat_task->stat_item_values[SI_FORMAT];
 430
 431         if (!audio_format || !stat_task->pcd)
 432                 return 0;
 433         i = get_audio_format_num(audio_format + strlen(
 434                 status_item_list[SI_FORMAT]) + 1);
 435         if (i < 0)
 436                 return 0;
 437         if (receiver_running(i))
 438                 return 0;
 439         if (tv_diff(now, &afi[i].restart_barrier, &diff) < 0) {
 440                 s->timeout = diff;
 441                 return 0;
 442         }
 443         return open_receiver(i) < 0? 0 : 1;
 444 }
 445
 446 static unsigned compute_time_diff(const struct timeval *status_time)
 447 {
 448         struct timeval tmp, diff;
 449         static unsigned count;
 450         int sign, sa_time_diff_sign = stat_task->sa_time_diff_sign;
 451         const struct timeval max_deviation = {0, 500 * 1000};
 452         const int time_smooth = 5;
 453
 454         if (!status_time)
 455                 return count;
 456         sign = tv_diff(status_time, now, &diff);
 457 //              PARA_NOTICE_LOG("%s: sign = %i, sa_time_diff_sign = %i\n", __func__,
 458 //                      sign, sa_time_diff_sign);
 459         if (!count) {
 460                 sa_time_diff_sign = sign;
 461                 stat_task->sa_time_diff = diff;
 462                 count++;
 463                 goto out;
 464         }
 465         if (count > 5) {
 466                 int s = tv_diff(&diff, &stat_task->sa_time_diff, &tmp);
 467                 if (tv_diff(&max_deviation, &tmp, NULL) < 0)
 468                         PARA_WARNING_LOG("time diff jump: %lims\n",
 469                                 s * tv2ms(&tmp));
 470         }
 471         count++;
 472         sa_time_diff_sign = tv_convex_combination(
 473                 sa_time_diff_sign * time_smooth, &stat_task->sa_time_diff,
 474                 count > 10? sign : sign * time_smooth, &diff,
 475                 &tmp);
 476         stat_task->sa_time_diff = tmp;
 477         PARA_INFO_LOG("time diff (cur/avg): %s%lums/%s%lums\n",
 478                 sign > 0? "+" : "-",
 479                 tv2ms(&diff),
 480                 sa_time_diff_sign ? "+" : "-",
 481                 tv2ms(&stat_task->sa_time_diff)
 482         );
 483 out:
 484         stat_task->sa_time_diff_sign = sa_time_diff_sign;
 485         return count;
 486 }
 487
 488 static int check_stat_line(char *line, __a_unused void *data)
 489 {
 490         int itemnum;
 491         size_t ilen = 0;
 492         long unsigned sec, usec;
 493         char *tmp;
 494
 495 //      PARA_INFO_LOG("line: %s\n", line);
 496         if (!line)
 497                 return 1;
 498         itemnum = stat_line_valid(line);
 499         if (itemnum < 0) {
 500                 PARA_WARNING_LOG("invalid status line: %s\n", line);
 501                 return 1;
 502         }
 503         if (stat_task->clock_diff_count && itemnum != SI_CURRENT_TIME)
 504                 return 1;
 505         tmp = make_message("%s\n", line);
 506         stat_client_write(tmp, itemnum);
 507         free(tmp);
 508         free(stat_task->stat_item_values[itemnum]);
 509         stat_task->stat_item_values[itemnum] = para_strdup(line);
 510         ilen = strlen(status_item_list[itemnum]);
 511         switch (itemnum) {
 512         case SI_STATUS:
 513                 stat_task->playing = strstr(line, "playing")? 1 : 0;
 514                 break;
 515         case SI_OFFSET:
 516                 stat_task->offset_seconds = atoi(line + ilen + 1);
 517                 break;
 518         case SI_LENGTH:
 519                 stat_task->length_seconds = atoi(line + ilen + 1);
 520                 break;
 521         case SI_STREAM_START:
 522                 if (sscanf(line + ilen + 1, "%lu.%lu", &sec, &usec) == 2) {
 523                         struct timeval a_start, delay;
 524                         delay.tv_sec = conf.stream_delay_arg / 1000;
 525                         delay.tv_usec = (conf.stream_delay_arg % 1000) * 1000;
 526                         stat_task->server_stream_start.tv_sec = sec;
 527                         stat_task->server_stream_start.tv_usec = usec;
 528                         if (compute_time_diff(NULL) > 2) {
 529                                 if (stat_task->sa_time_diff_sign < 0)
 530                                         tv_add(&stat_task->server_stream_start,
 531                                                 &stat_task->sa_time_diff, &a_start);
 532                                 else
 533                                         tv_diff(&stat_task->server_stream_start,
 534                                                 &stat_task->sa_time_diff, &a_start);
 535                                 tv_add(&a_start, &delay, &initial_delay_barrier);
 536                         }
 537                 }
 538                 break;
 539         case SI_CURRENT_TIME:
 540                 if (sscanf(line + ilen + 1, "%lu.%lu", &sec, &usec) == 2) {
 541                         struct timeval tv = {sec, usec};
 542                         compute_time_diff(&tv);
 543                 }
 544                 if (stat_task->clock_diff_count)
 545                         stat_task->clock_diff_count--;
 546                 break;
 547         }
 548         return 1;
 549 }
 550
 551 static void try_to_close_slot(int slot_num)
 552 {
 553         struct slot_info *s = &slot[slot_num];
 554
 555         if (s->format < 0)
 556                 return;
 557         if (s->receiver_node && !s->receiver_node->eof)
 558                 return;
 559         if (s->fc && !s->fc->eof)
 560                 return;
 561         if (s->wng && !s->wng->eof)
 562                 return;
 563         PARA_INFO_LOG("closing slot %d \n", slot_num);
 564         wng_close(s->wng);
 565         close_filters(s->fc);
 566         free(s->fc);
 567         close_receiver(slot_num);
 568         clear_slot(slot_num);
 569 }
 570
 571 /*
 572  * Check if any receivers/filters/writers need to be started and do so if
 573  * neccessary.  Since the pre_select function didn't have a chance yet to put
 574  * file descriptors into the fd sets given by s, make the upcoming select()
 575  * return immediately to avoid a long timeout in case we started something.
 576  */
 577 static void audiod_pre_select(struct sched *s, __a_unused struct task *t)
 578 {
 579         int i;
 580         struct timeval min_delay = {0, 1};
 581
 582         t->ret = 1;
 583         if (audiod_status != AUDIOD_ON || !stat_task->playing)
 584                 return kill_all_decoders();
 585         if (open_current_receiver(s))
 586                 s->timeout = min_delay;
 587         FOR_EACH_SLOT(i) {
 588                 struct slot_info *sl = &slot[i];
 589                 struct audio_format_info *a;
 590                 struct timeval diff;
 591
 592                 if (sl->format < 0)
 593                         continue;
 594                 a = &afi[sl->format];
 595                 if (!sl->receiver_node)
 596                         continue;
 597                 if (!a->num_filters) {
 598                         if (sl->receiver_node->loaded && !sl->wng) {
 599                                 open_writers(i);
 600                                 s->timeout = min_delay;
 601                         }
 602                         continue;
 603                 }
 604                 if (sl->receiver_node->loaded && !sl->fc) {
 605                         open_filters(i);
 606                         s->timeout = min_delay;
 607                         continue;
 608                 }
 609                 if (!sl->fc || !*sl->fc->out_loaded || sl->wng)
 610                         continue;
 611                 if (tv_diff(now, &initial_delay_barrier, &diff) > 0) {
 612                         open_writers(i);
 613                         s->timeout = min_delay;
 614                         continue;
 615                 }
 616                 PARA_INFO_LOG("initial delay: %lu ms left\n", tv2ms(&diff));
 617                 if (tv_diff(&s->timeout, &diff, NULL) > 0) {
 618                         s->timeout = diff;
 619                 }
 620         }
 621 }
 622
 623 static void audiod_post_select(__a_unused struct sched *s,
 624         __a_unused struct task *t)
 625 {
 626         int i;
 627
 628         t->ret = 1;
 629         FOR_EACH_SLOT(i)
 630                 try_to_close_slot(i);
 631 }
 632
 633 static void init_audiod_task(struct task *t)
 634 {
 635         t->pre_select = audiod_pre_select;
 636         t->post_select = audiod_post_select;
 637         t->event_handler = NULL;
 638         t->private_data = t;
 639         sprintf(t->status, "audiod task");
 640 }
 641
 642 static int parse_stream_command(const char *txt, char **cmd)
 643 {
 644         char *p = strchr(txt, ':');
 645         int i;
 646
 647         if (!p)
 648                 return -E_MISSING_COLON;
 649         p++;
 650         FOR_EACH_AUDIO_FORMAT(i) {
 651                 if (strncmp(txt, audio_formats[i], strlen(audio_formats[i])))
 652                         continue;
 653                 *cmd = p;
 654                 return i;
 655         }
 656         return -E_UNSUPPORTED_AUDIO_FORMAT;
 657 }
 658
 659 static int add_filter(int format, char *cmdline)
 660 {
 661         struct audio_format_info *a = &afi[format];
 662         int filter_num, nf = a->num_filters;
 663
 664         filter_num = check_filter_arg(cmdline, &a->filter_conf[nf]);
 665         if (filter_num < 0)
 666                 return filter_num;
 667         a->filters[nf] = &filters[filter_num];
 668         a->num_filters++;
 669         PARA_INFO_LOG("%s filter %d: %s\n", audio_formats[format], nf + 1,
 670                 a->filters[nf]->name);
 671         return filter_num;
 672 }
 673
 674 static int init_writers(void)
 675 {
 676         int i, ret, nw;
 677         char *cmd;
 678         struct audio_format_info *a;
 679
 680         init_supported_writers();
 681         nw = PARA_MAX(1, conf.writer_given);
 682         PARA_INFO_LOG("maximal number of writers: %d\n", nw);
 683         FOR_EACH_AUDIO_FORMAT(i) {
 684                 a = &afi[i];
 685                 a->writer_conf = para_malloc(nw * sizeof(void *));
 686                 a->writers = para_malloc(nw * sizeof(struct writer *));
 687                 a->num_writers = 0;
 688         }
 689         for (i = 0; i < conf.writer_given; i++) {
 690                 void *wconf;
 691                 int writer_num;
 692                 ret = parse_stream_command(conf.writer_arg[i], &cmd);
 693                 if (ret < 0)
 694                         goto out;
 695                 a = &afi[ret];
 696                 nw = a->num_writers;
 697                 wconf = check_writer_arg(cmd, &writer_num);
 698                 if (!wconf) {
 699                         ret = writer_num;
 700                         goto out;
 701                 }
 702                 a->writers[nw] = &writers[writer_num];
 703                 a->writer_conf[nw] = wconf;
 704                 PARA_INFO_LOG("%s writer #%d: %s\n", audio_formats[ret],
 705                         nw, writer_names[writer_num]);
 706                 a->num_writers++;
 707         }
 708         ret = 1;
 709 out:
 710         return ret;
 711 }
 712
 713 static int init_receivers(void)
 714 {
 715         int i, ret, receiver_num;
 716         char *cmd = NULL;
 717         struct audio_format_info *a;
 718
 719         for (i = 0; receivers[i].name; i++) {
 720                 PARA_INFO_LOG("initializing %s receiver\n", receivers[i].name);
 721                 receivers[i].init(&receivers[i]);
 722         }
 723         for (i = conf.receiver_given - 1; i >= 0; i--) {
 724                 char *arg = conf.receiver_arg[i];
 725                 char *recv_arg = strchr(arg, ':');
 726                 ret = -E_MISSING_COLON;
 727                 if (!recv_arg)
 728                         goto out;
 729                 *recv_arg = '\0';
 730                 recv_arg++;
 731                 ret = get_audio_format_num(arg);
 732                 if (ret < 0)
 733                         goto out;
 734                 afi[ret].receiver_conf = check_receiver_arg(recv_arg, &receiver_num);
 735                 if (!afi[ret].receiver_conf) {
 736                         ret = -E_RECV_SYNTAX;
 737                         goto out;
 738                 }
 739                 afi[ret].receiver = &receivers[receiver_num];
 740         }
 741         /* use the first available receiver with no arguments
 742          * for those audio formats for which no receiver
 743          * was specified
 744          */
 745         cmd = para_strdup(receivers[0].name);
 746         FOR_EACH_AUDIO_FORMAT(i) {
 747                 a = &afi[i];
 748                 if (a->receiver_conf)
 749                         continue;
 750                 a->receiver_conf = check_receiver_arg(cmd, &receiver_num);
 751                 if (!a->receiver_conf)
 752                         return -E_RECV_SYNTAX;
 753                 a->receiver = &receivers[receiver_num];
 754         }
 755         ret = 1;
 756 out:
 757         free(cmd);
 758         return ret;
 759 }
 760
 761 static int init_default_filters(void)
 762 {
 763         int i, ret = 1;
 764
 765         FOR_EACH_AUDIO_FORMAT(i) {
 766                 struct audio_format_info *a = &afi[i];
 767                 char *tmp;
 768                 int j;
 769
 770                 if (a->num_filters)
 771                         continue; /* no default -- nothing to to */
 772                 /* add "dec" to audio format name */
 773                 tmp = make_message("%sdec", audio_formats[i]);
 774                 for (j = 0; filters[j].name; j++)
 775                         if (!strcmp(tmp, filters[j].name))
 776                                 break;
 777                 free(tmp);
 778                 ret = -E_UNSUPPORTED_FILTER;
 779                 if (!filters[j].name)
 780                         goto out;
 781                 tmp = para_strdup(filters[j].name);
 782                 ret = add_filter(i, tmp);
 783                 free(tmp);
 784                 if (ret < 0)
 785                         goto out;
 786                 PARA_INFO_LOG("%s -> default filter: %s\n", audio_formats[i],
 787                         filters[j].name);
 788         }
 789 out:
 790         return ret;
 791 }
 792
 793 static int init_filters(void)
 794 {
 795         int i, ret, nf;
 796
 797         filter_init(filters);
 798         nf = PARA_MAX(1,  conf.filter_given);
 799         PARA_INFO_LOG("maximal number of filters: %d\n", nf);
 800         FOR_EACH_AUDIO_FORMAT(i) {
 801                 afi[i].filter_conf = para_malloc(nf * sizeof(void *));
 802                 afi[i].filters = para_malloc(nf * sizeof(struct filter *));
 803         }
 804         if (!conf.no_default_filters_given)
 805                 return init_default_filters();
 806         for (i = 0; i < conf.filter_given; i++) {
 807                 char *arg = conf.filter_arg[i];
 808                 char *filter_name = strchr(arg, ':');
 809                 ret = -E_MISSING_COLON;
 810                 if (!filter_name)
 811                         goto out;
 812                 *filter_name = '\0';
 813                 filter_name++;
 814                 ret = get_audio_format_num(arg);
 815                 if (ret < 0)
 816                         goto out;
 817                 ret = add_filter(ret, filter_name);
 818                 if (ret < 0)
 819                         goto out;
 820         }
 821         ret = init_default_filters(); /* use default values for the rest */
 822 out:
 823         return ret;
 824 }
 825
 826 static int init_stream_io(void)
 827 {
 828         int ret;
 829
 830         ret = init_writers();
 831         if (ret < 0)
 832                 return ret;
 833         ret = init_receivers();
 834         if (ret < 0)
 835                 return ret;
 836         ret = init_filters();
 837         if (ret < 0)
 838                 return ret;
 839         return 1;
 840 }
 841
 842 static int audiod_get_socket(void)
 843 {
 844         struct sockaddr_un unix_addr;
 845         int fd;
 846
 847         if (conf.socket_given)
 848                 socket_name = para_strdup(conf.socket_arg);
 849         else {
 850                 char *hn = para_hostname();
 851                 socket_name = make_message("/var/paraslash/audiod_socket.%s",
 852                         hn);
 853                 free(hn);
 854         }
 855         PARA_NOTICE_LOG("local socket: %s\n", socket_name);
 856         if (conf.force_given)
 857                 unlink(socket_name);
 858         fd = create_local_socket(socket_name, &unix_addr,
 859                         S_IRUSR | S_IWUSR | S_IRGRP | S_IWGRP | S_IWOTH);
 860         if (fd < 0) {
 861                 PARA_EMERG_LOG("can not connect to socket\n");
 862                 exit(EXIT_FAILURE); /* do not unlink socket */
 863         }
 864         if (listen(fd , 5) < 0) {
 865                 PARA_EMERG_LOG("can not listen on socket\n");
 866                 exit(EXIT_FAILURE); /* do not unlink socket */
 867         }
 868         mark_fd_nonblock(fd);
 869         return fd;
 870 }
 871
 872 static void signal_event_handler(struct task *t)
 873 {
 874         struct signal_task *st = t->private_data;
 875
 876         switch (st->signum) {
 877         case SIGINT:
 878         case SIGTERM:
 879         case SIGHUP:
 880                 PARA_EMERG_LOG("terminating on signal %d\n", st->signum);
 881                 clean_exit(EXIT_FAILURE, "caught deadly signal");
 882         }
 883 }
 884
 885 static void signal_pre_select(struct sched *s, struct task *t)
 886 {
 887         struct signal_task *st = t->private_data;
 888         t->ret = 1;
 889         para_fd_set(st->fd, &s->rfds, &s->max_fileno);
 890 }
 891
 892 static void signal_post_select(struct sched *s, struct task *t)
 893 {
 894         struct signal_task *st = t->private_data;
 895         t->ret = 1;
 896         if (!FD_ISSET(st->fd, &s->rfds))
 897                 return;
 898         t->ret = -E_SIGNAL_CAUGHT;
 899         st->signum = para_next_signal();
 900 }
 901
 902 static void signal_setup_default(struct signal_task *st)
 903 {
 904         st->task.pre_select = signal_pre_select;
 905         st->task.post_select = signal_post_select;
 906         st->task.private_data = st;
 907         sprintf(st->task.status, "signal task");
 908 }
 909
 910 static void command_pre_select(struct sched *s, struct task *t)
 911 {
 912         struct command_task *ct = t->private_data;
 913         t->ret = 1;
 914         para_fd_set(ct->fd, &s->rfds, &s->max_fileno);
 915
 916 }
 917
 918 static void command_post_select(struct sched *s, struct task *t)
 919 {
 920         int ret;
 921         struct command_task *ct = t->private_data;
 922
 923         t->ret = 1; /* always successful */
 924         audiod_status_dump();
 925         if (!FD_ISSET(ct->fd, &s->rfds))
 926                 return;
 927         ret = handle_connect(ct->fd);
 928         if (ret < 0)
 929                 PARA_ERROR_LOG("%s\n", PARA_STRERROR(-ret));
 930 }
 931
 932 static void init_command_task(struct command_task *ct)
 933 {
 934         ct->task.pre_select = command_pre_select;
 935         ct->task.post_select = command_post_select;
 936         ct->task.event_handler = NULL;
 937         ct->task.private_data = ct;
 938         ct->fd = audiod_get_socket(); /* doesn't return on errors */
 939         sprintf(ct->task.status, "command task");
 940 }
 941
 942 static void close_stat_pipe(void)
 943 {
 944         int i;
 945
 946         if (!stat_task->pcd)
 947                 return;
 948         client_close(stat_task->pcd);
 949         stat_task->pcd = NULL;
 950         for (i = 0; i < NUM_STAT_ITEMS; i++) {
 951                 free(stat_task->stat_item_values[i]);
 952                 stat_task->stat_item_values[i] = NULL;
 953         }
 954         dump_empty_status();
 955         stat_task->length_seconds = 0;
 956         stat_task->offset_seconds = 0;
 957         audiod_status_dump();
 958         stat_task->playing = 0;
 959         stat_task->stat_item_values[SI_STATUS_BAR] = make_message(
 960                 "%s:no connection to para_server\n",
 961                 status_item_list[SI_STATUS_BAR]);
 962         stat_client_write(stat_task->stat_item_values[SI_STATUS_BAR],
 963                 SI_STATUS_BAR);
 964         if (stat_task->clock_diff_count) {
 965                 stat_task->clock_diff_barrier.tv_sec = now->tv_sec + 1;
 966                 stat_task->clock_diff_barrier.tv_usec = now->tv_usec;
 967         }
 968 }
 969
 970 /**
 971  * close the connection to para_server and exit
 972  *
 973  * \param status the exit status which is passed to exit(3)
 974  * \param msg the log message
 975  *
 976  * Log \a msg with loglevel \p EMERG, close the connection to para_server if
 977  * open, and call \p exit(status). \a status should be either EXIT_SUCCESS or
 978  * EXIT_FAILURE.
 979  *
 980  * \sa exit(3)
 981  */
 982 void __noreturn clean_exit(int status, const char *msg)
 983 {
 984         PARA_EMERG_LOG("%s\n", msg);
 985         if (socket_name)
 986                 unlink(socket_name);
 987         close_stat_pipe();
 988         exit(status);
 989 }
 990
 991 /* avoid busy loop if server is down */
 992 static void set_stat_task_restart_barrier(void)
 993 {
 994         struct timeval delay = {5, 0};
 995         tv_add(now, &delay, &stat_task->restart_barrier);
 996 }
 997
 998 static void client_task_event_handler(__a_unused struct task *t)
 999 {
1000         int i;
1001
1002         if (t->ret == -E_HANDSHAKE_COMPLETE)
1003                 return;
1004         unregister_task(t);
1005         close_stat_pipe();
1006         if (t->ret != -E_SERVER_EOF)
1007                 stat_task->clock_diff_count = conf.clock_diff_count_arg;
1008         set_stat_task_restart_barrier();
1009         FOR_EACH_AUDIO_FORMAT(i)
1010                 afi[i].restart_barrier = stat_task->restart_barrier;
1011 }
1012
1013 static void status_pre_select(struct sched *s, struct task *t)
1014 {
1015         struct status_task *st = t->private_data;
1016         int ret;
1017
1018         t->ret = 1; /* always successful */
1019         if (st->pcd || audiod_status == AUDIOD_OFF)
1020                 return;
1021         if (!st->clock_diff_count && tv_diff(now, &st->restart_barrier, NULL)
1022                         < 0)
1023                 return;
1024         if (st->clock_diff_count) {
1025                 char *argv[] = {"audiod", "stat", "1", NULL};
1026                 int argc = 3;
1027                 if (tv_diff(now, &st->clock_diff_barrier, NULL) < 0)
1028                         return;
1029                 PARA_INFO_LOG("clock diff count: %d\n", st->clock_diff_count);
1030                 ret = client_open(argc, argv, &st->pcd);
1031
1032         } else {
1033                 char *argv[] = {"audiod", "stat", NULL};
1034                 int argc = 2;
1035                 ret = client_open(argc, argv, &st->pcd);
1036         }
1037         set_stat_task_restart_barrier();
1038         if (ret < 0)
1039                 return;
1040         st->pcd->task.event_handler = client_task_event_handler;
1041         s->timeout.tv_sec = 0;
1042         s->timeout.tv_usec = 1;
1043 }
1044
1045 static void status_post_select(__a_unused struct sched *s, struct task *t)
1046 {
1047         struct status_task *st = t->private_data;
1048         unsigned bytes_left;
1049
1050         t->ret = 1;
1051         if (!st->pcd || st->pcd->status != CL_RECEIVING)
1052                 return;
1053         if (st->pcd && audiod_status == AUDIOD_OFF) {
1054                 unregister_task(&st->pcd->task);
1055                 close_stat_pipe();
1056                 st->clock_diff_count = conf.clock_diff_count_arg;
1057                 return;
1058         }
1059         bytes_left = for_each_line(st->pcd->buf, st->pcd->loaded,
1060                 &check_stat_line, NULL);
1061         if (st->pcd->loaded != bytes_left) {
1062                 st->last_status_read = *now;
1063                 st->pcd->loaded = bytes_left;
1064         } else {
1065                 struct timeval diff;
1066                 tv_diff(now, &st->last_status_read, &diff);
1067                 if (diff.tv_sec > 61)
1068                         close_stat_pipe();
1069         }
1070 }
1071
1072 static void init_status_task(struct status_task *st)
1073 {
1074         memset(st, 0, sizeof(struct status_task));
1075         st->task.pre_select = status_pre_select;
1076         st->task.post_select = status_post_select;
1077         st->task.private_data = st;
1078         st->sa_time_diff_sign = 1;
1079         st->clock_diff_count = conf.clock_diff_count_arg;
1080         sprintf(st->task.status, "status task");
1081 }
1082
1083 static void set_initial_status(void)
1084 {
1085         audiod_status = AUDIOD_ON;
1086         if (!conf.mode_given)
1087                 return;
1088         if (!strcmp(conf.mode_arg, "sb")) {
1089                 audiod_status = AUDIOD_STANDBY;
1090                 return;
1091         }
1092         if (!strcmp(conf.mode_arg, "off")) {
1093                 audiod_status = AUDIOD_OFF;
1094                 return;
1095         }
1096         if (strcmp(conf.mode_arg, "on"))
1097                 PARA_WARNING_LOG("%s", "invalid mode\n");
1098 }
1099
1100 /**
1101  * the main function of para_audiod
1102  *
1103  * \param argc usual argument count
1104  * \param argv usual argument vector
1105  *
1106  * \return EXIT_SUCCESS or EXIT_FAILURE
1107  *
1108  * \sa para_audiod(1)
1109  * */
1110 int main(int argc, char *argv[])
1111 {
1112         char *config_file;
1113         int ret, i;
1114         struct sched s;
1115         struct command_task command_task_struct, *cmd_task = &command_task_struct;
1116         struct task audiod_task_struct, *audiod_task = &audiod_task_struct;
1117
1118         valid_fd_012();
1119         audiod_cmdline_parser(argc, argv, &conf);
1120         HANDLE_VERSION_FLAG("audiod", conf);
1121         para_drop_privileges(conf.user_arg, conf.group_arg);
1122         config_file = configfile_exists();
1123         if (config_file) {
1124                 struct audiod_cmdline_parser_params params = {
1125                         .override = 0,
1126                         .initialize = 0,
1127                         .check_required = 0,
1128                         .check_ambiguity = 0
1129
1130                 };
1131                 if (audiod_cmdline_parser_config_file(config_file, &conf, &params)) {
1132                         PARA_EMERG_LOG("%s", "parse error in config file\n");
1133                         exit(EXIT_FAILURE);
1134                 }
1135                 free(config_file);
1136         }
1137         if (conf.logfile_given)
1138                 logfile = open_log(conf.logfile_arg);
1139         log_welcome("para_audiod", conf.loglevel_arg);
1140         i = init_stream_io();
1141         if (i < 0) {
1142                 PARA_EMERG_LOG("init stream io error: %s\n", PARA_STRERROR(-i));
1143                 exit(EXIT_FAILURE);
1144         }
1145         server_uptime(UPTIME_SET);
1146         set_initial_status();
1147         FOR_EACH_SLOT(i)
1148                 clear_slot(i);
1149         init_grabbing();
1150         setup_signal_handling();
1151         signal_setup_default(sig_task);
1152         sig_task->task.event_handler = signal_event_handler;
1153
1154         init_status_task(stat_task);
1155         init_command_task(cmd_task);
1156         init_audiod_task(audiod_task);
1157
1158         if (conf.daemon_given)
1159                 daemon_init();
1160
1161         register_task(&sig_task->task);
1162         register_task(&cmd_task->task);
1163         register_task(&stat_task->task);
1164         register_task(audiod_task);
1165         s.default_timeout.tv_sec = 0;
1166         s.default_timeout.tv_usec = 99 * 1000;
1167         ret = sched(&s);
1168
1169         PARA_EMERG_LOG("%s\n", PARA_STRERROR(-ret));
1170         return EXIT_FAILURE;
1171 }