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>

3 files changed, 0 insertions, 101 deletions

diff --git a/translations/CMakeLists.txt b/translations/CMakeLists.txt
index d006e5b..b55cc5e 100644
--- a/translations/CMakeLists.txt
+++ b/translations/CMakeLists.txt
@@ -171,12 +171,6 @@ string(PREPEND catalogs_file_content "[\n")
 string(APPEND catalogs_file_content "\n]\n")
 file(WRITE "${catalogs_file}" "${catalogs_file_content}")
 
-# Create check target
-add_custom_target(check-ts
-    COMMAND perl check-ts.pl
-    WORKING_DIRECTORY ${CMAKE_CURRENT_SOURCE_DIR}
-)
-add_dependencies(check-ts ts-all)
 
 # Update and install qm command
 add_custom_target(updateqm ALL)
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;
diff --git a/translations/check-ts.xq b/translations/check-ts.xq
deleted file mode 100644
index 5d5eafa..0000000
--- a/translations/check-ts.xq
+++ /dev/null
@@ -1,5 +0,0 @@
-for $file in tokenize($files, codepoints-to-string(10))
-    let $fresh := doc($file)/TS/context/message[not (translation/@type = ('obsolete', 'vanished'))]
-    return if (count($fresh) gt 0)
-           then concat($file, ":", count($fresh/translation[not (@type = 'unfinished')]) * 100 idiv count($fresh))
-           else concat($file, ":n/a")