Patch from Tito, size optimisation, cleanup noise when in debugging

[oweals/busybox.git] / tests / multibuild.pl

diff --git a/tests/multibuild.pl b/tests/multibuild.pl
index 92b1abde905cfb35d1b7a524e5314ad546a3289e..a3e49a625ba24eb2d8377e357a9c58711aa27ae9 100755 (executable)
--- a/tests/multibuild.pl
+++ b/tests/multibuild.pl
@@ -5,11 +5,20 @@
 # properly on its own.  The most likely problems this will
 # flush out are those involving preprocessor instructions in
 # utility.c.
+#
+# TODO: some time it might be nice to list absolute and 
+# differential object sizes for each option...
+#
 
 $logfile = "multibuild.log";
 
+# How to handle all the CONFIG_FEATURE_FOO lines
+if ($ARGV[0] eq "-all" ) { shift(@ARGV); $choice="all"; }
+if ($ARGV[0] eq "-none") { shift(@ARGV); $choice="none"; }
+# neither means, leave that part of Config.h alone
+
 # Support building from pristine source
-$make_opt = "-f $ARGV[0]/Makefile BB_SRC_DIR=$ARGV[0]" if ($ARGV[0] ne "");
+$make_opt = "-f $ARGV[0]/Makefile CONFIG_SRC_DIR=$ARGV[0]" if ($ARGV[0] ne "");
 
 # Move the config file to a safe place
 -e "Config.h.orig" || 0==system("mv -f Config.h Config.h.orig") || die;
@@ -21,10 +30,15 @@ unlink($logfile);
 open(C,"<Config.h.orig") || die;
 while (<C>) {
        if ($in_trailer) {
+               if (!$in_olympus) {
+                       s/^\/\/#/#/ if ($choice eq "all" && !/USE_DEVPS_PATCH/);
+                       s/^#/\/\/#/ if ($choice eq "none");
+               }
+               $in_olympus=1 if /End of Features List/;
                $trailer .= $_;
        } else {
                $in_trailer=1 if /End of Applications List/;
-               if (/^\/*#define BB_([A-Z_]*)/) {
+               if (/^\/*#define CONFIG_([A-Z0-9_]*)/) {
                        push @apps, $1;
                }
        }
@@ -32,20 +46,28 @@ while (<C>) {
 close C;
 
 # Do the real work ...
+$failed_tests=0;
 for $a (@apps) {
        # print "Testing build of applet $a ...\n";
        open (O, ">Config.h") || die;
-       print O "#define BB_$a\n", $trailer;
+       print O "#define CONFIG_$a\n", $trailer;
        close O;
        system("echo -e '\n***\n$a\n***' >>$logfile");
-       # todo: figure out why the "rm -f *.o" is needed
-       $result{$a} = system("rm -f *.o; make $make_opt busybox >>$logfile 2>&1");
-       $flag = $result{$a} ? "FAIL" : "OK";
-       print "Applet $a: $flag\n";
+       # With a fast computer and 1-second resolution on file timestamps, this
+       # process pushes beyond the limits of what unix make can understand.
+       # That's why need to weed out obsolete files before restarting make.
+       $result{$a} = system("rm -f *.o applet_source_list; make $make_opt busybox >>$logfile 2>&1");
+       $flag = $result{$a} ? "FAILED!!!" : "ok";
+       printf("Applet %-20s: %s\n", $a, $flag);
+       $total_tests++;
+       $failed_tests++ if $flag eq "FAILED!!!";
+       # pause long enough to let user stop us with a ^C
+       select(undef, undef, undef, 0.03);
 }
 
 # Clean up our mess
 system("mv -f Config.h.orig Config.h");
 
+print "$total_tests applets tested, $failed_tests failures\n";
 print "See $logfile for details.\n";