]>
Commit | Line | Data |
---|---|---|
718b8c97 TC |
1 | #!perl -w |
2 | use strict; | |
d24404be | 3 | use ExtUtils::MakeMaker; |
718b8c97 TC |
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; | |
d97c8dbd | 16 | our %IMAGER_LIBS; |
718b8c97 | 17 | |
718b8c97 TC |
18 | my $MM_ver = eval $ExtUtils::MakeMaker::VERSION; |
19 | ||
20 | my %opts = | |
21 | ( | |
22 | NAME => 'Imager::Font::W32', | |
23 | VERSION_FROM => 'W32.pm', | |
24 | OBJECT => 'W32.o win32.o', | |
3edd17c9 | 25 | clean => { FILES => 'testout' }, |
718b8c97 TC |
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 "Win32: 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 | |
32d74dbe | 41 | my @Imager_req = ( Imager => "0.86" ); |
718b8c97 TC |
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/", | |
04b6f77c TC |
57 | repository => "git://git.imager.perl.org/imager.git", |
58 | bugtracker => "http://rt.cpan.org/NoAuth/Bugs.html?Dist=Imager", | |
718b8c97 TC |
59 | }, |
60 | }; | |
61 | $opts{PREREQ_PM} = | |
62 | { | |
63 | @Imager_req, | |
a5919365 | 64 | XSLoader => 0, |
718b8c97 TC |
65 | }; |
66 | } | |
67 | } | |
68 | ||
69 | require Imager::Probe; | |
70 | ||
71 | my %probe = | |
72 | ( | |
73 | name => "Win32", | |
74 | inccheck => sub { -e File::Spec->catfile($_[0], "windows.h") }, | |
75 | libbase => "gdi32", | |
76 | testcode => _win32_test_code(), | |
77 | testcodeheaders => [ "stdio.h", "string.h", "windows.h" ], | |
0c3c1180 TC |
78 | incpath => \@incpaths, |
79 | libpath => \@libpaths, | |
0987aae1 | 80 | verbose => $verbose, |
718b8c97 TC |
81 | ); |
82 | ||
83 | my $probe_res = Imager::Probe->probe(\%probe); | |
84 | if ($probe_res) { | |
d97c8dbd TC |
85 | $IMAGER_LIBS{Win32} = 1; |
86 | ||
718b8c97 TC |
87 | push @inc, $probe_res->{INC}; |
88 | $opts{LIBS} = $probe_res->{LIBS}; | |
03e49392 | 89 | $opts{DEFINE} = $probe_res->{DEFINE}; |
718b8c97 TC |
90 | $opts{INC} = "@inc"; |
91 | ||
92 | if ($MM_ver > 6.06) { | |
5b480b14 | 93 | $opts{AUTHOR} = 'Tony Cook <tonyc@cpan.org>'; |
718b8c97 TC |
94 | $opts{ABSTRACT} = 'Win32 font file support for Imager'; |
95 | } | |
96 | ||
97 | WriteMakefile(%opts); | |
98 | } | |
99 | else { | |
d97c8dbd TC |
100 | $IMAGER_LIBS{Win32} = 0; |
101 | ||
718b8c97 | 102 | if ($BUILDING_IMAGER) { |
d24404be | 103 | ExtUtils::MakeMaker::WriteEmptyMakefile(%opts); |
718b8c97 TC |
104 | } |
105 | else { | |
106 | # fail in good way | |
107 | die "OS unsupported: Win32 libraries or headers not found\n"; | |
108 | } | |
109 | } | |
110 | ||
111 | sub _win32_test_code { | |
112 | return <<'CODE'; | |
113 | HDC dc = GetDC(NULL); | |
114 | HDC bmpDc = CreateCompatibleDC(dc); | |
115 | DeleteDC(bmpDc); | |
116 | ReleaseDC(NULL, dc); | |
117 | return 0; | |
118 | CODE | |
119 | } |