Commit 4ef20e8b authored by Alessandro Ghedini's avatar Alessandro Ghedini

Imported Upstream version 2013.10

parent 92934ab8

Too many changes to show.

To preserve performance only 1000 of 1000+ files are displayed.

src/gen/*
nqp/
install/
Makefile
.*.swp
*.patch
*.pdb
*.res
*.exp
*.lib
lib/Test.pir
lib/Pod/To/Text.pir
lib/lib.pir
CORE.setting.pbc
RESTRICTED.setting.pbc
SAFE.setting.pbc
perl6
perl6.pbc
perl6_s1.pbc
perl6.exe
perl6.exe.manifest
perl6.c
perl6.o
perl6.obj
perl6.RES
perl6.ilk
perl6.opt
perl6.pdb
perl6.rc
t/localtest.data
t/spec
parrot
perl6.c
perl6.o
MANIFEST
commits.png
docs/test_summary.times
dynext/perl6_*.bundle
dynext/perl6_*.so
dynext/perl6_*.dll
perl6_group.?
perl6_group.obj
libparrot.dll
cygparrot*.dll
src/binder/*.o
src/binder/*.obj
src/binder/*.bundle
src/binder/*.pdb
docs/test_summary.times
docs/test_summary.times.tmp
lib/DateTime/strftime.pir
lib/Safe.pir
rakudo_test_run.tar.gz
config.status
config.default
qperl6.*
......@@ -71,6 +71,10 @@ D: Random small bug fixes
E: rogers-perl6@rgrjr.dyndns.org
U: rgrjr
N: Brent Laabs
U: labster
E: bslaabs@gmail.com
N: Bruce Gray
U: util
E: bruce.gray@acm.org
......@@ -79,14 +83,13 @@ N: Bruce Keeler
U: bkeeler
D: variable interpolation into regexes
N: Bryan C. Warnock
D: The First Perl 6 Summarizer
D: Little things here and there in pre-Parrot days.
D: And, yes, {sigh}, *that* Warnock.
E: bwarnock@raba.com
N: Carl Masak
N: Carl Mäsak
E: cmasak@gmail.com
U: masak
......@@ -147,6 +150,14 @@ N: Dino Morelli
D: PGE tests
E: dmorelli@reactorweb.net
N: Donald Hunter
U: donaldh
E: donald@sealgair.com
N: Elizabeth Mattijsen
U: lizmat
E: liz@dijkmat.nl
N: Florian Ragwitz
U: rafl
U: flora
......@@ -325,6 +336,10 @@ U: rurban
E: rurban@cpan.org
D: cygwin fixes
N: Rob Hoelz
U: hoelzro
E: rob@hoelz.ro
N: Robert Spier
D: Keeps us running
U: robert
......@@ -342,6 +357,10 @@ N: Solomon Foster
U: colomon
E: colomon@gmail.com
N: Stefan O'Rear
U: sorear
E: stefanor@cox.net
N: Stéphane Payrard
D: Various code fixes and improvements
......@@ -350,12 +369,20 @@ U: tene
D: Minor Rakudo patches
E: tene@allalone.org
N: Timo Paulssen
U: timo
E: timonator@perpetuum-immobile.de
N: Timothy Totten
U: novus
D: Temporal (DateTime/Date) modifications
E: supernovus@gmail.com
W: http://huri.net/
N: Tobias Leich
U: FROGGS
E: email@froggs.de
N: Tyler Curtis
U: tcurtis
D: $*ARGFILES
......
......@@ -7,7 +7,7 @@ use warnings;
use Text::ParseWords;
use Getopt::Long;
use Cwd;
use lib "tools/lib";
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);
......@@ -17,13 +17,13 @@ my $lclang = lc $lang;
my $uclang = uc $lang;
MAIN: {
if (-r "config.default") {
if (-r 'config.default') {
unshift @ARGV, shellwords(slurp('config.default'));
}
my %config;
my $config_status = "${lclang}_config_status";
$config{$config_status} = join(' ', map { "\"$_\""} @ARGV);
$config{$config_status} = join ' ', map { qq("$_") } @ARGV;
my $exe = $NQP::Configure::exe;
......@@ -84,7 +84,7 @@ MAIN: {
}
%config = (%config, %nqp_config);
my $nqp_have = $config{'nqp::version'} || '';
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).";
}
......@@ -122,7 +122,7 @@ MAIN: {
}
my $make = fill_template_text('@make@', %config);
fill_template_file('tools/build/Makefile.in', 'Makefile', %config);
fill_template_file('tools/build/Makefile-Parrot.in', 'Makefile', %config);
{
no warnings;
......
#! perl
# Copyright (C) 2009-2013 The Perl Foundation
use 5.008;
use strict;
use warnings;
use Text::ParseWords;
use Getopt::Long;
use Cwd qw(cwd realpath);
use lib "tools/lib";
use NQP::Configure qw(sorry slurp fill_template_text fill_template_file
system_or_die read_config gen_nqp);
use File::Basename;
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 %options;
GetOptions(\%options, 'help!', 'prefix=s', 'with-nqp=s', 'gen-nqp:s',
'make-install!', 'makefile-timing!', 'no-clean!'
) or do {
print_help();
exit(1);
};
# Print help if it's requested
if ($options{'help'}) {
print_help();
exit(0);
}
my $prefix = $options{'prefix'} ||
($^O eq 'MSWin32' ? cwd().'\\install-jvm' : cwd().'/install-jvm');
my $with_nqp = $options{'with-nqp'} ||
($^O eq 'MSWin32' ? 'install-jvm\\bin\\nqp' : 'install-jvm/bin/nqp');
my $gen_nqp = $options{'gen-nqp'};
$prefix = realpath($prefix);
# 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);
}
# require --with-nqp or --gen-nqp or find executable nqp at default locaton
if (!defined $gen_nqp && !defined $options{'with-nqp'} && ! -x $with_nqp && !-x $with_nqp.".bat") {
die("$with_nqp is not executable; use --with-nqp or use --gen-nqp");
}
# determine the version of NQP we want
my ($nqp_want) = split(' ', slurp('tools/build/NQP_REVISION'));
if (defined $gen_nqp) {
$options{'with-jvm'} = 1;
$options{'prefix'} = $prefix;
$with_nqp = gen_nqp($nqp_want, %options);
}
my @errors;
unless (`$with_nqp --version` =~ /This is nqp .+ JVM/) {
push @errors, "No NQP on JVM found; use --with-nqp to specify or --gen-nqp";
}
my %nqp_config = read_config($with_nqp)
or push @errors, "Unable to read configuration from $with_nqp.";
unless (defined $nqp_config{'jvm::runtime.jars'}) {
push @errors, "jvm::runtime.jars value not available from $with_nqp --show-config.";
}
sorry(@errors) if @errors;
print "Using $with_nqp.\n";
$config{'prefix'} = $prefix;
$config{'nqp'} = $with_nqp;
$config{'nqp_prefix'} = $nqp_config{'jvm::runtime.prefix'};
$config{'nqp_jars'} = $nqp_config{'jvm::runtime.jars'};
$config{'nqp_classpath'} = $nqp_config{'jvm::runtime.classpath'};
$config{'makefile-timing'} = $options{'makefile-timing'};
$config{'stagestats'} = '--stagestats' if $options{'makefile-timing'};
$config{'cpsep'} = $^O eq 'MSWin32' ? ';' : ':';
$config{'slash'} = $^O eq 'MSWin32' ? '\\' : '/';
$config{'runner'} = $^O eq 'MSWin32' ? 'perl6.bat' : 'perl6';
my $make = $config{'make'} = $^O eq 'MSWin32' ? 'nmake' : 'make';
fill_template_file('tools/build/Makefile-JVM.in', 'Makefile', %config);
unless ($options{'no-clean'}) {
no warnings;
print "Cleaning up ...\n";
if (open my $CLEAN, '-|', "$make clean") {
my @slurp = <$CLEAN>;