lib/Imager/ExtUtils.pm

   1 package Imager::ExtUtils;
   2 use strict;
   3
   4 use vars qw($VERSION);
   5
   6 $VERSION = "1.001";
   7
   8 =head1 NAME
   9
  10 Imager::ExtUtils - functions handy in writing Imager extensions
  11
  12 =head1 SYNOPSIS
  13
  14   # make Imager easier to use with Inline
  15   # perldoc Imager::Inline
  16   use Inline with => 'Imager';
  17
  18 =head1 DESCRIPTION
  19
  20 =over
  21
  22 =item base_dir
  23
  24 Returns the base directory where Imager is installed.
  25
  26 =cut
  27
  28 # figure out where Imager is installed
  29 sub base_dir {
  30   for my $dir (@INC) {
  31     if (-e "$dir/Imager.pm") {
  32       return $dir;
  33     }
  34   }
  35
  36   die "Cannot locate an installed Imager!";
  37 }
  38
  39 =item inline_config
  40
  41 Implements Imager's Inline::C C<with> hook.
  42
  43 =cut
  44
  45 sub inline_config {
  46   my ($class) = @_;
  47   my $base = base_dir();
  48
  49   return
  50     {
  51      INC => $class->includes,
  52      TYPEMAPS => $class->typemap,
  53      AUTO_INCLUDE => <<CODE,
  54 /* Inserted by Imager $Imager::VERSION */
  55 #include "imext.h"
  56 #include "imperl.h"
  57 DEFINE_IMAGER_CALLBACKS;
  58 CODE
  59      BOOT => 'PERL_INITIALIZE_IMAGER_CALLBACKS;',
  60      FILTERS => \&_inline_filter,
  61     };
  62 }
  63
  64 my @inline_replace =
  65   qw(
  66    Imager::ImgRaw
  67    Imager::Color::Float
  68    Imager::Color
  69    Imager::IO
  70   );
  71
  72 my %inline_replace =
  73   map { (my $tmp = $_) =~ s/::/__/g; $_ => $tmp } @inline_replace;
  74
  75 my $inline_replace_re = "\\b(" . join('|', @inline_replace) . ")\\b";
  76
  77 sub _inline_filter {
  78   my $code = shift;
  79
  80   $code =~ s/$inline_replace_re/$inline_replace{$1}/g;
  81
  82   $code;
  83 }
  84
  85 =item includes
  86
  87 Returns -I options suitable for use with ExtUtils::MakeMaker's INC
  88 option.
  89
  90 =cut
  91
  92 sub includes {
  93   my $class = shift;
  94   my $base = $class->base_dir();
  95
  96   "-I" . $base . '/Imager/include',
  97 }
  98
  99 =item typemap
 100
 101 Returns the full path to Imager's installed typemap.
 102
 103 =cut
 104
 105 sub typemap {
 106   my $class = shift;
 107   my $base = $class->base_dir();
 108
 109   $base . '/Imager/typemap';
 110 }
 111
 112 1;
 113
 114 __END__
 115
 116 =back
 117
 118 =head1 AUTHOR
 119
 120 Tony Cook <tony@imager.perl.org>
 121
 122 =head1 REVISION
 123
 124 $Revision$
 125
 126 =head1 SEE ALSO
 127
 128 Imager, Imager::API, Imager::Inline, Imager::APIRef.
 129
 130 =cut