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