NetBSD/usr.bin/audio/play/play.c

465 lines
11 KiB
C

/* $NetBSD: play.c,v 1.36 2002/02/10 13:15:08 mrg Exp $ */
/*
* Copyright (c) 1999 Matthew R. Green
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
* BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
* AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
* OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
* SUCH DAMAGE.
*/
#include <sys/param.h>
#include <sys/audioio.h>
#include <sys/ioctl.h>
#include <sys/mman.h>
#include <sys/stat.h>
#include <err.h>
#include <fcntl.h>
#include <signal.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <unistd.h>
#include <paths.h>
#include "libaudio.h"
int main(int, char *[]);
void usage(void);
void play(char *);
void play_fd(const char *, int);
ssize_t audioctl_write_fromhdr(void *, size_t, int, size_t *);
void cleanup(int) __attribute__((__noreturn__));
audio_info_t info;
int volume;
int balance;
int port;
int fflag;
int qflag;
int verbose;
int sample_rate;
int encoding;
char *encoding_str;
int precision;
int channels;
char const *play_errstring = NULL;
size_t bufsize;
int audiofd;
int exitstatus = EXIT_SUCCESS;
int
main(argc, argv)
int argc;
char *argv[];
{
size_t len;
int ch;
int iflag = 0;
const char *defdevice = _PATH_SOUND;
const char *device = NULL;
while ((ch = getopt(argc, argv, "b:C:c:d:e:fhip:P:qs:Vv:")) != -1) {
switch (ch) {
case 'b':
decode_int(optarg, &balance);
if (balance < 0 || balance > 64)
errx(1, "balance must be between 0 and 64");
break;
case 'c':
decode_int(optarg, &channels);
if (channels < 0)
errx(1, "channels must be positive");
break;
case 'C':
/* Ignore, compatibility */
break;
case 'd':
device = optarg;
break;
case 'e':
encoding_str = optarg;
break;
case 'f':
fflag = 1;
break;
case 'i':
iflag++;
break;
case 'q':
qflag++;
break;
case 'P':
decode_int(optarg, &precision);
if (precision != 4 && precision != 8 &&
precision != 16 && precision != 24 &&
precision != 32)
errx(1, "precision must be between 4, 8, 16, 24 or 32");
break;
case 'p':
len = strlen(optarg);
if (strncmp(optarg, "speaker", len) == 0)
port |= AUDIO_SPEAKER;
else if (strncmp(optarg, "headphone", len) == 0)
port |= AUDIO_HEADPHONE;
else if (strncmp(optarg, "line", len) == 0)
port |= AUDIO_LINE_OUT;
else
errx(1,
"port must be `speaker', `headphone', or `line'");
break;
case 's':
decode_int(optarg, &sample_rate);
if (sample_rate < 0 || sample_rate > 48000 * 2) /* XXX */
errx(1, "sample rate must be between 0 and 96000\n");
break;
case 'V':
verbose++;
break;
case 'v':
volume = atoi(optarg);
if (volume < 0 || volume > 255)
errx(1, "volume must be between 0 and 255\n");
break;
/* case 'h': */
default:
usage();
/* NOTREACHED */
}
}
argc -= optind;
argv += optind;
if (encoding_str) {
encoding = audio_enc_to_val(encoding_str);
if (encoding == -1)
errx(1, "unknown encoding, bailing...");
}
if (device == NULL && (device = getenv("AUDIODEVICE")) == NULL &&
(device = getenv("AUDIODEV")) == NULL) /* Sun compatibility */
device = defdevice;
audiofd = open(device, O_WRONLY);
if (audiofd < 0 && device == defdevice) {
device = _PATH_SOUND0;
audiofd = open(device, O_WRONLY);
}
if (audiofd < 0)
err(1, "failed to open %s", device);
if (ioctl(audiofd, AUDIO_GETINFO, &info) < 0)
err(1, "failed to get audio info");
bufsize = info.play.buffer_size;
if (bufsize < 32 * 1024)
bufsize = 32 * 1024;
signal(SIGINT, cleanup);
signal(SIGTERM, cleanup);
signal(SIGHUP, cleanup);
if (*argv)
do
play(*argv++);
while (*argv);
else
play_fd("standard input", STDIN_FILENO);
cleanup(0);
}
void
cleanup(signo)
int signo;
{
close(audiofd);
(void)ioctl(audiofd, AUDIO_FLUSH, NULL);
(void)ioctl(audiofd, AUDIO_SETINFO, &info);
exit(exitstatus);
}
void
play(file)
char *file;
{
struct stat sb;
void *addr, *oaddr;
off_t filesize;
size_t datasize = 0;
ssize_t hdrlen;
int fd;
if (file[0] == '-' && file[1] == 0) {
play_fd("standard input", STDIN_FILENO);
return;
}
fd = open(file, O_RDONLY);
if (fd < 0) {
if (!qflag)
warn("could not open %s", file);
exitstatus = EXIT_FAILURE;
return;
}
if (fstat(fd, &sb) < 0)
err(1, "could not fstat %s", file);
filesize = sb.st_size;
oaddr = addr = mmap(0, (size_t)filesize, PROT_READ,
MAP_SHARED, fd, 0);
/*
* if we failed to mmap the file, try to read it
* instead, so that filesystems, etc, that do not
* support mmap() work
*/
if (addr == MAP_FAILED) {
play_fd(file, fd);
close(fd);
return;
}
/*
* give the VM system a bit of a hint about the type
* of accesses we will make.
*/
if (madvise(addr, filesize, MADV_SEQUENTIAL) < 0 &&
!qflag)
warn("madvise failed, ignoring");
/*
* get the header length and set up the audio device
*/
if ((hdrlen = audioctl_write_fromhdr(addr,
(size_t)filesize, audiofd, &datasize)) < 0) {
if (play_errstring)
errx(1, "%s: %s", play_errstring, file);
else
errx(1, "unknown audio file: %s", file);
}
filesize -= hdrlen;
addr = (char *)addr + hdrlen;
if (filesize < datasize || datasize == 0) {
if (filesize < datasize)
warnx("bogus datasize: %ld", (u_long)datasize);
datasize = filesize;
}
while (datasize > bufsize) {
if (write(audiofd, addr, bufsize) != bufsize)
err(1, "write failed");
addr = (char *)addr + bufsize;
datasize -= bufsize;
}
if (write(audiofd, addr, (size_t)datasize) != (ssize_t)datasize)
err(1, "final write failed");
if (ioctl(audiofd, AUDIO_DRAIN) < 0 && !qflag)
warn("audio drain ioctl failed");
if (munmap(oaddr, (size_t)filesize) < 0)
err(1, "munmap failed");
close(fd);
}
/*
* play the file on on the file descriptor fd
*/
void
play_fd(file, fd)
const char *file;
int fd;
{
char *buffer = malloc(bufsize);
ssize_t hdrlen;
int nr, nw;
size_t datasize = 0;
size_t dataout = 0;
if (buffer == NULL)
err(1, "malloc of read buffer failed");
nr = read(fd, buffer, bufsize);
if (nr < 0)
goto read_error;
if (nr == 0) {
if (fflag)
return;
err(1, "unexpected EOF");
}
hdrlen = audioctl_write_fromhdr(buffer, nr, audiofd, &datasize);
if (hdrlen < 0) {
if (play_errstring)
errx(1, "%s: %s", play_errstring, file);
else
errx(1, "unknown audio file: %s", file);
}
if (hdrlen > 0) {
if (hdrlen >= nr) /* shouldn't happen */
errx(1, "header seems really large");
memmove(buffer, buffer + hdrlen, nr - hdrlen);
nr -= hdrlen;
}
while (datasize == 0 || dataout < datasize) {
if (datasize != 0 && dataout + nr > datasize)
nr = datasize - dataout;
nw = write(audiofd, buffer, nr);
if (nw != nr)
goto write_error;
dataout += nw;
nr = read(fd, buffer, bufsize);
if (nr == -1)
goto read_error;
if (nr == 0)
break;
}
/* something to think about: no message given for dataout < datasize */
if (ioctl(audiofd, AUDIO_DRAIN) < 0 && !qflag)
warn("audio drain ioctl failed");
return;
read_error:
err(1, "read of standard input failed");
write_error:
err(1, "audio device write failed");
}
/*
* only support sun and wav audio files so far ...
*
* XXX this should probably be mostly part of libaudio, but it
* uses the local "info" variable. blah... fix me!
*/
ssize_t
audioctl_write_fromhdr(hdr, fsz, fd, datasize)
void *hdr;
size_t fsz;
int fd;
size_t *datasize;
{
sun_audioheader *sunhdr;
ssize_t hdr_len;
AUDIO_INITINFO(&info);
sunhdr = hdr;
if (ntohl(sunhdr->magic) == AUDIO_FILE_MAGIC) {
if (audio_sun_to_encoding(ntohl(sunhdr->encoding),
&info.play.encoding, &info.play.precision)) {
if (!qflag)
warnx("unknown unsupported Sun audio encoding"
" format %d", ntohl(sunhdr->encoding));
if (fflag)
goto set_audio_mode;
return (-1);
}
info.play.sample_rate = ntohl(sunhdr->sample_rate);
info.play.channels = ntohl(sunhdr->channels);
hdr_len = ntohl(sunhdr->hdr_size);
*datasize = ntohl(sunhdr->data_size);
goto set_audio_mode;
}
hdr_len = audio_wav_parse_hdr(hdr, fsz, &info.play.encoding,
&info.play.precision, &info.play.sample_rate, &info.play.channels,
datasize);
switch (hdr_len) {
case AUDIO_ESHORTHDR:
case AUDIO_EWAVUNSUPP:
case AUDIO_EWAVBADPCM:
case AUDIO_EWAVNODATA:
play_errstring = audio_errstring(hdr_len);
/* FALL THROUGH */
case AUDIO_ENOENT:
break;
default:
if (hdr_len < 1)
break;
goto set_audio_mode;
}
/*
* if we don't know it, bail unless we are forcing.
*/
if (fflag == 0)
return (-1);
set_audio_mode:
if (port)
info.play.port = port;
if (volume)
info.play.gain = volume;
if (balance)
info.play.balance = balance;
if (fflag) {
if (sample_rate)
info.play.sample_rate = sample_rate;
if (channels)
info.play.channels = channels;
if (encoding)
info.play.encoding = encoding;
if (precision)
info.play.precision = precision;
hdr_len = 0;
}
info.mode = AUMODE_PLAY_ALL;
if (verbose)
printf("sample_rate=%d channels=%d precision=%d encoding=%s\n",
info.play.sample_rate, info.play.channels,
info.play.precision, audio_enc_from_val(info.play.encoding));
if (ioctl(fd, AUDIO_SETINFO, &info) < 0)
err(1, "failed to set audio info");
return (hdr_len);
}
void
usage()
{
fprintf(stderr, "Usage: %s [-hiqV] [options] files\n", getprogname());
fprintf(stderr, "Options:\n\t"
"-C audio control device\n\t"
"-b balance (0-63)\n\t"
"-d audio device\n\t"
"-f force settings\n\t"
"\t-c forced channels\n\t"
"\t-e forced encoding\n\t"
"\t-P forced precision\n\t"
"\t-s forced sample rate\n\t"
"-i header information\n\t"
"-m monitor volume\n\t"
"-p output port\n\t"
"-v volume\n");
exit(EXIT_FAILURE);
}