[21030] trunk/dports/perl

source_changes at macosforge.org source_changes at macosforge.org
Sat Dec 23 01:39:02 PST 2006


Revision: 21030
          http://trac.macosforge.org/projects/macports/changeset/21030
Author:   pmq at macports.org
Date:     2006-12-23 01:39:01 -0800 (Sat, 23 Dec 2006)

Log Message:
-----------
Closes #11179. New port: p5-sdl-2.1.3.
Submitted by: sethk at magnesium.net
Approved by: pmq@

Added Paths:
-----------
    trunk/dports/perl/p5-sdl/
    trunk/dports/perl/p5-sdl/Portfile
    trunk/dports/perl/p5-sdl/files/
    trunk/dports/perl/p5-sdl/files/patch-make-lib-SDL-Build-Darwin.pm
    trunk/dports/perl/p5-sdl/files/patch-src-SDL.xs
    trunk/dports/perl/p5-sdl/files/patch-test-testgfxprim.pl

Added: trunk/dports/perl/p5-sdl/Portfile
===================================================================
--- trunk/dports/perl/p5-sdl/Portfile	                        (rev 0)
+++ trunk/dports/perl/p5-sdl/Portfile	2006-12-23 09:39:01 UTC (rev 21030)
@@ -0,0 +1,65 @@
+PortSystem 1.0
+PortGroup perl5 1.0
+
+perl5.setup	    SDL_Perl 2.1.3
+maintainers	    sethk at meowfishies.com
+categories-append   devel
+description	    Perl bindings for the Simple DirectMedia Layer
+long_description    ${description}
+homepage	    http://sdl.perl.org/
+master_sites	    http://search.cpan.org/CPAN/authors/id/D/DG/DGOEHRIG/
+checksums	    md5 6ce26e1b710ce52def4ec22637cd5176 \
+		    sha1 9c11cd7e4356f9b254cd9e3a2f993b1751a21552 \
+		    rmd160 26a4d317d9a5761fc893b732f2236eaad8d12b88
+platforms	    darwin
+patchfiles	    patch-make-lib-SDL-Build-Darwin.pm patch-src-SDL.xs \
+		    patch-test-testgfxprim.pl
+
+depends_lib-append  port:p5-module-build \
+		    port:libsdl-framework
+
+variant image {
+    depends_lib-append	port:libsdl_image-framework
+}
+
+variant mixer {
+    depends_lib-append	port:libsdl_mixer-framework
+}
+
+variant net {
+    depends_lib-append	port:libsdl_net-framework
+}
+
+variant ttf {
+    depends_lib-append	port:libsdl_ttf-framework
+}
+
+variant gfx {
+    depends_lib-append	port:libsdl_gfx-framework
+}
+
+default_variants    +image +mixer +net +ttf +gfx
+
+configure.cmd	    ${perl5.bin}
+configure.pre_args  Build.PL
+configure.args	    'Build Build' installdirs=vendor
+
+build.cmd	    ${perl5.bin}
+build.pre_args	    Build
+build.args	    build
+
+# Work around build system problem:
+post-build {
+    file rename ${worksrcpath}/blib/arch/auto/src/SDL \
+	    ${worksrcpath}/blib/arch/auto/
+    file rename ${worksrcpath}/blib/arch/auto/src/SDL_perl \
+	    ${worksrcpath}/blib/arch/auto/
+    system "rmdir ${worksrcpath}/blib/arch/auto/src"
+}
+
+test.pre_args	    Build
+
+destroot.cmd	    ${perl5.bin}
+destroot.pre_args   Build
+destroot.args	    install
+destroot.destdir    destdir=${destroot}


Property changes on: trunk/dports/perl/p5-sdl/Portfile
___________________________________________________________________
Name: svn:keywords
   + Id

Added: trunk/dports/perl/p5-sdl/files/patch-make-lib-SDL-Build-Darwin.pm
===================================================================
--- trunk/dports/perl/p5-sdl/files/patch-make-lib-SDL-Build-Darwin.pm	                        (rev 0)
+++ trunk/dports/perl/p5-sdl/files/patch-make-lib-SDL-Build-Darwin.pm	2006-12-23 09:39:01 UTC (rev 21030)
@@ -0,0 +1,42 @@
+--- make/lib/SDL/Build/Darwin.pm.orig	2006-11-19 21:47:14.000000000 -0800
++++ make/lib/SDL/Build/Darwin.pm	2006-11-19 21:48:58.000000000 -0800
+@@ -16,17 +16,30 @@
+ 	'/usr/include/GL'          => '/usr/lib', 
+ 	'/usr/include/gl'          => '/usr/lib', 
+ 
+-	'/System/Library/Frameworks/SDL_mixer.framework/Headers'     => '../../lib',
+-	'/System/Library/Frameworks/SDL_image.framework/Headers'     => '../../lib',
+-	'/System/Library/Frameworks/SDL_ttf.framework/Headers'       => '../../lib',
+-	'/System/Library/Frameworks/libogg.framework/Headers'        => '../../lib',
+-	'/System/Library/Frameworks/libvorbis.framework/Headers'     => '../../lib',
+-	'/System/Library/Frameworks/libvorbisfile.framework/Headers' => '../../lib',
+-	'/System/Library/Frameworks/libvorbisenc.framework/Headers'  => '../../lib',
+-	'../../include'                                              => '../../lib',
+-	'/System/Library/Frameworks/OpenGL.framework/Headers'        =>
++	'/Library/Frameworks/SDL.framework/Headers'	      => '../../lib',
++	'/Library/Frameworks/SDL_mixer.framework/Headers'     => '../../lib',
++	'/Library/Frameworks/SDL_image.framework/Headers'     => '../../lib',
++	'/Library/Frameworks/SDL_net.framework/Headers'       => '../../lib',
++	'/Library/Frameworks/SDL_ttf.framework/Headers'       => '../../lib',
++	'/Library/Frameworks/SDL_gfx.framework/Headers'       => '../../lib',
++	'/Library/Frameworks/libogg.framework/Headers'        => '../../lib',
++	'/Library/Frameworks/libvorbis.framework/Headers'     => '../../lib',
++	'/Frameworks/libvorbisfile.framework/Headers'	      => '../../lib',
++	'/Library/Frameworks/libvorbisenc.framework/Headers'  => '../../lib',
++	'../../include'                                       => '../../lib',
++	'/System/Library/Frameworks/OpenGL.framework/Headers' =>
+ 		'/System/Library/Frameworks/OpenGL.framework/Libraries',
+ 	);
+ }
+ 
++sub build_defines
++{
++	my $self = shift;
++	my $defines = $self->SUPER::build_defines(@_);
++
++	push @{$defines->{SDL}}, "-Ddarwin", "-DMACOSX";
++
++	return $defines;
++}
++
+ 1;

Added: trunk/dports/perl/p5-sdl/files/patch-src-SDL.xs
===================================================================
--- trunk/dports/perl/p5-sdl/files/patch-src-SDL.xs	                        (rev 0)
+++ trunk/dports/perl/p5-sdl/files/patch-src-SDL.xs	2006-12-23 09:39:01 UTC (rev 21030)
@@ -0,0 +1,65 @@
+--- src/SDL.xs.orig	2006-11-27 05:58:47.000000000 -0800
++++ src/SDL.xs	2006-11-27 05:59:10.000000000 -0800
+@@ -71,6 +71,29 @@
+ 
+ #include "defines.h"
+ 
++#ifdef MACOSX
++#include <CoreServices/CoreServices.h>
++
++void CPSEnableForegroundOperation(ProcessSerialNumber* psn);
++void NSApplicationLoad();
++void SDL_macosx_init(void) {
++    Boolean sameProc;
++    ProcessSerialNumber myProc, frProc;
++    if (GetFrontProcess(&frProc) == noErr)
++        if (GetCurrentProcess(&myProc) == noErr)
++            if (SameProcess(&frProc, &myProc, &sameProc) == noErr && sameProc == 0) {
++                /*
++                NSLog(@"creating bad autorelease pool");
++                [[NSAutoreleasePool alloc] init];
++                */
++                NSApplicationLoad();
++                CPSEnableForegroundOperation(&myProc);
++            }
++}
++void SDL_macosx_quit(void) {
++}
++#endif // MACOSX
++
+ Uint32 
+ sdl_perl_timer_callback ( Uint32 interval, void* param )
+ {
+@@ -3902,7 +3925,7 @@
+      RETVAL
+ 
+ int
+-GFXFilledpieColor ( dst, x, y, rad, start, end, color )
++GFXFilledPieColor ( dst, x, y, rad, start, end, color )
+     SDL_Surface* dst;
+     Sint16 x;
+     Sint16 y;
+@@ -3911,12 +3934,12 @@
+     Sint16 end;
+     Uint32 color;
+ CODE:
+-     RETVAL = filledpieColor( dst, x, y, rad, start, end, color );
++     RETVAL = filledPieColor( dst, x, y, rad, start, end, color );
+ OUTPUT:
+      RETVAL
+ 
+ int
+-GFXFilledpieRGBA ( dst, x, y, rad, start, end, r, g, b, a )
++GFXFilledPieRGBA ( dst, x, y, rad, start, end, r, g, b, a )
+     SDL_Surface* dst;
+     Sint16 x;
+     Sint16 y;
+@@ -3928,7 +3951,7 @@
+     Uint8 b;
+     Uint8 a;
+ CODE:
+-     RETVAL = filledpieRGBA( dst, x, y, rad, start, end, r, g, b, a );
++     RETVAL = filledPieRGBA( dst, x, y, rad, start, end, r, g, b, a );
+ OUTPUT:
+      RETVAL
+ 

Added: trunk/dports/perl/p5-sdl/files/patch-test-testgfxprim.pl
===================================================================
--- trunk/dports/perl/p5-sdl/files/patch-test-testgfxprim.pl	                        (rev 0)
+++ trunk/dports/perl/p5-sdl/files/patch-test-testgfxprim.pl	2006-12-23 09:39:01 UTC (rev 21030)
@@ -0,0 +1,15 @@
+--- test/testgfxprim.pl.orig	2006-11-27 06:03:08.000000000 -0800
++++ test/testgfxprim.pl	2006-11-27 06:03:24.000000000 -0800
+@@ -202,10 +202,10 @@
+ 		$surfMidWidth*.25,$surfMidHeight*.10,255,255,0,255);
+ 
+ 	# pie slices
+-	SDL::GFXFilledpieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
++	SDL::GFXFilledPieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
+ 		0,90,0,0,255,255);
+ 
+-	SDL::GFXFilledpieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
++	SDL::GFXFilledPieRGBA($surf,$surfMidWidth,$surfMidHeight, $surfMidWidth*.1,
+ 		180,270,0,0,255,255);
+ 
+ 	# polygons

-------------- next part --------------
An HTML attachment was scrubbed...
URL: http://lists.macosforge.org/pipermail/macports-changes/attachments/20061223/a033334b/attachment.html


More information about the macports-changes mailing list