anne/lyx_mirror
1
0
Fork 0
mirror of https://git.lyx.org/repos/lyx.git synced 2024-11-21 17:51:03 +00:00
Code Issues Actions Packages Projects Releases Wiki Activity

Amend 12557b09: Checking po-files (shortcut handling)

Browse Source
This commit is contained in:
Kornel Benko 2020-10-24 18:40:15 +02:00
parent 69f838bbf3
commit 47146ab8a3
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
po/pocheck.pl
View File

@ -169,9 +169,16 @@ foreach my $pofilename ( @ARGV ) {
if ($check_spaces) { if ($check_spaces) {
# Check space at the end of a message (if not a shortcut) # Check space at the end of a message (if not a shortcut)
my ($msgid1, $msgstr1); my ($msgid1, $msgstr1) = ($msgid, $msgstr);
($msgid1 = $msgid) =~ s/\|.$//; $msgid1 =~ s/\|.$//;
($msgstr1 = $msgstr) =~ s/\|.$//; # TODO: Shortcut may be utf-8 char if ($msgstr =~ /^(.*)\|(.+)$/) {
my ($msg, $shortcut) = ($1, $2);
# Check for unicode char
my $u = decode('utf-8', $shortcut);
if (length($u) == 1) {
$msgstr1 = $msg;
}
}
if (($msgid1 =~ / $/) != ($msgstr1 =~ / $/)) { if (($msgid1 =~ / $/) != ($msgstr1 =~ / $/)) {
print "Line $linenum: Missing or unexpected space:\n '$msgid' => '$msgstr'\n" print "Line $linenum: Missing or unexpected space:\n '$msgid' => '$msgstr'\n"
unless $only_total; unless $only_total;
@ -194,8 +201,8 @@ foreach my $pofilename ( @ARGV ) {
# Check for "|..." shortcuts (space shortcut allowed) # Check for "|..." shortcuts (space shortcut allowed)
# Shortcut is either 1 char (ascii in msgid) or utf8 char (in msgstr) # Shortcut is either 1 char (ascii in msgid) or utf8 char (in msgstr)
my ($s1, $s2) = (0,0); my ($s1, $s2) = (0,0);
$s1 = 1 if ($msgid =~ /\|([^\|])$/); $s1 = 1 if ($msgid =~ /\|(.)$/);
if ($msgstr =~ /\|([^\|]+)$/) { if ($msgstr =~ /.*\|(.+)$/) {
my $chars = $1; my $chars = $1;
my $u = decode('utf-8', $chars); my $u = decode('utf-8', $chars);
$s2 = 1 if (length($u) == 1); $s2 = 1 if (length($u) == 1);