diff options
author | Alexey Edelev <alexey.edelev@qt.io> | 2023-02-22 11:20:18 +0100 |
---|---|---|
committer | Alexey Edelev <alexey.edelev@qt.io> | 2023-03-27 09:52:08 +0100 |
commit | d45b453ba063c45569eefe4eaf68702338f516e7 (patch) | |
tree | 4f968676c0c9befa8c6557a78e8f96fa76e796fb /translations/check-ts.pl | |
parent | 30e8715a8f3de33e3431a251608138eae6c4d129 (diff) |
Remove check-ts target
The target is broken after the tranlsations.pro removal. It's not clear
what is the initial purpose of the script. The logic in perl scripts
can be easly ported, but since it's not in use for a long time and
no one noticed removal looks more correct.
Also remove the scrips related to this target.
Pick-to: 6.5 6.2
Change-Id: Iff9db0bf0e6dbe0abbbae0fb3c55ef844b6d9059
Reviewed-by: Amir Masoud Abdol <amir.abdol@qt.io>
Reviewed-by: Kai Köhne <kai.koehne@qt.io>
Diffstat (limited to 'translations/check-ts.pl')
-rwxr-xr-x | translations/check-ts.pl | 90 |
1 files changed, 0 insertions, 90 deletions
diff --git a/translations/check-ts.pl b/translations/check-ts.pl deleted file mode 100755 index 05d189b..0000000 --- a/translations/check-ts.pl +++ /dev/null @@ -1,90 +0,0 @@ -#! /usr/bin/perl -w - -# Copyright (C) 2017 The Qt Company Ltd. -# SPDX-License-Identifier: LicenseRef-Qt-Commercial OR GPL-3.0-only WITH Qt-GPL-exception-1.0 - - -use strict; - -my @groups = ( - "qtbase", "qtdeclarative", "qtmultimedia", - "qtquickcontrols2", - "qtlocation", "qtconnectivity", "qtwebsockets", "qtserialport", "qtwebengine", -# "qtdocgallery", "qtpim", "qtsystems", - "assistant", "designer", "linguist", "qt_help" -); - -my %scores = (); -my %langs = (); - -my $files = join("\n", <*_??.ts>); -my $res = `xmlpatterns -param files=\"$files\" check-ts.xq`; -for my $i (split(/ /, $res)) { - $i =~ /^([^.]+)\.ts:(.*)$/; - my ($fn, $pc) = ($1, $2); - for my $g (@groups) { - if ($fn =~ /^${g}_((.._)?..)$/) { - my $lang = $1; - $scores{$g}{$lang} = $pc; - $langs{$lang} = 1; - last; - } - } -} - -my $code = ""; - -print "L10n "; -for my $g (@groups) { - print " ".$g." "; -} -print "\n"; -for my $lang (sort(keys(%langs))) { - printf "%-5s ", $lang; - my $qt = 1; - my $rest = 1; - my $line = ""; - for my $g (@groups) { - my $pc = $scores{$g}{$lang}; - $pc = "0" if !defined($pc); - if (int($pc) < 98 or !$qt) { - if ($g eq "qt") { - $qt = 0; - } else { - $rest = 0; - } - } else { - $line .= " ".$g."_".$lang.".ts"; - } - printf " %-".(length($g)+1)."s", $pc; - } - if ($qt) { - $code .= " \\\n ".$line; - if (!$rest) { - print " (partial)"; - } - } else { - print " (excluded)"; - } - print "\n"; -} - -my $fn = "translations.pro"; -my $nfn = $fn."new"; -open IN, $fn or die; -open OUT, ">".$nfn or die; -while (1) { - $_ = <IN>; - last if (/^TRANSLATIONS /); - print OUT $_; -} -while ($_ =~ /\\\n$/) { - $_ = <IN>; -} -print OUT "TRANSLATIONS =".$code."\n"; -while (<IN>) { - print OUT $_; -} -close OUT; -close IN; -rename $nfn, $fn; |