cvsuser 05/04/04 15:19:23
Modified: . MANIFEST
lib/Parrot/Configure RunSteps.pm
Added: config/auto python.pl
Log:
Check whether python is there.
This will be used later in 'languages/bc'.
Revision Changes Path
1.860 +1 -0 parrot/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /cvs/public/parrot/MANIFEST,v
retrieving revision 1.859
retrieving revision 1.860
diff -u -r1.859 -r1.860
--- MANIFEST 2 Apr 2005 11:00:00 -0000 1.859
+++ MANIFEST 4 Apr 2005 22:19:18 -0000 1.860
@@ -175,6 +175,7 @@
config/auto/memalign/test_c2.in []
config/auto/pack.pl []
config/auto/perldoc.pl []
+config/auto/python.pl []
config/auto/signal.pl []
config/auto/signal/test_1.in []
config/auto/signal/test_2.in []
1.1 parrot/config/auto/python.pl
Index: python.pl
===================================================================
# Copyright: 2005 The Perl Foundation. All Rights Reserved.
# $Id: python.pl,v 1.1 2005/04/04 22:19:19 bernhard Exp $
=head1 NAME
config/auto/python - Check whether python is there
=head1 DESCRIPTION
Determines whether python is there.
Checks also whether we have Python 2.4.
=head1 TODO
Store version of Python.
=cut
package Configure::Step;
use strict;
use vars qw($description @args);
use Parrot::Configure::Step ':auto';
$description = "Determining whether python is installed...";
@args = qw(verbose);
sub runstep {
my $a = `python -V 2>&1` || '';
my ($python, $major, $minor, $revision) =
$a =~ m/(Python)\s+(\d+).(\d+).(\d+)/;
my $has_python = $python ? 1 : 0;
Configure::Data->set(has_python => $has_python);
my $has_python_2_4 = 0;
if ( $has_python ) {
$has_python_2_4 =
( $major eq '2' && $minor eq '4' ) ? 1 : 0;
$Configure::Step::result = "yes, $major.$minor.$revision";
} else {
$Configure::Step::result = 'no';
}
Configure::Data->set(has_python_2_4 => $has_python_2_4);
}
1;
1.51 +2 -1 parrot/lib/Parrot/Configure/RunSteps.pm
Index: RunSteps.pm
===================================================================
RCS file: /cvs/public/parrot/lib/Parrot/Configure/RunSteps.pm,v
retrieving revision 1.50
retrieving revision 1.51
diff -u -r1.50 -r1.51
--- RunSteps.pm 2 Apr 2005 11:00:05 -0000 1.50
+++ RunSteps.pm 4 Apr 2005 22:19:23 -0000 1.51
@@ -60,6 +60,7 @@
auto/gdbm.pl
auto/snprintf.pl
auto/perldoc.pl
+ auto/python.pl
auto/antlr.pl
auto/bc.pl
gen/icu.pl
