sal/qa/buildall.pl

   1 eval 'exec perl -wS $0 ${1+"$@"}'
   2     if 0;
   3 #*************************************************************************
   4 #
   5 # DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
   6 #
   7 # Copyright 2000, 2010 Oracle and/or its affiliates.
   8 #
   9 # OpenOffice.org - a multi-platform office productivity suite
  10 #
  11 # This file is part of OpenOffice.org.
  12 #
  13 # OpenOffice.org is free software: you can redistribute it and/or modify
  14 # it under the terms of the GNU Lesser General Public License version 3
  15 # only, as published by the Free Software Foundation.
  16 #
  17 # OpenOffice.org is distributed in the hope that it will be useful,
  18 # but WITHOUT ANY WARRANTY; without even the implied warranty of
  19 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  20 # GNU Lesser General Public License version 3 for more details
  21 # (a copy is included in the LICENSE file that accompanied this code).
  22 #
  23 # You should have received a copy of the GNU Lesser General Public License
  24 # version 3 along with OpenOffice.org.  If not, see
  25 # <http://www.openoffice.org/license.html>
  26 # for a copy of the LGPLv3 License.
  27 #
  28 #************************************************************************
  29
  30 # #!/usr/bin/perl -w
  31
  32 use strict;
  33 use POSIX;
  34 use Cwd;
  35 use File::Path;
  36 use English;
  37 use Cwd 'chdir';
  38
  39 my $cwd = getcwd();
  40
  41 # Prototypes
  42 sub initEnvironment();
  43 sub main($);
  44 sub checkForKillobj();
  45 sub checkARGVFor($);
  46
  47 my $g_sTempDir = "";
  48 my $FS = "";
  49
  50 my $nGlobalFailures = 0;
  51
  52 my %libraryRunThrough;
  53 my $bBuildAll = 0;
  54
  55 # LLA: this does not exist, ... use a little bit simpler method.
  56 # use File::Temp qw/ :POSIX /;
  57
  58 my $params;
  59 my $param;
  60
  61 if ($#ARGV < 0)
  62 {
  63     $params = "test "; # debug=t TESTOPTADD=\"-boom\"   TESTOPTADD=\"-noerroronexit\"
  64
  65     # my $nNumber = 55;
  66     # my $sLocalParams = $params;
  67     # $sLocalParams =~ s/test\s/test$nNumber /;
  68     # print "Testparams: $sLocalParams\n";
  69     # exit 1;
  70     print "Default ";
  71 }
  72 else
  73 {
  74     # special hack!
  75     if (checkForKillobj() == 1)
  76     {
  77         $params = "killobj";
  78     }
  79     elsif (checkARGVFor("buildall") == 1)
  80     {
  81         $bBuildAll = 1;
  82         $params = "test";
  83     }
  84     else
  85     {
  86         # always run test, but envelope the other in 'TESTOPT="..."'
  87         $params = "test TESTOPT=\"";
  88
  89         foreach $param (@ARGV)
  90         {
  91             $params = $params . " " . $param;
  92         }
  93         $params = $params . "\"";
  94     }
  95     print "User defined ";
  96 }
  97
  98 print "parameters for dmake: $params\n";
  99
 100 initEnvironment();
 101 main($params);
 102
 103 # ------------------------------------------------------------------------------
 104 sub checkARGVFor($)
 105 {
 106     my $sCheckValue = shift;
 107     my $sLocalParam;
 108     my $nBackValue = 0;
 109     foreach $sLocalParam (@ARGV)
 110     {
 111         if ($sLocalParam =~ /^${sCheckValue}$/)
 112         {
 113             $nBackValue = 1;
 114             last;
 115         }
 116     }
 117     return $nBackValue;
 118 }
 119 # ------------------------------------------------------------------------------
 120 sub checkForKillobj()
 121 {
 122     my $sLocalParam;
 123     my $nBackValue = 0;
 124     foreach $sLocalParam (@ARGV)
 125     {
 126         if ($sLocalParam =~ /^killobj$/)
 127         {
 128             $nBackValue = 1;
 129             last;
 130         }
 131     }
 132     return $nBackValue;
 133 }
 134
 135 # ------------------------------------------------------------------------------
 136 sub initEnvironment()
 137 {
 138     my $gui = $ENV{GUI};
 139     # no error output in forms of message boxes
 140     $ENV{'DISABLE_SAL_DBGBOX'}="t";
 141
 142   SWITCH: {
 143       if ( $gui eq "WNT" ) {
 144           $FS             = "\\";
 145           $g_sTempDir         = $ENV{TMP}  ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
 146           last SWITCH;
 147       }
 148       if ( $gui eq "WIN" ) {
 149           $FS             = "\\";
 150           $g_sTempDir         = $ENV{TMP}  ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
 151           last SWITCH;
 152       }
 153       if ( $gui eq "OS2" ) {
 154           $FS             = "\\";
 155           $g_sTempDir         = $ENV{TMP}  ? "$ENV{TMP}${FS}" : "c:${FS}tmp${FS}";
 156           last SWITCH;
 157       }
 158       if ( $gui eq "UNX" ) {
 159           $FS             = "/";
 160           $g_sTempDir         = $ENV{TMP}  ? "$ENV{TMP}${FS}" : "${FS}tmp${FS}";
 161           last SWITCH;
 162       }
 163       print STDERR "buildall.pl: unkown platform\n";
 164       exit(1);
 165   }
 166 }
 167 # ------------------------------------------------------------------------------
 168
 169 sub trim($)
 170 {
 171     my $oldstr = shift;
 172     $oldstr =~ s/^\s*(.*?)\s*$/$1/;
 173     return $oldstr;
 174 }
 175
 176 # ------------------------------------------------------------------------------
 177 sub getLibName($)
 178 {
 179     my $sFile = shift;
 180     if ($OSNAME eq "linux" || $OSNAME eq "solaris")
 181     {
 182         return "lib" . $sFile . ".so";
 183     }
 184     if ($OSNAME eq "MSWin32" || $OSNAME eq "OS2")
 185     {
 186         return $sFile . ".dll";
 187     }
 188     return $sFile;
 189 }
 190 # ------------------------------------------------------------------------------
 191 sub giveOutAll($)
 192 {
 193     my $sFailureFile = shift;
 194     local *IN;
 195     if (! open(IN, $sFailureFile))
 196     {
 197         print "ERROR: Can't open output file $sFailureFile\n";
 198         return;
 199     }
 200     my $line;
 201     while ($line = <IN>)
 202     {
 203         chomp($line);
 204         print "$line\n";
 205     }
 206     close(IN);
 207 }
 208 # ------------------------------------------------------------------------------
 209 sub giveOutFailures($$)
 210 {
 211     my $sTest = shift;
 212     my $sFailureFile = shift;
 213
 214     my $bBegin = 0;
 215     my $nFailures = 0;
 216
 217     my $line;
 218     local *IN;
 219     if (! open(IN, $sFailureFile))
 220     {
 221         print "ERROR: Can't open output file $sFailureFile\n";
 222         return;
 223     }
 224
 225     my $bStartUnitTest = 0;
 226     while ($line = <IN>)
 227     {
 228         chomp($line);
 229         if ( $line =~ /^- start unit test/)
 230         {
 231             $bStartUnitTest = 1;
 232         }
 233     }
 234     close(IN);
 235
 236     if ($bStartUnitTest == 0)
 237     {
 238         print "\nFailure: Unit test not started. Maybe compiler error.\n";
 239         giveOutAll($sFailureFile);
 240         $nFailures++;
 241         # exit(1);
 242     }
 243     else
 244     {
 245         open(IN, $sFailureFile);
 246         # check if testshl2 was started
 247         while ($line = <IN>)
 248         {
 249             chomp($line);
 250
 251             # handling of the states
 252             if ( $line =~ /^\# -- BEGIN:/)
 253             {
 254                 $bBegin = 1;
 255             }
 256             elsif ( $line =~ /^\# -- END:/)
 257             {
 258                 $bBegin = 0;
 259             }
 260             else
 261             {
 262                 if ($bBegin == 1)
 263                 {
 264                     print "$line\n";
 265                     $nFailures++;
 266                 }
 267             }
 268         }
 269         close(IN);
 270     }
 271
 272     if ($nFailures > 0)
 273     {
 274         # extra return for a better output
 275         print "\nFailures occured: $nFailures\n";
 276         print "The whole output can be found in $sFailureFile\n";
 277         print "\n";
 278
 279         # Statistics
 280         $nGlobalFailures += $nFailures;
 281     }
 282 }
 283 # ------------------------------------------------------------------------------
 284 sub printOnLibrary($)
 285 {
 286     my $sTarget = shift;
 287     print "       on library: " . getLibName($sTarget);
 288 }
 289 # ------------------------------------------------------------------------------
 290 sub runASingleTest($$)
 291 {
 292     my $sTarget = shift;
 293     my $params = shift;
 294     my $dmake = "dmake $params";
 295
 296     my $sLogPath = $g_sTempDir . "dmake_out_$$";
 297     mkdir($sLogPath);
 298     my $sLogFile = $sLogPath . "/" . $sTarget . ".out";
 299
 300     # due to the fact, a library name in one project is distinct, we should remember all already run through libraries and
 301     # supress same libraries, if they occur one more.
 302
 303     if (exists $libraryRunThrough{getLibName($sTarget)})
 304     {
 305         # already done
 306         return;
 307     }
 308     printOnLibrary($sTarget);
 309     print "\n";
 310
 311 # redirect tcsh ">&" (stdout, stderr)
 312 # redirect 4nt   ">" (stdout), "2>" (stderr)
 313 # print "OSNAME: $OSNAME\n";
 314 # LLA: redirect check canceled, seems to be not work as I want.
 315 #     my $redirect = "";
 316 #     if ($OSNAME eq "linux" || $OSNAME eq "solaris")
 317 #     {
 318 #         # print "UNIX, linux or solaris\n";
 319 #         $redirect = '>>&!' . $sLogFile;
 320 #     }
 321 #     else
 322 #     {
 323 #         if ($OSNAME eq "MSWin32" || $OSNAME eq "OS2")
 324 #         {
 325 #             # test
 326 #             $redirect = ">>$sLogFile 2>>$sLogFile";
 327 #         }
 328 #     }
 329 #     print "$dmake $redirect\n";
 330
 331 # LLA: so system does also not work as I imagine
 332 #    system("$dmake $redirect");
 333
 334 # LLA: next check, use open with pipe
 335
 336     local *LOGFILE;
 337     if (! open( LOGFILE, '>' . "$sLogFile"))
 338     {
 339         print "ERROR: can't open logfile: $sLogFile\n";
 340         return;
 341     }
 342
 343     my $line;
 344     local *DMAKEOUTPUT;
 345     if (! open( DMAKEOUTPUT, "$dmake 2>&1 |"))
 346     {
 347         print "ERROR: can't open dmake\n";
 348         return;
 349     }
 350     while ($line = <DMAKEOUTPUT>)
 351     {
 352         chomp($line);
 353         print LOGFILE "$line\n";
 354     }
 355     close(DMAKEOUTPUT);
 356     close(LOGFILE);
 357
 358     giveOutFailures($sTarget, $sLogFile);
 359
 360     $libraryRunThrough{getLibName($sTarget)} = "done";
 361 }
 362
 363 # ------------------------------------------------------------------------------
 364 sub interpretLine($)
 365 {
 366     my $line = shift;
 367
 368     my $path;
 369     my $file;
 370
 371     if ($line =~ /^\#/ || $line =~ /^$/)
 372     {
 373         # remark or empty line
 374     }
 375     else
 376     {
 377         # special format, $file == $path
 378         ($path, $file) = split(/;/, $line);
 379         if (! $file)
 380         {
 381             $file = $path;
 382         }
 383         $file = trim($file);
 384         $path = trim($path);
 385     }
 386     return $path, $file;
 387 }
 388 # ------------------------------------------------------------------------------
 389 sub runTestsOnPath($$$)
 390 {
 391     my $path = shift;
 392     my $file = shift;
 393     my $params = shift;
 394
 395     # empty values
 396     if (!$path || $path eq "")
 397     {
 398         # DBG: print "empty path '$path'\n";
 399         return;
 400     }
 401     if (!$file || $file eq "")
 402     {
 403         # DBG: print "empty file '$file'\n";
 404         return;
 405     }
 406
 407 #   print "File: '$file', Path: '$path'\n";
 408     print "Work in directory: $path\n";
 409     my $newpath = $cwd . $FS . $path;
 410 #   print "chdir to $newpath\n";
 411
 412     my $error = chdir($newpath);
 413     cwd();
 414
 415     # run through the hole makefile.mk and check if SHL<D>TARGET = ... exist, for every target call "dmake test<D>"
 416
 417     local *MAKEFILE_MK;
 418     if (! open(MAKEFILE_MK, "makefile.mk"))
 419     {
 420         print "ERROR: can't open makefile.mk in path: $newpath\n";
 421         print "please check your libs2test.txt file in qa directory.\n";
 422     }
 423     my $line;
 424     my $nNumber;
 425     my $sTarget;
 426     my $sLocalParams;
 427
 428     while($line = <MAKEFILE_MK>)
 429     {
 430         chomp($line);
 431
 432         if ($line =~ /SHL(\d)TARGET=(.*)/)
 433         {
 434             $nNumber = $1;
 435             $sTarget = trim($2);
 436
 437             # DBG: print "test$number is lib: $target\n";
 438             $sLocalParams = $params . " ";                  # append a whitespace, so we can check if 'test' exist without additional digits
 439             $sLocalParams =~ s/test\s/test$nNumber/;
 440             # DBG: print "$sLocalParams\n";
 441             if ($bBuildAll == 1 ||
 442                 $file eq $sTarget)
 443             {
 444                 # print "runASingleTest on Target: $sTarget 'dmake $sLocalParams'\n";
 445                 runASingleTest($sTarget, $sLocalParams);
 446             }
 447             else
 448             {
 449                 # printOnLibrary($sTarget);
 450                 # print " suppressed, not in libs2test.txt\n";
 451             }
 452         }
 453     }
 454     close(MAKEFILE_MK);
 455 }
 456
 457 # ------------------------------------------------------------------------------
 458
 459 sub main($)
 460 {
 461     my $params = shift;
 462 #    my $sLogFile = shift;     # "buildall_$$.out";
 463     local *LIBS2TEST;
 464     my $filename = "libs2test.txt";
 465     my $line;
 466
 467     open(LIBS2TEST, $filename) || die "can't open $filename\n";
 468
 469     while($line = <LIBS2TEST>)
 470     {
 471         chomp($line);
 472         # DOS Hack grrrr...
 473         while ($line =~ /
 474 $/)
 475         {
 476             $line = substr($line, 0, -1);
 477         }
 478
 479         # print "$line\n";
 480         my $path;
 481         my $file;
 482         ($path, $file) = interpretLine($line);
 483         runTestsOnPath($path, $file, $params);
 484     }
 485     close(LIBS2TEST);
 486
 487     print "\nComplete logging information will be found in dir: ".$g_sTempDir."dmake_out_$$/\n";
 488
 489     if ($nGlobalFailures > 0)
 490     {
 491         print "\nFailures over all occured: $nGlobalFailures\n";
 492         print "\nPASSED FAILED.\n";
 493     }
 494     else
 495     {
 496         print "\nPASSED OK.\n";
 497     }
 498 }
 499
 500 # ------------------------------------------------------------------------------
 501
 502 # TODO:
 503 # -verbose
 504 # -fan   - \ | /
 505
 506 # END!
 507