[prev in list] [next in list] [prev in thread] [next in thread]
List: mapserver-commits
Subject: [mapserver-commits] r8847 - in trunk/mapserver: . mapscript/perl
From: svn () osgeo ! org
Date: 2009-03-30 17:48:25
Message-ID: 20090330174826.07189E006B2 () lists ! osgeo ! org
[Download RAW message or body]
Author: aboudreault
Date: 2009-03-30 13:48:25 -0400 (Mon, 30 Mar 2009)
New Revision: 8847
Modified:
trunk/mapserver/HISTORY.TXT
trunk/mapserver/mapscript/perl/plmodule.i
Log:
Perl Mapscript: improvement of imageObj wrapper (#2962)
Modified: trunk/mapserver/HISTORY.TXT
===================================================================
--- trunk/mapserver/HISTORY.TXT 2009-03-30 13:32:06 UTC (rev 8846)
+++ trunk/mapserver/HISTORY.TXT 2009-03-30 17:48:25 UTC (rev 8847)
@@ -12,6 +12,8 @@
Current Version (SVN trunk):
----------------------------
+- Perl Mapscript: improvement of imageObj wrapper (#2962)
+
- Improve control of output resolution (RFC 55, #2948)
- mapraster.c: use GDALOpenShared(), and CLOSE_CONNECTION=DEFERRED (#2815)
Modified: trunk/mapserver/mapscript/perl/plmodule.i
===================================================================
--- trunk/mapserver/mapscript/perl/plmodule.i 2009-03-30 13:32:06 UTC (rev 8846)
+++ trunk/mapserver/mapscript/perl/plmodule.i 2009-03-30 17:48:25 UTC (rev 8847)
@@ -24,6 +24,26 @@
}
%}
+/* Translate Perl's built-in file object to FILE * */
+%typemap(in) FILE * {
+ $1 = PerlIO_exportFILE (IoIFP (sv_2io ($input)), NULL);
+}
+
+/* To support imageObj::getBytes */
+%typemap(out) gdBuffer {
+ SV *mysv;
+ mysv = sv_newmortal();
+ if ($1.data == NULL)
+ sv_setpv(mysv,"");
+ else
+ sv_setpvn(mysv,(const char*)$1.data,$1.size);
+ $result = newRV(mysv);
+ sv_2mortal($result);
+ argvi++;
+ if( $1.owns_data )
+ gdFree($1.data);
+}
+
/*
===============================================================================
RFC-24 implementation follows
_______________________________________________
mapserver-commits mailing list
mapserver-commits@lists.osgeo.org
http://lists.osgeo.org/mailman/listinfo/mapserver-commits
[prev in list] [next in list] [prev in thread] [next in thread]
Configure |
About |
News |
Add a list |
Sponsored by KoreLogic