config/auto/cpu.pm

   1 # Copyright (C) 2001-2006, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/cpu.pm - CPU specific Files
   7
   8 =head1 DESCRIPTION
   9
  10 Runs C<runstep()> in F<config/auto/cpu/${cpuarch}/auto.pm> if it exists.
  11
  12 =cut
  13
  14 package auto::cpu;
  15
  16 use strict;
  17 use warnings;
  18
  19 use base qw(Parrot::Configure::Step);
  20
  21 use Parrot::Configure::Utils qw(copy_if_diff);
  22 use Carp;
  23
  24
  25 sub _init {
  26     my $self = shift;
  27     my %data;
  28     $data{description} = q{Generate CPU specific stuff};
  29     $data{result}      = q{};
  30     return \%data;
  31 }
  32
  33 sub runstep {
  34     my ( $self, $conf ) = @_;
  35
  36     my $verbose = $conf->options->get('verbose');
  37
  38     $conf->data->add( ' ', TEMP_atomic_o => '' );    # assure a default
  39
  40     my $hints = "auto::cpu::" . $conf->data->get('cpuarch') . "::auto";
  41
  42     print "\t(cpu hints = '$hints') " if $verbose;
  43
  44     eval "use $hints";
  45     unless ($@) {
  46         $hints->runstep( $conf, @_ );
  47     }
  48     else {
  49         print "(no cpu specific hints)" if $verbose;
  50     }
  51
  52     return 1;
  53 }
  54
  55 1;
  56
  57 # Local Variables:
  58 #   mode: cperl
  59 #   cperl-indent-level: 4
  60 #   fill-column: 100
  61 # End:
  62 # vim: expandtab shiftwidth=4: