some Changes updates
[imager.git] / FT2 / Makefile.PL
1 #!perl -w
2 use strict;
3 use ExtUtils::MakeMaker;
4 use Getopt::Long;
5 use Config;
6
7 my $verbose = $ENV{IM_VERBOSE};
8 my @libpaths;
9 my @incpaths;
10
11 GetOptions("incpath=s", \@incpaths,
12            "libpath=s" => \@libpaths,
13            "verbose|v" => \$verbose);
14
15 our $BUILDING_IMAGER;
16 our %IMAGER_LIBS;
17
18 my $MM_ver = eval $ExtUtils::MakeMaker::VERSION;
19
20 my %opts = 
21   (
22    NAME => 'Imager::Font::FT2',
23    VERSION_FROM => 'FT2.pm',
24    OBJECT => 'FT2.o freetyp2.o',
25    clean => { FILES => 'testout' },
26   );
27
28 my @inc;
29 if ($BUILDING_IMAGER) {
30   push @inc, "-I..";
31   unshift @INC, "../lib";
32 }
33 else {
34   unshift @INC, "inc";
35   print "FreeType 2: building independently\n";
36   require Imager::ExtUtils;
37   push @inc, Imager::ExtUtils->includes;
38   $opts{TYPEMAPS} = [ Imager::ExtUtils->typemap ];
39
40   # Imager required configure through use
41   my @Imager_req = ( Imager => "0.94" );
42   if ($MM_ver >= 6.46) {
43     $opts{META_MERGE} =
44       {
45        configure_requires => 
46        {
47         @Imager_req,
48        },
49        build_requires => 
50        {
51         @Imager_req,
52         "Test::More" => "0.47",
53        },
54        resources =>
55        {
56         homepage => "http://imager.perl.org/",
57         repository => "git://git.imager.perl.org/imager.git",
58         bugtracker => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager",
59        },
60       };
61     $opts{PREREQ_PM} =
62       {
63        @Imager_req,
64        'Scalar::Util' => 1.00,
65        XSLoader => 0,
66       };
67   }
68 }
69
70 require Imager::Probe;
71
72 my %probe =
73   (
74    name => "FreeType 2",
75    code => \&freetype2_probe_ftconfig,
76    inccheck =>
77    sub { -e File::Spec->catfile($_[0], "freetype/ftbitmap.h") },
78    libbase => "freetype",
79    testcode => _ft2_test_code(),
80    testcodeheaders => [ "stdio.h", "string.h", "ft2build.h" ],
81    testcodeprologue => _ft2_test_code_prologue(),
82    incpath => \@incpaths,
83    libpath => \@libpaths,
84    alternatives =>
85    [
86     {
87      incsuffix => "freetype2",
88     },
89     {
90      incsuffix => "freetype",
91     },
92    ],
93    verbose => $verbose,
94   );
95
96 my $probe_res = Imager::Probe->probe(\%probe);
97 if ($probe_res) {
98   $IMAGER_LIBS{FT2} = 1;
99
100   push @inc, $probe_res->{INC};
101   $opts{LIBS} = $probe_res->{LIBS};
102   $opts{DEFINE} = $probe_res->{DEFINE};
103   $opts{INC} = "@inc";
104   $opts{LDDLFLAGS} = $probe_res->{LDDLFLAGS}
105     if $probe_res->{LDDLFLAGS};
106
107   if ($MM_ver > 6.06) {
108     $opts{AUTHOR} = 'Tony Cook <tonyc@cpan.org>';
109     $opts{ABSTRACT} = 'FreeType 2 font driver for Imager';
110   }
111   
112   WriteMakefile(%opts);
113 }
114 else {
115   $IMAGER_LIBS{FT2} = 0;
116
117   if ($BUILDING_IMAGER) {
118     ExtUtils::MakeMaker::WriteEmptyMakefile(%opts);
119   }
120   else {
121     # fail in good way
122     die "OS unsupported: FreeType 2 headers/libraries not found\n";
123   }
124 }
125
126 sub _ft2_test_code {
127   return <<'CODE';
128 FT_Library library = 0;
129 FT_Face face = 0;
130 FT_Error error;
131 error = FT_Init_FreeType(&library);
132 if (error) {
133   fprintf(stderr, "FreeType 2: cannot initialize library: %d\n", error);
134   return 1;
135 }
136 error = FT_New_Face(library, "fontfiles/dodge.ttf", 0, &face);
137 if (error) {
138   fprintf(stderr, "FreeType 2: cannot load font: %d\n", error);
139   return 1;
140 }
141 return 0;
142 CODE
143 }
144
145 sub _ft2_test_code_prologue {
146   return <<'CODE';
147 #include FT_FREETYPE_H
148
149 CODE
150 }
151
152 sub is_exe {
153   my ($name) = @_;
154
155   my @exe_suffix = $Config{_exe};
156   if ($^O eq 'MSWin32') {
157     push @exe_suffix, qw/.bat .cmd/;
158   }
159   elsif ($^O eq 'cygwin') {
160     push @exe_suffix, "";
161   }
162
163   for my $dir (File::Spec->path) {
164     for my $suffix (@exe_suffix) {
165       -x File::Spec->catfile($dir, "$name$suffix")
166         and return 1;
167     }
168   }
169
170   return;
171 }
172
173 # probes for freetype2 by trying to run freetype-config
174 sub freetype2_probe_ftconfig {
175   my ($req) = @_;
176
177   is_exe('freetype-config') or return;
178
179   my $cflags = `freetype-config --cflags`
180     and !$? or return;
181   chomp $cflags;
182
183   my $lflags = `freetype-config --libs`
184     and !$? or return;
185   chomp $lflags;
186
187   # before 2.1.5 freetype-config --cflags could output
188   # the -I options in the wrong order, causing a conflict with
189   # freetype1.x installed with the same --prefix
190   #
191   # can happen iff:
192   #  - both -Iprefix/include and -Iprefix/include/freetype2 are in cflags
193   #    in that order
194   #  - freetype 1.x headers are in prefix/include/freetype
195   my @incdirs = map substr($_, 2), grep /^-I/, split ' ', $cflags;
196   if (@incdirs == 2 
197       && $incdirs[1] eq "$incdirs[0]/freetype2"
198       && -e "$incdirs[0]/freetype/freetype.h"
199       && -e "$incdirs[0]/freetype/fterrid.h") {
200     print "** freetype-config provided -I options out of order, correcting\n"
201       if $verbose;
202     $cflags = join(' ', grep(!/-I/, split ' ', $cflags),
203                    map "-I$_", reverse @incdirs);
204   }
205
206   print "$req->{name}: configured via freetype-config\n";
207
208   return
209     {
210      INC => $cflags,
211      LIBS => $lflags,
212     };
213 }