implement Raw2Iaf;

include "sys.m";
include "draw.m";

sys:	Sys;
FD:	import sys;
stderr:	ref FD;

rateK:	con "rate";
rateV:	string = "44100";
chanK:	con "chans";
chanV:	string = "2";
bitsK:	con "bits";
bitsV:	string = "16";
encK:	con "enc";
encV:	string = "pcm";

progV:	string;
inV:	string = nil;
outV:	string = nil;
inf:	ref FD;
outf:	ref FD;

pad	:= array[] of { "  ", " ", "", "   " };

Raw2Iaf: module
{
	init:	fn(ctxt: ref Draw->Context, argv: list of string);
};

usage()
{
	sys->fprint(stderr, "usage: %s -8124 -ms -bw -aup -o out in\n", progV);
	exit;
}

options(s: string)
{
	for (i := 0; i < len s; i++) {
		case s[i] {
		'8' =>	rateV = "8000";
		'1' =>	rateV = "11025";
		'2' =>	rateV = "22050";
		'4' =>	rateV = "44100";
		'm' =>	chanV = "1";
		's' =>	chanV = "2";
		'b' =>	bitsV = "8";
		'w' =>	bitsV = "16";
		'a' =>	encV = "alaw";
		'u' =>	encV = "ulaw";
		'p' =>	encV = "pcm";
		* =>	usage();
		}
	}
}

init(nil: ref Draw->Context, argv: list of string)
{
	sys = load Sys Sys->PATH;
	stderr = sys->fildes(2);
	progV = hd argv;
	v := tl argv;

	while (v != nil) {
		a := hd v;
		v = tl v;
		if (len a == 0)
			continue;
		if (a[0] == '-') {
			if (len a == 1) {
				if (inV == nil)
					inV = "-";
				else
					usage();
			}
			else if (a[1] == 'o') {
				if (outV != nil)
					usage();
				if (len a > 2)
					outV = a[2:len a];
				else if (v == nil)
					usage();
				else {
					outV = hd v;
					v = tl v;
				}
			}
			else
				options(a[1:len a]);
		}
		else if (inV == nil)
			inV = a;
		else
			usage();
	}
	if (inV == nil || inV == "-")
		inf = sys->fildes(0);
	else {
		inf = sys->open(inV, Sys->OREAD);
		if (inf == nil) {
			sys->fprint(stderr, "%s: could not open %s: %r\n", progV, inV);
			exit;
		}
	}
	if (outV == nil || outV == "-")
		outf = sys->fildes(1);
	else {
		outf = sys->create(outV, Sys->OWRITE, 8r666);
		if (outf == nil) {
			sys->fprint(stderr, "%s: could not create %s: %r\n", progV, outV);
			exit;
		}
	}
	s := rateK + "\t" + rateV + "\n"
		+  chanK + "\t" + chanV + "\n"
		+  bitsK + "\t" + bitsV + "\n"
		+  encK + "\t" + encV;
	sys->fprint(outf, "%s%s\n\n", s, pad[len s % 4]);
	if (sys->stream(inf, outf, Sys->ATOMICIO) < 0)
		sys->fprint(stderr, "%s: data copy error: %r\n", progV);
}