Cygwin Fix

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

diff --git a/make/lib/SDL/Build/Cygwin.pm b/make/lib/SDL/Build/Cygwin.pm
index f12bd4e..aee9d13 100644 (file)
--- a/make/lib/SDL/Build/Cygwin.pm
+++ b/make/lib/SDL/Build/Cygwin.pm
@@ -1,5 +1,36 @@
-package SDL::Build::Cygwin;
+#!/usr/bin/env perl
+#
+# Cygwin.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::Cygwin;
+use Data::Dumper;
+use Carp;
 use base 'SDL::Build';
 
 sub opengl_headers
@@ -28,17 +59,36 @@ sub fetch_includes
        );
 }
 
-sub build_links
+#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 $links = $self->SUPER::build_links();
+       my $self = shift;
+       my $sdl_dir = shift;
+
+       return $self->SUPER::alt_link_flags($sdl_dir).' -mwindows -lSDLmain -lSDL.dll';
+}
 
-       for my $subsystem (values %$links)
-       {
-               push @{ $subsystem{ libs } }, '-lpthreads';
-       }
+sub alt_compile_flags
+{
+       my $self = shift;
+       my $sdl_dir = shift;
 
-       return $links;
+       return $self->SUPER::alt_compile_flags($sdl_dir).' -D_GNU_SOURCE=1 -Dmain=SDL_main';
 }
 
 1;