-
Notifications
You must be signed in to change notification settings - Fork 41
Commit
This commit does not belong to any branch on this repository, and may belong to a fork outside of the repository.
- Loading branch information
Showing
1 changed file
with
182 additions
and
0 deletions.
There are no files selected for viewing
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Original file line number | Diff line number | Diff line change |
---|---|---|
@@ -0,0 +1,182 @@ | ||
#! perl | ||
# Copyright (C) 2009 The Perl Foundation | ||
|
||
use 5.008; | ||
use strict; | ||
use warnings; | ||
use Text::ParseWords; | ||
use Getopt::Long; | ||
use Cwd; | ||
use lib "tools/lib"; | ||
use NQP::Configure qw(sorry slurp cmp_rev gen_nqp read_config | ||
fill_template_text fill_template_file | ||
system_or_die verify_install); | ||
|
||
my $lang = 'Rakudo'; | ||
my $lclang = lc $lang; | ||
my $uclang = uc $lang; | ||
|
||
MAIN: { | ||
if (-r "config.default") { | ||
unshift @ARGV, shellwords(slurp('config.default')); | ||
} | ||
|
||
my %config; | ||
my $config_status = "${lclang}_config_status"; | ||
$config{$config_status} = join(' ', map { "\"$_\""} @ARGV); | ||
|
||
my $exe = $NQP::Configure::exe; | ||
|
||
my %options; | ||
GetOptions(\%options, 'help!', 'prefix=s', | ||
'with-nqp=s', 'gen-nqp:s', | ||
'with-parrot=s', 'gen-parrot:s', 'parrot-option=s@', | ||
'make-install!', 'makefile-timing!', | ||
); | ||
|
||
# Print help if it's requested | ||
if ($options{'help'}) { | ||
print_help(); | ||
exit(0); | ||
} | ||
|
||
|
||
my $prefix = $options{'prefix'} || cwd().'/install'; | ||
my $with_parrot = $options{'with-parrot'}; | ||
$options{'gen-parrot'} ||= "parrot" if defined $options{'gen-parrot'}; | ||
my $gen_parrot = $options{'gen-parrot'}; | ||
|
||
# Save options in config.status | ||
unlink('config.status'); | ||
if (open(my $CONFIG_STATUS, '>', 'config.status')) { | ||
print $CONFIG_STATUS | ||
"$^X Configure.pl $config{$config_status} \$*\n"; | ||
close($CONFIG_STATUS); | ||
} | ||
|
||
# --with-parrot and --gen-parrot imply --gen-nqp | ||
if (defined $with_parrot || defined $gen_parrot) { | ||
$options{'gen-nqp'} ||= ''; | ||
} | ||
|
||
$options{'gen-nqp'} ||= "nqp" if defined $options{'gen-nqp'}; | ||
my $with_nqp = $options{'with-nqp'}; | ||
my $gen_nqp = $options{'gen-nqp'}; | ||
|
||
# determine the version of NQP we want | ||
my ($nqp_want) = split(' ', slurp("rakudo/tools/build/NQP_REVISION")); | ||
|
||
if (defined $gen_nqp) { | ||
$with_nqp = gen_nqp($nqp_want, %options); | ||
} | ||
|
||
my @errors; | ||
|
||
my %nqp_config; | ||
if ($with_nqp) { | ||
%nqp_config = read_config($with_nqp) | ||
or push @errors, "Unable to read configuration from $with_nqp."; | ||
} | ||
else { | ||
%nqp_config = read_config("$prefix/bin/nqp$exe", "nqp$exe") | ||
or push @errors, "Unable to find an NQP executable."; | ||
$with_nqp = fill_template_text('@bindir@/nqp@exe@', %nqp_config) | ||
} | ||
|
||
%config = (%config, %nqp_config); | ||
my $nqp_have = $config{'nqp::version'} || ''; | ||
if ($nqp_have && cmp_rev($nqp_have, $nqp_want) < 0) { | ||
push @errors, "NQP revision $nqp_want required (currently $nqp_have)."; | ||
} | ||
|
||
if (!@errors) { | ||
push @errors, verify_install([ @NQP::Configure::required_parrot_files, | ||
@NQP::Configure::required_nqp_files ], | ||
%config); | ||
push @errors, | ||
"(Perhaps you need to 'make install', 'make install-dev',", | ||
"or install the 'devel' package for NQP or Parrot?)" | ||
if @errors; | ||
} | ||
|
||
if (@errors && !defined $gen_nqp) { | ||
push @errors, | ||
"\nTo automatically clone (git) and build a copy of NQP $nqp_want,", | ||
"try re-running Configure.pl with the '--gen-nqp' or '--gen-parrot'", | ||
"options. Or, use '--with-nqp=' or '--with-parrot=' to explicitly", | ||
"specify the NQP or Parrot executable to use to build $lang."; | ||
} | ||
|
||
sorry(@errors) if @errors; | ||
|
||
print "Using $with_nqp (version $config{'nqp::version'}).\n"; | ||
|
||
$config{'makefile-timing'} = $options{'makefile-timing'}; | ||
$config{'stagestats'} = '--stagestats' if $options{'makefile-timing'}; | ||
$config{'shell'} = $^O eq 'MSWin32' ? 'cmd' : 'sh'; | ||
if ($^O eq 'MSWin32' or $^O eq 'cygwin') { | ||
$config{'dll'} = '$(PARROT_BIN_DIR)/$(PARROT_LIB_SHARED)'; | ||
$config{'dllcopy'} = '$(PARROT_LIB_SHARED)'; | ||
$config{'make_dllcopy'} = | ||
'$(PARROT_DLL_COPY): $(PARROT_DLL)'."\n\t".'$(CP) $(PARROT_DLL) .'; | ||
} | ||
|
||
my $make = fill_template_text('@make@', %config); | ||
fill_template_file('tools/build/Makefile.in', 'Makefile', %config); | ||
|
||
{ | ||
no warnings; | ||
print "Cleaning up ...\n"; | ||
if (open my $CLEAN, '-|', "$make clean") { | ||
my @slurp = <$CLEAN>; | ||
close($CLEAN); | ||
} | ||
} | ||
|
||
if ($options{'make-install'}) { | ||
system_or_die($make); | ||
system_or_die($make, 'install'); | ||
print "\n$lang has been built and installed.\n"; | ||
} | ||
else { | ||
print "\nYou can now use '$make' to build $lang.\n"; | ||
print "After that, '$make test' will run some tests and\n"; | ||
print "'$make install' will install $lang.\n"; | ||
} | ||
|
||
exit 0; | ||
} | ||
|
||
|
||
# Print some help text. | ||
sub print_help { | ||
print <<"END"; | ||
Configure.pl - $lang Configure | ||
General Options: | ||
--help Show this text | ||
--prefix=dir Install files in dir | ||
--with-nqp=path/to/bin/nqp | ||
NQP executable to use to build $lang | ||
--gen-nqp[=branch] | ||
Download and build a copy of NQP | ||
--with-parrot=path/to/bin/parrot | ||
Parrot executable to use to build NQP | ||
--gen-parrot[=branch] | ||
Download and build a copy of Parrot | ||
--parrot-option='--option' | ||
Options to pass to Parrot's Configure.pl | ||
--makefile-timing Enable timing of individual makefile commands | ||
Configure.pl also reads options from 'config.default' in the current directory. | ||
END | ||
|
||
return; | ||
} | ||
|
||
# Local Variables: | ||
# mode: cperl | ||
# cperl-indent-level: 4 | ||
# fill-column: 100 | ||
# End: | ||
# vim: expandtab shiftwidth=4: |