Add a layer to handle emulation of MIDI for synthesizers.
It handles decoding of MIDI commands, voice allocation, and translation it notes to frequencies.
This commit is contained in:
parent
27c5df27d1
commit
50ab480a8c
@ -1,4 +1,4 @@
|
||||
# $NetBSD: files,v 1.231 1998/08/12 00:45:37 thorpej Exp $
|
||||
# $NetBSD: files,v 1.232 1998/08/12 18:14:01 augustss Exp $
|
||||
|
||||
# @(#)files.newconf 7.5 (Berkeley) 5/10/93
|
||||
|
||||
@ -98,6 +98,7 @@ devclass tty
|
||||
# generic attributes
|
||||
define audio { }
|
||||
define midibus { }
|
||||
define midisyn
|
||||
define scsi {[channel = -1]}
|
||||
define ata {[drive = -1]}
|
||||
define atapi { }
|
||||
@ -369,6 +370,7 @@ file dev/audio.c audio needs-flag
|
||||
file dev/ccd.c ccd needs-flag
|
||||
file dev/md.c md needs-count
|
||||
file dev/midi.c midi needs-flag
|
||||
file dev/midisyn.c midisyn
|
||||
file dev/mulaw.c mulaw
|
||||
file dev/sequencer.c sequencer needs-flag
|
||||
file dev/vnd.c vnd needs-flag
|
||||
|
329
sys/dev/midisyn.c
Normal file
329
sys/dev/midisyn.c
Normal file
@ -0,0 +1,329 @@
|
||||
/* $NetBSD: midisyn.c,v 1.1 1998/08/12 18:14:01 augustss Exp $ */
|
||||
|
||||
/*
|
||||
* Copyright (c) 1998 The NetBSD Foundation, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* Author: Lennart Augustsson
|
||||
*
|
||||
* 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. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by the NetBSD
|
||||
* Foundation, Inc. and its contributors.
|
||||
* 4. Neither the name of The NetBSD Foundation nor the names of its
|
||||
* contributors may be used to endorse or promote products derived
|
||||
* from this software without specific prior written permission.
|
||||
*
|
||||
* 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/param.h>
|
||||
#include <sys/ioctl.h>
|
||||
#include <sys/fcntl.h>
|
||||
#include <sys/vnode.h>
|
||||
#include <sys/select.h>
|
||||
#include <sys/proc.h>
|
||||
#include <sys/malloc.h>
|
||||
#include <sys/systm.h>
|
||||
#include <sys/syslog.h>
|
||||
#include <sys/kernel.h>
|
||||
#include <sys/conf.h>
|
||||
#include <sys/audioio.h>
|
||||
#include <sys/midiio.h>
|
||||
#include <sys/device.h>
|
||||
|
||||
#include <dev/audio_if.h>
|
||||
#include <dev/midivar.h>
|
||||
#include <dev/midisynvar.h>
|
||||
|
||||
#ifdef AUDIO_DEBUG
|
||||
#define DPRINTF(x) if (midisyndebug) printf x
|
||||
#define DPRINTFN(n,x) if (midisyndebug >= (n)) printf x
|
||||
int midisyndebug = 0;
|
||||
#else
|
||||
#define DPRINTF(x)
|
||||
#define DPRINTFN(n,x)
|
||||
#endif
|
||||
|
||||
int midisyn_findvoice __P((midisyn *, int, int));
|
||||
void midisyn_freevoice __P((midisyn *, int));
|
||||
int midisyn_allocvoice __P((midisyn *, u_int32_t, u_int32_t));
|
||||
u_int32_t midisyn_note_to_freq __P((int));
|
||||
|
||||
int midisyn_open __P((void *, int,
|
||||
void (*iintr)__P((void *, int)),
|
||||
void (*ointr)__P((void *)), void *arg));
|
||||
void midisyn_close __P((void *));
|
||||
int midisyn_output __P((void *, int));
|
||||
void midisyn_getinfo __P((void *, struct midi_info *));
|
||||
int midisyn_ioctl __P((void *, u_long, caddr_t, int, struct proc *));
|
||||
|
||||
struct midi_hw_if midisyn_hw_if = {
|
||||
midisyn_open,
|
||||
midisyn_close,
|
||||
midisyn_output,
|
||||
midisyn_getinfo,
|
||||
midisyn_ioctl,
|
||||
};
|
||||
|
||||
static int midi_lengths[] = { 3,3,3,3,2,2,3,1 };
|
||||
/* Number of bytes in a MIDI command, including status */
|
||||
#define MIDI_LENGTH(d) (midi_lengths[((d) >> 4) & 7])
|
||||
|
||||
int
|
||||
midisyn_open(addr, flags, iintr, ointr, arg)
|
||||
void *addr;
|
||||
int flags;
|
||||
void (*iintr)__P((void *, int));
|
||||
void (*ointr)__P((void *));
|
||||
void *arg;
|
||||
{
|
||||
midisyn *ms = addr;
|
||||
|
||||
DPRINTF(("midisyn_open: ms=%p ms->mets=%p\n", ms, ms->mets));
|
||||
if (ms->mets->open)
|
||||
return (ms->mets->open(ms, flags));
|
||||
else
|
||||
return (0);
|
||||
}
|
||||
|
||||
void
|
||||
midisyn_close(addr)
|
||||
void *addr;
|
||||
{
|
||||
midisyn *ms = addr;
|
||||
|
||||
DPRINTF(("midisyn_close: ms=%p ms->mets=%p\n", ms, ms->mets));
|
||||
if (ms->mets->close)
|
||||
ms->mets->close(ms);
|
||||
}
|
||||
|
||||
void
|
||||
midisyn_getinfo(addr, mi)
|
||||
void *addr;
|
||||
struct midi_info *mi;
|
||||
{
|
||||
midisyn *ms = addr;
|
||||
|
||||
mi->name = ms->name;
|
||||
mi->props = 0;
|
||||
}
|
||||
|
||||
int
|
||||
midisyn_ioctl(maddr, cmd, addr, flag, p)
|
||||
void *maddr;
|
||||
u_long cmd;
|
||||
caddr_t addr;
|
||||
int flag;
|
||||
struct proc *p;
|
||||
{
|
||||
midisyn *ms = maddr;
|
||||
|
||||
if (ms->mets->ioctl)
|
||||
return (ms->mets->ioctl(ms, cmd, addr, flag, p));
|
||||
else
|
||||
return (EINVAL);
|
||||
}
|
||||
|
||||
int
|
||||
midisyn_findvoice(ms, chan, note)
|
||||
midisyn *ms;
|
||||
int chan, note;
|
||||
{
|
||||
u_int cn;
|
||||
int v;
|
||||
|
||||
if (!(ms->flags & MS_DOALLOC))
|
||||
return (chan);
|
||||
cn = CHANNOTE(chan, note);
|
||||
for (v = 0; v < ms->nvoice; v++)
|
||||
if (ms->voices[v].chan_note == cn)
|
||||
return (v);
|
||||
return (-1);
|
||||
}
|
||||
|
||||
void
|
||||
midisyn_attach(sc, ms, parent)
|
||||
struct midi_softc *sc;
|
||||
midisyn *ms;
|
||||
struct device *parent;
|
||||
{
|
||||
if (ms->flags & MS_DOALLOC) {
|
||||
ms->voices = malloc(ms->nvoice * sizeof (struct voice),
|
||||
M_DEVBUF, M_WAITOK);
|
||||
memset(ms->voices, 0, ms->nvoice * sizeof (struct voice));
|
||||
ms->seqno = 1;
|
||||
if (ms->mets->allocv == 0)
|
||||
ms->mets->allocv = &midisyn_allocvoice;
|
||||
}
|
||||
sc->hw_if = &midisyn_hw_if;
|
||||
sc->hw_hdl = ms;
|
||||
DPRINTF(("midisyn_attach: ms=%p\n", sc->hw_hdl));
|
||||
midi_attach(sc, parent);
|
||||
}
|
||||
|
||||
void
|
||||
midisyn_freevoice(ms, voice)
|
||||
midisyn *ms;
|
||||
int voice;
|
||||
{
|
||||
if (!(ms->flags & MS_DOALLOC))
|
||||
return;
|
||||
ms->voices[voice].chan_note = ~0;
|
||||
}
|
||||
|
||||
int
|
||||
midisyn_allocvoice(ms, chan, note)
|
||||
midisyn *ms;
|
||||
u_int32_t chan, note;
|
||||
{
|
||||
int bestv, v;
|
||||
u_int bestseq, s;
|
||||
|
||||
if (!(ms->flags & MS_DOALLOC))
|
||||
return (chan);
|
||||
/* Find a free voice, or if no free voice is found the oldest. */
|
||||
bestv = 0;
|
||||
bestseq = ms->voices[0].seqno;
|
||||
for (v = 1; v < ms->nvoice; v++) {
|
||||
s = ms->voices[v].seqno;
|
||||
if (s < bestseq) {
|
||||
bestseq = s;
|
||||
bestv = v;
|
||||
}
|
||||
}
|
||||
ms->voices[bestv].chan_note = CHANNOTE(chan, note);
|
||||
ms->voices[bestv].seqno = ms->seqno++;
|
||||
return (bestv);
|
||||
}
|
||||
|
||||
int
|
||||
midisyn_output(addr, b)
|
||||
void *addr;
|
||||
int b;
|
||||
{
|
||||
midisyn *ms = addr;
|
||||
u_int8_t status, chan;
|
||||
int voice = 0; /* initialize to keep gcc quiet */
|
||||
struct midisyn_methods *fs;
|
||||
u_int32_t note, vel;
|
||||
|
||||
DPRINTF(("midisyn_output: ms=%p ms->mets=%p\n", ms, ms->mets));
|
||||
fs = ms->mets;
|
||||
if (ms->pos < 0) {
|
||||
/* Doing SYSEX */
|
||||
if (fs->sysex)
|
||||
fs->sysex(ms, b);
|
||||
if (b == MIDI_SYSEX_END)
|
||||
ms->pos = 0;
|
||||
return (0);
|
||||
}
|
||||
if (ms->pos == 0 && !MIDI_IS_STATUS(b))
|
||||
ms->pos++; /* repeat last status byte */
|
||||
ms->buf[ms->pos++] = b;
|
||||
status = ms->buf[0];
|
||||
if (ms->pos < MIDI_LENGTH(status))
|
||||
return (0);
|
||||
/* Decode the MIDI command */
|
||||
chan = MIDI_GET_CHAN(status);
|
||||
note = ms->buf[1];
|
||||
if (ms->flags & MS_FREQXLATE)
|
||||
note = midisyn_note_to_freq(note);
|
||||
vel = ms->buf[2];
|
||||
switch (MIDI_GET_STATUS(status)) {
|
||||
case MIDI_NOTEOFF:
|
||||
voice = midisyn_findvoice(ms, chan, ms->buf[1]);
|
||||
if (voice >= 0) {
|
||||
fs->noteoff(ms, voice, note, vel);
|
||||
midisyn_freevoice(ms, voice);
|
||||
}
|
||||
break;
|
||||
case MIDI_NOTEON:
|
||||
voice = fs->allocv(ms, chan, ms->buf[1]);
|
||||
fs->noteon(ms, voice, note, vel);
|
||||
break;
|
||||
case MIDI_KEY_PRESSURE:
|
||||
if (fs->keypres) {
|
||||
voice = midisyn_findvoice(ms, voice, ms->buf[1]);
|
||||
if (voice >= 0)
|
||||
fs->keypres(ms, voice, note, vel);
|
||||
}
|
||||
break;
|
||||
case MIDI_CTL_CHANGE:
|
||||
if (fs->ctlchg)
|
||||
fs->ctlchg(ms, chan, ms->buf[1], vel);
|
||||
break;
|
||||
case MIDI_PGM_CHANGE:
|
||||
if (fs->pgmchg)
|
||||
fs->pgmchg(ms, chan, ms->buf[1]);
|
||||
break;
|
||||
case MIDI_CHN_PRESSURE:
|
||||
if (fs->chnpres) {
|
||||
voice = midisyn_findvoice(ms, chan, ms->buf[1]);
|
||||
if (voice >= 0)
|
||||
fs->chnpres(ms, voice, note);
|
||||
}
|
||||
break;
|
||||
case MIDI_PITCH_BEND:
|
||||
if (fs->pitchb) {
|
||||
voice = midisyn_findvoice(ms, chan, ms->buf[1]);
|
||||
if (voice >= 0)
|
||||
fs->pitchb(ms, chan, note, vel);
|
||||
}
|
||||
break;
|
||||
case MIDI_SYSTEM_PREFIX:
|
||||
if (fs->sysex)
|
||||
fs->sysex(ms, status);
|
||||
ms->pos = -1;
|
||||
return (0);
|
||||
}
|
||||
ms->pos = 0;
|
||||
return (0);
|
||||
}
|
||||
|
||||
/*
|
||||
* Convert a MIDI note to the corresponding frequency.
|
||||
* The frequency is scaled by 2^16.
|
||||
*/
|
||||
u_int32_t
|
||||
midisyn_note_to_freq(note)
|
||||
int note;
|
||||
{
|
||||
int o, n, f;
|
||||
#define BASE_OCTAVE 5
|
||||
static u_int32_t notes[] = {
|
||||
17145893, 18165441, 19245614, 20390018, 21602472, 22887021,
|
||||
24247954, 25689813, 27217409, 28835840, 30550508, 32367136
|
||||
};
|
||||
|
||||
|
||||
o = note / 12;
|
||||
n = note % 12;
|
||||
|
||||
f = notes[n];
|
||||
|
||||
if (o < BASE_OCTAVE)
|
||||
f >>= (BASE_OCTAVE - o);
|
||||
else if (o > BASE_OCTAVE)
|
||||
f <<= (o - BASE_OCTAVE);
|
||||
return (f);
|
||||
}
|
||||
|
80
sys/dev/midisynvar.h
Normal file
80
sys/dev/midisynvar.h
Normal file
@ -0,0 +1,80 @@
|
||||
/* $NetBSD: midisynvar.h,v 1.1 1998/08/12 18:14:02 augustss Exp $ */
|
||||
|
||||
/*
|
||||
* Copyright (c) 1998 The NetBSD Foundation, Inc.
|
||||
* All rights reserved.
|
||||
*
|
||||
* Author: Lennart Augustsson
|
||||
*
|
||||
* 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. All advertising materials mentioning features or use of this software
|
||||
* must display the following acknowledgement:
|
||||
* This product includes software developed by the NetBSD
|
||||
* Foundation, Inc. and its contributors.
|
||||
* 4. Neither the name of The NetBSD Foundation nor the names of its
|
||||
* contributors may be used to endorse or promote products derived
|
||||
* from this software without specific prior written permission.
|
||||
*
|
||||
* 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.
|
||||
*/
|
||||
|
||||
typedef struct midisyn midisyn;
|
||||
|
||||
struct midisyn_methods {
|
||||
int (*open) __P((midisyn *, int));
|
||||
void (*close) __P((midisyn *));
|
||||
int (*ioctl) __P((midisyn *, u_long, caddr_t, int, struct proc *));
|
||||
int (*allocv) __P((midisyn *, u_int32_t, u_int32_t));
|
||||
void (*noteon) __P((midisyn *, u_int32_t, u_int32_t, u_int32_t));
|
||||
void (*noteoff) __P((midisyn *, u_int32_t, u_int32_t, u_int32_t));
|
||||
void (*keypres) __P((midisyn *, u_int32_t, u_int32_t, u_int32_t));
|
||||
void (*ctlchg) __P((midisyn *, u_int32_t, u_int32_t, u_int32_t));
|
||||
void (*pgmchg) __P((midisyn *, u_int32_t, u_int32_t));
|
||||
void (*chnpres) __P((midisyn *, u_int32_t, u_int32_t));
|
||||
void (*pitchb) __P((midisyn *, u_int32_t, u_int32_t, u_int32_t));
|
||||
void (*sysex) __P((midisyn *, u_int32_t));
|
||||
};
|
||||
|
||||
struct voice {
|
||||
u_int chan_note; /* channel and note */
|
||||
#define CHANNOTE(chan, note) ((chan) * 256 + (note))
|
||||
u_int seqno; /* allocation index (increases with time) */
|
||||
};
|
||||
|
||||
struct midisyn {
|
||||
/* Filled by synth driver */
|
||||
struct midisyn_methods *mets;
|
||||
char name[32];
|
||||
int nvoice;
|
||||
int flags;
|
||||
#define MS_DOALLOC 1
|
||||
#define MS_FREQXLATE 2
|
||||
void *data;
|
||||
|
||||
/* Used by midisyn driver */
|
||||
u_int8_t buf[3];
|
||||
int pos;
|
||||
struct voice *voices;
|
||||
u_int seqno;
|
||||
};
|
||||
|
||||
void midisyn_attach __P((struct midi_softc *, midisyn *, struct device *));
|
||||
|
||||
#define MIDISYN_FREQ_TO_HZ(f) ((f) >> 16)
|
Loading…
Reference in New Issue
Block a user