config/auto/snprintf.pm

   1 # Copyright (C) 2001-2003, The Perl Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/snprintf.pm - Test for snprintf
   7
   8 =head1 DESCRIPTION
   9
  10 Tests if snprintf is present and if it's C99 compliant.
  11
  12 =cut
  13
  14 package auto::snprintf;
  15
  16 use strict;
  17 use warnings;
  18
  19 use base qw(Parrot::Configure::Step);
  20
  21 sub _init {
  22     my $self = shift;
  23     my %data;
  24     $data{description} = q{Testing snprintf};
  25     $data{result}      = q{};
  26     return \%data;
  27 }
  28
  29 sub runstep {
  30     my ( $self, $conf ) = @_;
  31
  32     my $res = _probe_for_snprintf($conf);
  33
  34     $self->_evaluate_snprintf($conf, $res);
  35
  36     return 1;
  37 }
  38
  39 sub _probe_for_snprintf {
  40     my $conf = shift;
  41     $conf->cc_gen('config/auto/snprintf/test.in');
  42     $conf->cc_build();
  43     my $res = $conf->cc_run() or die "Can't run the snprintf testing program: $!";
  44     $conf->cc_clean();
  45     return $res;
  46 }
  47
  48 sub _evaluate_snprintf {
  49     my ($self, $conf, $res) = @_;
  50     if ( $res =~ /snprintf/ ) {
  51         $conf->data->set( HAS_SNPRINTF => 1 );
  52     }
  53     if ( $res =~ /^C99 snprintf/ ) {
  54         $conf->data->set( HAS_C99_SNPRINTF => 1 );
  55     }
  56     elsif ( $res =~ /^old snprintf/ ) {
  57         $conf->data->set( HAS_OLD_SNPRINTF => 1 );
  58     }
  59     print " ($res) " if $conf->options->get('verbose');
  60     return 1;
  61 }
  62
  63 1;
  64
  65 # Local Variables:
  66 #   mode: cperl
  67 #   cperl-indent-level: 4
  68 #   fill-column: 100
  69 # End:
  70 # vim: expandtab shiftwidth=4: