config/init/headers.pm

   1 # Copyright (C) 2001-2006, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 config/init/headers.pm - Nongenerated Headers
   7
   8 =head1 DESCRIPTION
   9
  10 Uses C<ExtUtils::Manifest> to find the C header files that are
  11 distributed with Parrot.
  12
  13 =cut
  14
  15 package init::headers;
  16
  17 use strict;
  18 use warnings;
  19
  20
  21 use base qw(Parrot::Configure::Step);
  22
  23 use Parrot::Configure::Step;
  24 use ExtUtils::Manifest qw(maniread);
  25
  26 sub _init {
  27     my $self = shift;
  28     my %data;
  29     $data{description} = q{Find header files distributed with Parrot};
  30     $data{result}      = q{};
  31     return \%data;
  32 }
  33
  34 sub runstep {
  35     my ( $self, $conf ) = @_;
  36
  37     my $inc = 'include/parrot';
  38
  39     my @headers = (
  40         sort
  41             map { m{^$inc/(.*\.h)\z} }
  42             keys %{ maniread() }
  43     );
  44
  45     $_ = "\$(INC_DIR)/$_" for @headers;
  46     my $TEMP_nongen_headers = join( "\\\n        ", @headers );
  47
  48     $conf->data->set(
  49         inc                 => $inc,
  50         TEMP_nongen_headers => $TEMP_nongen_headers,
  51     );
  52
  53     return 1;
  54 }
  55
  56 1;
  57
  58 # Local Variables:
  59 #   mode: cperl
  60 #   cperl-indent-level: 4
  61 #   fill-column: 100
  62 # End:
  63 # vim: expandtab shiftwidth=4: