X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=make%2Flib%2FSDL%2FBuild%2FMSWin32.pm;h=338cf0212d10b959032bc44a9c72ff4e33461184;hb=a10ede21cb16ec8302e351fa3963d623a28f5d1a;hp=957d7e591dbcfc38ebc50e586941437e85f9d844;hpb=5c44eb34dedf77aa7c4f679ef5d5bbab24dea8d9;p=sdlgit%2FSDL_perl.git diff --git a/make/lib/SDL/Build/MSWin32.pm b/make/lib/SDL/Build/MSWin32.pm index 957d7e5..338cf02 100644 --- a/make/lib/SDL/Build/MSWin32.pm +++ b/make/lib/SDL/Build/MSWin32.pm @@ -29,140 +29,49 @@ # package SDL::Build::MSWin32; - -use strict; -use warnings; +use Data::Dumper; use Carp; use base 'SDL::Build'; -use File::Spec::Functions; - -sub fetch_includes -{ - - warn "Environment variable INCLUDE is empty\n" unless $ENV{INCLUDE}; - return map { $_ => 1 } grep { $_ } split( ';', $ENV{INCLUDE} ) if $ENV{INCLUDE}; - return '-I.'; -} - -sub find_header -{ - for my $key (qw( LIBS PATH )) - { - #this needs to be carp because some users will have SDL libs in same folder - carp "Environment variable $key is empty\n" unless $ENV{$key}; - carp "This will probably fail the compile \nSet $key manually or try building anyway\n" unless $ENV{$key}; - } - - my ( $self, $header, $includes ) = @_; - ( my $dll = $header ) =~ s/\.h/\.dll/; - - my $include_dir; - - for my $inc_dir ( keys %$includes ) - { - next unless -e catfile( $inc_dir, $header ); - $include_dir = $inc_dir; - } - - return unless $include_dir; - - for my $lib_path ( map { split(';', ( $ENV{$_} || '' )) } - qw( LIB LIBS PATH ) ) - { - return ( $include_dir, $header ) if -e catfile( $lib_path, $dll ); - } -} - -sub link_flags -{ - return 'SDL.lib'; -} - -sub compile_flags -{ - return; -} - -sub subsystems -{ - my $self = shift; - my $subsystems = $self->SUPER::subsystems(); - my $gl_ss_method = $self->gl_vendor( $ENV{SDL_GL_VENDOR} ) . '_subsystems'; - - $subsystems->{OpenGL}{libraries} = $self->$gl_ss_method(); - return $subsystems; -} - -sub libraries -{ - my $self = shift; - my $libraries = $self->SUPER::libraries(); - my $gl_lib_method = $self->gl_vendor( $ENV{SDL_GL_VENDOR} ) . '_libraries'; - - $libraries->{OpenGL}{define} .= ' -D' . $self->$gl_lib_method(); - return $libraries; -} - -sub gl_vendor -{ - my ( $self, $vendor ) = @_; - - return 'ms_gl' unless defined $vendor; - return 'mesa_gl' if $vendor eq 'MESA'; - return 'ms_gl' if $vendor eq 'MS'; - croak "Unrecognized GL vendor '$vendor'\n"; - -} - -sub ms_gl_subsystems -{ - return [qw( OpenGL GLU )]; -} - -sub mesa_gl_subsystems -{ - return [qw( mesagl mesaglu osmesa )]; -} - -sub ms_gl_libraries -{ - define => 'OPENGL_VENDOR_MS'; -} -sub mesa_gl_libraries +sub opengl_headers { - define => 'OPENGL_VENDOR_MESA'; + return GL => 'SDL_opengl.h'; } -sub link_c +sub fetch_includes { - my $self = shift; - my ( $blib, $rib ) = @_; - - # until ExtUtils::ParseXS is patched, avoid warnings from cl.exe - $_[-1] =~ s{\\}{/}g; - - $rib =~ s{^src[\\/]}{}; - $rib =~ s{[\\/]}{::}g; - - local $self->{properties}{module_name} = $rib; - $self->SUPER::link_c( @_ ); + return ( + + $ENV{SDL_INST_DIR}.'/include' => $ENV{SDL_INST_DIR}.'/lib', + $ENV{SDL_INST_DIR}.'/include/gl' => $ENV{SDL_INST_DIR}.'/lib', + $ENV{SDL_INST_DIR}.'/include/GL' => $ENV{SDL_INST_DIR}.'/lib', + $ENV{SDL_INST_DIR}.'/include/SDL' => $ENV{SDL_INST_DIR}.'/lib', + $ENV{SDL_INST_DIR}.'/include/smpeg' => $ENV{SDL_INST_DIR}.'/lib', + ); } -sub sdl_libs -{ - my $self = shift; - my $sdl_inst_dir = shift; +#Todo: his needs to be fixed hash references are a mess +#sub build_links +#{ + +# my $self = shift; +# my $links = $self->SUPER::build_links(@_); +# +# for my $subsystem (values %$links) +# { +# push @{ $subsystem{ libs } }, '-lpthreads'; +# } +# return \%links; +#} -} sub alt_link_flags { my $self = shift; my $sdl_dir = shift; - return $self->SUPER::alt_link_flags($sdl_dir).' -lmingw32 -mwindows -lSDLmain -lSDL.dll'; + return $self->SUPER::alt_link_flags($sdl_dir).' -mwindows -lSDLmain -lSDL.dll'; } sub alt_compile_flags