Stupid mistake

[sdlgit/SDL_perl.git] / make / lib / SDL / Build / MSWin32.pm

diff --git a/make/lib/SDL/Build/MSWin32.pm b/make/lib/SDL/Build/MSWin32.pm
index 131473a..9f44bab 100644 (file)
--- a/make/lib/SDL/Build/MSWin32.pm
+++ b/make/lib/SDL/Build/MSWin32.pm
@@ -1,22 +1,57 @@
+#!/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;
+use Carp;
 use base 'SDL::Build';
 use File::Spec::Functions;
 
 sub fetch_includes
-{
-       die "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 ))
        {
-               die "Environment variable $key is empty\n" unless $ENV{$key};
+               #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 ) = @_;
@@ -74,11 +109,10 @@ 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";
 
-       die "Unrecognized GL vendor '$vendor'\n";
 }
 
 sub ms_gl_subsystems
@@ -116,4 +150,28 @@ sub link_c
        $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;