Merge branch 't/bits_per_sample'
[paraslash.git] / write.c
1 /*
2 * Copyright (C) 2005-2010 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 enum check_wav_state {
30 CWS_NEED_HEADER,
31 CWS_HAVE_HEADER,
32 CWS_NO_HEADER,
33 };
34
35 /* Information extracted from the wav header. */
36 struct check_wav_task {
37 int state;
38 /** Number of channels. */
39 unsigned channels;
40 unsigned sample_rate;
41 unsigned sample_format;
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(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 static int main_btr(struct sched *s)
168 {
169 int i, ret;
170 struct check_wav_task _cwt, *cwt = &_cwt;
171 struct writer_node *wns;
172
173 loglevel = get_loglevel_by_name(conf.loglevel_arg);
174 sit.btrn = btr_new_node(&(struct btr_node_description)
175 EMBRACE(.name = "stdin"));
176 stdin_set_defaults(&sit);
177 register_task(&sit.task);
178
179 cwt->state = CWS_NEED_HEADER;
180 cwt->min_iqs = WAV_HEADER_LEN;
181 cwt->btrn = btr_new_node(&(struct btr_node_description)
182 EMBRACE(.name = "check_wav", .parent = sit.btrn,
183 .handler = check_wav_exec, .context = cwt));
184 sprintf(cwt->task.status, "check_wav");
185 cwt->task.pre_select = check_wav_pre_select;
186 cwt->task.post_select = check_wav_post_select;
187 cwt->task.error = 0;
188 register_task(&cwt->task);
189
190 ret = -E_WRITE_SYNTAX;
191 if (!conf.writer_given) {
192 i = 0;
193 wns = para_calloc(sizeof(*wns));
194 ret = setup_writer_node(NULL, cwt->btrn, wns);
195 if (ret < 0)
196 goto out;
197 i = 1;
198 } else {
199 wns = para_calloc(conf.writer_given * sizeof(*wns));
200 for (i = 0; i < conf.writer_given; i++) {
201 ret = setup_writer_node(conf.writer_arg[i],
202 cwt->btrn, wns + i);
203 if (ret < 0)
204 goto out;
205 }
206 }
207
208 s->default_timeout.tv_sec = 10;
209 s->default_timeout.tv_usec = 50000;
210 ret = schedule(s);
211 out:
212 for (i--; i >= 0; i--) {
213 struct writer_node *wn = wns + i;
214 struct writer *w = writers + wn->writer_num;
215
216 w->close(wn);
217 btr_free_node(wn->btrn);
218 free(wn->conf);
219 }
220 free(wns);
221 btr_free_node(cwt->btrn);
222 return ret;
223 }
224
225 /**
226 * Para_write's main function.
227 *
228 * \param argc The usual argument counter.
229 * \param argv The usual argument vector.
230 *
231 * It sets up and starts the tasks and the buffer tree nodes determined by
232 * command line options.
233 *
234 * \return \p EXIT_SUCCESS or EXIT_FAILURE
235 */
236 int main(int argc, char *argv[])
237 {
238 int ret = -E_WRITE_SYNTAX;
239 static struct sched s;
240
241 writer_init();
242 write_cmdline_parser(argc, argv, &conf);
243 HANDLE_VERSION_FLAG("write", conf);
244 if (conf.help_given || conf.detailed_help_given)
245 print_help_and_die();
246
247 ret = main_btr(&s);
248 if (ret < 0) {
249 PARA_ERROR_LOG("%s\n", para_strerror(-ret));
250 exit(EXIT_FAILURE);
251 }
252 exit(EXIT_SUCCESS);
253 }