Date: Wed, 1 Feb 2006 11:09:48 -0600 (CST) From: Eric Stith <estith.freebsd.ports@thelunarempire.net> To: FreeBSD-gnats-submit@FreeBSD.org Subject: ports/92693: New Port: graphics/Geo-Proj4, a Perl wrapper for the proj library Message-ID: <200602011709.k11H9mQ8049064@obscura.dname.net> Resent-Message-ID: <200602011710.k11HA6uq098078@freefall.freebsd.org>
next in thread | raw e-mail | index | archive | help
>Number: 92693
>Category: ports
>Synopsis: New Port: graphics/Geo-Proj4, a Perl wrapper for the proj library
>Confidential: no
>Severity: non-critical
>Priority: medium
>Responsible: freebsd-ports-bugs
>State: open
>Quarter:
>Keywords:
>Date-Required:
>Class: change-request
>Submitter-Id: current-users
>Arrival-Date: Wed Feb 01 17:10:03 GMT 2006
>Closed-Date:
>Last-Modified:
>Originator: Eric Stith
>Release: FreeBSD 6.0-RELEASE i386
>Organization:
Meridian Environmental Technology, Inc.
>Environment:
System: FreeBSD obscura.dname.net 6.0-RELEASE FreeBSD 6.0-RELEASE #0: Thu Nov 3 09:36:13 UTC 2005 root@x64.samsco.home:/usr/obj/usr/src/sys/GENERIC i386
>Description:
>How-To-Repeat:
>Fix:
# This is a shell archive. Save it in a file, remove anything before
# this line, and then unpack it by entering "sh file". Note, it may
# create directories; files and directories will be owned by you and
# have default permissions.
#
# This archive contains:
#
# /usr/ports/graphics/p5-Geo-Proj4
# /usr/ports/graphics/p5-Geo-Proj4/Makefile
# /usr/ports/graphics/p5-Geo-Proj4/pkg-descr
# /usr/ports/graphics/p5-Geo-Proj4/pkg-plist
# /usr/ports/graphics/p5-Geo-Proj4/distinfo
# /usr/ports/graphics/p5-Geo-Proj4/files
# /usr/ports/graphics/p5-Geo-Proj4/files/patch-Makefile.PL
# /usr/ports/graphics/p5-Geo-Proj4/files/patch-const-c.inc
# /usr/ports/graphics/p5-Geo-Proj4/files/patch-const-xs.inc
#
echo c - /usr/ports/graphics/p5-Geo-Proj4
mkdir -p /usr/ports/graphics/p5-Geo-Proj4 > /dev/null 2>&1
echo x - /usr/ports/graphics/p5-Geo-Proj4/Makefile
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/Makefile << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/Makefile'
X# New ports collection makefile for: p5-Geo-Point
X# Date created: 27 January 2006
X# Whom: estith
X#
X# $FreeBSD$
X#
X
XPORTNAME= Geo-Proj4
XPORTVERSION= 0.96
XCATEGORIES= graphics devel perl5
XMASTER_SITES= ${MASTER_SITE_PERL_CPAN}
XMASTER_SITE_SUBDIR= Geo
XPKGNAMEPREFIX= p5-
X
XMAINTAINER= estith.freebsd.ports@thelunarempire.net
XCOMMENT= Perl cartographic projections wrapper for Proj library
X
XLIB_DEPENDS= proj:${PORTSDIR}/graphics/proj
X
XPATCHDIR= ${FILESDIR}
X
XMAN3= Geo::Proj4.3
XCFLAGS+= -I ${PREFIX}/include # XXX - This seems ugly
XPERL_CONFIGURE= yes
X
X.include <bsd.port.pre.mk>
X
X.if ${PERL_LEVEL} < 500600
XIGNORE= requires perl 5.6.x or later. Install lang/perl5 then try again
X.endif
X
X.include <bsd.port.post.mk>
END-of-/usr/ports/graphics/p5-Geo-Proj4/Makefile
echo x - /usr/ports/graphics/p5-Geo-Proj4/pkg-descr
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/pkg-descr << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/pkg-descr'
XThe Open Source PROJ.4 library converts between geographic coordinate systems.
XIt is able to convert between geodetic latitude and longitude (LL, most commonly
Xthe WGS84 projection), into an enormous variety of other cartographic
Xprojections (XY, usually UTM).
X
XWWW: http://search.cpan.org/dist/Geo-Proj4/
END-of-/usr/ports/graphics/p5-Geo-Proj4/pkg-descr
echo x - /usr/ports/graphics/p5-Geo-Proj4/pkg-plist
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/pkg-plist << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/pkg-plist'
Xlib/perl5/site_perl/5.8.7/mach/Geo/Proj4.pm
Xlib/perl5/site_perl/5.8.7/mach/Geo/Proj4.pod
Xlib/perl5/site_perl/5.8.7/mach/auto/Geo/Proj4/.packlist
Xlib/perl5/site_perl/5.8.7/mach/auto/Geo/Proj4/Proj4.bs
Xlib/perl5/site_perl/5.8.7/mach/auto/Geo/Proj4/Proj4.so
X@dirrm lib/perl5/site_perl/5.8.7/mach/auto/Geo/Proj4
X@dirrm lib/perl5/site_perl/5.8.7/mach/auto/Geo
END-of-/usr/ports/graphics/p5-Geo-Proj4/pkg-plist
echo x - /usr/ports/graphics/p5-Geo-Proj4/distinfo
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/distinfo << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/distinfo'
XMD5 (Geo-Proj4-0.96.tar.gz) = ad97612158c95562cee43485910fbf40
XSHA256 (Geo-Proj4-0.96.tar.gz) = f010153d3b1d3c017759b7fb7f2cfc61a9dce4662073cf6228872bff7b606e00
XSIZE (Geo-Proj4-0.96.tar.gz) = 18698
END-of-/usr/ports/graphics/p5-Geo-Proj4/distinfo
echo c - /usr/ports/graphics/p5-Geo-Proj4/files
mkdir -p /usr/ports/graphics/p5-Geo-Proj4/files > /dev/null 2>&1
echo x - /usr/ports/graphics/p5-Geo-Proj4/files/patch-Makefile.PL
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/files/patch-Makefile.PL << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/files/patch-Makefile.PL'
Xdiff -ru Makefile.PL.orig Makefile.PL
X--- Makefile.PL.orig Fri Dec 9 18:31:40 2005
X+++ Makefile.PL Fri Jan 27 16:00:01 2006
X@@ -1,34 +1,35 @@
X+use 5.008007;
X use ExtUtils::MakeMaker;
X-
X-require 5.006;
X
X-my $libversion = '4.4.9';
X-my $FWTools = $ENV{GEOPROJ_FWTOOLS_DIR} || '.';
X-
X-# This is very UNIX/Linux centric. Please help me with the
X-# required windows tests.
X-
X-my $FWbin = "$FWTools/bin_safe";
X-my $cs2cs = -x "$FWbin/cs2cs" ? "$FWbin/cs2cs" : 'cs2cs';
X-
X-die "ERROR: proj library too old or not found: require $libversion\n"
X- unless open DIR, "$cs2cs -v 2>&1 |";
X-
X-my $got = <DIR>;
X-
X-die "ERROR: proj library version not known\n"
X- unless $got =~ m/\ ([\d.]+)\,/;
X-
X-my $version = $1;
X-
X-die "ERROR: libproj too old, found $version required is $libversion\n"
X- if $version lt $libversion;
X-
X-WriteMakefile
X- ( NAME => 'Geo::Proj4'
X- , VERSION_FROM => 'lib/Geo/Proj4.pm'
X- , AUTHOR => 'Mark Overmeer, Schuyler Erle, Rich Gibson'
X- , ABSTRACT => 'Proj4 library for carthographic projections'
X- , CCFLAGS => "-I$FWTools/include"
X- , LIBS => [ "-L$FWTools/lib -lproj" ]
X- );
X+WriteMakefile(
X+ NAME => 'Geo::Proj4',
X+ VERSION_FROM => 'lib/Geo/Proj4.pm', # finds $VERSION,
X+ AUTHOR => 'Mark Overmeer, Schuyler Erle, Rich Gibson',
X+ LIBS => ['-lproj'],
X+ DEFINE => '',
X+ INC => '-I.', # e.g., '-I. -I/usr/include/other'
X+);
X+if (eval {require ExtUtils::Constant; 1}) {
X+ # If you edit these definitions to change the constants used by this module,
X+ # you will need to use the generated const-c.inc and const-xs.inc
X+ # files to replace their "fallback" counterparts before distributing your
X+ # changes.
X+ my @names = (qw());
X+ ExtUtils::Constant::WriteConstants(
X+ NAME => 'Geo::Proj4',
X+ NAMES => \@names,
X+ DEFAULT_TYPE => 'IV',
X+ LIBS => '-lproj',
X+ C_FILE => 'const-c.inc',
X+ XS_FILE => 'const-xs.inc',
X+ );
X+
X+}
X+else {
X+ use File::Copy;
X+ use File::Spec;
X+ foreach my $file ('const-c.inc', 'const-xs.inc') {
X+ my $fallback = File::Spec->catfile('fallback', $file);
X+ copy ($fallback, $file) or die "Can't copy $fallback to $file: $!";
X+ }
X+}
END-of-/usr/ports/graphics/p5-Geo-Proj4/files/patch-Makefile.PL
echo x - /usr/ports/graphics/p5-Geo-Proj4/files/patch-const-c.inc
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/files/patch-const-c.inc << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/files/patch-const-c.inc'
Xdiff -ru const-c.inc.orig const-c.inc
X--- const-c.inc.orig Fri Jan 27 13:03:30 2006
X+++ const-c.inc Fri Jan 27 16:25:32 2006
X@@ -0,0 +1,55 @@
X+#define PERL_constant_NOTFOUND 1
X+#define PERL_constant_NOTDEF 2
X+#define PERL_constant_ISIV 3
X+#define PERL_constant_ISNO 4
X+#define PERL_constant_ISNV 5
X+#define PERL_constant_ISPV 6
X+#define PERL_constant_ISPVN 7
X+#define PERL_constant_ISSV 8
X+#define PERL_constant_ISUNDEF 9
X+#define PERL_constant_ISUV 10
X+#define PERL_constant_ISYES 11
X+
X+#ifndef NVTYPE
X+typedef double NV; /* 5.6 and later define NVTYPE, and typedef NV to it. */
X+#endif
X+#ifndef aTHX_
X+#define aTHX_ /* 5.6 or later define this for threading support. */
X+#endif
X+#ifndef pTHX_
X+#define pTHX_ /* 5.6 or later define this for threading support. */
X+#endif
X+
X+static int
X+constant (pTHX_ const char *name, STRLEN len) {
X+ /* Initially switch on the length of the name. */
X+ /* When generated this function returned values for the list of names given
X+ in this section of perl code. Rather than manually editing these functions
X+ to add or remove constants, which would result in this comment and section
X+ of code becoming inaccurate, we recommend that you edit this section of
X+ code, and use it to regenerate a new set of constant functions which you
X+ then use to replace the originals.
X+
X+ Regenerate these constant functions by feeding this entire source file to
X+ perl -x
X+
X+#!perl -w
X+use ExtUtils::Constant qw (constant_types C_constant XS_constant);
X+
X+my $types = {map {($_, 1)} qw()};
X+my @names = (qw());
X+
X+print constant_types(); # macro defs
X+foreach (C_constant ("Geo::Proj4", 'constant', 'IV', $types, undef, 3, @names) ) {
X+ print $_, "\n"; # C constant subs
X+}
X+print "#### XS Section:\n";
X+print XS_constant ("Geo::Proj4", $types);
X+__END__
X+ */
X+
X+ switch (len) {
X+ }
X+ return PERL_constant_NOTFOUND;
X+}
X+
END-of-/usr/ports/graphics/p5-Geo-Proj4/files/patch-const-c.inc
echo x - /usr/ports/graphics/p5-Geo-Proj4/files/patch-const-xs.inc
sed 's/^X//' >/usr/ports/graphics/p5-Geo-Proj4/files/patch-const-xs.inc << 'END-of-/usr/ports/graphics/p5-Geo-Proj4/files/patch-const-xs.inc'
Xdiff -ru const-xs.inc Geo-Proj4-0.96.new/const-xs.inc
X--- const-xs.inc.orig Fri Jan 27 13:03:30 2006
X+++ const-xs.inc Fri Jan 27 16:25:32 2006
X@@ -0,0 +1,87 @@
X+void
X+constant(sv)
X+ PREINIT:
X+#ifdef dXSTARG
X+ dXSTARG; /* Faster if we have it. */
X+#else
X+ dTARGET;
X+#endif
X+ STRLEN len;
X+ int type;
X+ /* IV iv; Uncomment this if you need to return IVs */
X+ /* NV nv; Uncomment this if you need to return NVs */
X+ /* const char *pv; Uncomment this if you need to return PVs */
X+ INPUT:
X+ SV * sv;
X+ const char * s = SvPV(sv, len);
X+ PPCODE:
X+ type = constant(aTHX_ s, len);
X+ /* Return 1 or 2 items. First is error message, or undef if no error.
X+ Second, if present, is found value */
X+ switch (type) {
X+ case PERL_constant_NOTFOUND:
X+ sv = sv_2mortal(newSVpvf("%s is not a valid Geo::Proj4 macro", s));
X+ PUSHs(sv);
X+ break;
X+ case PERL_constant_NOTDEF:
X+ sv = sv_2mortal(newSVpvf(
X+ "Your vendor has not defined Geo::Proj4 macro %s, used", s));
X+ PUSHs(sv);
X+ break;
X+ /* Uncomment this if you need to return IVs
X+ case PERL_constant_ISIV:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHi(iv);
X+ break; */
X+ /* Uncomment this if you need to return NOs
X+ case PERL_constant_ISNO:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHs(&PL_sv_no);
X+ break; */
X+ /* Uncomment this if you need to return NVs
X+ case PERL_constant_ISNV:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHn(nv);
X+ break; */
X+ /* Uncomment this if you need to return PVs
X+ case PERL_constant_ISPV:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHp(pv, strlen(pv));
X+ break; */
X+ /* Uncomment this if you need to return PVNs
X+ case PERL_constant_ISPVN:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHp(pv, iv);
X+ break; */
X+ /* Uncomment this if you need to return SVs
X+ case PERL_constant_ISSV:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHs(sv);
X+ break; */
X+ /* Uncomment this if you need to return UNDEFs
X+ case PERL_constant_ISUNDEF:
X+ break; */
X+ /* Uncomment this if you need to return UVs
X+ case PERL_constant_ISUV:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHu((UV)iv);
X+ break; */
X+ /* Uncomment this if you need to return YESs
X+ case PERL_constant_ISYES:
X+ EXTEND(SP, 1);
X+ PUSHs(&PL_sv_undef);
X+ PUSHs(&PL_sv_yes);
X+ break; */
X+ default:
X+ sv = sv_2mortal(newSVpvf(
X+ "Unexpected return type %d while processing Geo::Proj4 macro %s, used",
X+ type, s));
X+ PUSHs(sv);
X+ }
END-of-/usr/ports/graphics/p5-Geo-Proj4/files/patch-const-xs.inc
exit
>Release-Note:
>Audit-Trail:
>Unformatted:
Want to link to this message? Use this URL: <https://mail-archive.FreeBSD.org/cgi/mid.cgi?200602011709.k11H9mQ8049064>