diff options
| -rwxr-xr-x | tools/fmt-bindings | 43 |
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; |