shithub: misc

Info  •  Files  •  Log  •  Branches

remove upstreamed and wip midi experiments

--- a/mid2s.c

+++ /dev/null

@@ -1,93 +1,0 @@

-#include <u.h>

-#include <libc.h>

-#include <bio.h>

-#include "midifile.h"

-

-static int magic;

-

-void

-samp(uvlong n)

-{

-	double Δt;

-	long s;

-	static double t0;

-

-	if(t0 == 0.0)

-		t0 = nsec();

-	t0 += n * 1000 * tempo / div;

-	Δt = t0 - nsec();

-	s = floor(Δt / 1000000);

-	if(s > 0)

-		sleep(s);

-}

-

-/* set delay to 0, and translate running status: the receiver

- * only sees one track whereas running status is a property of

- * each track (stream); don't send EOT for the same reason */

-static void

-eat(Trk *x)

-{

-	int e, n;

-	uchar u[16], *p, *q;

-	Msg msg;

-

-	q = u + 1;

-	e = nextevent(x);

-	*q++ = e;

-	p = x->p;

-	translate(x, e, &msg);

-	if(msg.type == Ceot)

-		return;

-	u[0] = magic ? e >> 4 | (e & 0xf) << 4 : 0;

-	n = x->p - p;

-	if(msg.type == Csysex || n > nelem(u) - (q - u)){

-		write(1, u, q - u);

-		write(1, p, n);

-	}else{

-		memcpy(q, p, n);

-		write(1, u, n + (q - u));

-	}

-}

-

-void

-usage(void)

-{

-	fprint(2, "usage: %s [-D] [mid]\n", argv0);

-	exits("usage");

-}

-

-void

-main(int argc, char **argv)

-{

-	int end;

-	uchar eot[] = {0x00, 0xff, 0x2f, 0x00};

-	Trk *x;

-

-	ARGBEGIN{

-	case 'D': trace = 1; break;

-	case 'm': magic = 1; break;	/* FIXME: investigate more */

-	default: usage();

-	}ARGEND

-	if(readmid(*argv) < 0)

-		sysfatal("readmid: %r");

-	for(;;){

-		end = 1;

-		for(x=tr; x<tr+ntrk; x++){

-			if(x->ended)

-				continue;

-			end = 0;

-			x->Δ--;

-			while(x->Δ <= 0){

-				eat(x);

-				if(x->ended)

-					break;

-				x->Δ = getvar(x);

-			}

-		}

-		if(end)

-			break;

-		samp(1);

-	}

-	write(1, eot, sizeof eot);

-	exits(nil);

-}

--- a/midifile.c

+++ /dev/null

@@ -1,320 +1,0 @@

-#include <u.h>

-#include <libc.h>

-#include <bio.h>

-#include "midifile.h"

-

-Trk *tr;

-int mfmt, ntrk, div = 1, tempo = 500000;

-int trace, stream;

-vlong tic;

-Biobuf *ib;

-

-void *

-emalloc(ulong n)

-{

-	void *p;

-

-	p = mallocz(n, 1);

-	if(p == nil)

-		sysfatal("mallocz: %r");

-	setmalloctag(p, getcallerpc(&n));

-	return p;

-}

-

-void

-dprint(char *fmt, ...)

-{

-	char s[256];

-	va_list arg;

-

-	if(!trace)

-		return;

-	va_start(arg, fmt);

-	vseprint(s, s+sizeof s, fmt, arg);

-	va_end(arg);

-	fprint(2, "%s", s);

-}

-

-Biobuf *

-bfdopen(int fd, int mode)

-{

-	Biobuf *bf;

-

-	bf = Bfdopen(fd, mode);

-	if(bf == nil)

-		sysfatal("bfdopen: %r");

-	Blethal(bf, nil);

-	return bf;

-}

-

-Biobuf *

-bopen(char *file, int mode)

-{

-	int fd;

-

-	fd = open(file, mode);

-	if(fd < 0)

-		sysfatal("bopen: %r");

-	return bfdopen(fd, mode);

-}

-

-void

-bread(void *u, int n)

-{

-	if(Bread(ib, u, n) != n)

-		sysfatal("bread: short read");

-}

-

-u8int

-get8(Trk *x)

-{

-	u8int v;

-

-	if(x == nil || x->p == nil || x->e == nil)

-		Bread(ib, &v, 1);

-	else{

-		if(x->p >= x->e || x->ended)

-			sysfatal("track overflow");

-		v = *x->p++;

-	}

-	return v;

-}

