#!/bin/rc
# Phil's Music Writer wrapper
rfork e
if(~ $1 '-b'){
	if(! test -r $2 >[2]/dev/null){
		echo bad arg to -b option: $2 bank not found >[1=2]
		exit nobank;
	}
	bank = $2
	fn cmd{games/dmid -i $bank | games/opl3 >/dev/audio}
	shift
	shift
}
if not if(test -r /mnt/wad/genmidi)
	fn cmd{games/dmid | games/opl3 >/dev/audio}
if not
	fn cmd{games/midi}
if(~ $#* 0)
	* = /fd/0
pmw -o /tmp/pmw.$pid.ps -midi /tmp/pmw.$pid.mid $*
sleep 2 && cmd </tmp/pmw.$pid.mid &
fn sighup sigint sigexit{
	if(! ~ $apid '' && test -d /proc/$apid)
		@{echo kill>/proc/$apid/notepg}& wait $apid
	rm -f /tmp/pmw.$pid.mid /tmp/pmw.$pid.ps
}
page -w /tmp/pmw.$pid.ps