This adds information about the result of a test if the information is
terse enough. i.e. changes:
Determining whether your cc is actually gcc...........done.
Into:
Determining whether your cc is actually gcc............yes.
Enjoy,
Luke
Index: config/auto/aio.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/aio.pl,v
retrieving revision 1.1
diff -u -u -r1.1 aio.pl
--- config/auto/aio.pl 31 May 2004 11:54:46 -0000 1.1
+++ config/auto/aio.pl 14 Nov 2004 11:47:12 -0000
@@ -37,6 +37,7 @@
INFO=42\n
ok/x) {
print " (yes) " if $verbose;
+ $Configure::Step::result = 'yes';
Configure::Data->set(
aio => 'define',
@@ -50,5 +51,6 @@
else {
Configure::Data->set('libs', $libs);
print " (no) " if $verbose;
+ $Configure::Step::result = 'no';
}
}
Index: config/auto/byteorder.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/byteorder.pl,v
retrieving revision 1.2
diff -u -u -r1.2 byteorder.pl
--- config/auto/byteorder.pl 26 Feb 2004 00:43:02 -0000 1.2
+++ config/auto/byteorder.pl 14 Nov 2004 11:47:12 -0000
@@ -34,16 +34,18 @@
byteorder => $byteorder,
bigendian => 0
);
+ $Configure::Step::result = 'little-endian';
}
elsif($byteorder =~ /^(8765|4321)/) {
Configure::Data->set(
byteorder => $byteorder,
bigendian => 1
);
+ $Configure::Step::result = 'big-endian';
}
else {
die "Unsupported byte-order [$byteorder]!";
}
}
-1;
\ No newline at end of file
+1;
Index: config/auto/cgoto.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/cgoto.pl,v
retrieving revision 1.17
diff -u -u -r1.17 cgoto.pl
--- config/auto/cgoto.pl 25 Mar 2004 16:52:53 -0000 1.17
+++ config/auto/cgoto.pl 14 Nov 2004 11:47:12 -0000
@@ -56,9 +56,11 @@
cg_flag => '-DHAVE_COMPUTED_GOTO'
);
print " (yes) " if $verbose;
+ $Configure::Step::result = 'yes';
}
else {
print " (no) " if $verbose;
+ $Configure::Step::result = 'no';
Configure::Data->set(
TEMP_cg_h => '',
TEMP_cg_c => '',
Index: config/auto/env.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/env.pl,v
retrieving revision 1.4
diff -u -u -r1.4 env.pl
--- config/auto/env.pl 6 Mar 2004 22:24:30 -0000 1.4
+++ config/auto/env.pl 14 Nov 2004 11:47:13 -0000
@@ -50,15 +50,19 @@
if ($setenv && $unsetenv) {
print " (both) " if $_[0];
+ $Configure::Step::result = 'both';
}
elsif ($setenv) {
print " (setenv) " if $_[0];
+ $Configure::Step::result = 'setenv';
}
elsif ($unsetenv) {
print " (unsetenv) " if $_[0];
+ $Configure::Step::result = 'unsetenv';
}
else {
print " (no) " if $_[0];
+ $Configure::Step::result = 'no';
}
}
Index: config/auto/funcptr.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/funcptr.pl,v
retrieving revision 1.4
diff -u -u -r1.4 funcptr.pl
--- config/auto/funcptr.pl 6 Mar 2004 22:24:30 -0000 1.4
+++ config/auto/funcptr.pl 14 Nov 2004 11:47:13 -0000
@@ -46,6 +46,7 @@
}
cc_clean();
print " (yes) " if $_[0];
+ $Configure::Step::result = 'yes';
}
}
Index: config/auto/gcc.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/gcc.pl,v
retrieving revision 1.20
diff -u -u -r1.20 gcc.pl
--- config/auto/gcc.pl 10 Nov 2004 00:29:26 -0000 1.20
+++ config/auto/gcc.pl 14 Nov 2004 11:47:13 -0000
@@ -42,6 +42,7 @@
my $minor = $gnuc{__GNUC_MINOR__};
unless (defined $major) {
print " (no) " if $_[1];
+ $Configure::Step::result = 'no';
return;
}
if ($major =~ tr/0-9//c) {
@@ -55,6 +56,7 @@
$gccversion .= ".$minor" if defined $minor;
}
print " (yep: $gccversion )" if $_[1];
+ $Configure::Step::result = 'yes';
if ($gccversion) {
# If using gcc, crank up its warnings as much as possible and make it
Index: config/auto/gmp.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/gmp.pl,v
retrieving revision 1.3
diff -u -u -r1.3 gmp.pl
--- config/auto/gmp.pl 12 Oct 2004 09:00:15 -0000 1.3
+++ config/auto/gmp.pl 14 Nov 2004 11:47:13 -0000
@@ -52,6 +52,7 @@
$test = cc_run();
if ($test eq "499999500000\n") {
print " (yes) " if $verbose;
+ $Configure::Step::result = 'yes';
Configure::Data->set(
gmp => 'define',
@@ -65,6 +66,7 @@
Configure::Data->set('ccflags', $ccflags);
Configure::Data->set('linkflags', $linkflags);
print " (no) " if $verbose;
+ $Configure::Step::result = 'no';
}
}
Index: config/auto/inline.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/inline.pl,v
retrieving revision 1.4
diff -u -u -r1.4 inline.pl
--- config/auto/inline.pl 6 Mar 2004 22:24:30 -0000 1.4
+++ config/auto/inline.pl 14 Nov 2004 11:47:13 -0000
@@ -47,9 +47,11 @@
}
if ($test) {
print " ($test) " if $verbose;
+ $Configure::Step::result = 'yes';
}
else {
print " no " if $verbose;
+ $Configure::Step::result = 'no';
$test = '';
}
}
Index: config/auto/isreg.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/isreg.pl,v
retrieving revision 1.3
diff -u -u -r1.3 isreg.pl
--- config/auto/isreg.pl 6 Mar 2004 22:24:30 -0000 1.3
+++ config/auto/isreg.pl 14 Nov 2004 11:47:13 -0000
@@ -35,6 +35,7 @@
isreg => $test
);
print($test ? " (Yep) " : " (no) ") if $_[0];
+ $Configure::Step::result = $test ? 'yes' : 'no';
}
1;
Index: config/auto/memalign.pl
===================================================================
RCS file: /cvs/public/parrot/config/auto/memalign.pl,v
retrieving revision 1.11
diff -u -u -r1.11 memalign.pl
--- config/auto/memalign.pl 20 Oct 2004 08:03:13 -0000 1.11
+++ config/auto/memalign.pl 14 Nov 2004 11:47:13 -0000
@@ -71,6 +71,7 @@
$test ? 'memalign' : '';
Configure::Data->set( memalign => $f );
print($test ? " (Yep:$f) " : " (no) ") if $verbose;
+ $Configure::Step::result = $test ? 'yes' : 'no';
}
1;
Index: lib/Parrot/Configure/RunSteps.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Configure/RunSteps.pm,v
retrieving revision 1.45
diff -u -u -r1.45 RunSteps.pm
--- lib/Parrot/Configure/RunSteps.pm 4 Nov 2004 18:01:28 -0000 1.45
+++ lib/Parrot/Configure/RunSteps.pm 14 Nov 2004 11:47:20 -0000
@@ -85,11 +85,12 @@
my $n = 0;
for(@steps) {
+ undef $Configure::Step::result;
die "No config/$_" unless -e "config/$_";
require "config/$_";
print "\n$Configure::Step::description";
- print '.' x (70-length $Configure::Step::description);
+ print '...';
++$n;
if ($args{'verbose-step'}) {
if ($args{'verbose-step'} =~ /^\d+$/ &&
@@ -105,7 +106,7 @@
print "\n" if $args{verbose} && $args{verbose} == 2;
- $Configure::Step::result='done';
+ $Configure::Step::result ||= 'done';
{
@@ -114,6 +115,8 @@
}
print "..." if $args{verbose} && $args{verbose} == 2;
+ print "." x (71 - length($Configure::Step::description)
+ - length($Configure::Step::result));
print "$Configure::Step::result." unless m{^inter/} && $args{ask};
$args{verbose} = $verbose;
