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