#! /usr/local/bin/perl -w

open(OUT, ">bin/addhyphens.pl");

print OUT "#! /usr/local/bin/perl -w\n";
print OUT "\n#generated automatically.... do not edit\n\n";
print OUT "while (<>) {\n";
print OUT "    if (/^\\.Xref /) { s/\\\\%//g; print; next }\n";
print OUT "    if (/^\\.LastXref /) { s/\\\\%//g; print; next }\n";
print OUT "    if (/^\\.Name /) { s/\\\\%//g; print; next }\n";

while (<>) {
    if (/<Name>[ 	]*(.*)[ 	]*<\/Name>/) {
	$Name = $1;
	$out = $1;

	$out =~ s/([a-z_])([A-Z])/$1\\\\%$2/g;
	$out =~ s/([FW]ID)([A-Z])/$1\\\\%$2/g;
	$out =~ s/^(LQ[A-Z]*p*)\\\\%/$1/;
	$out =~ s/^([a-zA-Z])\\\\%/$1/;

	print OUT "    s/\\b$Name\\b/$out/g;\n"
    }
}

print OUT "    print;\n}\n";
close(OUT);
