1 files changed, 26 insertions, 0 deletions
diff --git a/v4l2-apps/util/gen_keytables.pl b/v4l2-apps/util/gen_keytables.pl
new file mode 100755
index 000000000..f183ab4d1
--- /dev/null
+++ b/v4l2-apps/util/gen_keytables.pl
@@ -0,0 +1,26 @@
+#!/usr/bin/perl
+use strict;
+
+my $keyname="";
+while (<>) {
+#IR_KEYTAB_TYPE ir_codes_proteus_2309[IR_KEYTAB_SIZE] = {
+	if (m/IR_KEYTAB_TYPE\s+(\w[\w\d_]+)/) {
+		$keyname = $1;
+		$keyname =~ s/^ir_codes_//;
+
+		print "Generating keycodes/$keyname\n";
+		open OUT, ">keycodes/$keyname";
+		next;
+	}
+	if ($keyname ne "") {
+		if (m/(0x[\d\w]+).*(KEY_[^\s\,]+)/) {
+			printf OUT "%s %s\n",$1, $2;
+			next;
+		}
+		if (m/\}/) {
+			close OUT;
+			$keyname="";
+			next;
+		}
+	}
+}