[Libreoffice-commits] core.git: 2 commits - sal/qa sfx2/util
Bjoern Michaelsen
bjoern.michaelsen at canonical.com
Sun Nov 24 14:43:00 PST 2013
sal/qa/buildall.pl | 488 ----------------------------------------------------
sfx2/util/mkdemo.pl | 25 --
2 files changed, 513 deletions(-)
New commits:
commit 4995c2e877dbe8e1301624b758aebd5a2e750cf4
Author: Bjoern Michaelsen <bjoern.michaelsen at canonical.com>
Date: Thu Nov 21 20:48:20 2013 +0100
script seems long obsolete
Change-Id: Icac42ae8cf3deec86d60efddc5760cfb9b2acfba
diff --git a/sfx2/util/mkdemo.pl b/sfx2/util/mkdemo.pl
deleted file mode 100644
index 65524d9..0000000
--- a/sfx2/util/mkdemo.pl
+++ /dev/null
@@ -1,25 +0,0 @@
-#
-# This file is part of the LibreOffice project.
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, You can obtain one at http://mozilla.org/MPL/2.0/.
-#
-# This file incorporates work covered by the following license notice:
-#
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed
-# with this work for additional information regarding copyright
-# ownership. The ASF licenses this file to you under the Apache
-# License, Version 2.0 (the "License"); you may not use this file
-# except in compliance with the License. You may obtain a copy of
-# the License at http://www.apache.org/licenses/LICENSE-2.0 .
-#
-
-binmode stdin;
-binmode stdout;
-while(<>)
-{
- s/t(lxsayshere)/\x0\1/;
- print $_;
-}
commit ee109b43f2e08b6d507098b2d670cc38330d9944
Author: Bjoern Michaelsen <bjoern.michaelsen at canonical.com>
Date: Thu Nov 21 20:46:18 2013 +0100
this script talks about dmake. it must be out of its mind!
Change-Id: Ic1863a2126c26cf703afc5fe250dea2bbddfef7d
diff --git a/sal/qa/buildall.pl b/sal/qa/buildall.pl
deleted file mode 100644
index 20f4dfa..0000000
--- a/sal/qa/buildall.pl
+++ /dev/null
@@ -1,488 +0,0 @@
-eval 'exec perl -wS $0 ${1+"$@"}'
- if 0;
-#
-# This file is part of the LibreOffice project.
-#
-# This Source Code Form is subject to the terms of the Mozilla Public
-# License, v. 2.0. If a copy of the MPL was not distributed with this
-# file, You can obtain one at http://mozilla.org/MPL/2.0/.
-#
-# This file incorporates work covered by the following license notice:
-#
-# Licensed to the Apache Software Foundation (ASF) under one or more
-# contributor license agreements. See the NOTICE file distributed
-# with this work for additional information regarding copyright
-# ownership. The ASF licenses this file to you under the Apache
-# License, Version 2.0 (the "License"); you may not use this file
-# except in compliance with the License. You may obtain a copy of
-# the License at http://www.apache.org/licenses/LICENSE-2.0 .
-#
-
-# #!/usr/bin/perl -w
-
-use strict;
-use POSIX;
-use Cwd;
-use File::Path;
-use English;
-use Cwd 'chdir';
-
-my $cwd = getcwd();
-
-# Prototypes
-sub initEnvironment();
-sub main($);
-sub checkForKillobj();
-sub checkARGVFor($);
-
-my $g_sTempDir = "";
-my $FS = "";
-
-my $nGlobalFailures = 0;
-
-my %libraryRunThrough;
-my $bBuildAll = 0;
-
-# LLA: this does not exist, ... use a little bit simpler method.
-# use File::Temp qw/ :POSIX /;
-
-my $params;
-my $param;
-
-if ($#ARGV < 0)
-{
- $params = "test "; # debug=t TESTOPTADD=\"-boom\" TESTOPTADD=\"-noerroronexit\"
-
- # my $nNumber = 55;
- # my $sLocalParams = $params;
- # $sLocalParams =~ s/test\s/test$nNumber /;
- # print "Testparams: $sLocalParams\n";
- # exit 1;
- print "Default ";
-}
-else
-{
- # special hack!
- if (checkForKillobj() == 1)
- {
- $params = "killobj";
- }
- elsif (checkARGVFor("buildall") == 1)
- {
- $bBuildAll = 1;
- $params = "test";
- }
- else
- {
- # always run test, but envelope the other in 'TESTOPT="..."'
- $params = "test TESTOPT=\"";
-
- foreach $param (@ARGV)
- {
- $params = $params . " " . $param;
- }
- $params = $params . "\"";
- }
- print "User defined ";
-}
-
-print "parameters for dmake: $params\n";
-
-initEnvironment();
-main($params);
-
-# ------------------------------------------------------------------------------
-sub checkARGVFor($)
-{
- my $sCheckValue = shift;
- my $sLocalParam;
- my $nBackValue = 0;
- foreach $sLocalParam (@ARGV)
- {
- if ($sLocalParam =~ /^${sCheckValue}$/)
- {
- $nBackValue = 1;
- last;
- }
- }
- return $nBackValue;
-}
-# ------------------------------------------------------------------------------
-sub checkForKillobj()
-{
- my $sLocalParam;
- my $nBackValue = 0;
- foreach $sLocalParam (@ARGV)
- {
- if ($sLocalParam =~ /^killobj$/)
- {
- $nBackValue = 1;
- last;
- }
- }
- return $nBackValue;
-}
-
-# ------------------------------------------------------------------------------
-sub initEnvironment()
-{
- my $os = $ENV{OS};
- # no error output in forms of message boxes
- $ENV{'DISABLE_SAL_DBGBOX'}="t";
-
- SWITCH: {
- if ( $os eq "WNT" ) {
- $FS = "\\";
- $g_sTempDir = $ENV{TMP} ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
- last SWITCH;
- }
- else {
- $FS = "/";
- $g_sTempDir = $ENV{TMP} ? "$ENV{TMP}${FS}" : "${FS}tmp${FS}";
- last SWITCH;
- }
- print STDERR "buildall.pl: unknown platform\n";
- exit(1);
- }
-}
-# ------------------------------------------------------------------------------
-
-sub trim($)
-{
- my $oldstr = shift;
- $oldstr =~ s/^\s*(.*?)\s*$/$1/;
- return $oldstr;
-}
-
-# ------------------------------------------------------------------------------
-sub getLibName($)
-{
- my $sFile = shift;
- if ($OSNAME eq "linux" || $OSNAME eq "solaris")
- {
- return "lib" . $sFile . ".so";
- }
- if ($OSNAME eq "MSWin32")
- {
- return $sFile . ".dll";
- }
- return $sFile;
-}
-# ------------------------------------------------------------------------------
-sub giveOutAll($)
-{
- my $sFailureFile = shift;
- local *IN;
- if (! open(IN, $sFailureFile))
- {
- print "ERROR: Can't open output file $sFailureFile\n";
- return;
- }
- my $line;
- while ($line = <IN>)
- {
- chomp($line);
- print "$line\n";
- }
- close(IN);
-}
-# ------------------------------------------------------------------------------
-sub giveOutFailures($$)
-{
- my $sTest = shift;
- my $sFailureFile = shift;
-
- my $bBegin = 0;
- my $nFailures = 0;
-
- my $line;
- local *IN;
- if (! open(IN, $sFailureFile))
- {
- print "ERROR: Can't open output file $sFailureFile\n";
- return;
- }
-
- my $bStartUnitTest = 0;
- while ($line = <IN>)
- {
- chomp($line);
- if ( $line =~ /^- start unit test/)
- {
- $bStartUnitTest = 1;
- }
- }
- close(IN);
-
- if ($bStartUnitTest == 0)
- {
- print "\nFailure: Unit test not started. Maybe compiler error.\n";
- giveOutAll($sFailureFile);
- $nFailures++;
- # exit(1);
- }
- else
- {
- open(IN, $sFailureFile);
- # check if testshl2 was started
- while ($line = <IN>)
- {
- chomp($line);
-
- # handling of the states
- if ( $line =~ /^\# -- BEGIN:/)
- {
- $bBegin = 1;
- }
- elsif ( $line =~ /^\# -- END:/)
- {
- $bBegin = 0;
- }
- else
- {
- if ($bBegin == 1)
- {
- print "$line\n";
- $nFailures++;
- }
- }
- }
- close(IN);
- }
-
- if ($nFailures > 0)
- {
- # extra return for a better output
- print "\nFailures occurred: $nFailures\n";
- print "The whole output can be found in $sFailureFile\n";
- print "\n";
-
- # Statistics
- $nGlobalFailures += $nFailures;
- }
-}
-# ------------------------------------------------------------------------------
-sub printOnLibrary($)
-{
- my $sTarget = shift;
- print " on library: " . getLibName($sTarget);
-}
-# ------------------------------------------------------------------------------
-sub runASingleTest($$)
-{
- my $sTarget = shift;
- my $params = shift;
- my $dmake = "dmake $params";
-
- my $sLogPath = $g_sTempDir . "dmake_out_$$";
- mkdir($sLogPath);
- my $sLogFile = $sLogPath . "/" . $sTarget . ".out";
-
- # due to the fact, a library name in one project is distinct, we should remember all already run through libraries and
- # supress same libraries, if they occur one more.
-
- if (exists $libraryRunThrough{getLibName($sTarget)})
- {
- # already done
- return;
- }
- printOnLibrary($sTarget);
- print "\n";
-
-# redirect tcsh ">&" (stdout, stderr)
-# redirect 4nt ">" (stdout), "2>" (stderr)
-# print "OSNAME: $OSNAME\n";
-# LLA: redirect check canceled, seems to be not work as I want.
-# my $redirect = "";
-# if ($OSNAME eq "linux" || $OSNAME eq "solaris")
-# {
-# # print "UNIX, linux or solaris\n";
-# $redirect = '>>&!' . $sLogFile;
-# }
-# else
-# {
-# if ($OSNAME eq "MSWin32")
-# {
-# # test
-# $redirect = ">>$sLogFile 2>>$sLogFile";
-# }
-# }
-# print "$dmake $redirect\n";
-
-# LLA: so system does also not work as I imagine
-# system("$dmake $redirect");
-
-# LLA: next check, use open with pipe
-
- local *LOGFILE;
- if (! open( LOGFILE, '>' . "$sLogFile"))
- {
- print "ERROR: can't open logfile: $sLogFile\n";
- return;
- }
-
- my $line;
- local *DMAKEOUTPUT;
- if (! open( DMAKEOUTPUT, "$dmake 2>&1 |"))
- {
- print "ERROR: can't open dmake\n";
- return;
- }
- while ($line = <DMAKEOUTPUT>)
- {
- chomp($line);
- print LOGFILE "$line\n";
- }
- close(DMAKEOUTPUT);
- close(LOGFILE);
-
- giveOutFailures($sTarget, $sLogFile);
-
- $libraryRunThrough{getLibName($sTarget)} = "done";
-}
-
-# ------------------------------------------------------------------------------
-sub interpretLine($)
-{
- my $line = shift;
-
- my $path;
- my $file;
-
- if ($line =~ /^\#/ || $line =~ /^$/)
- {
- # remark or empty line
- }
- else
- {
- # special format, $file == $path
- ($path, $file) = split(/;/, $line);
- if (! $file)
- {
- $file = $path;
- }
- $file = trim($file);
- $path = trim($path);
- }
- return $path, $file;
-}
-# ------------------------------------------------------------------------------
-sub runTestsOnPath($$$)
-{
- my $path = shift;
- my $file = shift;
- my $params = shift;
-
- # empty values
- if (!$path || $path eq "")
- {
- # DBG: print "empty path '$path'\n";
- return;
- }
- if (!$file || $file eq "")
- {
- # DBG: print "empty file '$file'\n";
- return;
- }
-
-# print "File: '$file', Path: '$path'\n";
- print "Work in directory: $path\n";
- my $newpath = $cwd . $FS . $path;
-# print "chdir to $newpath\n";
-
- my $error = chdir($newpath);
- cwd();
-
- # run through the hole makefile.mk and check if SHL<D>TARGET = ... exist, for every target call "dmake test<D>"
-
- local *MAKEFILE_MK;
- if (! open(MAKEFILE_MK, "makefile.mk"))
- {
- print "ERROR: can't open makefile.mk in path: $newpath\n";
- print "please check your libs2test.txt file in qa directory.\n";
- }
- my $line;
- my $nNumber;
- my $sTarget;
- my $sLocalParams;
-
- while($line = <MAKEFILE_MK>)
- {
- chomp($line);
-
- if ($line =~ /SHL(\d)TARGET=(.*)/)
- {
- $nNumber = $1;
- $sTarget = trim($2);
-
- # DBG: print "test$number is lib: $target\n";
- $sLocalParams = $params . " "; # append a whitespace, so we can check if 'test' exist without additional digits
- $sLocalParams =~ s/test\s/test$nNumber/;
- # DBG: print "$sLocalParams\n";
- if ($bBuildAll == 1 ||
- $file eq $sTarget)
- {
- # print "runASingleTest on Target: $sTarget 'dmake $sLocalParams'\n";
- runASingleTest($sTarget, $sLocalParams);
- }
- else
- {
- # printOnLibrary($sTarget);
- # print " suppressed, not in libs2test.txt\n";
- }
- }
- }
- close(MAKEFILE_MK);
-}
-
-# ------------------------------------------------------------------------------
-
-sub main($)
-{
- my $params = shift;
-# my $sLogFile = shift; # "buildall_$$.out";
- local *LIBS2TEST;
- my $filename = "libs2test.txt";
- my $line;
-
- open(LIBS2TEST, $filename) || die "can't open $filename\n";
-
- while($line = <LIBS2TEST>)
- {
- chomp($line);
- # DOS Hack grrrr...
- while ($line =~ /
-$/)
- {
- $line = substr($line, 0, -1);
- }
-
- # print "$line\n";
- my $path;
- my $file;
- ($path, $file) = interpretLine($line);
- runTestsOnPath($path, $file, $params);
- }
- close(LIBS2TEST);
-
- print "\nComplete logging information will be found in dir: ".$g_sTempDir."dmake_out_$$/\n";
-
- if ($nGlobalFailures > 0)
- {
- print "\nFailures over all occurred: $nGlobalFailures\n";
- print "\nPASSED FAILED.\n";
- }
- else
- {
- print "\nPASSED OK.\n";
- }
-}
-
-# ------------------------------------------------------------------------------
-
-# TODO:
-# -verbose
-# -fan - \ | /
-
-# END!
-
More information about the Libreoffice-commits
mailing list