From c2c637db8338b87dc176d3b9ff03d241c225d346 Mon Sep 17 00:00:00 2001 From: Paul Davis Date: Thu, 30 Jul 2009 14:07:49 +0000 Subject: 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 --- tools/fmt-bindings | 43 +++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 43 insertions(+) create mode 100755 tools/fmt-bindings (limited to 'tools/fmt-bindings') 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; -- cgit v1.2.3