-

-u16int

-get16(Trk *x)

-{

-	u16int v;

-

-	v = get8(x) << 8;

-	return v | get8(x);

-}

-

-u32int

-get32(Trk *x)

-{

-	u32int v;

-

-	v = get16(x) << 16;

-	return v | get16(x);

-}

-

-u8int

-peekbyte(Trk *x)

-{

-	return *x->p;

-}

-

-u32int

-peekvar(Trk *x)

-{

-	uchar *p;

-	uint v;

-

-	p = x->p;

-	v = getvar(x);

-	x->p = p;

-	return v;

-}

-

-void

-skip(Trk *x, int n)

-{

-	while(n-- > 0)

-		get8(x);

-}

-

-int

-getvar(Trk *x)

-{

-	int v, w;

-

-	w = get8(x);

-	v = w & 0x7f;

-	while(w & 0x80){

-		if(v & 0xff000000)

-			sysfatal("invalid variable-length number");

-		v <<= 7;

-		w = get8(x);

-		v |= w & 0x7f;

-	}

-	return v;

-}

-

-double

-tc(double n)

-{

-	return (n * tempo * Rate / div) / 1e6;

-}

-

-int

-nextevent(Trk *x)

-{

-	int e;

-

-	x->prev = x->p;

-	e = get8(x);

-	if((e & 0x80) == 0){

-		if(x->p != nil){

-			x->p--;

-			x->prev--;

-		}

-		e = x->ev;

-		if((e & 0x80) == 0)

-			sysfatal("invalid event %#ux", e);

-	}else

-		x->ev = e;

-	return e;

-}

-

-/* FIXME: use midump's implementation to make this not suck */

-static void

-setmsg(Msg *m, int chan, int type, int arg1, int arg2)

-{

-	m->chan = chan;

-	m->type = type;

-	m->arg1 = arg1;

-	m->arg2 = arg2;

-}

-void

-translate(Trk *x, int e, Msg *msg)

-{

-	int c, n, m, type;

-	uchar *p;

-

-	c = e & 0xf;

-	dprint("ch%02d ", c);

-	n = get8(x);

-	m = -1;

-	type = Cunknown;

-	switch(e >> 4){

-	case 0x8:

-		m = get8(x);

-		dprint("note off\t%02ux\taftertouch\t%02ux", n, m);

-		type = Cnoteoff;

-		break;

-	case 0x9:

-		m = get8(x);

-		dprint("note on\t%02ux\tvelocity\t%02ux", n, m);

-		type = Cnoteon;

-		break;

-	case 0xb:

-		m = get8(x);

-		dprint("control change: ");

-		switch(n){

-		case 0x00:

-			dprint("bank select msb\t%02ux", m);

-			type = Cbankmsb;

-			break;

-		case 0x07:

-			dprint("channel volume\t%02ux", m);

-			type = Cchanvol;

-			break;

-		case 0x0a:

-			dprint("pan\t%02ux", m);

-			type = Cpan;

-			break;

-		default:

-			dprint("unknown controller %.4ux", n);

-			break;

-		}

-		break;

-	case 0xc:

-		dprint("program change\t%02ux", n);

-		type = Cprogram;

-		break;

-	case 0xe:

-		n = (get8(x) << 7 | n) - 0x4000 / 2;

-		dprint("pitch bend\t%02x", n);

-		type = Cpitchbend;

-		break;

-	case 0xf:

-		dprint("sysex:\t");

-		if((e & 0xf) == 0){

-			m = 0;

-			while(get8(x) != 0xf7)

-				m++;

-			fprint(2, "sysex n %d m %d\n", n, m);

-			type = Csysex;

-			break;

-		}

-		m = get8(x);

-		switch(n){

-		case 0x2f:

-			dprint("... so long!");

-			x->ended = 1;

-			type = Ceot;

-			break;

-		case 0x51:

-			tempo = get16(x) << 8;

-			tempo |= get8(x);

-			dprint("tempo change\t%d", tempo);

-			type = Ctempo;

-			break;

-		default:

-			dprint("skipping unhandled event %02ux", n);

-			skip(x, m);

-			break;

-		}

-		break;

-	case 0xa:

-		m = get8(x);

-		dprint("polyphonic key pressure/aftertouch\t%02ux\t%02ux", n, m);

-		type = Ckeyafter;

-		break;

-	case 0xd:

-		m = get8(x);

-		dprint("channel pressure/aftertouch\t%02ux\t%02ux", n, m);

-		type = Cchanafter;

-		break;

-	default: sysfatal("invalid event %#ux", e >> 4);

-	}

-	setmsg(msg, c, type, n, m);

-	dprint("\t[");

-	for(p=x->prev; p<x->p; p++)

-		dprint("%02ux", *p);

-	dprint("]\n");

-}

-

-int

-readmid(char *file)

-{

-	u32int n, z;

-	uchar *s;

-	Trk *x;

-

-	ib = file != nil ? bopen(file, OREAD) : bfdopen(0, OREAD);

-	if(get32(nil) != 0x4d546864 || get32(nil) != 6){

-		werrstr("invalid header");

-		return -1;

-	}

-	mfmt = get16(nil);

-	ntrk = get16(nil);

-	if(ntrk == 1)

-		mfmt = 0;

-	if(mfmt < 0 || mfmt > 1){

-		werrstr("unsupported format %d", mfmt);

-		return -1;

-	}

-	div = get16(nil);

-	tr = emalloc(ntrk * sizeof *tr);

-	for(x=tr, z=-1UL; x<tr+ntrk; x++){

-		if(get32(nil) != 0x4d54726b){

-			werrstr("invalid track");

-			return -1;

-		}

-		n = get32(nil);

-		x->s = emalloc(n+1);

-		bread(x->s, n);

-		x->p = x->s;

-		x->prev = x->s;

-		x->e = x->s + n;

-		x->Δ = getvar(x);	/* prearm */

-		if(x->Δ < z)

-			z = x->Δ;

-	}

-	for(x=tr; x<tr+ntrk; x++)

-		x->Δ -= z;

-	Bterm(ib);

-	ib = nil;

-	return 0;

-}

--- a/midifile.h

+++ /dev/null

@@ -1,60 +1,0 @@

-typedef struct Msg Msg;

-typedef struct Trk Trk;

-

-enum{

-	Rate = 44100,

-	Ninst = 128 + 81-35+1,

-	Nchan = 16,

-	Percch = 9,

-};

-

-struct Msg{

-	int type;

-	int chan;

-	int arg1;

-	int arg2;

-};

-// FIXME: naming

-// FIXME: hicucps playing when there are sysex etc events (-s)

-struct Trk{

-	u8int *s;

-	u8int *prev;

-	u8int *p;

-	u8int *e;

-	double Δ;

-	double t;

-	int ev;

-	int ended;

-};

-extern Trk *tr;

-

-enum{

-	Cnoteoff,

-	Cnoteon,

-	Cbankmsb,

-	Cchanvol,

-	Cpan,

-	Cprogram,

-	Cpitchbend,

-	Ceot,

-	Ctempo,

-	Ckeyafter,

-	Cchanafter,

-	Csysex,

-	Cunknown,

-};

-

-extern int mfmt, ntrk, div, tempo;

-extern int trace, stream;

-

-void*	emalloc(ulong);

-int	readmid(char*);

-void	dprint(char*, ...);

-void	samp(uvlong);

-u32int	peekvar(Trk*);

-u8int	peekbyte(Trk*);

-int	nextevent(Trk*);

-void	translate(Trk*, int, Msg*);

-int	getvar(Trk*);

-

-#pragma	varargck	argpos	dprint	1

--- a/midump.c

+++ /dev/null

@@ -1,332 +1,0 @@

-#include <u.h>

-#include <libc.h>

-#include <bio.h>

-

-enum{

-	Rate = 44100,

-	Ninst = 128 + 81-35+1,

-};

-

-typedef struct Trk Trk;

-struct Trk{

-	u8int *s;

-	u8int *p;

-	u8int *e;

-	double Δ;

-	double t;

-	int ev;

-	int ended;

-};

-Trk *tr;

-

-int desc, quiet;

-int mfmt, ntrk, div = 1, tempo;

-vlong tic;

-Biobuf *ib;

-

-void *

-emalloc(ulong n)

-{

-	void *p;

-

-	p = mallocz(n, 1);

-	if(p == nil)

-		sysfatal("mallocz: %r");

-	setmalloctag(p, getcallerpc(&n));

-	return p;

-}

-

-void

-dprint(char *fmt, ...)

