initial import of p5-Parallel-Pvm-1.3.0

Parallel::Pvm is a perl extension for the parallel virtual machine
(PVM) message-passing system.

8 files changed, 134 insertions, 0 deletions

diff --git a/parallel/p5-Parallel-Pvm/DESCR b/parallel/p5-Parallel-Pvm/DESCR
new file mode 100644
index 00000000000..c640ff5daf1
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/DESCR
@@ -0,0 +1,2 @@
+Parallel::Pvm is a perl extension for the parallel virtual machine
+(PVM) message-passing system.
diff --git a/parallel/p5-Parallel-Pvm/MESSAGE b/parallel/p5-Parallel-Pvm/MESSAGE
new file mode 100644
index 00000000000..403b0ad2088
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/MESSAGE
@@ -0,0 +1,14 @@
+===========================================================================
+$NetBSD: MESSAGE,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+
+The two examples included here are crafted after the C language hello
+and hello_other programs which come with PVM.  To run this example,
+start the pvm daemon by running
+
+  ${PVM_ROOT}/lib/pvmd &
+
+Now execute the hello.pl program by running
+
+  ${PREFIX}/share/examples/p5-Parallel-Pvm/hello.pl
+
+===========================================================================
diff --git a/parallel/p5-Parallel-Pvm/Makefile b/parallel/p5-Parallel-Pvm/Makefile
new file mode 100644
index 00000000000..bdd2840fef0
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/Makefile
@@ -0,0 +1,41 @@
+# $NetBSD: Makefile,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+#
+
+DISTNAME=	Parallel-Pvm-1.3.0
+PKGNAME=	p5-${DISTNAME}
+SVR4_PKGNAME=	p5pvm
+CATEGORIES=	parallel perl5
+MASTER_SITES=	${MASTER_SITE_PERL_CPAN:=Parallel/}
+EXTRACT_SUFX=	.tgz
+
+MAINTAINER=	packages@netbsd.org
+HOMEPAGE=	http://www.epm.ornl.gov/pvm/pvm_home.html
+COMMENT=	Perl module for PVM (Parallel Virtual Machine)
+
+#DEPENDS+=	pvm-3.4.3:../../parallel/pvm3
+
+PVM_ROOT?=		${LOCALBASE}/pvm3
+CONFIGURE_ENV+=		PVM_ROOT=${PVM_ROOT} PVM_ARCH=${PVM_ARCH}
+MAKE_ENV+=		PVM_ROOT=${PVM_ROOT} PVM_ARCH=${PVM_ARCH}
+PERL5_PACKLIST=		${PERL5_SITEARCH}/auto/Parallel/Pvm/.packlist
+MESSAGE_SUBST+=		PVM_ROOT=${PVM_ROOT}
+EXAMPLES_DIR=		${PREFIX}/share/examples/p5-Parallel-Pvm
+USE_BUILDLINK2=		YES
+
+do-configure:
+	@cd ${WRKSRC}; ${SETENV} ${MAKE_ENV} ${PERL5} Makefile.PL
+
+post-build:
+.for f in hello.pl hello_other.pl
+	${SED} -e 's;@exampledir@;${EXAMPLES_DIR};g' -e 's;@perl@;${PERL5};g' \
+		${FILESDIR}/${f} > ${WRKDIR}/${f}
+.endfor
+
+post-install:
+	${INSTALL_SCRIPT_DIR} ${EXAMPLES_DIR}
+	${INSTALL_SCRIPT} ${WRKDIR}/hello.pl ${EXAMPLES_DIR}
+	${INSTALL_SCRIPT} ${WRKDIR}/hello_other.pl ${EXAMPLES_DIR}
+
+.include "../../lang/perl5/module.mk"
+.include "../../parallel/pvm3/buildlink2.mk"
+.include "../../mk/bsd.pkg.mk"
diff --git a/parallel/p5-Parallel-Pvm/PLIST b/parallel/p5-Parallel-Pvm/PLIST
new file mode 100644
index 00000000000..516b4b321d9
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/PLIST
@@ -0,0 +1,4 @@
+@comment $NetBSD: PLIST,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+share/examples/p5-Parallel-Pvm/hello.pl
+share/examples/p5-Parallel-Pvm/hello_other.pl
+@dirrm share/examples/p5-Parallel-Pvm
diff --git a/parallel/p5-Parallel-Pvm/distinfo b/parallel/p5-Parallel-Pvm/distinfo
new file mode 100644
index 00000000000..ff6129aacf9
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/distinfo
@@ -0,0 +1,5 @@
+$NetBSD: distinfo,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+
+SHA1 (Parallel-Pvm-1.3.0.tgz) = fd8c5f449e826e7e1b1e02288cc8679ad2ccece7
+Size (Parallel-Pvm-1.3.0.tgz) = 17792 bytes
+SHA1 (patch-aa) = 57e52fb332a943a6542d486145a28a77693a6dec
diff --git a/parallel/p5-Parallel-Pvm/files/hello.pl b/parallel/p5-Parallel-Pvm/files/hello.pl
new file mode 100755
index 00000000000..cfad6447a4c
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/files/hello.pl
@@ -0,0 +1,38 @@
+#!@perl@
+#
+# $NetBSD: hello.pl,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+#
+
+use Parallel::Pvm;
+use File::Basename;
+
+$mytid = Parallel::Pvm::mytid ;
+printf "My task ID is %x\n", $mytid;
+
+# spawn 1 copy of "hello_other"
+$cmd="@exampledir@/hello_other.pl";
+
+($ntask, @tids) = Parallel::Pvm::spawn($cmd, 1);
+print "ntask = $ntask\n";
+print "tids  = @tids\n";
+
+if ($ntask == 1) {
+	# receive a message from the task we have spawned
+	$bufid=Parallel::Pvm::recv();
+
+	if ($bufid >= 0) {
+		($info,$bytes,$tag,$stid) = Parallel::Pvm::bufinfo($bufid) ;
+		print "info  = $info\n";
+		print "bytes = $bytes\n";
+		print "tag   = $tag\n";
+		printf "stid  = %x\n",$stid;
+		$str = Parallel::Pvm::unpack;
+		printf "from t%x: \"%s\"\n",$stid,$str;
+        	} 
+} else {
+	printf "can't start hello_other\n";
+}	
+
+Parallel::Pvm::exit();
+
+
diff --git a/parallel/p5-Parallel-Pvm/files/hello_other.pl b/parallel/p5-Parallel-Pvm/files/hello_other.pl
new file mode 100755
index 00000000000..5fbc13f3359
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/files/hello_other.pl
@@ -0,0 +1,16 @@
+#!@perl@
+#
+# $NetBSD: hello_other.pl,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+#
+
+use Parallel::Pvm;
+use Sys::Hostname;
+my $host = hostname();
+
+$ptid = Parallel::Pvm::parent;
+Parallel::Pvm::initsend(PvmDataDefault) ;
+$buf=Parallel::Pvm::pack("Hi from hello_other.pl running on $host");
+Parallel::Pvm::send($ptid,$buf);
+Parallel::Pvm::exit;
+exit 0;
+
diff --git a/parallel/p5-Parallel-Pvm/patches/patch-aa b/parallel/p5-Parallel-Pvm/patches/patch-aa
new file mode 100644
index 00000000000..e9115a868bd
--- /dev/null
+++ b/parallel/p5-Parallel-Pvm/patches/patch-aa
@@ -0,0 +1,14 @@
+$NetBSD: patch-aa,v 1.1.1.1 2002/10/13 04:30:05 dmcmahill Exp $
+
+--- MANIFEST.orig	Fri Sep 21 05:08:13 2001
++++ MANIFEST
+@@ -2,7 +2,7 @@ MANIFEST
+ Makefile.PL
+ Pvm.pm
+ Pvm.xs
+-t/bigmsg.t
++t/01_bigmsg.t
+ ChangeLog
+-t/group.t
++t/02_group.t
+ README