check_wav.c

   1 /*
   2  * Copyright (C) 2005-2013 Andre Noll <maan@systemlinux.org>
   3  *
   4  * Licensed under the GPL v2. For licencing details see COPYING.
   5  */
   6
   7 /** \file check_wav.c Detect and delete a wav header. */
   8
   9 #include <regex.h>
  10
  11 #include "para.h"
  12 #include "string.h"
  13 #include "list.h"
  14 #include "sched.h"
  15 #include "buffer_tree.h"
  16 #include "error.h"
  17 #include "check_wav.h"
  18
  19 /** Length of a standard wav header. */
  20 #define WAV_HEADER_LEN 44
  21
  22 enum check_wav_state {
  23         CWS_NEED_HEADER,
  24         CWS_HAVE_HEADER,
  25         CWS_NO_HEADER,
  26 };
  27
  28 struct check_wav_context {
  29         enum check_wav_state state;
  30         struct btr_node *btrn;
  31         size_t min_iqs;
  32         /* Command line args. */
  33         struct wav_params params;
  34         /* Extracted from the wav header.*/
  35         unsigned channels;
  36         unsigned sample_format;
  37         unsigned sample_rate;
  38 };
  39
  40 void check_wav_pre_select(struct sched *s, struct check_wav_context *cwc)
  41 {
  42         int ret = btr_node_status(cwc->btrn, cwc->min_iqs, BTR_NT_INTERNAL);
  43         if (ret != 0)
  44                 sched_min_delay(s);
  45 }
  46
  47 static int check_wav_exec(struct btr_node *btrn, const char *cmd, char **result)
  48 {
  49         struct check_wav_context *cwc = btr_context(btrn);
  50         int val, header_val, given, arg;
  51
  52         header_val = cwc->channels;
  53         arg = cwc->params.channels_arg;
  54         given = cwc->params.channels_given;
  55         if (!strcmp(cmd, "channels"))
  56                 goto out;
  57
  58         header_val = cwc->sample_rate;
  59         arg = cwc->params.sample_rate_arg;
  60         given = cwc->params.sample_rate_given;
  61         if (!strcmp(cmd, "sample_rate"))
  62                 goto out;
  63
  64         header_val = cwc->sample_format;
  65         arg = cwc->params.sample_format_arg;
  66         given = cwc->params.sample_format_given;
  67         if (!strcmp(cmd, "sample_format"))
  68                 goto out;
  69
  70         return -ERRNO_TO_PARA_ERROR(ENOTSUP);
  71 out:
  72         if (given)
  73                 val = arg;
  74         else {
  75                 switch (cwc->state) {
  76                 case CWS_HAVE_HEADER:
  77                         val = header_val;
  78                         break;
  79                 case CWS_NO_HEADER:
  80                         /*
  81                          * No wav header available and no value specified at
  82                          * the command line. Maybe one of our parent nodes
  83                          * knows.
  84                          */
  85                         if (btr_exec_up(btr_parent(cwc->btrn), cmd, result) >= 0)
  86                                 return 1;
  87                         /* Use default value */
  88                         val = arg;
  89                         break;
  90                 default:
  91                         return -E_BTR_NAVAIL;
  92                 }
  93         }
  94         *result = make_message("%d", val);
  95         return 1;
  96 }
  97
  98 int check_wav_post_select(struct check_wav_context *cwc)
  99 {
 100         struct btr_node *btrn = cwc->btrn;
 101         unsigned char *a;
 102         size_t sz;
 103         int ret;
 104         uint16_t bps; /* bits per sample */
 105         const char *sample_formats[] = {SAMPLE_FORMATS};
 106
 107         if (!btrn)
 108                 return 0;
 109         ret = btr_node_status(btrn, cwc->min_iqs, BTR_NT_INTERNAL);
 110         if (ret <= 0)
 111                 goto out;
 112         if (cwc->state != CWS_NEED_HEADER)
 113                 goto pushdown;
 114         btr_merge(btrn, cwc->min_iqs);
 115         sz = btr_next_buffer(btrn, (char **)&a);
 116         if (sz < cwc->min_iqs) /* file size less than WAV_HEADER_SIZE */
 117                 goto pushdown;
 118         cwc->min_iqs = 0;
 119         /*
 120          * The default byte ordering assumed for WAVE data files is
 121          * little-endian. Files written using the big-endian byte ordering
 122          * scheme have the identifier RIFX instead of RIFF.
 123          */
 124         if (a[0] != 'R' || a[1] != 'I' || a[2] != 'F' ||
 125                         (a[3] != 'F' && a[3] != 'X')) {
 126                 PARA_NOTICE_LOG("wav header not found\n");
 127                 cwc->state = CWS_NO_HEADER;
 128                 goto out;
 129         }
 130         PARA_INFO_LOG("found wav header\n");
 131         cwc->state = CWS_HAVE_HEADER;
 132         /* Only set those values which have not already been set. */
 133         cwc->channels = (unsigned)a[22];
 134         cwc->sample_rate = a[24] + (a[25] << 8) + (a[26] << 16) + (a[27] << 24);
 135         bps = a[34] + ((unsigned)a[35] << 8);
 136         if (bps != 8 && bps != 16) {
 137                 PARA_WARNING_LOG("%u bps not supported, assuming 16\n",
 138                         bps);
 139                 bps = 16;
 140         }
 141         /*
 142          * 8-bit samples are stored as unsigned bytes, ranging from 0
 143          * to 255.  16-bit samples are stored as 2's-complement signed
 144          * integers, ranging from -32768 to 32767.
 145          */
 146         if (bps == 8)
 147                 cwc->sample_format = SF_U8;
 148         else
 149                 cwc->sample_format = (a[3] == 'F')?
 150                         SF_S16_LE : SF_S16_BE;
 151         PARA_NOTICE_LOG("%dHz, %s, %s\n", cwc->sample_rate,
 152                 cwc->channels == 1? "mono" : "stereo",
 153                 sample_formats[cwc->sample_format]);
 154         btr_consume(btrn, WAV_HEADER_LEN);
 155 pushdown:
 156         btr_pushdown(btrn);
 157 out:
 158         if (ret < 0)
 159                 btr_remove_node(&cwc->btrn);
 160         return ret;
 161 }
 162
 163 struct check_wav_context *check_wav_init(struct btr_node *parent,
 164                 struct btr_node *child, struct wav_params *params,
 165                 struct btr_node **cw_btrn)
 166 {
 167         struct check_wav_context *cwc = para_calloc(sizeof(*cwc));
 168
 169         cwc->state = CWS_NEED_HEADER;
 170         cwc->min_iqs = WAV_HEADER_LEN;
 171         cwc->params = *params;
 172         cwc->btrn = btr_new_node(&(struct btr_node_description)
 173                 EMBRACE(.name = "check_wav", .parent = parent, .child = child,
 174                 .handler = check_wav_exec, .context = cwc));
 175         if (cw_btrn)
 176                 *cw_btrn = cwc->btrn;
 177         return cwc;
 178 }
 179
 180 void check_wav_shutdown(struct check_wav_context *cwc)
 181 {
 182         free(cwc);
 183 }