13
0

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
This commit is contained in:
Paul Davis 2009-07-30 14:07:49 +00:00
parent 69cf67f99a
commit c2c637db83

43
tools/fmt-bindings Executable file
View File

@ -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;