Skip to content

Commit

Permalink
Browse files Browse the repository at this point in the history
Add "--gen-parrot" option to automatically download/maintain Parrot.
  • Loading branch information
pmichaud committed Feb 16, 2009
1 parent 12b2b39 commit a8647e3
Showing 1 changed file with 17 additions and 6 deletions.
23 changes: 17 additions & 6 deletions Configure.pl
Expand Up @@ -9,20 +9,29 @@
my %valid_options = (
'help' => 'Display configuration help',
'parrot-config' => 'Use configuration given by parrot_config binary',
'gen-parrot' => 'Automatically retrieve and build Parrot',
);

# Work out slash character to use.
my $slash = $^O eq 'MSWin32' ? '\\' : '/';


# Get any options from the command line
my %options = get_command_options();


# Print help if it's requested
if ($options{'help'}) {
print_help();
exit(0);
}

# Work out slash character to use.
my $slash = $^O eq 'MSWin32' ? '\\' : '/';

# Update/generate parrot build if needed
if ($options{'gen-parrot'}) {
system("$^X build/gen_parrot.pl");
}


# Get a list of parrot-configs to invoke.
my @parrot_config_exe = ("parrot${slash}parrot_config",
Expand Down Expand Up @@ -101,11 +110,12 @@ sub create_makefile {


sub done {
print <<END;
my $make = $config{'make'};
print <<"END";
You can now use 'make' to build Rakudo Perl.
After that, you can use 'make test' to run some local tests,
or 'make spectest' to check out (via svn) a copy of the Perl 6
You can now use '$make' to build Rakudo Perl.
After that, you can use '$make test' to run some local tests,
or '$make spectest' to check out (via svn) a copy of the Perl 6
official test suite and run its tests.
END
Expand All @@ -120,6 +130,7 @@ sub print_help {
General Options:
--help Show this text
--gen-parrot Download and build a copy of Parrot to use
--parrot-config=(config)
Use configuration information from config
Expand Down

0 comments on commit a8647e3

Please sign in to comment.