config/auto/format.pm

   1 # Copyright (C) 2001-2003, The Perl Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/auto/format.pm - Sprintf Formats
   7
   8 =head1 DESCRIPTION
   9
  10 Figures out what formats should be used for C<sprintf()>.
  11
  12 =cut
  13
  14 package auto::format;
  15
  16 use strict;
  17 use warnings;
  18
  19 use base qw(Parrot::Configure::Step);
  20
  21 use Parrot::Configure::Step;
  22
  23
  24 sub _init {
  25     my $self = shift;
  26     my %data;
  27     $data{description} = q{Figuring out what formats should be used for sprintf};
  28     $data{result}      = q{};
  29     return \%data;
  30 }
  31
  32 sub runstep {
  33     my ( $self, $conf ) = @_;
  34
  35     _set_intvalfmt($conf);
  36
  37     _set_floatvalfmt_nvsize($conf);
  38
  39     return 1;
  40 }
  41
  42 sub _set_intvalfmt {
  43     my $conf = shift;
  44     my $ivformat;
  45     my $iv = $conf->data->get(qw(iv));
  46
  47     if ( $iv eq "int" ) {
  48         $ivformat = "%d";
  49     }
  50     elsif ( ( $iv eq "long" ) || ( $iv eq "long int" ) ) {
  51         $ivformat = "%ld";
  52     }
  53     elsif ( ( $iv eq "long long" ) || ( $iv eq "long long int" ) ) {
  54         $ivformat = "%lld";
  55     }
  56     else {
  57         die qq{Configure.pl:  Can't find a printf-style format specifier for type '$iv'\n};
  58     }
  59     $conf->data->set( intvalfmt   => $ivformat );
  60 }
  61
  62 sub _set_floatvalfmt_nvsize {
  63     my $conf = shift;
  64     my ( $nv, $floatsize, $doublesize, $ldsize ) =
  65         $conf->data->get(qw(nv floatsize doublesize hugefloatvalsize));
  66     my ( $nvformat, $nvsize );
  67     $nvsize = $floatsize;
  68     if ( $nv eq "double" ) {
  69         $nvsize   = $doublesize;
  70         $nvformat = "%f";
  71     }
  72     elsif ( $nv eq "long double" ) {
  73
  74         # Stay way from long double for now (it may be 64 or 80 bits)
  75         # die "long double not supported at this time, use double.";
  76         $nvsize   = $ldsize;
  77         $nvformat = "%Lf";
  78     }
  79     else {
  80         die qq{Configure.pl:  Can't find a printf-style format specifier for type '$nv'\n};
  81     }
  82
  83     $conf->data->set(
  84         floatvalfmt => $nvformat,
  85         nvsize      => $nvsize
  86     );
  87 }
  88
  89 1;
  90
  91 # Local Variables:
  92 #   mode: cperl
  93 #   cperl-indent-level: 4
  94 #   fill-column: 100
  95 # End:
  96 # vim: expandtab shiftwidth=4: