root/sys/compat/ossaudio/ossaudio.c 
/*      $NetBSD: ossaudio.c,v 1.85 2023/06/20 15:22:04 riastradh Exp $  */

/*-
 * Copyright (c) 1997, 2008 The NetBSD Foundation, Inc.
 * 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.
 *
 * THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
 * ``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 FOUNDATION OR CONTRIBUTORS
 * 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/cdefs.h>
__KERNEL_RCSID(0, "$NetBSD: ossaudio.c,v 1.85 2023/06/20 15:22:04 riastradh Exp $");

#include <sys/param.h>
#include <sys/proc.h>
#include <sys/systm.h>
#include <sys/file.h>
#include <sys/vnode.h>
#include <sys/filedesc.h>
#include <sys/ioctl.h>
#include <sys/mount.h>
#include <sys/kernel.h>
#include <sys/audioio.h>
#include <sys/midiio.h>
#include <sys/kauth.h>
#include <sys/syscallargs.h>
#include <sys/module.h>

#include <compat/ossaudio/ossaudio.h>
#include <compat/ossaudio/ossaudiovar.h>

MODULE(MODULE_CLASS_EXEC, compat_ossaudio, NULL);

#ifdef AUDIO_DEBUG
#define DPRINTF(x) if (ossdebug) printf x
int ossdebug = 0;
#else
#define DPRINTF(x)
#endif

#define TO_OSSVOL(x)    (((x) * 100 + 127) / 255)
#define FROM_OSSVOL(x)  ((((x) > 100 ? 100 : (x)) * 255 + 50) / 100)

#define GETPRINFO(info, name)   \
        (((info)->mode == AUMODE_RECORD) \
            ? (info)->record.name : (info)->play.name)

static struct audiodevinfo *getdevinfo(file_t *);
static int opaque_to_enum(struct audiodevinfo *di, audio_mixer_name_t *label, int opq);
static int enum_to_ord(struct audiodevinfo *di, int enm);
static int enum_to_mask(struct audiodevinfo *di, int enm);

static void setchannels(file_t *, int, int);
static void setblocksize(file_t *, struct audio_info *);

#ifdef AUDIO_DEBUG
static const char *
compat_ossaudio_getcmd(u_long cmd)
{
        static char buf[64];
        switch (cmd) {
#define _DO(_a) \
        case _a: \
                return # _a;
_DO(OSS_SNDCTL_DSP_RESET)
_DO(OSS_SNDCTL_DSP_SYNC)
_DO(OSS_SNDCTL_DSP_SPEED)
_DO(OSS_SOUND_PCM_READ_RATE)
_DO(OSS_SNDCTL_DSP_STEREO)
_DO(OSS_SNDCTL_DSP_GETBLKSIZE)
_DO(OSS_SNDCTL_DSP_SETFMT)
_DO(OSS_SOUND_PCM_READ_BITS)
_DO(OSS_SNDCTL_DSP_CHANNELS)
_DO(OSS_SOUND_PCM_READ_CHANNELS)
_DO(OSS_SOUND_PCM_WRITE_FILTER)
_DO(OSS_SOUND_PCM_READ_FILTER)
_DO(OSS_SNDCTL_DSP_POST)
_DO(OSS_SNDCTL_DSP_SUBDIVIDE)
_DO(OSS_SNDCTL_DSP_SETFRAGMENT)
_DO(OSS_SNDCTL_DSP_GETFMTS)
_DO(OSS_SNDCTL_DSP_GETOSPACE)
_DO(OSS_SNDCTL_DSP_GETISPACE)
_DO(OSS_SNDCTL_DSP_NONBLOCK)
_DO(OSS_SNDCTL_DSP_GETCAPS)
_DO(OSS_SNDCTL_DSP_GETTRIGGER)
_DO(OSS_SNDCTL_DSP_SETTRIGGER)
_DO(OSS_SNDCTL_DSP_GETIPTR)
_DO(OSS_SNDCTL_DSP_GETOPTR)
_DO(OSS_SNDCTL_DSP_MAPINBUF)
_DO(OSS_SNDCTL_DSP_MAPOUTBUF)
_DO(OSS_SNDCTL_DSP_SETSYNCRO)
_DO(OSS_SNDCTL_DSP_SETDUPLEX)
_DO(OSS_SNDCTL_DSP_GETODELAY)
_DO(OSS_SNDCTL_DSP_PROFILE)
_DO(OSS_SOUND_MIXER_INFO)
_DO(OSS_SOUND_OLD_MIXER_INFO)
_DO(OSS_GET_VERSION)
_DO(OSS_SEQ_RESET)
_DO(OSS_SEQ_SYNC)
_DO(OSS_SYNTH_INFO)
_DO(OSS_SEQ_CTRLRATE)
_DO(OSS_SEQ_GETOUTCOUNT)
_DO(OSS_SEQ_GETINCOUNT)
_DO(OSS_SEQ_PERCMODE)
_DO(OSS_SEQ_TESTMIDI)
_DO(OSS_SEQ_RESETSAMPLES)
_DO(OSS_SEQ_NRSYNTHS)
_DO(OSS_SEQ_NRMIDIS)
#ifdef notyet
_DO(OSS_MIDI_INFO)
#endif
_DO(OSS_SEQ_THRESHOLD)
_DO(OSS_MEMAVL)
_DO(OSS_FM_4OP_ENABLE)
_DO(OSS_SEQ_PANIC)
_DO(OSS_SEQ_OUTOFBAND)
_DO(OSS_SEQ_GETTIME)
_DO(OSS_ID)
_DO(OSS_CONTROL)
_DO(OSS_REMOVESAMPLE)
_DO(OSS_TMR_TIMEBASE)
_DO(OSS_TMR_START)
_DO(OSS_TMR_STOP)
_DO(OSS_TMR_CONTINUE)
_DO(OSS_TMR_TEMPO)
_DO(OSS_TMR_SOURCE)
_DO(OSS_TMR_METRONOME)
_DO(OSS_TMR_SELECT)
#undef _DO
        default:
                (void)snprintf(buf, sizeof(buf), "*0x%lx*", cmd);
                return buf;
        }
}
#endif


static int
compat_ossaudio_modcmd(modcmd_t cmd, void *arg)
{

        switch (cmd) {
        case MODULE_CMD_INIT:
        case MODULE_CMD_FINI:
                return 0;
        default:
                return ENOTTY;
        }
}

int
oss_ioctl_audio(struct lwp *l, const struct oss_sys_ioctl_args *uap, register_t *retval)
{
        /* {
                syscallarg(int) fd;
                syscallarg(u_long) com;
                syscallarg(void *) data;
        } */
        file_t *fp;
        u_long com;
        struct audio_info tmpinfo, hwfmt;
        struct audio_offset tmpoffs;
        struct oss_audio_buf_info bufinfo;
        struct oss_count_info cntinfo;
        struct audio_encoding tmpenc;
        u_int u;
        u_int encoding;
        u_int precision;
        int idat, idata;
        int error = 0;
        int (*ioctlf)(file_t *, u_long, void *);

        if ((fp = fd_getfile(SCARG(uap, fd))) == NULL)
                return (EBADF);

        if ((fp->f_flag & (FREAD | FWRITE)) == 0) {
                error = EBADF;
                goto out;
        }

        com = SCARG(uap, com);
        DPRINTF(("%s: com=%s\n", __func__, compat_ossaudio_getcmd(com)));

        retval[0] = 0;

        ioctlf = fp->f_ops->fo_ioctl;
        switch (com) {
        case OSS_SNDCTL_DSP_RESET:
                error = ioctlf(fp, AUDIO_FLUSH, NULL);
                if (error) {
                        DPRINTF(("%s: AUDIO_FLUSH %d\n", __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_SYNC:
                error = ioctlf(fp, AUDIO_DRAIN, NULL);
                if (error) {
                        DPRINTF(("%s: AUDIO_DRAIN %d\n", __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_POST:
                /* This call is merely advisory, and may be a nop. */
                break;
        case OSS_SNDCTL_DSP_SPEED:
                AUDIO_INITINFO(&tmpinfo);
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SPEED %d\n",
                             __func__, error));
                        goto out;
                }
                tmpinfo.play.sample_rate =
                tmpinfo.record.sample_rate = idat;
                DPRINTF(("%s: SNDCTL_DSP_SPEED > %d\n", __func__, idat));
                /*
                 * The default NetBSD behavior if an unsupported sample rate
                 * is set is to return an error code and keep the rate at the
                 * default of 8000 Hz.
                 *
                 * However, the OSS expectation is a sample rate supported by
                 * the hardware is returned if the exact rate could not be set.
                 *
                 * So, if the chosen sample rate is invalid, set and return
                 * the current hardware rate.
                 */
                if (ioctlf(fp, AUDIO_SETINFO, &tmpinfo) != 0) {
                        error = ioctlf(fp, AUDIO_GETFORMAT, &hwfmt);
                        if (error) {
                                DPRINTF(("%s: AUDIO_GETFORMAT %d\n",
                                     __func__, error));
                                goto out;
                        }
                        error = ioctlf(fp, AUDIO_GETINFO, &tmpinfo);
                        if (error) {
                                DPRINTF(("%s: AUDIO_GETINFO %d\n",
                                     __func__, error));
                                goto out;
                        }
                        tmpinfo.play.sample_rate =
                        tmpinfo.record.sample_rate =
                            (tmpinfo.mode == AUMODE_RECORD) ?
                            hwfmt.record.sample_rate :
                            hwfmt.play.sample_rate;
                        error = ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                        if (error) {
                                DPRINTF(("%s: SNDCTL_DSP_SPEED %d = %d\n",
                                     __func__, idat, error));
                                goto out;
                        }
                }
                /* FALLTHROUGH */
        case OSS_SOUND_PCM_READ_RATE:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                         __func__, error));
                        goto out;
                }
                idat = GETPRINFO(&tmpinfo, sample_rate);
                DPRINTF(("%s: SNDCTL_PCM_READ_RATE < %d\n", __func__, idat));
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SOUND_PCM_READ_RATE %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_STEREO:
                AUDIO_INITINFO(&tmpinfo);
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_STEREO %d\n",
                             __func__, error));
                        goto out;
                }
                tmpinfo.play.channels =
                tmpinfo.record.channels = idat ? 2 : 1;
                error = ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_SETINFO %d\n",
                             __func__, error));
                        goto out;
                }
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                idat = GETPRINFO(&tmpinfo, channels) - 1;
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_STEREO %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETBLKSIZE:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                setblocksize(fp, &tmpinfo);
                idat = tmpinfo.blocksize;
                DPRINTF(("%s: SNDCTL_DSP_GETBLKSIZE < %d\n",
                     __func__, idat));
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETBLKSIZE %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_SETFMT:
                AUDIO_INITINFO(&tmpinfo);
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SETFMT %d\n",
                             __func__, error));
                        goto out;
                }
                switch (idat) {
                case OSS_AFMT_MU_LAW:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 8;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_ULAW;
                        break;
                case OSS_AFMT_A_LAW:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 8;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_ALAW;
                        break;
                case OSS_AFMT_U8:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 8;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_ULINEAR;
                        break;
                case OSS_AFMT_S8:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 8;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_SLINEAR;
                        break;
                case OSS_AFMT_S16_LE:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 16;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_SLINEAR_LE;
                        break;
                case OSS_AFMT_S16_BE:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 16;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_SLINEAR_BE;
                        break;
                case OSS_AFMT_U16_LE:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 16;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_ULINEAR_LE;
                        break;
                case OSS_AFMT_U16_BE:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 16;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_ULINEAR_BE;
                        break;
                case OSS_AFMT_AC3:
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 16;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_AC3;
                        break;
                default:
                        /*
                         * OSSv4 specifies that if an invalid format is chosen
                         * by an application then a sensible format supported
                         * by the hardware is returned.
                         *
                         * In this case, we pick S16LE since it's reasonably
                         * assumed to be supported by applications.
                         */
                        tmpinfo.play.precision =
                        tmpinfo.record.precision = 16;
                        tmpinfo.play.encoding =
                        tmpinfo.record.encoding = AUDIO_ENCODING_SLINEAR_LE;
                        break;
                }
                DPRINTF(("%s: SNDCTL_DSP_SETFMT > 0x%x\n",
                    __func__, idat));
                error = ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_SETINFO %d\n",
                             __func__, error));
                        goto out;
                }
                /* FALLTHROUGH */
        case OSS_SOUND_PCM_READ_BITS:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                encoding = GETPRINFO(&tmpinfo, encoding);
                precision = GETPRINFO(&tmpinfo, precision);
                switch (encoding) {
                case AUDIO_ENCODING_ULAW:
                        idat = OSS_AFMT_MU_LAW;
                        break;
                case AUDIO_ENCODING_ALAW:
                        idat = OSS_AFMT_A_LAW;
                        break;
                case AUDIO_ENCODING_SLINEAR_LE:
                        if (precision == 16)
                                idat = OSS_AFMT_S16_LE;
                        else
                                idat = OSS_AFMT_S8;
                        break;
                case AUDIO_ENCODING_SLINEAR_BE:
                        if (precision == 16)
                                idat = OSS_AFMT_S16_BE;
                        else
                                idat = OSS_AFMT_S8;
                        break;
                case AUDIO_ENCODING_ULINEAR_LE:
                        if (precision == 16)
                                idat = OSS_AFMT_U16_LE;
                        else
                                idat = OSS_AFMT_U8;
                        break;
                case AUDIO_ENCODING_ULINEAR_BE:
                        if (precision == 16)
                                idat = OSS_AFMT_U16_BE;
                        else
                                idat = OSS_AFMT_U8;
                        break;
                case AUDIO_ENCODING_ADPCM:
                        idat = OSS_AFMT_IMA_ADPCM;
                        break;
                case AUDIO_ENCODING_AC3:
                        idat = OSS_AFMT_AC3;
                        break;
                default:
                        DPRINTF(("%s: SOUND_PCM_READ_BITS bad encoding %d\n",
                             __func__, tmpinfo.play.encoding));
                        error = EINVAL;
                        goto out;
                }
                DPRINTF(("%s: SOUND_PCM_READ_BITS < 0x%x\n",
                    __func__, idat));
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SOUND_PCM_READ_BITS %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_CHANNELS:
                AUDIO_INITINFO(&tmpinfo);
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_CHANNELS %d\n",
                             __func__, error));
                        goto out;
                }
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                setchannels(fp, tmpinfo.mode, idat);
                /* FALLTHROUGH */
        case OSS_SOUND_PCM_READ_CHANNELS:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                idat = GETPRINFO(&tmpinfo, channels);
                DPRINTF(("%s: SOUND_PCM_READ_CHANNELS < %d\n", __func__, idat));
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SOUND_PCM_READ_CHANNELS %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SOUND_PCM_WRITE_FILTER:
        case OSS_SOUND_PCM_READ_FILTER:
                error = EINVAL; /* XXX unimplemented */
                DPRINTF(("%s: SOUND_PCM_{READ,WRITE}_FILTER filter\n",
                     __func__));
                goto out;
        case OSS_SNDCTL_DSP_SUBDIVIDE:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SUBDIVIDE %d\n",
                             __func__, error));
                        goto out;
                }
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                setblocksize(fp, &tmpinfo);
                if (idat == 0)
                        idat = tmpinfo.play.buffer_size / tmpinfo.blocksize;
                idat = (tmpinfo.play.buffer_size / idat) & -4;
                AUDIO_INITINFO(&tmpinfo);
                tmpinfo.blocksize = idat;
                error = ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_SETINFO %d\n",
                             __func__, error));
                        goto out;
                }
                idat = tmpinfo.play.buffer_size / tmpinfo.blocksize;
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SUBDIVIDE %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_SETFRAGMENT:
                AUDIO_INITINFO(&tmpinfo);
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SETFRAGMENT %d\n",
                             __func__, error));
                        goto out;
                }
                if ((idat & 0xffff) < 4 || (idat & 0xffff) > 17) {
                        DPRINTF(("%s: SNDCTL_DSP_SETFRAGMENT bad ival%d\n",
                             __func__, idat));
                        error = EINVAL;
                        goto out;
                }
                tmpinfo.blocksize = 1 << (idat & 0xffff);
                tmpinfo.hiwat = (idat >> 16) & 0x7fff;
                DPRINTF(("%s: SNDCTL_DSP_SETFRAGMENT blksize=%d, "
                    "hiwat=%d\n", __func__, tmpinfo.blocksize, tmpinfo.hiwat));
                if (tmpinfo.hiwat == 0) /* 0 means set to max */
                        tmpinfo.hiwat = 65536;
                error = ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_SETINFO %d\n",
                             __func__, error));
                        goto out;
                }
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                u = tmpinfo.blocksize;
                for(idat = 0; u > 1; idat++, u >>= 1)
                        ;
                idat |= (tmpinfo.hiwat & 0x7fff) << 16;
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SETFRAGMENT  %d = %d\n",
                             __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETFMTS:
                for (idat = 0, tmpenc.index = 0;
                    ioctlf(fp, AUDIO_GETENC, &tmpenc) == 0;
                    tmpenc.index++) {
                        switch(tmpenc.encoding) {
                        case AUDIO_ENCODING_ULAW:
                                idat |= OSS_AFMT_MU_LAW;
                                break;
                        case AUDIO_ENCODING_ALAW:
                                idat |= OSS_AFMT_A_LAW;
                                break;
                        case AUDIO_ENCODING_SLINEAR:
                                idat |= OSS_AFMT_S8;
                                break;
                        case AUDIO_ENCODING_SLINEAR_LE:
                                if (tmpenc.precision == 16)
                                        idat |= OSS_AFMT_S16_LE;
                                else
                                        idat |= OSS_AFMT_S8;
                                break;
                        case AUDIO_ENCODING_SLINEAR_BE:
                                if (tmpenc.precision == 16)
                                        idat |= OSS_AFMT_S16_BE;
                                else
                                        idat |= OSS_AFMT_S8;
                                break;
                        case AUDIO_ENCODING_ULINEAR:
                                idat |= OSS_AFMT_U8;
                                break;
                        case AUDIO_ENCODING_ULINEAR_LE:
                                if (tmpenc.precision == 16)
                                        idat |= OSS_AFMT_U16_LE;
                                else
                                        idat |= OSS_AFMT_U8;
                                break;
                        case AUDIO_ENCODING_ULINEAR_BE:
                                if (tmpenc.precision == 16)
                                        idat |= OSS_AFMT_U16_BE;
                                else
                                        idat |= OSS_AFMT_U8;
                                break;
                        case AUDIO_ENCODING_ADPCM:
                                idat |= OSS_AFMT_IMA_ADPCM;
                                break;
                        case AUDIO_ENCODING_AC3:
                                idat |= OSS_AFMT_AC3;
                                break;
                        default:
                                DPRINTF(("%s: SNDCTL_DSP_GETFMTS unknown %d\n",
                                    __func__, tmpenc.encoding));
                                break;
                        }
                }
                DPRINTF(("%s: SNDCTL_DSP_GETFMTS < 0x%x\n",
                    __func__, idat));
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETFMTS = %x = %d\n",
                            __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETOSPACE:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                setblocksize(fp, &tmpinfo);
                memset(&bufinfo, 0, sizeof(bufinfo));
                bufinfo.fragsize = tmpinfo.blocksize;
                bufinfo.fragments = tmpinfo.hiwat -
                    (tmpinfo.play.seek + tmpinfo.blocksize - 1) /
                    tmpinfo.blocksize;
                bufinfo.fragstotal = tmpinfo.hiwat;
                bufinfo.bytes =
                    tmpinfo.hiwat * tmpinfo.blocksize - tmpinfo.play.seek;
                error = copyout(&bufinfo, SCARG(uap, data), sizeof bufinfo);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETOSPACE = %d\n",
                            __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETISPACE:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                setblocksize(fp, &tmpinfo);
                memset(&bufinfo, 0, sizeof(bufinfo));
                bufinfo.fragsize = tmpinfo.blocksize;
                bufinfo.fragments = tmpinfo.record.seek / tmpinfo.blocksize;
                bufinfo.fragstotal =
                    tmpinfo.record.buffer_size / tmpinfo.blocksize;
                bufinfo.bytes = tmpinfo.record.seek;
                error = copyout(&bufinfo, SCARG(uap, data), sizeof bufinfo);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETISPACE %d %d %d %d = %d\n",
                             __func__, bufinfo.fragsize, bufinfo.fragments,
                             bufinfo.fragstotal, bufinfo.bytes, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_NONBLOCK:
                idat = 1;
                error = ioctlf(fp, FIONBIO, &idat);
                if (error) {
                        DPRINTF(("%s: FIONBIO %d\n",
                             __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETCAPS:
                error = ioctlf(fp, AUDIO_GETPROPS, &idata);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETPROPS %d\n",
                             __func__, error));
                        goto out;
                }
                idat = OSS_DSP_CAP_TRIGGER;
                if (idata & AUDIO_PROP_FULLDUPLEX)
                        idat |= OSS_DSP_CAP_DUPLEX;
                if (idata & AUDIO_PROP_MMAP)
                        idat |= OSS_DSP_CAP_MMAP;
                DPRINTF(("%s: SNDCL_DSP_GETCAPS %s duplex, %smmap\n",
                     __func__, (idat & OSS_DSP_CAP_DUPLEX) ? "full" : "half",
                     (idat & OSS_DSP_CAP_MMAP) ? "" : "no "));
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETCAPS %x = %d\n", __func__,
                            idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_SETTRIGGER:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_SETTRIGGER: %d\n",
                             __func__, error));
                        goto out;
                }
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                AUDIO_INITINFO(&tmpinfo);
                if (tmpinfo.mode & AUMODE_PLAY)
                        tmpinfo.play.pause = (idat & OSS_PCM_ENABLE_OUTPUT) == 0;
                if (tmpinfo.mode & AUMODE_RECORD)
                        tmpinfo.record.pause = (idat & OSS_PCM_ENABLE_INPUT) == 0;
                (void)ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                /* FALLTHRU */
        case OSS_SNDCTL_DSP_GETTRIGGER:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                             __func__, error));
                        goto out;
                }
                idat = 0;
                if ((tmpinfo.mode & AUMODE_PLAY) && !tmpinfo.play.pause)
                        idat |= OSS_PCM_ENABLE_OUTPUT;
                if ((tmpinfo.mode & AUMODE_RECORD) && !tmpinfo.record.pause)
                        idat |= OSS_PCM_ENABLE_INPUT;
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETTRIGGER = %x = %d\n",
                            __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETIPTR:
                error = ioctlf(fp, AUDIO_GETIOFFS, &tmpoffs);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETIOFFS %d\n",
                             __func__, error));
                        goto out;
                }
                memset(&cntinfo, 0, sizeof(cntinfo));
                cntinfo.bytes = tmpoffs.samples;
                cntinfo.blocks = tmpoffs.deltablks;
                cntinfo.ptr = tmpoffs.offset;
                error = copyout(&cntinfo, SCARG(uap, data), sizeof cntinfo);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETIPTR %d\n",
                            __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_GETOPTR:
                error = ioctlf(fp, AUDIO_GETOOFFS, &tmpoffs);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETOOFFS %d\n",
                             __func__, error));
                        goto out;
                }
                memset(&cntinfo, 0, sizeof(cntinfo));
                cntinfo.bytes = tmpoffs.samples;
                cntinfo.blocks = tmpoffs.deltablks;
                cntinfo.ptr = tmpoffs.offset;
                error = copyout(&cntinfo, SCARG(uap, data), sizeof cntinfo);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETOPTR %d\n",
                            __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_SETDUPLEX:
                idat = 1;
                error = ioctlf(fp, AUDIO_SETFD, &idat);
                if (error) {
                        DPRINTF(("%s: AUDIO_SETFD %d = %d\n",
                            __func__, idat, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_MAPINBUF:
                DPRINTF(("%s: Unimplemented SNDCTL_DSP_MAPINBUF\n",
                    __func__));
                error = EINVAL;
                goto out;
        case OSS_SNDCTL_DSP_MAPOUTBUF:
                DPRINTF(("%s: Unimplemented SNDCTL_DSP_MAPOUTBUF\n",
                    __func__));
                error = EINVAL;
                goto out;
        case OSS_SNDCTL_DSP_SETSYNCRO:
                DPRINTF(("%s: Unimplemented SNDCTL_DSP_GETSYNCHRO\n",
                    __func__));
                error = EINVAL;
                goto out;
        case OSS_SNDCTL_DSP_GETODELAY:
                error = ioctlf(fp, AUDIO_GETBUFINFO, &tmpinfo);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETBUFINFO %d\n",
                            __func__, error));
                        goto out;
                }
                idat = tmpinfo.play.seek + tmpinfo.blocksize / 2;
                error = copyout(&idat, SCARG(uap, data), sizeof idat);
                if (error) {
                        DPRINTF(("%s: SNDCTL_DSP_GETODELAY %d\n",
                            __func__, error));
                        goto out;
                }
                break;
        case OSS_SNDCTL_DSP_PROFILE:
                /* This gives just a hint to the driver,
                 * implementing it as a NOP is ok
                 */
                DPRINTF(("%s: SNDCTL_DSP_PROFILE\n", __func__));
                break;
        default:
                DPRINTF(("%s: Unimplemented 0x%lx\n", __func__, com));
                error = EINVAL;
                goto out;
        }

 out:
        fd_putfile(SCARG(uap, fd));
        return error;
}

/* If the NetBSD mixer device should have more than 32 devices
 * some will not be available to Linux */
#define NETBSD_MAXDEVS 64
struct audiodevinfo {
        int done;
        dev_t dev;
        int16_t devmap[OSS_SOUND_MIXER_NRDEVICES],
                rdevmap[NETBSD_MAXDEVS];
        char names[NETBSD_MAXDEVS][MAX_AUDIO_DEV_LEN];
        int enum2opaque[NETBSD_MAXDEVS];
        u_long devmask, recmask, stereomask;
        u_long caps, source;
};

static int
opaque_to_enum(struct audiodevinfo *di, audio_mixer_name_t *label, int opq)
{
        int i, o;

        for (i = 0; i < NETBSD_MAXDEVS; i++) {
                o = di->enum2opaque[i];
                if (o == opq)
                        break;
                if (o == -1 && label != NULL &&
                    !strncmp(di->names[i], label->name, sizeof di->names[i])) {
                        di->enum2opaque[i] = opq;
                        break;
                }
        }
        if (i >= NETBSD_MAXDEVS)
                i = -1;
        /*printf("opq_to_enum %s %d -> %d\n", label->name, opq, i);*/
        return (i);
}

static int
enum_to_ord(struct audiodevinfo *di, int enm)
{
        if (enm >= NETBSD_MAXDEVS)
                return (-1);

        /*printf("enum_to_ord %d -> %d\n", enm, di->enum2opaque[enm]);*/
        return (di->enum2opaque[enm]);
}

static int
enum_to_mask(struct audiodevinfo *di, int enm)
{
        int m;
        if (enm >= NETBSD_MAXDEVS)
                return (0);

        m = di->enum2opaque[enm];
        if (m == -1)
                m = 0;
        /*printf("enum_to_mask %d -> %d\n", enm, di->enum2opaque[enm]);*/
        return (m);
}

/*
 * Collect the audio device information to allow faster
 * emulation of the Linux mixer ioctls.  Cache the information
 * to eliminate the overhead of repeating all the ioctls needed
 * to collect the information.
 */
static struct audiodevinfo *
getdevinfo(file_t *fp)
{
        mixer_devinfo_t mi;
        int i, j, e;
        static const struct {
                const char *name;
                int code;
        } *dp, devs[] = {
                { AudioNmicrophone,     OSS_SOUND_MIXER_MIC },
                { AudioNline,           OSS_SOUND_MIXER_LINE },
                { AudioNcd,             OSS_SOUND_MIXER_CD },
                { AudioNdac,            OSS_SOUND_MIXER_PCM },
                { AudioNaux,            OSS_SOUND_MIXER_LINE1 },
                { AudioNrecord,         OSS_SOUND_MIXER_IMIX },
                { AudioNmaster,         OSS_SOUND_MIXER_VOLUME },
                { AudioNtreble,         OSS_SOUND_MIXER_TREBLE },
                { AudioNbass,           OSS_SOUND_MIXER_BASS },
                { AudioNspeaker,        OSS_SOUND_MIXER_SPEAKER },
/*              { AudioNheadphone,      ?? },*/
                { AudioNoutput,         OSS_SOUND_MIXER_OGAIN },
                { AudioNinput,          OSS_SOUND_MIXER_IGAIN },
/*              { AudioNmaster,         OSS_SOUND_MIXER_SPEAKER },*/
/*              { AudioNstereo,         ?? },*/
/*              { AudioNmono,           ?? },*/
                { AudioNfmsynth,        OSS_SOUND_MIXER_SYNTH },
/*              { AudioNwave,           OSS_SOUND_MIXER_PCM },*/
                { AudioNmidi,           OSS_SOUND_MIXER_SYNTH },
/*              { AudioNmixerout,       ?? },*/
                { 0, -1 }
        };
        int (*ioctlf)(file_t *, u_long, void *) = fp->f_ops->fo_ioctl;
        struct vnode *vp;
        struct vattr va;
        static struct audiodevinfo devcache;
        struct audiodevinfo *di = &devcache;
        int error, mlen, dlen;

        /*
         * Figure out what device it is so we can check if the
         * cached data is valid.
         */
        vp = fp->f_vnode;
        if (vp->v_type != VCHR)
                return 0;
        vn_lock(vp, LK_SHARED | LK_RETRY);
        error = VOP_GETATTR(vp, &va, kauth_cred_get());
        VOP_UNLOCK(vp);
        if (error)
                return 0;
        if (di->done && di->dev == va.va_rdev)
                return di;

        di->done = 1;
        di->dev = va.va_rdev;
        di->devmask = 0;
        di->recmask = 0;
        di->stereomask = 0;
        di->source = ~0;
        di->caps = 0;
        for(i = 0; i < OSS_SOUND_MIXER_NRDEVICES; i++)
                di->devmap[i] = -1;
        for(i = 0; i < NETBSD_MAXDEVS; i++) {
                di->rdevmap[i] = -1;
                di->names[i][0] = '\0';
                di->enum2opaque[i] = -1;
        }
        for(i = 0; i < NETBSD_MAXDEVS; i++) {
                mi.index = i;
                if (ioctlf(fp, AUDIO_MIXER_DEVINFO, &mi) != 0)
                        break;
                switch(mi.type) {
                case AUDIO_MIXER_VALUE:
                        for(dp = devs; dp->name; dp++) {
                                if (strcmp(dp->name, mi.label.name) == 0)
                                        break;
                                dlen = strlen(dp->name);
                                mlen = strlen(mi.label.name);
                                if (dlen < mlen
                                    && mi.label.name[mlen-dlen-1] == '.'
                                    && strcmp(dp->name, mi.label.name + mlen - dlen) == 0)
                                        break;
                        }
                        if (dp->code >= 0) {
                                di->devmap[dp->code] = i;
                                di->rdevmap[i] = dp->code;
                                di->devmask |= 1 << dp->code;
                                if (mi.un.v.num_channels == 2)
                                        di->stereomask |= 1 << dp->code;
                                strncpy(di->names[i], mi.label.name,
                                        sizeof di->names[i]);
                        }
                        break;
                }
        }
        for(i = 0; i < NETBSD_MAXDEVS; i++) {
                mi.index = i;
                if (ioctlf(fp, AUDIO_MIXER_DEVINFO, &mi) != 0)
                        break;
                if (strcmp(mi.label.name, AudioNsource) != 0)
                        continue;
                di->source = i;
                switch(mi.type) {
                case AUDIO_MIXER_ENUM:
                        for(j = 0; j < mi.un.e.num_mem; j++) {
                                e = opaque_to_enum(di,
                                                   &mi.un.e.member[j].label,
                                                   mi.un.e.member[j].ord);
                                if (e >= 0)
                                        di->recmask |= 1 << di->rdevmap[e];
                        }
                        di->caps = OSS_SOUND_CAP_EXCL_INPUT;
                        break;
                case AUDIO_MIXER_SET:
                        for(j = 0; j < mi.un.s.num_mem; j++) {
                                e = opaque_to_enum(di,
                                                   &mi.un.s.member[j].label,
                                                   mi.un.s.member[j].mask);
                                if (e >= 0)
                                        di->recmask |= 1 << di->rdevmap[e];
                        }
                        break;
                }
        }
        return di;
}

