write.c

   1 /*
   2  * Copyright (C) 2005-2009 Andre Noll <maan@systemlinux.org>
   3  *
   4  * Licensed under the GPL v2. For licencing details see COPYING.
   5  */
   6
   7 /** \file write.c Paraslash's standalone wav/raw player. */
   8
   9 #include <regex.h>
  10 #include <sys/types.h>
  11 #include <dirent.h>
  12 #include <stdbool.h>
  13
  14 #include "para.h"
  15 #include "string.h"
  16 #include "write.cmdline.h"
  17 #include "list.h"
  18 #include "sched.h"
  19 #include "ggo.h"
  20 #include "stdin.h"
  21 #include "buffer_tree.h"
  22 #include "write.h"
  23 #include "write_common.h"
  24 #include "fd.h"
  25 #include "error.h"
  26
  27 INIT_WRITE_ERRLISTS;
  28
  29 /** Check if given buffer contains a valid wave header. */
  30 struct check_wav_task {
  31         /** The buffer to check. */
  32         char *buf;
  33         /** Number of bytes loaded in \a buf. */
  34         size_t *loaded;
  35         /** Non-zero if an error occurred or end of file was reached. */
  36         int *input_error;
  37         /** Number of channels specified in wav header given by \a buf. */
  38         unsigned channels;
  39         /** Sample rate specified in wav header given by \a buf. */
  40         unsigned samplerate;
  41         /** The task structure used by the scheduler. */
  42         struct task task;
  43 };
  44
  45 enum check_wav_state {
  46         CWS_NEED_HEADER,
  47         CWS_HAVE_HEADER,
  48         CWS_NO_HEADER,
  49 };
  50
  51 struct check_wav_task_btr {
  52         int state;
  53         /** Number of channels specified in wav header given by \a buf. */
  54         unsigned channels;
  55         /** Sample rate specified in wav header given by \a buf. */
  56         unsigned samplerate;
  57         /** The task structure used by the scheduler. */
  58         struct task task;
  59         struct btr_node *btrn;
  60 };
  61
  62 /** Delay writing until given time. */
  63 struct initial_delay_task {
  64         /** The time the first data should be written out. */
  65         struct timeval start_time;
  66         /** The task structure for this task. */
  67         struct task task;
  68 };
  69
  70 static struct write_args_info conf;
  71
  72 static struct stdin_task sit;
  73
  74 static struct check_wav_task the_check_wav_task;
  75 static struct initial_delay_task the_initial_delay_task;
  76
  77 static struct writer_node_group *wng;
  78
  79 /** Length of a standard wav header. */
  80 #define WAV_HEADER_LEN 44
  81
  82 /**
  83  * Test if audio buffer contains a valid wave header.
  84  *
  85  * \return If not, return -E_NO_WAV_HEADER, otherwise, return zero. If
  86  * there is less than WAV_HEADER_LEN bytes available, return one.
  87  */
  88 static void check_wav_pre_select(__a_unused struct sched *s, struct task *t)
  89 {
  90         struct check_wav_task *cwt = container_of(t, struct check_wav_task, task);
  91         unsigned char *a;
  92         int ret;
  93
  94         if (*cwt->loaded < WAV_HEADER_LEN) {
  95                 if (*cwt->input_error < 0)
  96                         t->error = *cwt->input_error;
  97                 return;
  98         }
  99         cwt->channels = 2;
 100         cwt->samplerate = 44100;
 101         a = (unsigned char*)cwt->buf;
 102         if (a[0] != 'R' || a[1] != 'I' || a[2] != 'F' || a[3] != 'F') {
 103                 PARA_NOTICE_LOG("wav header not found\n");
 104                 t->error = -E_NO_WAV_HEADER;
 105                 goto out;
 106         }
 107         cwt->channels = (unsigned) a[22];
 108         cwt->samplerate = a[24] + (a[25] << 8) + (a[26] << 16) + (a[27] << 24);
 109         *cwt->loaded -= WAV_HEADER_LEN;
 110         memmove(cwt->buf, cwt->buf + WAV_HEADER_LEN, *cwt->loaded);
 111         t->error = -E_WAV_HEADER_SUCCESS;
 112         PARA_INFO_LOG("channels: %d, sample rate: %d\n", cwt->channels, cwt->samplerate);
 113 out:
 114         wng->channels = &cwt->channels;
 115         wng->samplerate = &cwt->samplerate;
 116         ret = wng_open(wng);
 117         if (ret < 0)
 118                 t->error = ret;
 119         s->timeout.tv_sec = 0;
 120         s->timeout.tv_usec = 1;
 121 }
 122
 123 static void check_wav_pre_select_btr(__a_unused struct sched *s, struct task *t)
 124 {
 125         struct check_wav_task_btr *cwt = container_of(t, struct check_wav_task_btr, task);
 126
 127         if (btr_get_input_queue_size(cwt->btrn) < WAV_HEADER_LEN)
 128                 return;
 129         s->timeout.tv_sec = 0;
 130         s->timeout.tv_usec = 1;
 131 }
 132
 133 static int check_wav_exec(struct btr_node *btrn, const char *cmd, char **result)
 134 {
 135         struct check_wav_task_btr *cwt = btr_context(btrn);
 136
 137         if (!strcmp(cmd, "samplerate")) {
 138                 if (cwt->state != CWS_HAVE_HEADER)
 139                         return -ERRNO_TO_PARA_ERROR(ENAVAIL);
 140                 *result = make_message("%d", cwt->samplerate);
 141                 return 1;
 142         }
 143         if (!strcmp(cmd, "channels")) {
 144                 if (cwt->state != CWS_HAVE_HEADER)
 145                         return -ERRNO_TO_PARA_ERROR(ENAVAIL);
 146                 *result = make_message("%d", cwt->samplerate);
 147                 return 1;
 148         }
 149         return -ERRNO_TO_PARA_ERROR(ENOTSUP);
 150 }
 151
 152 static void check_wav_post_select_btr(__a_unused struct sched *s, struct task *t)
 153 {
 154         struct check_wav_task_btr *cwt = container_of(t, struct check_wav_task_btr, task);
 155         unsigned char *a;
 156         size_t sz = btr_get_input_queue_size(cwt->btrn);
 157
 158         t->error = 0;
 159         if (cwt->state != CWS_NEED_HEADER)
 160                 goto out;
 161         if (sz < WAV_HEADER_LEN) {
 162                 if (!btr_no_parent(cwt->btrn))
 163                         return;
 164                 if (sz != 0) {
 165                         cwt->state = CWS_NO_HEADER;
 166                         goto out;
 167                 }
 168                 t->error = -E_WRITE_EOF;
 169                 goto err;
 170         }
 171         cwt->channels = 2;
 172         cwt->samplerate = 44100;
 173         btr_next_buffer(cwt->btrn, (char **)&a);
 174         if (a[0] != 'R' || a[1] != 'I' || a[2] != 'F' || a[3] != 'F') {
 175                 PARA_NOTICE_LOG("wav header not found\n");
 176                 cwt->state = CWS_NO_HEADER;
 177                 sprintf(t->status, "check wav: no header");
 178                 goto consume;
 179         }
 180         PARA_INFO_LOG("found wav header\n");
 181         cwt->state = CWS_HAVE_HEADER;
 182         sprintf(t->status, "check wav: have header");
 183         cwt->channels = (unsigned) a[22];
 184         cwt->samplerate = a[24] + (a[25] << 8) + (a[26] << 16) + (a[27] << 24);
 185 consume:
 186         PARA_INFO_LOG("channels: %d, sample rate: %d\n", cwt->channels, cwt->samplerate);
 187         btr_consume(cwt->btrn, WAV_HEADER_LEN);
 188 out:
 189         if (sz) {
 190                 btr_pushdown(cwt->btrn);
 191                 s->timeout.tv_sec = 0;
 192                 s->timeout.tv_usec = 1;
 193         } else {
 194                 if (btr_no_parent(cwt->btrn))
 195                         t->error = -E_WRITE_EOF;
 196         }
 197 err:
 198         if (t->error < 0)
 199                 btr_del_node(cwt->btrn);
 200 }
 201
 202 static void initial_delay_pre_select(struct sched *s, struct task *t)
 203 {
 204         struct initial_delay_task *idt = container_of(t, struct initial_delay_task, task);
 205         struct timeval diff;
 206
 207         if (!idt->start_time.tv_sec && !idt->start_time.tv_usec) {
 208                 t->error = -E_NO_DELAY;
 209                 goto register_check_wav;
 210         }
 211         if (tv_diff(now, &idt->start_time, &diff) > 0) {
 212                 t->error = -E_DELAY_TIMEOUT;
 213                 goto register_check_wav;
 214         }
 215         if (tv_diff(&s->timeout , &diff, NULL) > 0)
 216                 s->timeout = diff;
 217         return;
 218 register_check_wav:
 219         register_task(&the_check_wav_task.task);
 220         s->timeout.tv_sec = 0;
 221         s->timeout.tv_usec = 1;
 222 }
 223
 224 static int loglevel;
 225 INIT_STDERR_LOGGING(loglevel)
 226
 227 static struct writer_node_group *check_args(void)
 228 {
 229         int i, ret = -E_WRITE_SYNTAX;
 230         struct writer_node_group *g = NULL;
 231         struct initial_delay_task *idt = &the_initial_delay_task;
 232
 233         loglevel = get_loglevel_by_name(conf.loglevel_arg);
 234         if (conf.start_time_given) {
 235                 long unsigned sec, usec;
 236                 if (sscanf(conf.start_time_arg, "%lu:%lu",
 237                                 &sec, &usec) != 2)
 238                         goto out;
 239                 idt->start_time.tv_sec = sec;
 240                 idt->start_time.tv_usec = usec;
 241         }
 242         if (!conf.writer_given) {
 243                 g = setup_default_wng();
 244                 ret = 1;
 245                 goto out;
 246         }
 247         g = wng_new(conf.writer_given);
 248         ret = -E_WRITE_SYNTAX;
 249         for (i = 0; i < conf.writer_given; i++) {
 250                 int writer_num;
 251                 g->writer_nodes[i].conf = check_writer_arg(
 252                         conf.writer_arg[i], &writer_num);
 253                 if (!g->writer_nodes[i].conf)
 254                         goto out;
 255                 g->writer_nodes[i].writer_num = writer_num;
 256         }
 257         ret = 1;
 258 out:
 259         if (ret > 0)
 260                 return g;
 261         free(g);
 262         return NULL;
 263 }
 264
 265 __noreturn static void print_help_and_die(void)
 266 {
 267         int d = conf.detailed_help_given;
 268         const char **p = d? write_args_info_detailed_help
 269                 : write_args_info_help;
 270
 271         printf_or_die("%s\n\n", WRITE_CMDLINE_PARSER_PACKAGE "-"
 272                 WRITE_CMDLINE_PARSER_VERSION);
 273         printf_or_die("%s\n\n", write_args_info_usage);
 274         for (; *p; p++)
 275                 printf_or_die("%s\n", *p);
 276         print_writer_helps(d);
 277         exit(0);
 278 }
 279
 280 /*
 281  TODO: check wav, initial delay, multiple writers, non-default writers
 282  */
 283 static int main_btr(struct sched *s)
 284 {
 285         int i, ret;
 286         struct check_wav_task_btr _cwt, *cwt = &_cwt;
 287         struct writer_node **wns;
 288
 289         sit.btrn = btr_new_node("stdin", NULL /* stdin has no parent */, NULL, NULL);
 290         stdin_set_defaults(&sit);
 291         register_task(&sit.task);
 292
 293         cwt->state = CWS_NEED_HEADER;
 294         cwt->btrn = btr_new_node("check wav", sit.btrn, check_wav_exec, cwt);
 295         sprintf(cwt->task.status, "check wav");
 296         cwt->task.pre_select = check_wav_pre_select_btr;
 297         cwt->task.post_select = check_wav_post_select_btr;
 298         cwt->task.error = 0;
 299         register_task(&cwt->task);
 300
 301         wns = para_malloc(conf.writer_given * sizeof(*wns));
 302
 303         for (i = 0; i < conf.writer_given; i++) {
 304                 struct writer_node *wn = para_calloc(sizeof(*wn));
 305                 struct writer *w;
 306                 const char *name;
 307
 308                 ret = -E_WRITE_SYNTAX;
 309                 wn->conf = check_writer_arg(conf.writer_arg[i],
 310                         &wn->writer_num);
 311                 if (!wn->conf)
 312                         goto out;
 313                 w = writers + wn->writer_num;
 314                 name = writer_names[wn->writer_num];
 315                 wn->btrn = btr_new_node(name, cwt->btrn, w->execute, wn);
 316                 sprintf(wn->task.status, "%s", name);
 317                 w->open(wn);
 318                 wn->task.post_select = w->post_select_btr;
 319                 wn->task.pre_select = w->pre_select_btr;
 320                 register_task(&wn->task);
 321                 wns[i] = wn;
 322         }
 323         i--;
 324
 325         s->default_timeout.tv_sec = 10;
 326         s->default_timeout.tv_usec = 50000;
 327         ret = schedule(s);
 328 out:
 329         for (; i >= 0; i--) {
 330                 struct writer_node *wn = wns[i];
 331                 free(wn->conf);
 332                 free(wn);
 333         }
 334         free(wns);
 335         return ret;
 336 }
 337
 338 /**
 339  * Para_write's main function.
 340  *
 341  * \param argc The usual argument counter.
 342  * \param argv The usual argument vector.
 343  *
 344  * It registers the stdin task, the check_wav_task, the task for initial delay
 345  * and all tasks for actually writing out the stream.
 346  *
 347  * \return \p EXIT_SUCCESS or EXIT_FAILURE
 348  */
 349 int main(int argc, char *argv[])
 350 {
 351         int ret = -E_WRITE_SYNTAX;
 352         static struct sched s;
 353         struct check_wav_task *cwt = &the_check_wav_task;
 354         struct initial_delay_task *idt = &the_initial_delay_task;
 355
 356         writer_init();
 357         write_cmdline_parser(argc, argv, &conf);
 358         HANDLE_VERSION_FLAG("write", conf);
 359         if (conf.help_given || conf.detailed_help_given)
 360                 print_help_and_die();
 361
 362         if (conf.buffer_tree_given) {
 363                 ret = main_btr(&s);
 364                 goto out;
 365         }
 366         wng = check_args();
 367         if (!wng)
 368                 goto out;
 369         stdin_set_defaults(&sit);
 370         ret = -ERRNO_TO_PARA_ERROR(EINVAL);
 371         if (conf.bufsize_arg < 0)
 372                 goto out;
 373         if (conf.bufsize_arg >= INT_MAX / 1024)
 374                 goto out;
 375         sit.bufsize = conf.bufsize_arg * 1024;
 376         sit.buf = para_malloc(sit.bufsize);
 377
 378         wng->bufp = &sit.buf;
 379         wng->loaded = &sit.loaded;
 380         wng->input_error = &sit.task.error;
 381
 382         register_task(&sit.task);
 383
 384         cwt->buf = sit.buf;
 385         cwt->loaded = &sit.loaded;
 386         cwt->input_error = &sit.task.error;
 387         sprintf(cwt->task.status, "check wav");
 388         cwt->task.pre_select = check_wav_pre_select;
 389
 390         idt->task.pre_select = initial_delay_pre_select;
 391         sprintf(idt->task.status, "initial_delay");
 392         register_task(&idt->task);
 393
 394         s.default_timeout.tv_sec = 10;
 395         s.default_timeout.tv_usec = 0;
 396         ret = schedule(&s);
 397         wng_close(wng);
 398 out:
 399         if (ret < 0) {
 400                 PARA_ERROR_LOG("%s\n", para_strerror(-ret));
 401                 exit(EXIT_FAILURE);
 402         }
 403         exit(EXIT_SUCCESS);
 404 }