Remove checksync.pl
This seems to date back to much earlier times, and does not seem to be of much use anymore. Change-Id: Ia0047c280102da9e85de0d10133df3135433dc45 Reviewed-by: Simon Hausmann <simon.hausmann@qt.io>
This commit is contained in:
parent
fd0c4fb24a
commit
312967965f
|
@ -1,106 +0,0 @@
|
|||
#!/usr/bin/perl
|
||||
#############################################################################
|
||||
##
|
||||
## Copyright (C) 2016 The Qt Company Ltd.
|
||||
## Contact: https://www.qt.io/licensing/
|
||||
##
|
||||
## This file is part of the Declarative module of the Qt Toolkit.
|
||||
##
|
||||
## $QT_BEGIN_LICENSE:LGPL$
|
||||
## Commercial License Usage
|
||||
## Licensees holding valid commercial Qt licenses may use this file in
|
||||
## accordance with the commercial license agreement provided with the
|
||||
## Software or, alternatively, in accordance with the terms contained in
|
||||
## a written agreement between you and The Qt Company. For licensing terms
|
||||
## and conditions see https://www.qt.io/terms-conditions. For further
|
||||
## information use the contact form at https://www.qt.io/contact-us.
|
||||
##
|
||||
## GNU Lesser General Public License Usage
|
||||
## Alternatively, this file may be used under the terms of the GNU Lesser
|
||||
## General Public License version 3 as published by the Free Software
|
||||
## Foundation and appearing in the file LICENSE.LGPL3 included in the
|
||||
## packaging of this file. Please review the following information to
|
||||
## ensure the GNU Lesser General Public License version 3 requirements
|
||||
## will be met: https://www.gnu.org/licenses/lgpl-3.0.html.
|
||||
##
|
||||
## GNU General Public License Usage
|
||||
## Alternatively, this file may be used under the terms of the GNU
|
||||
## General Public License version 2.0 or (at your option) the GNU General
|
||||
## Public license version 3 or any later version approved by the KDE Free
|
||||
## Qt Foundation. The licenses are as published by the Free Software
|
||||
## Foundation and appearing in the file LICENSE.GPL2 and LICENSE.GPL3
|
||||
## included in the packaging of this file. Please review the following
|
||||
## information to ensure the GNU General Public License requirements will
|
||||
## be met: https://www.gnu.org/licenses/gpl-2.0.html and
|
||||
## https://www.gnu.org/licenses/gpl-3.0.html.
|
||||
##
|
||||
## $QT_END_LICENSE$
|
||||
##
|
||||
#############################################################################
|
||||
|
||||
use strict;
|
||||
use warnings;
|
||||
|
||||
die "Usage: $0 <QML directory>" if (@ARGV != 1);
|
||||
|
||||
my @excludes;
|
||||
open (SYNCEXCLUDES, "<", "syncexcludes");
|
||||
while (<SYNCEXCLUDES>) {
|
||||
if (/^([a-zA-Z0-9\._]+)/) {
|
||||
my $exclude = $1;
|
||||
push (@excludes, $exclude);
|
||||
}
|
||||
}
|
||||
|
||||
my $portdir = ".";
|
||||
my $qmldir = $ARGV[0];
|
||||
|
||||
opendir (PORTDIR, $portdir) or die "Cannot open port directory";
|
||||
opendir (QMLDIR, $qmldir) or die "Cannot open QML directory";
|
||||
|
||||
my @portfiles = readdir(PORTDIR);
|
||||
my @qmlfiles = readdir(QMLDIR);
|
||||
|
||||
closedir(PORTDIR);
|
||||
closedir(QMLDIR);
|
||||
|
||||
foreach my $qmlfile (@qmlfiles) {
|
||||
if ($qmlfile =~ /^qdeclarative.*\.cpp$/ or $qmlfile =~ /qdeclarative.*\.h$/) {
|
||||
|
||||
if (grep { $_ eq $qmlfile} @excludes) {
|
||||
next;
|
||||
}
|
||||
|
||||
my $portfile = $qmlfile;
|
||||
$portfile =~ s/^qdeclarative/qsg/;
|
||||
|
||||
if (grep { $_ eq $portfile} @portfiles) {
|
||||
|
||||
open (PORTFILE, "<", "$portdir/$portfile") or die("Cannot open $portdir/$portfile for reading");
|
||||
|
||||
my $firstline = <PORTFILE>;
|
||||
|
||||
close (PORTFILE);
|
||||
|
||||
if ($firstline and $firstline =~ /^\/\/ Commit: ([a-z0-9]+)/) {
|
||||
my $sha1 = $1;
|
||||
my $commitSha1 = "";
|
||||
|
||||
my $output = `cd $qmldir; git log $qmlfile | head -n 1`;
|
||||
if ($output =~ /commit ([a-z0-9]+)/) {
|
||||
$commitSha1 = $1;
|
||||
}
|
||||
|
||||
if ($commitSha1 eq $sha1) {
|
||||
print ("$portfile: OK\n");
|
||||
} else {
|
||||
print ("$portfile: OUT OF DATE\n");
|
||||
}
|
||||
} else {
|
||||
print ("$portfile: OUT OF DATE\n");
|
||||
}
|
||||
} else {
|
||||
print ("$portfile: MISSING\n");
|
||||
}
|
||||
}
|
||||
}
|
Loading…
Reference in New Issue