int
oss_ioctl_mixer(struct lwp *lwp, const struct oss_sys_ioctl_args *uap, register_t *retval)
{
        /* {
                syscallarg(int) fd;
                syscallarg(u_long) com;
                syscallarg(void *) data;
        } */
        file_t *fp;
        u_long com;
        struct audiodevinfo *di;
        mixer_ctrl_t mc;
        struct oss_mixer_info omi;
        struct audio_device adev;
        int idat = 0;
        int i;
        int error;
        int l, r, n, e;
        int (*ioctlf)(file_t *, u_long, void *);

        if ((error = fd_getvnode(SCARG(uap, fd), &fp)) != 0)
                return error;

        if ((fp->f_flag & (FREAD | FWRITE)) == 0) {
                error = EBADF;
                goto out;
        }

        com = SCARG(uap, com);
        DPRINTF(("%s: com=%s\n", __func__, compat_ossaudio_getcmd(com)));

        retval[0] = 0;

        di = getdevinfo(fp);
        if (di == 0) {
                error = EINVAL;
                goto out;
        }

        ioctlf = fp->f_ops->fo_ioctl;
        switch (com) {
        case OSS_GET_VERSION:
                idat = OSS_SOUND_VERSION;
                break;
        case OSS_SOUND_MIXER_INFO:
        case OSS_SOUND_OLD_MIXER_INFO:
                error = ioctlf(fp, AUDIO_GETDEV, &adev);
                if (error) {
                        DPRINTF(("%s: AUDIO_GETDEV %d\n",
                            __func__, error));
                        goto out;
                }
                memset(&omi, 0, sizeof omi);
                omi.modify_counter = 1;
                strncpy(omi.id, adev.name, sizeof omi.id);
                strncpy(omi.name, adev.name, sizeof omi.name);
                error = copyout(&omi, SCARG(uap, data), OSS_IOCTL_SIZE(com));
                if (error) {
                        DPRINTF(("%s: OSS_SOUND_MIXER_INFO %d\n",
                            __func__, error));
                        goto out;
                }
                break;
        case OSS_SOUND_MIXER_READ_RECSRC:
                if (di->source == (u_long)-1) {
                        DPRINTF(("%s: OSS_SOUND_MIXER_READ_RECSRC bad source\n",
                            __func__));
                        error = EINVAL;
                        goto out;
                }
                mc.dev = di->source;
                if (di->caps & OSS_SOUND_CAP_EXCL_INPUT) {
                        mc.type = AUDIO_MIXER_ENUM;
                        error = ioctlf(fp, AUDIO_MIXER_READ, &mc);
                        if (error) {
                                DPRINTF(("%s: AUDIO_MIXER_READ %d\n",
                                    __func__, error));
                                goto out;
                        }
                        e = opaque_to_enum(di, NULL, mc.un.ord);
                        if (e >= 0)
                                idat = 1 << di->rdevmap[e];
                } else {
                        mc.type = AUDIO_MIXER_SET;
                        error = ioctlf(fp, AUDIO_MIXER_READ, &mc);
                        if (error) {
                                DPRINTF(("%s: AUDIO_MIXER_READ %d\n",
                                    __func__, error));
                                goto out;
                        }
                        e = opaque_to_enum(di, NULL, mc.un.mask);
                        if (e >= 0)
                                idat = 1 << di->rdevmap[e];
                }
                break;
        case OSS_SOUND_MIXER_READ_DEVMASK:
                idat = di->devmask;
                break;
        case OSS_SOUND_MIXER_READ_RECMASK:
                idat = di->recmask;
                break;
        case OSS_SOUND_MIXER_READ_STEREODEVS:
                idat = di->stereomask;
                break;
        case OSS_SOUND_MIXER_READ_CAPS:
                idat = di->caps;
                break;
        case OSS_SOUND_MIXER_WRITE_RECSRC:
        case OSS_SOUND_MIXER_WRITE_R_RECSRC:
                if (di->source == (u_long)-1) {
                        DPRINTF(("%s: OSS_SOUND_MIXER_WRITE_RECSRC bad "
                            "source\n", __func__));
                        error = EINVAL;
                        goto out;
                }
                mc.dev = di->source;
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error) {
                        DPRINTF(("%s: OSS_SOUND_MIXER_WRITE_RECSRC %d\n",
                            __func__, error));
                        goto out;
                }
                if (di->caps & OSS_SOUND_CAP_EXCL_INPUT) {
                        mc.type = AUDIO_MIXER_ENUM;
                        for(i = 0; i < OSS_SOUND_MIXER_NRDEVICES; i++)
                                if (idat & (1 << i))
                                        break;
                        if (i >= OSS_SOUND_MIXER_NRDEVICES ||
                            di->devmap[i] == -1) {
                                error = EINVAL;
                                DPRINTF(("%s: OSS_SOUND_MIXER_WRITE_RECSRC "
                                    "bad index %d\n", __func__, i));
                                goto out;
                        }
                        mc.un.ord = enum_to_ord(di, di->devmap[i]);
                } else {
                        mc.type = AUDIO_MIXER_SET;
                        mc.un.mask = 0;
                        for(i = 0; i < OSS_SOUND_MIXER_NRDEVICES; i++) {
                                if (idat & (1 << i)) {
                                        if (di->devmap[i] == -1) {
                                                DPRINTF(("%s: OSS_SOUND_MIXER_"
                                                    "WRITE_RECSRC bad devmap "
                                                    "%d\n", __func__, i));
                                                error = EINVAL;
                                                goto out;
                                        }
                                        mc.un.mask |= enum_to_mask(di,
                                            di->devmap[i]);
                                }
                        }
                }
                error = ioctlf(fp, AUDIO_MIXER_WRITE, &mc);
                if (error) {
                        DPRINTF(("%s: AUDIO_MIXER_WRITE %d\n",
                            __func__, error));
                        goto out;
                }
                goto out;
        default:
                if (OSS_MIXER_READ(OSS_SOUND_MIXER_FIRST) <= com &&
                    com < OSS_MIXER_READ(OSS_SOUND_MIXER_NRDEVICES)) {
                        n = OSS_GET_DEV(com);
                        if (di->devmap[n] == -1) {
                                DPRINTF(("%s: 0x%lx bad devmap %d\n",
                                    __func__, com, n));
                                error = EINVAL;
                                goto out;
                        }
                    doread:
                        mc.dev = di->devmap[n];
                        mc.type = AUDIO_MIXER_VALUE;
                        mc.un.value.num_channels = di->stereomask &
                            (1 << n) ? 2 : 1;
                        error = ioctlf(fp, AUDIO_MIXER_READ, &mc);
                        if (error) {
                                DPRINTF(("%s: AUDIO_MIXER_READ %d\n",
                                    __func__, error));
                                goto out;
                        }
                        if (mc.un.value.num_channels != 2) {
                                l = r =
                                    mc.un.value.level[AUDIO_MIXER_LEVEL_MONO];
                        } else {
                                l = mc.un.value.level[AUDIO_MIXER_LEVEL_LEFT];
                                r = mc.un.value.level[AUDIO_MIXER_LEVEL_RIGHT];
                        }
                        idat = TO_OSSVOL(l) | (TO_OSSVOL(r) << 8);
                        DPRINTF(("%s: n=%d (dev=%d) l=%d, r=%d, idat=%04x\n",
                                 __func__, n, di->devmap[n], l, r, idat));
                        break;
                } else if ((OSS_MIXER_WRITE_R(OSS_SOUND_MIXER_FIRST) <= com &&
                    com < OSS_MIXER_WRITE_R(OSS_SOUND_MIXER_NRDEVICES)) ||
                    (OSS_MIXER_WRITE(OSS_SOUND_MIXER_FIRST) <= com &&
                    com < OSS_MIXER_WRITE(OSS_SOUND_MIXER_NRDEVICES))) {
                        n = OSS_GET_DEV(com);
                        if (di->devmap[n] == -1) {
                                DPRINTF(("%s: 0x%lx bad devmap %d\n",
                                    __func__, com, n));
                                error = EINVAL;
                                goto out;
                        }
                        error = copyin(SCARG(uap, data), &idat, sizeof idat);
                        if (error) {
                                DPRINTF(("%s: 0x%lx error %d\n",
                                    __func__, com, error));
                                goto out;
                        }
                        l = FROM_OSSVOL( idat       & 0xff);
                        r = FROM_OSSVOL((idat >> 8) & 0xff);
                        mc.dev = di->devmap[n];
                        mc.type = AUDIO_MIXER_VALUE;
                        if (di->stereomask & (1 << n)) {
                                mc.un.value.num_channels = 2;
                                mc.un.value.level[AUDIO_MIXER_LEVEL_LEFT] = l;
                                mc.un.value.level[AUDIO_MIXER_LEVEL_RIGHT] = r;
                        } else {
                                mc.un.value.num_channels = 1;
                                mc.un.value.level[AUDIO_MIXER_LEVEL_MONO] =
                                    (l + r) / 2;
                        }
                        DPRINTF(("%s: n=%d (dev=%d) l=%d, r=%d, idat=%04x\n",
                             __func__, n, di->devmap[n], l, r, idat));
                        error = ioctlf(fp, AUDIO_MIXER_WRITE, &mc);
                        if (error) {
                                DPRINTF(("%s: AUDIO_MIXER_WRITE %d\n",
                                    __func__, error));
                                goto out;
                        }
                        if (OSS_MIXER_WRITE(OSS_SOUND_MIXER_FIRST) <= com &&
                           com < OSS_MIXER_WRITE(OSS_SOUND_MIXER_NRDEVICES)) {
                                error = 0;
                                goto out;
                        }
                        goto doread;
                } else {
                        DPRINTF(("%s: Unknown mixer ioctl 0x%lx\n", __func__,
                            com));
                        error = EINVAL;
                        goto out;
                }
        }
        error = copyout(&idat, SCARG(uap, data), sizeof idat);
 out:
        fd_putfile(SCARG(uap, fd));
        return error;
}

