5 # Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
7 # ------------------------------------------------------------------------------
9 # This library is free software; you can redistribute it and/or
10 # modify it under the terms of the GNU Lesser General Public
11 # License as published by the Free Software Foundation; either
12 # version 2.1 of the License, or (at your option) any later version.
14 # This library is distributed in the hope that it will be useful,
15 # but WITHOUT ANY WARRANTY; without even the implied warranty of
16 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
17 # Lesser General Public License for more details.
19 # You should have received a copy of the GNU Lesser General Public
20 # License along with this library; if not, write to the Free Software
21 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
23 # ------------------------------------------------------------------------------
25 # Please feel free to send questions, suggestions or improvements to:
36 use base 'Module::Build';
42 # Module::Build doesn't seem to have a way to use separate flags for separate
43 # XS files, so here's the override that makes separate files build correctly:
46 my ($self, $file) = @_;
48 #TODO: call this in MSWin32::process_xs
49 $file =~ s/\\/\//g if( $^O =~ /MSWin.*/ );
51 my $properties = $self->{properties};
52 my $file_args = $self->notes( 'file_flags' )->{$file};
53 my @old_values = @$properties{ keys %$file_args };
54 @$properties{ keys %$file_args } = values %$file_args;
56 $self->SUPER::process_xs( $file );
57 @$properties{ keys %$file_args } = @old_values;
61 # every platform has slightly different library and header paths
65 my $modpath = File::Spec->catfile(
66 'SDL', 'Build', ucfirst( $os ) . '.pm' );
67 my $module = 'SDL::Build::' . ucfirst( $os );
69 require $modpath or croak "No module for $os platform\n";
74 # which headers are installed?
77 my ($self, $subsystems, $libraries) = @_;
78 my %includes_libs = $self->fetch_includes();
81 while ( my ($name, $subsystem) = each %$subsystems )
83 for my $library (@{ $subsystem->{libraries} })
85 my $lib = $libraries->{$library}
86 or croak "Unknown library '$library' for '$name'\n";
88 my ($inc_dir, $link_dir) =
89 $self->find_header( $lib->{header}, \%includes_libs );
90 $enabled{$name}{ $library } = $inc_dir ? [ $inc_dir, $link_dir ]
98 # set the define flags for the libraries we have
101 my ($self, $libraries, $build_systems) = @_;
105 while (my ($subsystem, $buildable) = each %$build_systems)
107 for my $build (grep { $buildable->{ $_ } } keys %$buildable)
109 push @{ $defines{ $subsystem } }, "-D$libraries->{$build}{define}";
116 # set the include paths for the libraries we have
119 my ($self, $libraries, $build_systems) = @_;
123 while (my ($subsystem, $buildable) = each %$build_systems)
126 for my $build (grep { $buildable->{ $_ } } keys %$buildable)
128 $sub_include{ $buildable->{ $build }[0] }++;
131 $includes{ $subsystem } = [ map { "-I$_" } keys %sub_include ];
137 # set the linker paths and flags for the libraries we have
140 my ($self, $libraries, $build_systems) = @_;
144 while (my ($subsystem, $buildable) = each %$build_systems)
147 for my $build (grep { $buildable->{ $_ } } keys %$buildable)
149 $sub_links{ $buildable->{ $build }[1] }++;
150 push @{ $links{ $subsystem }{libs} }, "-l$build";
153 $links{ $subsystem }{paths} = [ map { "-L$_" } keys %sub_links ];
159 # save this all in a format process_xs() can understand
162 my ($self, $subsystems, $build, $defines, $includes, $links,
163 $sdl_compile, $sdl_link) = @_;
165 while (my ($subsystem, $buildable) = each %$build)
167 my $sub_file = $subsystems->{$subsystem}{file}{to};
168 my $sub_includes = join(' ', @{ $includes->{$subsystem} } );
169 $file_flags{ $sub_file } =
171 extra_compiler_flags =>
173 @{ $includes->{$subsystem} },
174 (split(' ',$sdl_compile)),
175 @{ $defines->{$subsystem} },
176 ( defined $Config{usethreads} ? ('-DUSE_THREADS', '-fPIC') : ('-fPIC' )),
178 extra_linker_flags =>
180 @{ $links->{$subsystem}{paths} },
181 (split(' ',$sdl_link)),
182 @{ $links->{$subsystem}{libs} },
187 $self->notes( 'file_flags' => \%file_flags );
190 # look for a header somewhere on the system
193 my ($self, $header, $includes) = @_;
195 for my $inc_dir (keys %$includes)
197 next unless -e File::Spec->catfile( $inc_dir, $header );
198 return ($inc_dir, $includes->{$inc_dir});
201 print STDERR "Warning: header file '$header' not found.\n";
207 my ($self, $config) = @_;
208 my $path = File::Spec->catfile(qw( lib SDL Config.pm ));
209 my $dd = Data::Dumper->new( [ $config ], [ 'sdl_config' ] );
210 my $hash = $dd->Dump();
211 (my $text = <<' END_HEADER' . $hash . <<' END_FOOTER');
219 my ($class, $define) = @_;
220 scalar grep { $$sdl_config{$_}{$define} } keys %$sdl_config;
228 open my $file, '>', $path or croak "Cannot write to '$path': $!\n";
234 # Subclass Darwin to build Objective-C addons
238 print STDERR "[SDL::Build] generic filter\n";
242 sub process_support_files {
244 my $p = $self->{properties};
245 return unless $p->{c_source};
246 return unless $p->{c_sources};
248 push @{$p->{include_dirs}}, $p->{c_source};
249 unless ( $p->{extra_compiler_flags} && $p->{extra_compiler_flags} =~ /DARCHNAME/) {
250 $p->{extra_compiler_flags} .= " -DARCHNAME=" . $self->{config}{archname};
252 print STDERR "[SDL::Build] extra compiler flags" . $p->{extra_compiler_flags} . "\n";
254 foreach my $file (map($p->{c_source} . "/$_", @{$p->{c_sources}})) {
255 push @{$p->{objects}}, $self->compile_c($file);
259 # get link flags with a given a sdl_dir
265 return '-L"'.$sdl_dir.'\lib"';
268 # get compile flags with a given a sdl_dir
269 sub alt_compile_flags
274 return '-I"'.$sdl_dir.'\include\SDL"';
277 # Override to create a MacOS Bundle
281 $self->depends_on('build');
282 $self->get_arch($^O)->build_bundle();
285 # Override Install method for darwin
288 require ExtUtils::Install;
289 $self->depends_on('build');
290 ExtUtils::Install::install($self->install_map, 1, 0, $self->{args}{uninst}||0);