Merge branch 't/utf8'
[paraslash.git] / 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 }