1 files changed, 70 insertions, 0 deletions
diff --git a/appl/cmd/irtest.b b/appl/cmd/irtest.b
new file mode 100644
index 00000000..3d0260c7
--- /dev/null
+++ b/appl/cmd/irtest.b
@@ -0,0 +1,70 @@
+implement Irtest;
+
+include "sys.m";
+	sys: Sys;
+include "draw.m";
+include "ir.m";
+	ir: Ir;
+
+Irtest: module
+{
+	init:	fn(nil: ref Draw->Context, argv: list of string);
+};
+
+stderr: ref Sys->FD;
+
+init(nil: ref Draw->Context, nil: list of string)
+{
+	x := chan of int;
+	p := chan of int;
+
+	sys = load Sys Sys->PATH;
+	stderr = sys->fildes(2);
+
+	ir = load Ir Ir->PATH;
+	if(ir == nil)
+		ir = load Ir Ir->SIMPATH;
+	if(ir == nil) {
+		sys->fprint(stderr, "load ir: %r\n");
+		return;
+	}
+
+	if(ir->init(x,p) != 0) {
+		sys->fprint(stderr, "Ir->init: %r\n");
+		return;
+	}
+	<-p;
+
+	names := array[] of {
+		"Zero",
+		"One",
+		"Two",
+		"Three",
+		"Four",
+		"Five",
+		"Six",
+		"Seven",
+		"Eight",
+		"Nine",
+		"ChanUP",
+		"ChanDN",
+		"VolUP",
+		"VolDN",
+		"FF",
+		"Rew",
+		"Up",
+		"Dn",
+		"Select",
+		"Power",
+	};
+
+	while((c := <-x) != Ir->EOF){
+		c = ir->translate(c);
+		if(c == ir->Error)
+			sys->print("Error\n");
+		else if(c >= len names)
+			sys->print("unknown %d\n", c);
+		else
+			sys->print("%s\n", names[c]);
+	}	
+}