Blame bin/myspellfixprefix.pl
|
Packit |
e20377 |
#!/usr/bin/perl -w
|
|
Packit |
e20377 |
|
|
Packit |
e20377 |
# 2002-05-05 Björn Jacke <bjoern@j3e.de>
|
|
Packit |
e20377 |
#
|
|
Packit |
e20377 |
# script to expand prefixes of capital words to work around a myspell
|
|
Packit |
e20377 |
# bug which would otherwise create words like "unTier" instead of "Untier"
|
|
Packit |
e20377 |
#
|
|
Packit |
e20377 |
# 2005-11-12 Bjoern Jacke <bjoern@j3e.de>
|
|
Packit |
e20377 |
# Comment: hunspell can do decapitalization for this.
|
|
Packit |
e20377 |
|
|
Packit |
e20377 |
while (<STDIN>) {
|
|
Packit |
e20377 |
chomp;
|
|
Packit |
e20377 |
if (m/^[A-ZÄÖÜ].*\/.*[GUV]/) {
|
|
Packit |
e20377 |
print STDERR "Capital prefixes will be expanded: $_\n";
|
|
Packit |
e20377 |
|
|
Packit |
e20377 |
($start,$rest) = split("",$_,2);
|
|
Packit |
e20377 |
$start =~ tr/A-ZÄÖÜ/a-zäöü/;
|
|
Packit |
e20377 |
$rest =~ s/(\/.*)U/$1/;
|
|
Packit |
e20377 |
$rest =~ s/(\/.*)V/$1/;
|
|
Packit |
e20377 |
$rest =~ s/(\/.*)G/$1/;
|
|
Packit |
e20377 |
$rest =~ s/\/$//;
|
|
Packit |
e20377 |
|
|
Packit |
e20377 |
if (m/\/.*U/) {
|
|
Packit |
e20377 |
s/(\/.*)U/$1/;
|
|
Packit |
e20377 |
print "Un$start$rest\n";
|
|
Packit |
e20377 |
}
|
|
Packit |
e20377 |
if (m/\/.*V/) {
|
|
Packit |
e20377 |
s/(\/.*)V/$1/;
|
|
Packit |
e20377 |
print "Ver$start$rest\n";
|
|
Packit |
e20377 |
}
|
|
Packit |
e20377 |
}
|
|
Packit |
e20377 |
chop if (m/\/$/);
|
|
Packit |
e20377 |
print "$_\n";
|
|
Packit |
e20377 |
}
|