this is just a (re)start on a tool to produce bindings cheatsheets (original was lost in the Great Berlin Disk Crash

git-svn-id: svn://localhost/ardour2/branches/3.0@5444 d708f5d6-7413-0410-9779-e7cbd77b26cf

1 files changed, 43 insertions, 0 deletions

diff --git a/tools/fmt-bindings b/tools/fmt-bindings
new file mode 100755
index 0000000000..8aed63dacc
--- /dev/null
+++ b/tools/fmt-bindings
@@ -0,0 +1,43 @@
+#!/usr/bin/perl
+
+$in_group_def = 0;
+$group_name;
+$group_text;
+$group_key;
+%group_names;
+%group_text;
+
+while (<>) {
+    next if /^\;/;
+
+    if (/^%/) {
+
+	if ($in_group_def) {
+	    chop $group_text;
+	    $group_names{$group_key} = $group_name;
+	    $group_text{$group_key} = $group_text;
+	}
+
+	s/^%//;
+	chop;
+	($group_key,$group_name) = split (/\s+/, $_, 2);
+	$group_text = "";
+	$in_group_def = 1;
+	next;
+    }
+
+    if ($in_group_def) {
+	next if (/^[ \t]+$/);
+	$group_text .= $_;
+	$group_text;
+	next;
+    }
+
+    next;
+}
+
+foreach $k (keys %group_names) {
+    print "GROUP: ", $k, " ", $group_names{$k}, "\n\t", $group_text{$k}, "\n";
+}
+
+exit 0;