config/auto/inline.pm

   1 # Copyright (C) 2001-2003, The Perl Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/inline.pm - Inline Compiler Support
   7
   8 =head1 DESCRIPTION
   9
  10 Determines whether the compiler supports C<inline>.
  11
  12 =cut
  13
  14 package auto::inline;
  15
  16 use strict;
  17 use warnings;
  18
  19 use base qw(Parrot::Configure::Step);
  20
  21 use Parrot::Configure::Utils ':auto';
  22
  23
  24 sub _init {
  25     my $self = shift;
  26     my %data;
  27     $data{description} = q{Determining if your compiler supports inline};
  28     $data{result}      = q{};
  29     return \%data;
  30 }
  31
  32 sub runstep {
  33     my ( $self, $conf ) = @_;
  34
  35     my $inline = $conf->options->get(qw(inline));
  36     if ( defined $inline ) {
  37         $conf->data->set( inline => $inline );
  38         return 1;
  39     }
  40
  41     my $test = $self->_first_probe_for_inline($conf);
  42     unless ($test) {
  43         $test = $self->_second_probe_for_inline($conf, $test);
  44     }
  45
  46     $self->_evaluate_inline($conf, $test);
  47     return 1;
  48 }
  49
  50 sub _first_probe_for_inline {
  51     my $self = shift;
  52     my $conf = shift;
  53     my $test;
  54     $conf->cc_gen('config/auto/inline/test_1.in');
  55     eval { $conf->cc_build(); };
  56     if ( !$@ ) {
  57         $test = $conf->cc_run();
  58         chomp $test if $test;
  59     }
  60     $conf->cc_clean();
  61     return $test;
  62 }
  63
  64 sub _second_probe_for_inline {
  65     my $self = shift;
  66     my $conf = shift;
  67     my $test = shift;
  68     if ( !$test ) {
  69         $conf->cc_gen('config/auto/inline/test_2.in');
  70         eval { $conf->cc_build(); };
  71         if ( !$@ ) {
  72             $test = $conf->cc_run();
  73             chomp $test if $test;
  74         }
  75         $conf->cc_clean();
  76     }
  77     return $test;
  78 }
  79
  80 sub _evaluate_inline {
  81     my ($self, $conf, $test) = @_;
  82     my $verbose = $conf->options->get(qw(verbose));
  83     if ($test) {
  84         print " ($test) " if $verbose;
  85         $self->set_result('yes');
  86     }
  87     else {
  88         print " no " if $verbose;
  89         $self->set_result('no');
  90         $test = '';
  91     }
  92     $conf->data->set( inline => $test );
  93     return 1;
  94 }
  95
  96 1;
  97
  98 # Local Variables:
  99 #   mode: cperl
 100 #   cperl-indent-level: 4
 101 #   fill-column: 100
 102 # End:
 103 # vim: expandtab shiftwidth=4: