tools/dev/gen_makefile.pl

   1 #! perl
   2
   3 # Copyright (C) 2009, Parrot Foundation.
   4 # $Id$
   5
   6 use 5.008;
   7 use strict;
   8 use warnings;
   9 use FindBin qw($Bin);
  10 use lib "$Bin/../lib";    # install location
  11 use lib "$Bin/../../lib"; # build location
  12 use Parrot::Configure;
  13 use Parrot::Configure::Options qw( process_options );
  14
  15 $| = 1;    # $OUTPUT_AUTOFLUSH = 1;
  16
  17 my $args = process_options(
  18     {
  19         step              => 'gen::makefiles',
  20         mode              => 'reconfigure',
  21     }
  22 );
  23 exit(1) unless ( defined $args );
  24
  25 my $template = $ARGV[0];
  26 my $makefile = $ARGV[1];
  27
  28 my $conf = Parrot::Configure->new();
  29 $conf->options->set( %{$args} );
  30 $conf->data()->get_PConfig(); #load configuration data
  31 foreach (@ARGV) {
  32     next unless (/--(\w+)=(\w+)/);
  33     $conf->data->set( $1 => $2 );
  34 }
  35 $conf->genfile(
  36     $template           => $makefile,
  37     file_type           => 'makefile',
  38     expand_gmake_syntax => 1,
  39 );
  40
  41 exit(0);
  42
  43 # Local Variables:
  44 #   mode: cperl
  45 #   cperl-indent-level: 4
  46 #   fill-column: 100
  47 # End:
  48 # vim: expandtab shiftwidth=4: