devs/foxbox
1
0
Fork 0
forked from len0rd/rockbox
Code Pull requests Activity

updatelang: Expand suspicius character tests.

Browse source 
* dest:  < >
 * voice: [ ] < > { }

Change-Id: I97701e52807db996037b7542fb0b01f9db0dbc0f
This commit is contained in:
Solomon Peachy 2024-09-17 10:18:29 -04:00
parent 7d9fbae749
commit 24ae4aee33
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
tools/updatelang
View file

@ -402,9 +402,9 @@ foreach my $id (@langorder) {
my $sane = $lang{$id}{'dest'}{$tgt}; my $sane = $lang{$id}{'dest'}{$tgt};
$sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise
if ($sane =~ tr/"~//) { if ($sane =~ tr/"~<>//) {
# If it has suspicious characters that are not allowed # If it has suspicious characters that are not allowed
$lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has some suspicious characters (eg '~'), please double-check!\n"; $lang{$id}{'notes'} .= "### The <dest> section for '$id:$tgt' has some suspicious characters (eg \",~,<,>), please double-check!\n";
# print "#!! '$id:$tgt' suspicious characters\n"; # print "#!! '$id:$tgt' suspicious characters\n";
} }
} }
@ -476,9 +476,9 @@ foreach my $id (@langorder) {
} }
my $sane = $lang{$id}{'voice'}{$tgt}; my $sane = $lang{$id}{'voice'}{$tgt};
$sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise $sane =~ s/^~?(.*)/$1/; # Strip off leading ~ if it's there as it's not a legal character otherwise
if ($sane =~ tr/%"~://) { if ($sane =~ tr/%"~:\[\]<>{}//) {
# Suspicious characters that are not typically voiced.. # Suspicious characters that are not typically voiced..
$lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg '%' or '~' or ':'), please correct!\n"; $lang{$id}{'notes'} .= "### The <voice> section for '$id:$tgt' has some suspicious characters (eg %,\",~,:,<,>,[,],{,}), please correct!\n";
# print "#!! '$id:$tgt' suspicious characters\n"; # print "#!! '$id:$tgt' suspicious characters\n";
} }
if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) { if ($lang{$id}{'voice'}{$tgt} =~ /\.\.\./) {