From 048c88e49b8f1f7bd5eb58cf43defba6c21da28b Mon Sep 17 00:00:00 2001 From: pmichaud Date: Tue, 28 Aug 2012 01:05:12 -0500 Subject: De-template Configure.pl. --- template-skel/Configure.pl | 194 --------------------------------------------- 1 file changed, 194 deletions(-) delete mode 100644 template-skel/Configure.pl diff --git a/template-skel/Configure.pl b/template-skel/Configure.pl deleted file mode 100644 index 02aaf31..0000000 --- a/template-skel/Configure.pl +++ /dev/null @@ -1,194 +0,0 @@ -#! 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 $parrot_ver = ''; -my $nqp_ver = ''; -my $rakudo_ver = ''; - -for ($parrot_ver, $nqp_ver, $rakudo_ver) { - if (/^<\w+_VER>/) { - die "You are running the original version of Configure.pl,\n" - . "but you should only run a version which has been processed by\n" - . "build/skel-template.pl\n"; - } -} - -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-$parrot_ver" 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-$nqp_ver" 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-$rakudo_ver/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: -- cgit v1.1