/* Sequencer emulation */
int
oss_ioctl_sequencer(struct lwp *l, const struct oss_sys_ioctl_args *uap, register_t *retval)
{
        /* {
                syscallarg(int) fd;
                syscallarg(u_long) com;
                syscallarg(void *) data;
        } */
        file_t *fp;
        u_long com;
        int idat, idat1;
        struct synth_info si;
        struct oss_synth_info osi;
        struct oss_seq_event_rec oser;
        int error;
        int (*ioctlf)(file_t *, u_long, void *);

        if ((fp = fd_getfile(SCARG(uap, fd))) == NULL)
                return (EBADF);

        if ((fp->f_flag & (FREAD | FWRITE)) == 0) {
                error = EBADF;
                goto out;
        }

        com = SCARG(uap, com);
        DPRINTF(("%s: com=%s\n", __func__, compat_ossaudio_getcmd(com)));

        retval[0] = 0;

        ioctlf = fp->f_ops->fo_ioctl;
        switch (com) {
        case OSS_SEQ_RESET:
                error = ioctlf(fp, SEQUENCER_RESET, &idat);
                goto out;
        case OSS_SEQ_SYNC:
                error = ioctlf(fp, SEQUENCER_SYNC, &idat);
                goto out;
        case OSS_SYNTH_INFO:
                error = copyin(SCARG(uap, data), &osi, sizeof osi);
                if (error)
                        goto out;
                si.device = osi.device;
                error = ioctlf(fp, SEQUENCER_INFO, &si);
                if (error)
                        goto out;
                strncpy(osi.name, si.name, sizeof osi.name);
                osi.device = si.device;
                switch(si.synth_type) {
                case SYNTH_TYPE_FM:
                        osi.synth_type = OSS_SYNTH_TYPE_FM; break;
                case SYNTH_TYPE_SAMPLE:
                        osi.synth_type = OSS_SYNTH_TYPE_SAMPLE; break;
                case SYNTH_TYPE_MIDI:
                        osi.synth_type = OSS_SYNTH_TYPE_MIDI; break;
                default:
                        osi.synth_type = 0; break;
                }
                switch(si.synth_subtype) {
                case SYNTH_SUB_FM_TYPE_ADLIB:
                        osi.synth_subtype = OSS_FM_TYPE_ADLIB; break;
                case SYNTH_SUB_FM_TYPE_OPL3:
                        osi.synth_subtype = OSS_FM_TYPE_OPL3; break;
                case SYNTH_SUB_MIDI_TYPE_MPU401:
                        osi.synth_subtype = OSS_MIDI_TYPE_MPU401; break;
                case SYNTH_SUB_SAMPLE_TYPE_BASIC:
                        osi.synth_subtype = OSS_SAMPLE_TYPE_BASIC; break;
                default:
                        osi.synth_subtype = 0; break;
                }
                osi.perc_mode = 0;
                osi.nr_voices = si.nr_voices;
                osi.nr_drums = 0;
                osi.instr_bank_size = si.instr_bank_size;
                osi.capabilities = 0;
                if (si.capabilities & SYNTH_CAP_OPL3)
                        osi.capabilities |= OSS_SYNTH_CAP_OPL3;
                if (si.capabilities & SYNTH_CAP_INPUT)
                        osi.capabilities |= OSS_SYNTH_CAP_INPUT;
                error = copyout(&osi, SCARG(uap, data), sizeof osi);
                goto out;
        case OSS_SEQ_CTRLRATE:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_CTRLRATE, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_SEQ_GETOUTCOUNT:
                error = ioctlf(fp, SEQUENCER_GETOUTCOUNT, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_SEQ_GETINCOUNT:
                error = ioctlf(fp, SEQUENCER_GETINCOUNT, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_SEQ_NRSYNTHS:
                error = ioctlf(fp, SEQUENCER_NRSYNTHS, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_SEQ_NRMIDIS:
                error = ioctlf(fp, SEQUENCER_NRMIDIS, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_SEQ_THRESHOLD:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_THRESHOLD, &idat);
                goto out;
        case OSS_MEMAVL:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_MEMAVL, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_SEQ_PANIC:
                error = ioctlf(fp, SEQUENCER_PANIC, &idat);
                goto out;
        case OSS_SEQ_OUTOFBAND:
                error = copyin(SCARG(uap, data), &oser, sizeof oser);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_OUTOFBAND, &oser);
                if (error)
                        goto out;
                break;
        case OSS_SEQ_GETTIME:
                error = ioctlf(fp, SEQUENCER_GETTIME, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_TMR_TIMEBASE:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_TMR_TIMEBASE, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_TMR_START:
                error = ioctlf(fp, SEQUENCER_TMR_START, &idat);
                goto out;
        case OSS_TMR_STOP:
                error = ioctlf(fp, SEQUENCER_TMR_STOP, &idat);
                goto out;
        case OSS_TMR_CONTINUE:
                error = ioctlf(fp, SEQUENCER_TMR_CONTINUE, &idat);
                goto out;
        case OSS_TMR_TEMPO:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_TMR_TEMPO, &idat);
                if (error)
                        goto out;
                retval[0] = idat;
                break;
        case OSS_TMR_SOURCE:
                error = copyin(SCARG(uap, data), &idat1, sizeof idat);
                if (error)
                        goto out;
                idat = 0;
                if (idat1 & OSS_TMR_INTERNAL) idat |= SEQUENCER_TMR_INTERNAL;
                error = ioctlf(fp, SEQUENCER_TMR_SOURCE, &idat);
                if (error)
                        goto out;
                idat1 = idat;
                if (idat1 & SEQUENCER_TMR_INTERNAL) idat |= OSS_TMR_INTERNAL;
                retval[0] = idat;
                break;
        case OSS_TMR_METRONOME:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                error = ioctlf(fp, SEQUENCER_TMR_METRONOME, &idat);
                goto out;
        case OSS_TMR_SELECT:
                error = copyin(SCARG(uap, data), &idat, sizeof idat);
                if (error)
                        goto out;
                retval[0] = idat;
                error = ioctlf(fp, SEQUENCER_TMR_SELECT, &idat);
                goto out;
        default:
                DPRINTF(("%s: Unknown sequencer command 0x%lx\n", __func__,
                    com));
                error = EINVAL;
                goto out;
        }

        error = copyout(&idat, SCARG(uap, data), sizeof idat);
 out:
        fd_putfile(SCARG(uap, fd));
        return error;
}

/*
 * When AUDIO_SETINFO fails to set a channel count, the application's chosen
 * number is out of range of what the kernel allows.
 *
 * When this happens, we use the current hardware settings. This is just in
 * case an application is abusing SNDCTL_DSP_CHANNELS - OSSv4 always sets and
 * returns a reasonable value, even if it wasn't what the user requested.
 *
 * XXX: If a device is opened for both playback and recording, and supports
 * fewer channels for recording than playback, applications that do both will
 * behave very strangely. OSS doesn't allow for reporting separate channel
 * counts for recording and playback. This could be worked around by always
 * mixing recorded data up to the same number of channels as is being used
 * for playback.
 */
static void
setchannels(file_t *fp, int mode, int nchannels)
{
        struct audio_info tmpinfo, hwfmt;
        int (*ioctlf)(file_t *, u_long, void *);

        ioctlf = fp->f_ops->fo_ioctl;

        if (ioctlf(fp, AUDIO_GETFORMAT, &hwfmt) < 0) {
                hwfmt.record.channels = hwfmt.play.channels = 2;
        }

        if (mode & AUMODE_PLAY) {
                AUDIO_INITINFO(&tmpinfo);
                tmpinfo.play.channels = nchannels;
                if (ioctlf(fp, AUDIO_SETINFO, &tmpinfo) < 0) {
                        AUDIO_INITINFO(&tmpinfo);
                        tmpinfo.play.channels = hwfmt.play.channels;
                        (void)ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                }
        }

        if (mode & AUMODE_RECORD) {
                AUDIO_INITINFO(&tmpinfo);
                tmpinfo.record.channels = nchannels;
                if (ioctlf(fp, AUDIO_SETINFO, &tmpinfo) < 0) {
                        AUDIO_INITINFO(&tmpinfo);
                        tmpinfo.record.channels = hwfmt.record.channels;
                        (void)ioctlf(fp, AUDIO_SETINFO, &tmpinfo);
                }
        }
}

/*
 * Check that the blocksize is a power of 2 as OSS wants.
 * If not, set it to be.
 */
static void
setblocksize(file_t *fp, struct audio_info *info)
{
        struct audio_info set;
        u_int s;

         if (info->blocksize & (info->blocksize - 1)) {
                for(s = 32; s < info->blocksize; s <<= 1)
                        continue;
                AUDIO_INITINFO(&set);
                set.blocksize = s;
                fp->f_ops->fo_ioctl(fp, AUDIO_SETINFO, &set);
                fp->f_ops->fo_ioctl(fp, AUDIO_GETBUFINFO, info);
        }
}