tools/dev/reconfigure.pl

   1 #! perl
   2
   3 # Copyright (C) 2007, Parrot Foundation.
   4 # $Id$
   5
   6 use 5.008;
   7 use strict;
   8 use warnings;
   9 use lib 'lib';
  10 use Parrot::Configure;
  11 use Parrot::Configure::Options qw( process_options );
  12
  13 $| = 1;    # $OUTPUT_AUTOFLUSH = 1;
  14
  15 my $args = process_options(
  16     {
  17         mode => 'reconfigure',
  18         argv => [@ARGV],
  19     }
  20 );
  21 exit(1) unless ( defined $args and defined $args->{step} );
  22
  23 my $conf = Parrot::Configure->new;
  24 $conf->add_step( $args->{step} );
  25 $conf->options->set( %{$args} );
  26
  27 # The result of get_PConfig() is that the parameters in %Parrot::Config::PConfig
  28 # are assigned to the {c} attribute in $conf.
  29 $conf->data()->get_PConfig();
  30
  31 # The result of get_PConfig_Temp() is that the parameters in
  32 # %Parrot::Config::PConfig_Temp
  33 # are assigned to the {c}{$_} attribute in $conf.
  34 if ( $args->{step} =~ /gen::makefiles/ ) {
  35     $conf->data()->get_PConfig_Temp();
  36 }
  37 $conf->run_single_step( $args->{step} );
  38 print "\n";
  39 exit(0);
  40
  41 # Local Variables:
  42 #   mode: cperl
  43 #   cperl-indent-level: 4
  44 #   fill-column: 100
  45 # End:
  46 # vim: expandtab shiftwidth=4: