+#!/usr/bin/env perl
+#
+# MSWin32.pm
+#
+# Copyright (C) 2005 David J. Goehrig <dgoehrig@cpan.org>
+#
+# ------------------------------------------------------------------------------
+#
+# This library is free software; you can redistribute it and/or
+# modify it under the terms of the GNU Lesser General Public
+# License as published by the Free Software Foundation; either
+# version 2.1 of the License, or (at your option) any later version.
+#
+# This library is distributed in the hope that it will be useful,
+# but WITHOUT ANY WARRANTY; without even the implied warranty of
+# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
+# Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with this library; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
+#
+# ------------------------------------------------------------------------------
+#
+# Please feel free to send questions, suggestions or improvements to:
+#
+# David J. Goehrig
+# dgoehrig@cpan.org
+#
+
package SDL::Build::MSWin32;
use strict;
use warnings;
-usr Carp;
+use Carp;
use base 'SDL::Build';
use File::Spec::Functions;
sub fetch_includes
-{
- croak "Environment variable INCLUDE is empty\n" unless $ENV{INCLUDE};
+{
+ warn "Environment variable INCLUDE is empty\n" unless $ENV{INCLUDE}
+ and
return map { $_ => 1 } grep { $_ } split( ';', $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, $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
$self->SUPER::link_c( @_ );
}
+sub sdl_libs
+{
+ my $self = shift;
+ my $sdl_inst_dir = shift;
+
+
+}
+
+sub alt_link_flags
+{
+ my $self = shift;
+ my $sdl_dir = shift;
+
+ return $self->SUPER::alt_link_flags($sdl_dir).' -lmingw32 -mwindows -lSDLmain -lSDL.dll';
+}
+
+sub alt_compile_flags
+{
+ my $self = shift;
+ my $sdl_dir = shift;
+
+ return $self->SUPER::alt_compile_flages($sdl_dir).' -D_GNU_SOURCE=1 -Dmain=SDL_main';
+}
+
1;