play.c revision 1.34 1 1.34 jdolecek /* $NetBSD: play.c,v 1.34 2002/02/02 20:20:24 jdolecek Exp $ */
2 1.3 mrg
3 1.3 mrg /*
4 1.3 mrg * Copyright (c) 1999 Matthew R. Green
5 1.3 mrg * All rights reserved.
6 1.3 mrg *
7 1.3 mrg * Redistribution and use in source and binary forms, with or without
8 1.3 mrg * modification, are permitted provided that the following conditions
9 1.3 mrg * are met:
10 1.3 mrg * 1. Redistributions of source code must retain the above copyright
11 1.3 mrg * notice, this list of conditions and the following disclaimer.
12 1.3 mrg * 2. Redistributions in binary form must reproduce the above copyright
13 1.3 mrg * notice, this list of conditions and the following disclaimer in the
14 1.3 mrg * documentation and/or other materials provided with the distribution.
15 1.3 mrg * 3. The name of the author may not be used to endorse or promote products
16 1.3 mrg * derived from this software without specific prior written permission.
17 1.3 mrg *
18 1.3 mrg * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
19 1.3 mrg * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
20 1.3 mrg * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
21 1.3 mrg * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
22 1.3 mrg * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
23 1.3 mrg * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
24 1.3 mrg * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
25 1.3 mrg * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
26 1.3 mrg * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
27 1.3 mrg * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
28 1.3 mrg * SUCH DAMAGE.
29 1.3 mrg */
30 1.3 mrg
31 1.1 mrg #include <sys/param.h>
32 1.1 mrg #include <sys/audioio.h>
33 1.1 mrg #include <sys/ioctl.h>
34 1.1 mrg #include <sys/mman.h>
35 1.1 mrg #include <sys/stat.h>
36 1.1 mrg
37 1.1 mrg #include <err.h>
38 1.1 mrg #include <fcntl.h>
39 1.30 mrg #include <signal.h>
40 1.1 mrg #include <stdio.h>
41 1.1 mrg #include <stdlib.h>
42 1.1 mrg #include <string.h>
43 1.1 mrg #include <unistd.h>
44 1.1 mrg
45 1.1 mrg #include <paths.h>
46 1.1 mrg
47 1.1 mrg #include "libaudio.h"
48 1.1 mrg
49 1.33 augustss int main(int, char *[]);
50 1.33 augustss void usage(void);
51 1.33 augustss void play(char *);
52 1.33 augustss void play_fd(const char *, int);
53 1.33 augustss ssize_t audioctl_write_fromhdr(void *, size_t, int, size_t *);
54 1.33 augustss void cleanup(int) __attribute__((__noreturn__));
55 1.1 mrg
56 1.1 mrg audio_info_t info;
57 1.6 mrg int volume;
58 1.6 mrg int balance;
59 1.6 mrg int port;
60 1.6 mrg int fflag;
61 1.17 mrg int qflag;
62 1.33 augustss int verbose;
63 1.6 mrg int sample_rate;
64 1.6 mrg int encoding;
65 1.6 mrg char *encoding_str;
66 1.6 mrg int precision;
67 1.6 mrg int channels;
68 1.6 mrg
69 1.1 mrg char const *play_errstring = NULL;
70 1.9 mrg size_t bufsize;
71 1.34 jdolecek int audiofd;
72 1.20 mrg int exitstatus = EXIT_SUCCESS;
73 1.1 mrg
74 1.1 mrg int
75 1.1 mrg main(argc, argv)
76 1.1 mrg int argc;
77 1.1 mrg char *argv[];
78 1.1 mrg {
79 1.9 mrg size_t len;
80 1.9 mrg int ch;
81 1.1 mrg int iflag = 0;
82 1.32 augustss const char *device = NULL;
83 1.1 mrg
84 1.6 mrg while ((ch = getopt(argc, argv, "b:C:c:d:e:fhip:P:qs:Vv:")) != -1) {
85 1.1 mrg switch (ch) {
86 1.1 mrg case 'b':
87 1.1 mrg decode_int(optarg, &balance);
88 1.1 mrg if (balance < 0 || balance > 64)
89 1.6 mrg errx(1, "balance must be between 0 and 64");
90 1.1 mrg break;
91 1.6 mrg case 'c':
92 1.6 mrg decode_int(optarg, &channels);
93 1.6 mrg if (channels < 0)
94 1.6 mrg errx(1, "channels must be positive");
95 1.10 jtk break;
96 1.1 mrg case 'C':
97 1.34 jdolecek /* Ignore, compatibility */
98 1.1 mrg break;
99 1.1 mrg case 'd':
100 1.1 mrg device = optarg;
101 1.1 mrg break;
102 1.6 mrg case 'e':
103 1.6 mrg encoding_str = optarg;
104 1.6 mrg break;
105 1.6 mrg case 'f':
106 1.6 mrg fflag = 1;
107 1.6 mrg break;
108 1.1 mrg case 'i':
109 1.1 mrg iflag++;
110 1.1 mrg break;
111 1.1 mrg case 'q':
112 1.1 mrg qflag++;
113 1.1 mrg break;
114 1.6 mrg case 'P':
115 1.6 mrg decode_int(optarg, &precision);
116 1.26 minoura if (precision != 4 && precision != 8 &&
117 1.26 minoura precision != 16 && precision != 24 &&
118 1.26 minoura precision != 32)
119 1.26 minoura errx(1, "precision must be between 4, 8, 16, 24 or 32");
120 1.6 mrg break;
121 1.1 mrg case 'p':
122 1.1 mrg len = strlen(optarg);
123 1.1 mrg
124 1.1 mrg if (strncmp(optarg, "speaker", len) == 0)
125 1.1 mrg port |= AUDIO_SPEAKER;
126 1.1 mrg else if (strncmp(optarg, "headphone", len) == 0)
127 1.1 mrg port |= AUDIO_HEADPHONE;
128 1.1 mrg else if (strncmp(optarg, "line", len) == 0)
129 1.1 mrg port |= AUDIO_LINE_OUT;
130 1.1 mrg else
131 1.1 mrg errx(1,
132 1.1 mrg "port must be `speaker', `headphone', or `line'");
133 1.1 mrg break;
134 1.6 mrg case 's':
135 1.6 mrg decode_int(optarg, &sample_rate);
136 1.6 mrg if (sample_rate < 0 || sample_rate > 48000 * 2) /* XXX */
137 1.6 mrg errx(1, "sample rate must be between 0 and 96000\n");
138 1.6 mrg break;
139 1.1 mrg case 'V':
140 1.1 mrg verbose++;
141 1.1 mrg break;
142 1.1 mrg case 'v':
143 1.1 mrg volume = atoi(optarg);
144 1.1 mrg if (volume < 0 || volume > 255)
145 1.1 mrg errx(1, "volume must be between 0 and 255\n");
146 1.1 mrg break;
147 1.1 mrg /* case 'h': */
148 1.1 mrg default:
149 1.1 mrg usage();
150 1.1 mrg /* NOTREACHED */
151 1.1 mrg }
152 1.1 mrg }
153 1.1 mrg argc -= optind;
154 1.1 mrg argv += optind;
155 1.1 mrg
156 1.6 mrg if (encoding_str) {
157 1.6 mrg encoding = audio_enc_to_val(encoding_str);
158 1.6 mrg if (encoding == -1)
159 1.6 mrg errx(1, "unknown encoding, bailing...");
160 1.6 mrg }
161 1.6 mrg
162 1.11 kleink if (device == NULL && (device = getenv("AUDIODEVICE")) == NULL &&
163 1.11 kleink (device = getenv("AUDIODEV")) == NULL) /* Sun compatibility */
164 1.32 augustss device = _PATH_SOUND;
165 1.1 mrg
166 1.1 mrg audiofd = open(device, O_WRONLY);
167 1.32 augustss if (audiofd < 0 && device == _PATH_SOUND) {
168 1.32 augustss device = _PATH_SOUND0;
169 1.9 mrg audiofd = open(device, O_WRONLY);
170 1.1 mrg }
171 1.32 augustss
172 1.1 mrg if (audiofd < 0)
173 1.1 mrg err(1, "failed to open %s", device);
174 1.1 mrg
175 1.34 jdolecek if (ioctl(audiofd, AUDIO_GETINFO, &info) < 0)
176 1.1 mrg err(1, "failed to get audio info");
177 1.1 mrg bufsize = info.play.buffer_size;
178 1.1 mrg if (bufsize < 32 * 1024)
179 1.1 mrg bufsize = 32 * 1024;
180 1.1 mrg
181 1.30 mrg signal(SIGINT, cleanup);
182 1.30 mrg signal(SIGTERM, cleanup);
183 1.30 mrg signal(SIGHUP, cleanup);
184 1.30 mrg
185 1.20 mrg if (*argv)
186 1.20 mrg do
187 1.20 mrg play(*argv++);
188 1.20 mrg while (*argv);
189 1.20 mrg else
190 1.20 mrg play_fd("standard input", STDIN_FILENO);
191 1.4 mrg
192 1.30 mrg cleanup(0);
193 1.30 mrg }
194 1.30 mrg
195 1.30 mrg void
196 1.30 mrg cleanup(signo)
197 1.30 mrg int signo;
198 1.30 mrg {
199 1.30 mrg
200 1.30 mrg close(audiofd);
201 1.30 mrg (void)ioctl(audiofd, AUDIO_FLUSH, NULL);
202 1.34 jdolecek (void)ioctl(audiofd, AUDIO_SETINFO, &info);
203 1.15 kleink exit(exitstatus);
204 1.9 mrg }
205 1.4 mrg
206 1.20 mrg void
207 1.20 mrg play(file)
208 1.20 mrg char *file;
209 1.20 mrg {
210 1.20 mrg struct stat sb;
211 1.20 mrg void *addr, *oaddr;
212 1.20 mrg off_t filesize;
213 1.23 hubertf size_t datasize;
214 1.20 mrg ssize_t hdrlen;
215 1.20 mrg int fd;
216 1.20 mrg
217 1.29 mrg if (file[0] == '-' && file[1] == 0) {
218 1.29 mrg play_fd("standard input", STDIN_FILENO);
219 1.29 mrg return;
220 1.29 mrg }
221 1.29 mrg
222 1.20 mrg fd = open(file, O_RDONLY);
223 1.20 mrg if (fd < 0) {
224 1.20 mrg if (!qflag)
225 1.20 mrg warn("could not open %s", file);
226 1.20 mrg exitstatus = EXIT_FAILURE;
227 1.20 mrg return;
228 1.20 mrg }
229 1.20 mrg
230 1.20 mrg if (fstat(fd, &sb) < 0)
231 1.20 mrg err(1, "could not fstat %s", file);
232 1.20 mrg filesize = sb.st_size;
233 1.20 mrg
234 1.20 mrg oaddr = addr = mmap(0, (size_t)filesize, PROT_READ,
235 1.20 mrg MAP_SHARED, fd, 0);
236 1.20 mrg
237 1.20 mrg /*
238 1.20 mrg * if we failed to mmap the file, try to read it
239 1.20 mrg * instead, so that filesystems, etc, that do not
240 1.20 mrg * support mmap() work
241 1.20 mrg */
242 1.20 mrg if (addr == MAP_FAILED) {
243 1.20 mrg play_fd(file, fd);
244 1.20 mrg close(fd);
245 1.20 mrg return;
246 1.20 mrg }
247 1.20 mrg
248 1.20 mrg /*
249 1.20 mrg * give the VM system a bit of a hint about the type
250 1.20 mrg * of accesses we will make.
251 1.20 mrg */
252 1.20 mrg if (madvise(addr, filesize, MADV_SEQUENTIAL) < 0 &&
253 1.20 mrg !qflag)
254 1.20 mrg warn("madvise failed, ignoring");
255 1.20 mrg
256 1.20 mrg /*
257 1.20 mrg * get the header length and set up the audio device
258 1.20 mrg */
259 1.20 mrg if ((hdrlen = audioctl_write_fromhdr(addr,
260 1.34 jdolecek (size_t)filesize, audiofd, &datasize)) < 0) {
261 1.20 mrg if (play_errstring)
262 1.20 mrg errx(1, "%s: %s", play_errstring, file);
263 1.20 mrg else
264 1.20 mrg errx(1, "unknown audio file: %s", file);
265 1.20 mrg }
266 1.20 mrg
267 1.20 mrg filesize -= hdrlen;
268 1.20 mrg addr = (char *)addr + hdrlen;
269 1.23 hubertf if (filesize < datasize || datasize == 0) {
270 1.31 mrg warnx("bogus datasize: %lu", (long)datasize);
271 1.23 hubertf datasize = filesize;
272 1.23 hubertf }
273 1.20 mrg
274 1.23 hubertf while (datasize > bufsize) {
275 1.20 mrg if (write(audiofd, addr, bufsize) != bufsize)
276 1.20 mrg err(1, "write failed");
277 1.20 mrg addr = (char *)addr + bufsize;
278 1.23 hubertf datasize -= bufsize;
279 1.20 mrg }
280 1.23 hubertf if (write(audiofd, addr, (size_t)datasize) != (ssize_t)datasize)
281 1.20 mrg err(1, "final write failed");
282 1.20 mrg
283 1.20 mrg if (ioctl(audiofd, AUDIO_DRAIN) < 0 && !qflag)
284 1.20 mrg warn("audio drain ioctl failed");
285 1.20 mrg if (munmap(oaddr, (size_t)filesize) < 0)
286 1.20 mrg err(1, "munmap failed");
287 1.20 mrg
288 1.20 mrg close(fd);
289 1.20 mrg }
290 1.25 simonb
291 1.9 mrg /*
292 1.9 mrg * play the file on on the file descriptor fd
293 1.9 mrg */
294 1.9 mrg void
295 1.20 mrg play_fd(file, fd)
296 1.27 ross const char *file;
297 1.9 mrg int fd;
298 1.9 mrg {
299 1.9 mrg char *buffer = malloc(bufsize);
300 1.9 mrg ssize_t hdrlen;
301 1.27 ross int nr, nw;
302 1.27 ross size_t datasize = 0;
303 1.27 ross size_t dataout = 0;
304 1.9 mrg
305 1.9 mrg if (buffer == NULL)
306 1.9 mrg err(1, "malloc of read buffer failed");
307 1.29 mrg
308 1.27 ross nr = read(fd, buffer, bufsize);
309 1.27 ross if (nr < 0)
310 1.27 ross goto read_error;
311 1.27 ross if (nr == 0) {
312 1.27 ross if (fflag)
313 1.27 ross return;
314 1.31 mrg err(1, "unexpected EOF");
315 1.27 ross }
316 1.34 jdolecek hdrlen = audioctl_write_fromhdr(buffer, nr, audiofd, &datasize);
317 1.9 mrg if (hdrlen < 0) {
318 1.9 mrg if (play_errstring)
319 1.9 mrg errx(1, "%s: %s", play_errstring, file);
320 1.9 mrg else
321 1.9 mrg errx(1, "unknown audio file: %s", file);
322 1.9 mrg }
323 1.9 mrg if (hdrlen > 0) {
324 1.27 ross if (hdrlen >= nr) /* shouldn't happen */
325 1.27 ross errx(1, "header seems really large");
326 1.27 ross memmove(buffer, buffer + hdrlen, nr - hdrlen);
327 1.27 ross nr -= hdrlen;
328 1.27 ross }
329 1.29 mrg while (datasize == 0 || dataout < datasize) {
330 1.27 ross if (datasize != 0 && dataout + nr > datasize)
331 1.27 ross nr = datasize - dataout;
332 1.27 ross nw = write(audiofd, buffer, nr);
333 1.27 ross if (nw != nr)
334 1.27 ross goto write_error;
335 1.27 ross dataout += nw;
336 1.27 ross nr = read(fd, buffer, bufsize);
337 1.27 ross if (nr == -1)
338 1.27 ross goto read_error;
339 1.27 ross if (nr == 0)
340 1.27 ross break;
341 1.23 hubertf }
342 1.27 ross /* something to think about: no message given for dataout < datasize */
343 1.17 mrg if (ioctl(audiofd, AUDIO_DRAIN) < 0 && !qflag)
344 1.9 mrg warn("audio drain ioctl failed");
345 1.27 ross return;
346 1.27 ross read_error:
347 1.27 ross err(1, "read of standard input failed");
348 1.27 ross write_error:
349 1.27 ross err(1, "audio device write failed");
350 1.1 mrg }
351 1.1 mrg
352 1.1 mrg /*
353 1.1 mrg * only support sun and wav audio files so far ...
354 1.1 mrg *
355 1.1 mrg * XXX this should probably be mostly part of libaudio, but it
356 1.1 mrg * uses the local "info" variable. blah... fix me!
357 1.1 mrg */
358 1.1 mrg ssize_t
359 1.23 hubertf audioctl_write_fromhdr(hdr, fsz, fd, datasize)
360 1.1 mrg void *hdr;
361 1.1 mrg size_t fsz;
362 1.1 mrg int fd;
363 1.23 hubertf size_t *datasize;
364 1.1 mrg {
365 1.1 mrg sun_audioheader *sunhdr;
366 1.1 mrg ssize_t hdr_len;
367 1.1 mrg
368 1.1 mrg AUDIO_INITINFO(&info);
369 1.1 mrg sunhdr = hdr;
370 1.1 mrg if (ntohl(sunhdr->magic) == AUDIO_FILE_MAGIC) {
371 1.25 simonb if (audio_sun_to_encoding(ntohl(sunhdr->encoding),
372 1.1 mrg &info.play.encoding, &info.play.precision)) {
373 1.20 mrg if (!qflag)
374 1.20 mrg warnx("unknown unsupported Sun audio encoding"
375 1.20 mrg " format %d", ntohl(sunhdr->encoding));
376 1.13 mrg if (fflag)
377 1.13 mrg goto set_audio_mode;
378 1.1 mrg return (-1);
379 1.1 mrg }
380 1.1 mrg
381 1.8 augustss info.play.sample_rate = ntohl(sunhdr->sample_rate);
382 1.8 augustss info.play.channels = ntohl(sunhdr->channels);
383 1.25 simonb hdr_len = ntohl(sunhdr->hdr_size);
384 1.1 mrg
385 1.25 simonb *datasize = ntohl(sunhdr->data_size);
386 1.6 mrg goto set_audio_mode;
387 1.1 mrg }
388 1.1 mrg
389 1.29 mrg hdr_len = audio_wav_parse_hdr(hdr, fsz, &info.play.encoding,
390 1.29 mrg &info.play.precision, &info.play.sample_rate, &info.play.channels,
391 1.29 mrg datasize);
392 1.1 mrg
393 1.1 mrg switch (hdr_len) {
394 1.1 mrg case AUDIO_ESHORTHDR:
395 1.1 mrg case AUDIO_EWAVUNSUPP:
396 1.1 mrg case AUDIO_EWAVBADPCM:
397 1.1 mrg case AUDIO_EWAVNODATA:
398 1.6 mrg play_errstring = audio_errstring(hdr_len);
399 1.1 mrg /* FALL THROUGH */
400 1.1 mrg case AUDIO_ENOENT:
401 1.1 mrg break;
402 1.1 mrg default:
403 1.1 mrg if (hdr_len < 1)
404 1.1 mrg break;
405 1.6 mrg goto set_audio_mode;
406 1.6 mrg }
407 1.6 mrg /*
408 1.6 mrg * if we don't know it, bail unless we are forcing.
409 1.6 mrg */
410 1.6 mrg if (fflag == 0)
411 1.6 mrg return (-1);
412 1.6 mrg set_audio_mode:
413 1.6 mrg if (port)
414 1.6 mrg info.play.port = port;
415 1.6 mrg if (volume)
416 1.6 mrg info.play.gain = volume;
417 1.6 mrg if (balance)
418 1.6 mrg info.play.balance = balance;
419 1.6 mrg if (fflag) {
420 1.6 mrg if (sample_rate)
421 1.8 augustss info.play.sample_rate = sample_rate;
422 1.6 mrg if (channels)
423 1.8 augustss info.play.channels = channels;
424 1.6 mrg if (encoding)
425 1.6 mrg info.play.encoding = encoding;
426 1.6 mrg if (precision)
427 1.12 tron info.play.precision = precision;
428 1.14 mrg hdr_len = 0;
429 1.6 mrg }
430 1.6 mrg info.mode = AUMODE_PLAY_ALL;
431 1.33 augustss
432 1.33 augustss if (verbose)
433 1.33 augustss printf("sample_rate=%d channels=%d precision=%d encoding=%s\n",
434 1.33 augustss info.play.sample_rate, info.play.channels,
435 1.33 augustss info.play.precision, audio_enc_from_val(info.play.encoding));
436 1.1 mrg
437 1.6 mrg if (ioctl(fd, AUDIO_SETINFO, &info) < 0)
438 1.6 mrg err(1, "failed to set audio info");
439 1.25 simonb
440 1.14 mrg return (hdr_len);
441 1.1 mrg }
442 1.1 mrg
443 1.1 mrg void
444 1.1 mrg usage()
445 1.1 mrg {
446 1.22 cgd
447 1.22 cgd fprintf(stderr, "Usage: %s [-hiqV] [options] files\n", getprogname());
448 1.5 mrg fprintf(stderr, "Options:\n\t"
449 1.5 mrg "-C audio control device\n\t"
450 1.5 mrg "-b balance (0-63)\n\t"
451 1.5 mrg "-d audio device\n\t"
452 1.6 mrg "-f force settings\n\t"
453 1.6 mrg "\t-c forced channels\n\t"
454 1.6 mrg "\t-e forced encoding\n\t"
455 1.6 mrg "\t-P forced precision\n\t"
456 1.6 mrg "\t-s forced sample rate\n\t"
457 1.5 mrg "-i header information\n\t"
458 1.5 mrg "-m monitor volume\n\t"
459 1.5 mrg "-p output port\n\t"
460 1.5 mrg "-v volume\n");
461 1.16 kleink exit(EXIT_FAILURE);
462 1.1 mrg }
463