1#!/usr/bin/perl 2 3# multibuild.pl 4# Tests BusyBox-0.48 (at least) to see if each applet builds 5# properly on its own. The most likely problems this will 6# flush out are those involving preprocessor instructions in 7# utility.c. 8# 9# TODO: some time it might be nice to list absolute and 10# differential object sizes for each option... 11# 12 13$logfile = "multibuild.log"; 14 15# How to handle all the BB_FEATURE_FOO lines 16if ($ARGV[0] eq "-all" ) { shift(@ARGV); $choice="all"; } 17if ($ARGV[0] eq "-none") { shift(@ARGV); $choice="none"; } 18# neither means, leave that part of Config.h alone 19 20# Support building from pristine source 21$make_opt = "-f $ARGV[0]/Makefile BB_SRC_DIR=$ARGV[0]" if ($ARGV[0] ne ""); 22 23# Move the config file to a safe place 24-e "Config.h.orig" || 0==system("mv -f Config.h Config.h.orig") || die; 25 26# Clear previous log file, if any 27unlink($logfile); 28 29# Parse the config file 30open(C,"<Config.h.orig") || die; 31while (<C>) { 32 if ($in_trailer) { 33 if (!$in_olympus) { 34 s/^\/\/#/#/ if ($choice eq "all" && !/USE_DEVPS_PATCH/); 35 s/^#/\/\/#/ if ($choice eq "none"); 36 } 37 $in_olympus=1 if /End of Features List/; 38 $trailer .= $_; 39 } else { 40 $in_trailer=1 if /End of Applications List/; 41 if (/^\/*#define BB_([A-Z0-9_]*)/) { 42 push @apps, $1; 43 } 44 } 45} 46close C; 47 48# Do the real work ... 49$failed_tests=0; 50for $a (@apps) { 51 # print "Testing build of applet $a ...\n"; 52 open (O, ">Config.h") || die; 53 print O "#define BB_$a\n", $trailer; 54 close O; 55 system("echo -e '\n***\n$a\n***' >>$logfile"); 56 # With a fast computer and 1-second resolution on file timestamps, this 57 # process pushes beyond the limits of what unix make can understand. 58 # That's why need to weed out obsolete files before restarting make. 59 $result{$a} = system("rm -f *.o applet_source_list; make $make_opt busybox >>$logfile 2>&1"); 60 $flag = $result{$a} ? "FAILED!!!" : "ok"; 61 printf("Applet %-20s: %s\n", $a, $flag); 62 $total_tests++; 63 $failed_tests++ if $flag eq "FAILED!!!"; 64 # pause long enough to let user stop us with a ^C 65 select(undef, undef, undef, 0.03); 66} 67 68# Clean up our mess 69system("mv -f Config.h.orig Config.h"); 70 71print "$total_tests applets tested, $failed_tests failures\n"; 72print "See $logfile for details.\n"; 73 74