diff options
| -rw-r--r-- | usr.bin/midiplay/Makefile | 7 | ||||
| -rw-r--r-- | usr.bin/midiplay/midiplay.1 | 100 | ||||
| -rw-r--r-- | usr.bin/midiplay/midiplay.c | 569 |
3 files changed, 676 insertions, 0 deletions
diff --git a/usr.bin/midiplay/Makefile b/usr.bin/midiplay/Makefile new file mode 100644 index 00000000000..c487867a90d --- /dev/null +++ b/usr.bin/midiplay/Makefile @@ -0,0 +1,7 @@ +# $OpenBSD: Makefile,v 1.1 1999/01/01 23:58:22 niklas Exp $ +# $NetBSD: Makefile,v 1.1 1998/08/12 21:39:11 augustss Exp $ +# @(#)Makefile 8.1 (Berkeley) 6/6/93 + +PROG= midiplay + +.include <bsd.prog.mk> diff --git a/usr.bin/midiplay/midiplay.1 b/usr.bin/midiplay/midiplay.1 new file mode 100644 index 00000000000..9ca15d0e986 --- /dev/null +++ b/usr.bin/midiplay/midiplay.1 @@ -0,0 +1,100 @@ +.\" $OpenBSD: midiplay.1,v 1.1 1999/01/01 23:58:22 niklas Exp $ +.\" $NetBSD: midiplay.1,v 1.3 1998/08/13 18:26:36 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. +.\" +.Dd Aug 12, 1998 +.Dt MIDIPLAY 1 +.Os +.Sh NAME +.Nm midiplay +.Nd play MIDI files +.Sh SYNOPSIS +.Nm +.Op Fl d Ar devno +.Op Fl f Ar file +.Op Fl l +.Op Fl m +.Op Fl t Ar tempo +.Op Fl v +.Op Fl x +.Op Ar file ... +.Sh DESCRIPTION +The +.Nm +command plays MIDI files using the sequencer device. +If no file name is given it will play from standard input, otherwise +it will play the named files. +.Pp +The program accepts the following options: +.Bl -tag -width Fl +.It Fl d Ar devno +specifies the number of the MIDI device used for output (as listed +by the +.Fl l +flag). The default is device 0. +.It Fl f Ar file +specifies the name of the sequencer device. +.It Fl l +list the possible devices without playing anything. +.It Fl m +show MIDI file meta events (copyright, lyrics, etc). +.It Fl q +specifies that the MIDI file should not be played, justed parsed. +.It Fl t Ar tempo +specifies the tempo. The default tempo is 100. +.It Fl v +be verbose. If the flag is repeated the verbosity increases. +.It Fl x +play a small sample sound. +.Sh FILES +.Bl -tag -width /dev/music +.It Pa /dev/music +MIDI sequencer device +.El +.\".Sh ENVIRONMENT +.\".Bl -tag -width MIDIDEVICE +.\".It Pa AUDIOCTLDEVICE +.\"the audio control device to use. +.\".El +.Sh SEE ALSO +.Xr midi 4 +.Sh HISTORY +The +.Nm +command first appeared in NetBSD 1.4. +.Sh BUGS +It may take a long while before playing stops when +.Nm +is interrupted since the sequencer and MIDI buffers will still +be emptied. diff --git a/usr.bin/midiplay/midiplay.c b/usr.bin/midiplay/midiplay.c new file mode 100644 index 00000000000..d75e9c5e322 --- /dev/null +++ b/usr.bin/midiplay/midiplay.c @@ -0,0 +1,569 @@ +/* $OpenBSD: midiplay.c,v 1.1 1999/01/01 23:58:22 niklas Exp $ */ +/* $NetBSD: midiplay.c,v 1.8 1998/11/25 22:17:07 augustss Exp $ */ + +/* + * Copyright (c) 1998 The NetBSD Foundation, Inc. + * All rights reserved. + * + * This code is derived from software contributed to The NetBSD Foundation + * by Lennart Augustsson (augustss@netbsd.org). + * + * 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 <stdio.h> +#include <stdlib.h> +#include <fcntl.h> +#include <err.h> +#include <unistd.h> +#include <string.h> +#include <sys/types.h> +#include <sys/stat.h> +#include <sys/ioctl.h> +#include <sys/midiio.h> + +#define DEVMUSIC "/dev/music" + +struct track { + u_char *start, *end; + u_long curtime; + u_char status; +}; + +#define MIDI_META 0xff + +#define META_SEQNO 0x00 +#define META_TEXT 0x01 +#define META_COPYRIGHT 0x02 +#define META_TRACK 0x03 +#define META_INSTRUMENT 0x04 +#define META_LYRIC 0x05 +#define META_MARKER 0x06 +#define META_CUE 0x07 +#define META_CHPREFIX 0x20 +#define META_EOT 0x2f +#define META_SET_TEMPO 0x51 +#define META_KEY 0x59 +#define META_SMPTE 0x54 +#define META_TIMESIGN 0x58 + +char *metanames[] = { + "", "Text", "Copyright", "Track", "Instrument", + "Lyric", "Marker", "Cue", +}; + +static int midi_lengths[] = { 2,2,2,2,1,1,2,0 }; +/* Number of bytes in a MIDI command */ +#define MIDI_LENGTH(d) (midi_lengths[((d) >> 4) & 7]) + +void usage __P((void)); +void send_event __P((seq_event_rec *)); +void dometa __P((u_int, u_char *, u_int)); +void midireset __P((void)); +void send_sysex __P((u_char *, u_int)); +u_long getvar __P((struct track *)); +void playfile __P((FILE *, char *)); +void playdata __P((u_char *, u_int, char *)); +int main __P((int argc, char **argv)); + +extern char *__progname; + +#define P(c) 1,0x90,c,0x7f,4,0x80,c,0 +#define PL(c) 1,0x90,c,0x7f,8,0x80,c,0 +#define C 0x3c +#define D 0x3e +#define E 0x40 +#define F 0x41 + +u_char sample[] = { + 'M','T','h','d', 0,0,0,6, 0,1, 0,1, 0,8, + 'M','T','r','k', 0,0,0,4+13*8, + P(C), P(C), P(C), P(E), P(D), P(D), P(D), + P(F), P(E), P(E), P(D), P(D), PL(C), + 0, 0xff, 0x2f, 0 +}; +#undef P +#undef PL +#undef C +#undef D +#undef E +#undef F + +#define MARK_HEADER "MThd" +#define MARK_TRACK "MTrk" +#define MARK_LEN 4 + +#define SIZE_LEN 4 +#define HEADER_LEN 6 + +#define GET8(p) ((p)[0]) +#define GET16(p) (((p)[0] << 8) | (p)[1]) +#define GET24(p) (((p)[0] << 16) | ((p)[1] << 8) | (p)[2]) +#define GET32(p) (((p)[0] << 24) | ((p)[1] << 16) | ((p)[2] << 8) | (p)[3]) + +void +usage() +{ + printf("Usage: %s [-d unit] [-f file] [-l] [-m] [-q] [-t tempo] [-v] [-x] [file ...]\n", + __progname); + exit(1); +} + +int showmeta = 0; +int verbose = 0; +#define BASETEMPO 400000 +u_int tempo = BASETEMPO; /* microsec / quarter note */ +u_int ttempo = 100; +int unit = 0; +int play = 1; +int fd; + +void +send_event(ev) + seq_event_rec *ev; +{ + /* + printf("%02x %02x %02x %02x %02x %02x %02x %02x\n", + ev->arr[0], ev->arr[1], ev->arr[2], ev->arr[3], + ev->arr[4], ev->arr[5], ev->arr[6], ev->arr[7]); + */ + if (play) + write(fd, ev, sizeof *ev); +} + +u_long +getvar(tp) + struct track *tp; +{ + u_long r, c; + + r = 0; + do { + c = *tp->start++; + r = (r << 7) | (c & 0x7f); + } while ((c & 0x80) && tp->start < tp->end); + return (r); +} + +void +dometa(meta, p, len) + u_int meta; + u_char *p; + u_int len; +{ + switch (meta) { + case META_TEXT: + case META_COPYRIGHT: + case META_TRACK: + case META_INSTRUMENT: + case META_LYRIC: + case META_MARKER: + case META_CUE: + if (showmeta) { + printf("%s: ", metanames[meta]); + fwrite(p, len, 1, stdout); + printf("\n"); + } + break; + case META_SET_TEMPO: + tempo = GET24(p); + if (showmeta) + printf("Tempo: %d us / quarter note\n", tempo); + break; + case META_TIMESIGN: + if (showmeta) { + int n = p[1]; + int d = 1; + while (n-- > 0) + d *= 2; + printf("Time signature: %d/%d %d,%d\n", + p[0], d, p[2], p[3]); + } + break; + case META_KEY: + if (showmeta) + printf("Key: %d %s\n", (char)p[0], + p[1] ? "minor" : "major"); + break; + default: + break; + } +} + +void +midireset() +{ + /* General MIDI reset sequence */ + static u_char gm_reset[] = { 0x7e, 0x7f, 0x09, 0x01, 0xf7 }; + + send_sysex(gm_reset, sizeof gm_reset); +} + +#define SYSEX_CHUNK 6 +void +send_sysex(p, l) + u_char *p; + u_int l; +{ + seq_event_rec event; + u_int n; + + event.arr[0] = SEQ_SYSEX; + event.arr[1] = unit; + do { + n = SYSEX_CHUNK; + if (l < n) { + memset(&event.arr[2], 0xff, SYSEX_CHUNK); + n = l; + } + memcpy(&event.arr[2], p, n); + send_event(&event); + l -= n; + } while (l > 0); +} + +void +playfile(f, name) + FILE *f; + char *name; +{ + u_char *buf; + u_int tot, n, size, nread; + + /* + * We need to read the whole file into memory for easy processing. + * Using mmap() would be nice, but some file systems do not support + * it, nor does reading from e.g. a pipe. The latter also precludes + * finding out the file size without reading it. + */ + size = 1000; + buf = malloc(size); + if (buf == 0) + errx(1, "malloc() failed\n"); + nread = size; + tot = 0; + for (;;) { + n = fread(buf + tot, 1, nread, f); + tot += n; + if (n < nread) + break; + /* There must be more to read. */ + nread = size; + size *= 2; + buf = realloc(buf, size); + if (buf == NULL) + errx(1, "realloc() failed\n"); + } + playdata(buf, tot, name); + free(buf); +} + +void +playdata(buf, tot, name) + u_char *buf; + u_int tot; + char *name; +{ + int format, ntrks, divfmt, ticks, t, besttrk = 0; + u_int len, mlen, status, chan; + u_char *p, *end, byte, meta, *msg; + struct track *tracks; + u_long bestcur, now; + struct track *tp; + seq_event_rec event; + + end = buf + tot; + if (verbose) + printf("Playing %s (%d bytes) ... \n", name, tot); + + if (memcmp(buf, MARK_HEADER, MARK_LEN) != 0) { + warnx("Not a MIDI file, missing header\n"); + return; + } + if (GET32(buf + MARK_LEN) != HEADER_LEN) { + warnx("Not a MIDI file, bad header\n"); + return; + } + format = GET16(buf + MARK_LEN + SIZE_LEN); + ntrks = GET16(buf + MARK_LEN + SIZE_LEN + 2); + divfmt = GET8(buf + MARK_LEN + SIZE_LEN + 4); + ticks = GET8(buf + MARK_LEN + SIZE_LEN + 5); + p = buf + MARK_LEN + SIZE_LEN + HEADER_LEN; + if ((divfmt & 0x80) == 0) + ticks |= divfmt << 8; + else + errx(1, "Absolute time codes not implemented yet\n"); + if (verbose > 1) + printf("format=%d ntrks=%d divfmt=%x ticks=%d\n", + format, ntrks, divfmt, ticks); + if (format != 0 && format != 1) { + warnx("Cannnot play MIDI file of type %d\n", format); + return; + } + if (ntrks == 0) + return; + tracks = malloc(ntrks * sizeof(struct track)); + if (tracks == NULL) + errx(1, "malloc() tracks failed\n"); + for (t = 0; t < ntrks; ) { + if (p >= end - MARK_LEN - SIZE_LEN) { + warnx("Cannot find track %d\n", t); + goto ret; + } + len = GET32(p + MARK_LEN); + if (len > 1000000) { /* a safe guard */ + warnx("Crazy track length\n"); + goto ret; + } + if (memcmp(p, MARK_TRACK, MARK_LEN) == 0) { + tracks[t].start = p + MARK_LEN + SIZE_LEN; + tracks[t].end = tracks[t].start + len; + tracks[t].curtime = getvar(&tracks[t]); + t++; + } + p += MARK_LEN + SIZE_LEN + len; + } + + /* + * Play MIDI events by selecting the track track with the lowest + * curtime. Execute the event, update the curtime and repeat. + */ + + /* + * The ticks variable is the number of ticks that make up a quarter + * note and is used as a reference value for the delays between + * the MIDI events. + * The sequencer has two "knobs": the TIMEBASE and the TEMPO. + * The delay specified in TMR_WAIT_REL is specified in + * sequencer time units. The length of a unit is + * 60*1000000 / (TIMEBASE * TEMPO). + * Set it to 1ms/unit (adjusted by user tempo changes). + */ + t = 500 * ttempo / 100; + if (ioctl(fd, SEQUENCER_TMR_TIMEBASE, &t) < 0) + err(1, "SEQUENCER_TMR_TIMEBASE"); + t = 120; + if (ioctl(fd, SEQUENCER_TMR_TEMPO, &t) < 0) + err(1, "SEQUENCER_TMR_TEMPO"); + if (ioctl(fd, SEQUENCER_TMR_START, 0) < 0) + err(1, "SEQUENCER_TMR_START"); + now = 0; + for (;;) { + /* Locate lowest curtime */ + bestcur = ~0; + for (t = 0; t < ntrks; t++) { + if (tracks[t].curtime < bestcur) { + bestcur = tracks[t].curtime; + besttrk = t; + } + } + if (bestcur == ~0) + break; + if (verbose > 1) { + printf("DELAY %4ld TRACK %2d ", bestcur-now, besttrk); + fflush(stdout); + } + if (now < bestcur) { + union { + u_int32_t i; + u_int8_t b[4]; + } u; + u_int32_t delta = bestcur - now; + delta = (int)((double)delta * tempo / (1000.0*ticks)); + u.i = delta; + if (delta != 0) { + event.arr[0] = SEQ_TIMING; + event.arr[1] = TMR_WAIT_REL; + event.arr[4] = u.b[0]; + event.arr[5] = u.b[1]; + event.arr[6] = u.b[2]; + event.arr[7] = u.b[3]; + send_event(&event); + } + } + now = bestcur; + tp = &tracks[besttrk]; + byte = *tp->start++; + if (byte == MIDI_META) { + meta = *tp->start++; + mlen = getvar(tp); + if (verbose > 1) + printf("META %02x (%d)\n", meta, mlen); + dometa(meta, tp->start, mlen); + tp->start += mlen; + } else { + if (MIDI_IS_STATUS(byte)) + tp->status = byte; + else + tp->start--; + mlen = MIDI_LENGTH(tp->status); + msg = tp->start; + if (verbose > 1) { + if (mlen == 1) + printf("MIDI %02x (%d) %02x\n", + tp->status, mlen, msg[0]); + else + printf("MIDI %02x (%d) %02x %02x\n", + tp->status, mlen, msg[0], msg[1]); + } + status = MIDI_GET_STATUS(tp->status); + chan = MIDI_GET_CHAN(tp->status); + switch (status) { + case MIDI_NOTEOFF: + case MIDI_NOTEON: + case MIDI_KEY_PRESSURE: + SEQ_MK_CHN_VOICE(&event, unit, status, chan, + msg[0], msg[1]); + send_event(&event); + break; + case MIDI_CTL_CHANGE: + SEQ_MK_CHN_COMMON(&event, unit, status, chan, + msg[0], 0, msg[1]); + send_event(&event); + break; + case MIDI_PGM_CHANGE: + case MIDI_CHN_PRESSURE: + SEQ_MK_CHN_COMMON(&event, unit, status, chan, + msg[0], 0, 0); + send_event(&event); + break; + case MIDI_PITCH_BEND: + SEQ_MK_CHN_COMMON(&event, unit, status, chan, + 0, 0, + (msg[0] & 0x7f) | + ((msg[1] & 0x7f) << 7)); + send_event(&event); + break; + case MIDI_SYSTEM_PREFIX: + mlen = getvar(tp); + if (tp->status == MIDI_SYSEX_START) + send_sysex(tp->start, mlen); + else + /* Sorry, can't do this yet */; + break; + default: + if (verbose) + printf("MIDI event 0x%02x ignored\n", + tp->status); + } + tp->start += mlen; + } + if (tp->start >= tp->end) + tp->curtime = ~0; + else + tp->curtime += getvar(tp); + } + if (ioctl(fd, SEQUENCER_SYNC, 0) < 0) + err(1, "SEQUENCER_SYNC"); + + ret: + free(tracks); +} + +int +main(argc, argv) + int argc; + char **argv; +{ + int ch; + int listdevs = 0; + int example = 0; + int nmidi; + char *file = DEVMUSIC; + struct synth_info info; + FILE *f; + + while ((ch = getopt(argc, argv, "?d:f:lmqt:vx")) != -1) { + switch(ch) { + case 'd': + unit = atoi(optarg); + break; + case 'f': + file = optarg; + break; + case 'l': + listdevs++; + break; + case 'm': + showmeta++; + break; + case 'q': + play = 0; + break; + case 't': + ttempo = atoi(optarg); + break; + case 'v': + verbose++; + break; + case 'x': + example++; + break; + case '?': + default: + usage(); + } + } + argc -= optind; + argv += optind; + + fd = open(file, O_WRONLY); + if (fd < 0) + err(1, "%s", file); + if (ioctl(fd, SEQUENCER_NRMIDIS, &nmidi) < 0) + err(1, "ioctl(SEQUENCER_NRMIDIS) failed, "); + if (nmidi == 0) + errx(1, "Sorry, no MIDI devices available\n"); + if (listdevs) { + for (info.device = 0; info.device < nmidi; info.device++) { + if (ioctl(fd, SEQUENCER_INFO, &info) < 0) + err(1, "ioctl(SEQUENCER_INFO) failed, "); + printf("%d: %s\n", info.device, info.name); + } + exit(0); + } + midireset(); + if (example) + playdata(sample, sizeof sample, "<Gubben Noa>"); + else if (argc == 0) + playfile(stdin, "<stdin>"); + else + while (argc--) { + f = fopen(*argv, "r"); + if (f == NULL) + err(1, "%s", *argv); + else { + playfile(f, *argv); + fclose(f); + } + argv++; + } + + exit(0); +} |