-{

-	char s[256];

-	va_list arg;

-

-	if(!desc)

-		return;

-	va_start(arg, fmt);

-	vseprint(s, s+sizeof s, fmt, arg);

-	va_end(arg);

-	fprint(2, "%s", s);

-}

-

-Biobuf *

-bfdopen(int fd, int mode)

-{

-	Biobuf *bf;

-

-	bf = Bfdopen(fd, mode);

-	if(bf == nil)

-		sysfatal("bfdopen: %r");

-	Blethal(bf, nil);

-	return bf;

-}

-

-Biobuf *

-bopen(char *file, int mode)

-{

-	int fd;

-

-	fd = open(file, mode);

-	if(fd < 0)

-		sysfatal("bopen: %r");

-	return bfdopen(fd, mode);

-}

-

-void

-bread(void *u, int n)

-{

-	if(Bread(ib, u, n) != n)

-		sysfatal("bread: short read");

-}

-

-u8int

-get8(Trk *x)

-{

-	u8int v;

-

-	if(x == nil || x->p == nil || x->e == nil)

-		Bread(ib, &v, 1);

-	else{

-		if(x->p >= x->e || x->ended)

-			sysfatal("track overflow");

-		v = *x->p++;

-	}

-	if(!quiet)

-		print("%02hhux", v);

-	return v;

-}

-

-u16int

-get16(Trk *x)

-{

-	u16int v;

-

-	v = get8(x) << 8;

-	return v | get8(x);

-}

-

-u32int

-get32(Trk *x)

-{

-	u32int v;

-

-	v = get16(x) << 16;

-	return v | get16(x);

-}

-

-double

-tc(double n)

-{

-	return (n * tempo * Rate / div) / 1e6;

-}

-

-void

-skip(Trk *x, int n)

-{

-	while(n-- > 0)

-		get8(x);

-}

-

-int

-getvar(Trk *x)

-{

-	int v, w;

-

-	w = get8(x);

-	v = w & 0x7f;

-	while(w & 0x80){

-		if(v & 0xff000000)

-			sysfatal("invalid variable-length number");

-		v <<= 7;

-		w = get8(x);

-		v |= w & 0x7f;

-	}

-	return v;

-}

-

-int

-ev(Trk *x)

-{

-	int e, n, m;

-

-	dprint("%08lld ", tic);

-	print("[%02zd] ", x-tr);

-	quiet = 1;

-	e = get8(x);

-	quiet = 0;

-	if((e & 0x80) == 0){

-		x->p--;

-		e = x->ev;

-		print("%02ux*", e);

-		if((e & 0x80) == 0)

-			sysfatal("invalid event");

-	}else{

-		print("%02ux", e);

-		x->ev = e;

-	}

-	dprint("C%02d: %1ux ", e & 15, e >> 4);

-	n = get8(x);

-	switch(e >> 4){

-	case 0x8:

-		m = get8(x);

-		dprint("C%02d note off %02ux, aftertouch %02ux", e&0xf, n, m);

-		break;

-	case 0x9:

-		m = get8(x);

-		dprint("C%02d note on %02ux, velocity %02ux", e&0xf, n, m);

-		break;

-	case 0xb:

-		m = get8(x);

-		dprint("control change: ");

-		switch(n){

-		case 0x00: dprint("C%02d bank select msb %02ux", e&0xf, m); break;

-		case 0x07: dprint("C%02d channel volume %02ux", e&0xf, m); break;

-		case 0x0a: dprint("C%02d pan %02ux", e&0xf, m); break;

-		default: dprint("C%02d unknown controller %.4ux = %02ux", e&0xf, n, m);

-		}

-		break;

-	case 0xc: dprint("program change %02ux", e&0xf, n); break;

-	case 0xe:

-		n = get8(x) << 7 | n;

-		dprint("pitch bend change %02x", n - 0x4000 / 2);

-		break;

-	case 0xf:

-		dprint("sysex: ");

-		if((e & 0xf) == 0){

-			while(get8(x) != 0xf7)

-				;

-			break;

-		}

-		m = get8(x);

-		dprint("[%d] ", m);

-		switch(n){

-		case 0x2f: print(" -- so long!\n"); return -1;

-		case 0x51:

-			tempo = get16(x) << 8;

-			tempo |= get8(x);

-			dprint("tempo change %d", tempo);

-			break;

-		default: skip(x, m);

-		}

-		break;

-	case 0xa:

-		m = get8(x);

-		dprint("polyphonic key pressure/aftertouch %02ux", m);

-		break;

-	case 0xd:

-		m = get8(x);

-		dprint("channel pressure/aftertouch %02ux", m);

-		break;

-	default: sysfatal("invalid event %#ux", e >> 4);

-	}

-	print("\n");

-	return 0;

-}

