view release on metacpan or  search on metacpan

blib/lib/Pvm.pm  view on Meta::CPAN

Receives a message.  Eg.

	# Pvm::recv(-1,-1);
	$bufid = Pvm::recv ;

	# Pvm::recv($tid,-1);
	$bufid = Pvm::recv($tid) ;

	$bufid = Pvm::recv($tid,$tag);

=item C<Pvm::recvf>

Redefines the comparison function used to accept messages.  Eg.

	Pvm::recvf(\&new_foo);

=item C<Pvm::recv_notify>

Receives the notification message initiated by C<Pvm::notify>.  This 
should be preceded by a C<Pvm::probe>.  Eg.

	if ( Pvm::probe(-1,$notify_tag) ){
		$message = Pvm::recv_notify ;
	}

=item C<Pvm::recvf_old>

Resets the comparison function for accepting messages to the 
previous method before a call to C<Pvm::recf>.  

=item C<Pvm::reg_hoster>

Registers this task as responsible for adding new PVM hosts.  Eg.

	$info = Pvm::reg_hoster ;

=item C<Pvm::reg_rm>

Registers this task as a PVM resource manager.  Eg.

	$info = Pvm::reg_rm ;

=item C<Pvm::reg_tasker>

Registers this task as responsible for starting new PVM tasks.  Eg.

	$info = Pvm::reg_tasker ;

=item C<Pvm::send>

Send the data in the active message buffer.  Eg.  

	# Pvm::send(-1,-1);
	$info = Pvm::send ;

	# Pvm::send($tid,-1);
	$info = Pvm::send($tid);

	$info = Pvm::send($tid,$tag);

=item C<Pvm::sendsig>

Sends a signal to another PVM process.  Eg.

	use POSIX qw(:signal_h);
	...

	$info = Pvm::sendsig($tid,SIGKILL);

=item C<Pvm::setopt>

Sets various libpvm options.  Eg.

	$oldval=Pvm::setopt(PvmOutputTid,$val);

	$oldval=Pvm::setopt(PvmRoute,PvmRouteDirect);

=item C<Pvm::setrbuf> 

Switches the active receive buffer and saves the previous buffer.  Eg.

	$oldbuf = Pvm::setrbuf($bufid);

=item C<Pvm::setsbuf>

Switches the active send buffer.  Eg.

	$oldbuf = Pvm::setsbuf($bufid);

=item C<Pvm::spawn>

Starts new PVM processes.  Eg.

	# Pvm::spawn("compute.pl",4,PvmTaskDefault,"");
	($ntask,@tid_list) = Pvm::spawn("compute.pl",4);

	($ntask,@tid_list) = Pvm::spawn("compute.pl",4,PvmTaskHost,"onyx");

=item C<Pvm::tasks>

Returns information about the tasks running on the virtual machine. Eg.

	# Pvm::tasks(0); Returns all tasks
	($info,@task_list) = Pvm::tasks ;

	# Returns only for task $tid 
	($info,@task_list) = Pvm::tasks($tid) ;
	

=item C<Pvm::tidtohost>

Returns the host ID on which the specified task is running.  Eg.

	$dtid = Pvm::tidtohost($tid);

=item C<Pvm::trecv>

Receive with timeout.  Eg.

	# Pvm::trecv(-1,-1,1,0); time out after 1 sec
	$bufid = Pvm::trecv ;

	# time out after 2*1000000 + 5000 usec 	
	$bufid = Pvm::trecv($tid,$tag,2,5000);


=item C<Pvm::unpack>