1 #!/bin/perl -w 2 # 3 # Cute little builder for perl 4 # Total waste of development time... 5 # 6 # This will build all the object files and then the archive .a file 7 # requires GCC, GNU make and a sense of humour. 8 # 9 # Tom St Denis 10 use strict; 11 12 my $count = 0; 13 my $starttime = time; 14 my $rate = 0; 15 print "Scanning for source files...\n"; 16 foreach my $filename (glob "*.c") { 17 ++$count; 18 } 19 print "Source files to build: $count\nBuilding...\n"; 20 my $i = 0; 21 my $lines = 0; 22 my $filesbuilt = 0; 23 foreach my $filename (glob "*.c") { 24 printf("Building %3.2f%%, ", (++$i/$count)*100.0); 25 if ($i % 4 == 0) { print "/, "; } 26 if ($i % 4 == 1) { print "-, "; } 27 if ($i % 4 == 2) { print "\\, "; } 28 if ($i % 4 == 3) { print "|, "; } 29 if ($rate > 0) { 30 my $tleft = ($count - $i) / $rate; 31 my $tsec = $tleft%60; 32 my $tmin = ($tleft/60)%60; 33 my $thour = ($tleft/3600)%60; 34 printf("%2d:%02d:%02d left, ", $thour, $tmin, $tsec); 35 } 36 my $cnt = ($i/$count)*30.0; 37 my $x = 0; 38 print "["; 39 for (; $x < $cnt; $x++) { print "#"; } 40 for (; $x < 30; $x++) { print " "; } 41 print "]\r"; 42 my $tmp = $filename; 43 $tmp =~ s/\.c/".o"/ge; 44 if (open(SRC, "<$tmp")) { 45 close SRC; 46 } else { 47 !system("make $tmp > /dev/null 2>/dev/null") or die "\nERROR: Failed to make $tmp!!!\n"; 48 open( SRC, "<$filename" ) or die "Couldn't open $filename for reading: $!"; 49 ++$lines while (<SRC>); 50 close SRC or die "Error closing $filename after reading: $!"; 51 ++$filesbuilt; 52 } 53 54 # update timer 55 if (time != $starttime) { 56 my $delay = time - $starttime; 57 $rate = $i/$delay; 58 } 59 } 60 61 # finish building the library 62 printf("\nFinished building source (%d seconds, %3.2f files per second).\n", time - $starttime, $rate); 63 print "Compiled approximately $filesbuilt files and $lines lines of code.\n"; 64 print "Doing final make (building archive...)\n"; 65 !system("make > /dev/null 2>/dev/null") or die "\nERROR: Failed to perform last make command!!!\n"; 66 print "done.\n";
