fix ampersands in group names in generated binding files

diff --git a/tools/fmt-bindings b/tools/fmt-bindings
index 351368fb5576419afe252a27ce72ff2ef5282b04..d2dd1adfca5e19b92ee56723d40123df05922d9a 100755 (executable)
--- a/tools/fmt-bindings
+++ b/tools/fmt-bindings
@@ -280,9 +280,12 @@ while (<SOURCE>) {
                $b =~ s/SECONDARY/Secondary-/;
                $b =~ s/TERTIARY/Tertiary-/;
                $b =~ s/LEVEL4/Level4-/;
-               
+
+               $g = $group_names{$gkey};
+               $g =~ s/\\&/&amp;/g;
+
                $bref = $owner_bindings{$owner};
-               push (@$bref, [ $action, $b, $group_names{$gkey} ]);
+               push (@$bref, [ $action, $b, $g]);
            }
        }