From 5de8f06f75c3d12ba61cf3f9d5b525620326ad3c Mon Sep 17 00:00:00 2001 From: lth Date: Sun, 11 Jul 2004 21:53:10 +0000 Subject: Add p5-Geo-Distance 0.06, calculate Distances and Closest Locations. PR: 68902 Submitted by: Rod Taylor Approved by: erwin (implicit) --- math/Makefile | 1 + math/p5-Geo-Distance/Makefile | 22 ++++++++++++ math/p5-Geo-Distance/distinfo | 2 ++ math/p5-Geo-Distance/files/patch-Distance.pm | 51 ++++++++++++++++++++++++++++ math/p5-Geo-Distance/pkg-descr | 7 ++++ math/p5-Geo-Distance/pkg-plist | 5 +++ 6 files changed, 88 insertions(+) create mode 100644 math/p5-Geo-Distance/Makefile create mode 100644 math/p5-Geo-Distance/distinfo create mode 100644 math/p5-Geo-Distance/files/patch-Distance.pm create mode 100644 math/p5-Geo-Distance/pkg-descr create mode 100644 math/p5-Geo-Distance/pkg-plist (limited to 'math') diff --git a/math/Makefile b/math/Makefile index c665296..a60e738 100644 --- a/math/Makefile +++ b/math/Makefile @@ -121,6 +121,7 @@ SUBDIR += p5-Bit-Vector SUBDIR += p5-Chart-Math-Axis SUBDIR += p5-Date-Handler + SUBDIR += p5-Geo-Distance SUBDIR += p5-Graph SUBDIR += p5-Math-Base85 SUBDIR += p5-Math-BaseCalc diff --git a/math/p5-Geo-Distance/Makefile b/math/p5-Geo-Distance/Makefile new file mode 100644 index 0000000..6d0e7b3 --- /dev/null +++ b/math/p5-Geo-Distance/Makefile @@ -0,0 +1,22 @@ +# New ports collection makefile for: p5-Geo-Distance +# Date created: 10 July 2004 +# Whom: Rod Taylor +# +# $FreeBSD$ +# + +PORTNAME= Geo-Distance +PORTVERSION= 0.06 +CATEGORIES= math perl5 +MASTER_SITES= ${MASTER_SITE_PERL_CPAN} +MASTER_SITE_SUBDIR= Geo +PKGNAMEPREFIX= p5- + +MAINTAINER= ports@rbt.ca +COMMENT= Calculate Distances and Closest Locations + +PERL_CONFIGURE= yes + +MAN3= Geo::Distance.3 + +.include diff --git a/math/p5-Geo-Distance/distinfo b/math/p5-Geo-Distance/distinfo new file mode 100644 index 0000000..0d76e4b --- /dev/null +++ b/math/p5-Geo-Distance/distinfo @@ -0,0 +1,2 @@ +MD5 (Geo-Distance-0.06.tar.gz) = 6313eb1cdabca80d494d213db1aa94c0 +SIZE (Geo-Distance-0.06.tar.gz) = 9234 diff --git a/math/p5-Geo-Distance/files/patch-Distance.pm b/math/p5-Geo-Distance/files/patch-Distance.pm new file mode 100644 index 0000000..e11afe5 --- /dev/null +++ b/math/p5-Geo-Distance/files/patch-Distance.pm @@ -0,0 +1,51 @@ +--- ../../../Geo-Distance-0.06/Distance.pm Wed Jun 30 02:12:10 2004 ++++ Distance.pm Sun Jul 11 21:46:44 2004 +@@ -1,21 +1,20 @@ + package Geo::Distance; + +-use 5.006; + use strict; +-use warnings; + use Carp; + use Math::Trig qw( great_circle_distance deg2rad ); + + require Exporter; +-our @ISA = qw(Exporter); +-our %EXPORT_TAGS = ( 'all' => [ qw( ++use vars qw(@ISA %EXPORT_TAGS @EXPORT_OK $VERSION); ++@ISA = qw(Exporter); ++%EXPORT_TAGS = ( 'all' => [ qw( + &distance + &distance_calc + &find_closest + ®_unit + &formula + ) ] ); +-our @EXPORT_OK = ( ++@EXPORT_OK = ( + @{ $EXPORT_TAGS{'all'} }, + '&distance', + '&distance_calc', +@@ -23,11 +22,11 @@ + '®_unit', + '&formula' + ); +-our $VERSION = '0.06'; ++$VERSION = '0.06'; + + + # See Math::Trig for what $rho is. +-our(%rho,$formula); ++use vars qw(%rho $formula); + $rho{kilometer} = 6378; # Derived from the Math::Trig POD on the 'great_circle_distance'. + $rho{meter} = $rho{kilometer}*1000; # 1000 meters in one kilometer. + $rho{centimeter} = $rho{meter}*100; # 100 centimeters in one meter. +@@ -41,7 +40,7 @@ + # Number of units in a single degree (lat or lon) at the equator. + # Derived from doing dirty_distance('kilometer',10,0,11,0) = 111.317099692185 + # Then dividing that by $unit{kilometer} = 6378 +-our $deg_ratio = 0.01745329252; ++use vars qw($deg_ratio); $deg_ratio = 0.01745329252; + + + # New Object Constructor diff --git a/math/p5-Geo-Distance/pkg-descr b/math/p5-Geo-Distance/pkg-descr new file mode 100644 index 0000000..0a63065 --- /dev/null +++ b/math/p5-Geo-Distance/pkg-descr @@ -0,0 +1,7 @@ +This perl library aims to provide as many tools to make it as simple as possible +to calculate distances between geographic points, and anything that can be +derived from that. Currently there is support for finding the closest locations +within a specified distance, to find the closest number of points to a specified +point, and to do basic point-to-point distance calculations. + +WWW: http://search.cpan.org/~bluefeet/Geo-Distance/ diff --git a/math/p5-Geo-Distance/pkg-plist b/math/p5-Geo-Distance/pkg-plist new file mode 100644 index 0000000..0863d93 --- /dev/null +++ b/math/p5-Geo-Distance/pkg-plist @@ -0,0 +1,5 @@ +%%SITE_PERL%%/mach/auto/Geo/Distance/.packlist +%%SITE_PERL%%/Geo/Distance.pm +@dirrm %%SITE_PERL%%/mach/auto/Geo/Distance +@unexec rmdir %D/%%%SITE_PERL%%/mach/auto/Geo 2>/dev/null || true +@unexec rmdir %D/%%%SITE_PERL%%/Geo 2>/dev/null || true -- cgit v1.1