write.c

   1 /*
   2  * Copyright (C) 2005-2012 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
  12 #include "para.h"
  13 #include "string.h"
  14 #include "write.cmdline.h"
  15 #include "list.h"
  16 #include "sched.h"
  17 #include "ggo.h"
  18 #include "stdin.h"
  19 #include "buffer_tree.h"
  20 #include "write.h"
  21 #include "write_common.h"
  22 #include "fd.h"
  23 #include "error.h"
  24 #include "version.h"
  25
  26 INIT_WRITE_ERRLISTS;
  27
  28 enum check_wav_state {
  29         CWS_NEED_HEADER,
  30         CWS_HAVE_HEADER,
  31         CWS_NO_HEADER,
  32 };
  33
  34 /* Information extracted from the wav header. */
  35 struct check_wav_task {
  36         int state;
  37         /** Number of channels. */
  38         unsigned channels;
  39         unsigned sample_format;
  40         /** Sample rate specified in wav header given by \a buf. */
  41         unsigned sample_rate;
  42         /** The task structure used by the scheduler. */
  43         struct task task;
  44         struct btr_node *btrn;
  45         size_t min_iqs;
  46 };
  47
  48 static struct write_args_info conf;
  49
  50 static struct stdin_task sit;
  51
  52 /** Length of a standard wav header. */
  53 #define WAV_HEADER_LEN 44
  54
  55 static void check_wav_pre_select(struct sched *s, struct task *t)
  56 {
  57         struct check_wav_task *cwt = container_of(t, struct check_wav_task, task);
  58         int ret;
  59
  60         ret = btr_node_status(cwt->btrn, cwt->min_iqs, BTR_NT_INTERNAL);
  61         if (ret != 0)
  62                 sched_min_delay(s);
  63 }
  64
  65 #define HANDLE_EXEC(_cmd) \
  66         if (!strcmp(cmd, #_cmd)) { \
  67                 if (!conf._cmd ## _given && cwt->state == CWS_NEED_HEADER) \
  68                         return -E_BTR_NAVAIL; \
  69                 *result = make_message("%d", cwt->state == CWS_NO_HEADER || conf._cmd ## _given? \
  70                         conf._cmd ## _arg : cwt->_cmd); \
  71                 return 1; \
  72         } \
  73
  74
  75 static int check_wav_exec(struct btr_node *btrn, const char *cmd, char **result)
  76 {
  77         struct check_wav_task *cwt = btr_context(btrn);
  78
  79         HANDLE_EXEC(sample_rate);
  80         HANDLE_EXEC(channels);
  81         HANDLE_EXEC(sample_format);
  82         return -ERRNO_TO_PARA_ERROR(ENOTSUP);
  83 }
  84
  85 static void check_wav_post_select(__a_unused struct sched *s, struct task *t)
  86 {
  87         struct check_wav_task *cwt = container_of(t, struct check_wav_task, task);
  88         struct btr_node *btrn = cwt->btrn;
  89         unsigned char *a;
  90         size_t sz;
  91         int ret;
  92         uint16_t bps; /* bits per sample */
  93         const char *sample_formats[] = {SAMPLE_FORMATS};
  94
  95         t->error = 0;
  96         ret = btr_node_status(btrn, cwt->min_iqs, BTR_NT_INTERNAL);
  97         if (ret <= 0)
  98                 goto out;
  99         if (cwt->state != CWS_NEED_HEADER)
 100                 goto pushdown;
 101         btr_merge(btrn, cwt->min_iqs);
 102         sz = btr_next_buffer(btrn, (char **)&a);
 103         if (sz < cwt->min_iqs) /* file size less than WAV_HEADER_SIZE */
 104                 goto pushdown;
 105         cwt->min_iqs = 0;
 106         /*
 107          * The default byte ordering assumed for WAVE data files is
 108          * little-endian. Files written using the big-endian byte ordering
 109          * scheme have the identifier RIFX instead of RIFF.
 110          */
 111         if (a[0] != 'R' || a[1] != 'I' || a[2] != 'F' ||
 112                         (a[3] != 'F' && a[3] != 'X')) {
 113                 PARA_NOTICE_LOG("wav header not found\n");
 114                 cwt->state = CWS_NO_HEADER;
 115                 sprintf(t->status, "check wav: no header");
 116                 goto out;
 117         }
 118         PARA_INFO_LOG("found wav header\n");
 119         cwt->state = CWS_HAVE_HEADER;
 120         sprintf(t->status, "check wav: have header");
 121         cwt->channels = (unsigned) a[22];
 122         cwt->sample_rate = a[24] + (a[25] << 8) + (a[26] << 16) + (a[27] << 24);
 123         bps = a[34] + ((unsigned)a[35] << 8);
 124         if (bps != 8 && bps != 16) {
 125                 PARA_WARNING_LOG("%u bps not supported, assuming 16\n", bps);
 126                 bps = 16;
 127         }
 128         /*
 129          * 8-bit samples are stored as unsigned bytes, ranging from 0 to 255.
 130          * 16-bit samples are stored as 2's-complement signed integers, ranging
 131          * from -32768 to 32767.
 132          */
 133         if (bps == 8)
 134                 cwt->sample_format = SF_U8;
 135         else
 136                 cwt->sample_format = (a[3] == 'F')? SF_S16_LE : SF_S16_BE;
 137         PARA_NOTICE_LOG("%dHz, %s, %s\n", cwt->sample_rate,
 138                 cwt->channels == 1? "mono" : "stereo",
 139                 sample_formats[cwt->sample_format]);
 140         btr_consume(btrn, WAV_HEADER_LEN);
 141 pushdown:
 142         btr_pushdown(btrn);
 143 out:
 144         t->error = ret;
 145         if (ret < 0)
 146                 btr_remove_node(&cwt->btrn);
 147 }
 148
 149 static int loglevel;
 150 INIT_STDERR_LOGGING(loglevel)
 151
 152 __noreturn static void print_help_and_die(void)
 153 {
 154         int d = conf.detailed_help_given;
 155         const char **p = d? write_args_info_detailed_help
 156                 : write_args_info_help;
 157
 158         printf_or_die("%s\n\n", WRITE_CMDLINE_PARSER_PACKAGE "-"
 159                 WRITE_CMDLINE_PARSER_VERSION);
 160         printf_or_die("%s\n\n", write_args_info_usage);
 161         for (; *p; p++)
 162                 printf_or_die("%s\n", *p);
 163         print_writer_helps(d);
 164         exit(0);
 165 }
 166
 167 /*
 168  * Parse config and register a task for a writer node.
 169  *
 170  * \param arg Command line arguments.
 171  * \param parent The new node will be a child of \a parent.
 172  * \param wn The writer node.
 173  *
 174  * If arg is \p NULL, the OS-dependent default writer is used with no
 175  * arguments.  The default writers are alsa for Linux, osx for OS X, oss for
 176  * *BSD, and the file writer if the default writer is not supported.
 177  *
 178  * Once the writer configuration has been retrieved from the ->parse_config
 179  * callback a writer node is created, its buffer tree node is added to the
 180  * buffer tree as a child of the given parent.
 181  *
 182  * Finally, the new writer node's task structure is initialized and registered
 183  * to the paraslash scheduler.
 184  *
 185  * \return Standard.
 186  */
 187 static void setup_writer_node(const char *arg, struct btr_node *parent,
 188                 struct writer_node *wn, struct sched *s)
 189 {
 190         wn->conf = check_writer_arg_or_die(arg, &wn->writer_num);
 191         register_writer_node(wn, parent, s);
 192 }
 193
 194 static int setup_and_schedule(void)
 195 {
 196         int i, ret;
 197         struct check_wav_task _cwt, *cwt = &_cwt;
 198         struct writer_node *wns;
 199         static struct sched s;
 200
 201         loglevel = get_loglevel_by_name(conf.loglevel_arg);
 202         sit.btrn = btr_new_node(&(struct btr_node_description)
 203                 EMBRACE(.name = "stdin"));
 204         stdin_set_defaults(&sit);
 205         register_task(&s, &sit.task);
 206
 207         cwt->state = CWS_NEED_HEADER;
 208         cwt->min_iqs = WAV_HEADER_LEN;
 209         cwt->btrn = btr_new_node(&(struct btr_node_description)
 210                 EMBRACE(.name = "check_wav", .parent = sit.btrn,
 211                 .handler = check_wav_exec, .context = cwt));
 212         sprintf(cwt->task.status, "check_wav");
 213         cwt->task.pre_select = check_wav_pre_select;
 214         cwt->task.post_select = check_wav_post_select;
 215         cwt->task.error = 0;
 216         register_task(&s, &cwt->task);
 217
 218         if (!conf.writer_given) {
 219                 wns = para_calloc(sizeof(*wns));
 220                 setup_writer_node(NULL, cwt->btrn, wns, &s);
 221                 i = 1;
 222         } else {
 223                 wns = para_calloc(conf.writer_given * sizeof(*wns));
 224                 for (i = 0; i < conf.writer_given; i++)
 225                         setup_writer_node(conf.writer_arg[i], cwt->btrn,
 226                                 wns + i, &s);
 227         }
 228
 229         s.default_timeout.tv_sec = 10;
 230         s.default_timeout.tv_usec = 50000;
 231         ret = schedule(&s);
 232         if (ret >= 0) {
 233                 int j;
 234                 for (j = 0; j < i; j++) {
 235                         struct task *t = &wns[j].task;
 236                         assert(t->error < 0);
 237                         if (t->error != -E_WRITE_COMMON_EOF
 238                                         && t->error != -E_BTR_EOF) {
 239                                 PARA_ERROR_LOG("%s: %s\n", t->status,
 240                                         para_strerror(-t->error));
 241                                 if (ret >= 0)
 242                                         ret = t->error;
 243                         }
 244                 }
 245         }
 246         for (i--; i >= 0; i--) {
 247                 struct writer_node *wn = wns + i;
 248                 struct writer *w = writers + wn->writer_num;
 249
 250                 w->close(wn);
 251                 btr_remove_node(&wn->btrn);
 252                 w->free_config(wn->conf);
 253                 free(wn->conf);
 254         }
 255         free(wns);
 256         btr_remove_node(&cwt->btrn);
 257         return ret;
 258 }
 259
 260 /**
 261  * Para_write's main function.
 262  *
 263  * \param argc The usual argument counter.
 264  * \param argv The usual argument vector.
 265  *
 266  * It sets up and starts the tasks and the buffer tree nodes determined by
 267  * command line options.
 268  *
 269  * \return \p EXIT_SUCCESS or EXIT_FAILURE
 270  */
 271 int main(int argc, char *argv[])
 272 {
 273         int ret;
 274
 275         writer_init();
 276         write_cmdline_parser(argc, argv, &conf);
 277         HANDLE_VERSION_FLAG("write", conf);
 278         if (conf.help_given || conf.detailed_help_given)
 279                 print_help_and_die();
 280
 281         ret = setup_and_schedule();
 282         if (ret < 0) {
 283                 PARA_ERROR_LOG("%s\n", para_strerror(-ret));
 284                 exit(EXIT_FAILURE);
 285         }
 286         exit(EXIT_SUCCESS);
 287 }