-

-void

-readmid(char *file)

-{

-	u32int n, z;

-	uchar *s;

-	Trk *x;

-

-	ib = file != nil ? bopen(file, OREAD) : bfdopen(0, OREAD);

-	if(get32(nil) != 0x4d546864 || get32(nil) != 6)

-		sysfatal("invalid header");

-	mfmt = get16(nil);

-	ntrk = get16(nil);

-	if(ntrk == 1)

-		mfmt = 0;

-

-		switch(mfmt){

-		case 0: dprint("format 0: single multi-channel track\n"); break;

-		case 1: dprint("format 1: multiple concurrent tracks\n"); break;

-		case 2: dprint("format 2: multiple independent tracks\n"); break;

-		}

-		dprint("%d tracks\n", ntrk);

-

-	if(mfmt < 0 || mfmt > 1)

-		sysfatal("unsupported format %d", mfmt);

-	div = get16(nil);

-	if(1)	/* FIXME: properly introduce new members, etc. */

-		dprint("div: %d ticks per quarter note\n", div);

-	else

-		dprint("div: %d smpte format, %d ticks per frame\n", (s16int)div>>8, div & 0xff);

-	tr = emalloc(ntrk * sizeof *tr);

-	print("\n");

-	for(x=tr, z=-1UL; x<tr+ntrk; x++){

-		if(get32(nil) != 0x4d54726b)

-			sysfatal("invalid track");

-		n = get32(nil);

-		dprint("track %zd, %d bytes\n", x-tr, n);

-		s = emalloc(n);

-		bread(s, n);

-		x->s = s;

-		x->p = s;

-		x->e = s + n;

-		x->Δ = getvar(x);	/* prearm */

-		if(x->Δ < z)

-			z = x->Δ;

-		print("\n");

-	}

-	for(x=tr; x<tr+ntrk; x++)

-		x->Δ -= z;

-	tic = z;

-	Bterm(ib);

-}

-

-void

-usage(void)

-{

-	fprint(2, "usage: %s [mid]\n", argv0);

-	exits("usage");

-}

-

-void

-main(int argc, char **argv)

-{

-	int end, stream;

-	Trk *x, ☺;

-

-	desc = 1;

-	stream = 0;

-	ARGBEGIN{

-	case 'b': desc = 0; break;

-	case 's': stream = 1; break;

-	default: usage();

-	}ARGEND

-	tempo = 500000;

-	if(stream){

-		ib = *argv != nil ? bopen(*argv, OREAD) : bfdopen(0, OREAD);

-		tr = &☺;

-		ntrk = 1;

-		memset(tr, 0, sizeof *tr);

-		for(;;){

-			getvar(&☺);

-			if(ev(&☺) < 0)

-				exits(nil);

-		}

-	}

-	readmid(*argv);

-	for(end=0; !end;){

-		end = 1;

-		for(x=tr; x<tr+ntrk; x++){

-			if(x->ended)

-				continue;

-			end = 0;

-			x->Δ--;

-			x->t += tc(1);

-			while(x->Δ <= 0){

-				if(x->ended = ev(x)){

-					x->p = x->e;

-					break;

-				}

-				x->Δ = getvar(x);

-				print(" ");

-			}

-		}

-		tic++;

-	}

-	exits(nil);

-}

--- a/mkfile

+++ b/mkfile

@@ -9,8 +9,6 @@

 	spd\

 	tev\

 	wstat\

-	mid2s\

-	midump\

 HFILES=

 YFLAGS=-D

@@ -22,12 +20,3 @@

 (calc).c:R:	\1.tab.c

 	mv $stem1.tab.c $stem1.c

-

-$O.mid2s: mid2s.$O midifile.$O

-	$LD $LDFLAGS -o $target $prereq

-

-$O.s2mid: s2mid.$O midifile.$O

-	$LD $LDFLAGS -o $target $prereq

-

-$O.midump: midump.$O midifile.$O

-	$LD $LDFLAGS -o $target $prereq