Pvm

 view release on metacpan or  search on metacpan

Pvm.c  view on Meta::CPAN

	}
	proc_num = tag_num = items-1;
	tag = SvIV(ST(tag_num));
	RETVAL = pvm_mcast(tids,proc_num,tag);
	ST(0) = sv_newmortal();
	sv_setiv(ST(0), (IV)RETVAL);
    }
    XSRETURN(1);
}

XS(XS_Pvm_sendsig)
{
    dXSARGS;
    if (items != 2)
	croak("Usage: Pvm::sendsig(tid,sig)");
    {
	int	tid = (int)SvIV(ST(0));
	int	sig = (int)SvIV(ST(1));
	int	RETVAL;
	RETVAL = pvm_sendsig(tid,sig);
	ST(0) = sv_newmortal();
	sv_setiv(ST(0), (IV)RETVAL);
    }
    XSRETURN(1);
}

XS(XS_Pvm_probe)
{
    dXSARGS;
    if (items < 0 || items > 2)

Pvm.c  view on Meta::CPAN

    char* file = __FILE__;

    XS_VERSION_BOOTCHECK ;

        newXS("Pvm::constant", XS_Pvm_constant, file);
        newXSproto("Pvm::spawn", XS_Pvm_spawn, file, "$$;$$");
        newXSproto("Pvm::initsend", XS_Pvm_initsend, file, ";$");
        newXSproto("Pvm::send", XS_Pvm_send, file, "$$");
        newXSproto("Pvm::psend", XS_Pvm_psend, file, "$$;@");
        newXSproto("Pvm::mcast", XS_Pvm_mcast, file, "@");
        newXSproto("Pvm::sendsig", XS_Pvm_sendsig, file, "$$");
        newXSproto("Pvm::probe", XS_Pvm_probe, file, ";$$");
        newXSproto("Pvm::recv", XS_Pvm_recv, file, ";$$");
        newXSproto("Pvm::nrecv", XS_Pvm_nrecv, file, ";$$");
        newXSproto("Pvm::trecv", XS_Pvm_trecv, file, ";$$$$");
        newXSproto("Pvm::precv", XS_Pvm_precv, file, ";$$");
        newXSproto("Pvm::parent", XS_Pvm_parent, file, "");
        newXSproto("Pvm::mytid", XS_Pvm_mytid, file, "");
        newXSproto("Pvm::pack", XS_Pvm_pack, file, "@");
        newXSproto("Pvm::unpack", XS_Pvm_unpack, file, "");
        newXSproto("Pvm::exit", XS_Pvm_exit, file, "");

Pvm.pm  view on Meta::CPAN

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> 

Pvm.xs  view on Meta::CPAN

	for (i=0;i<items-1;i++){
	  tids[i] = SvIV(ST(i));
	}
	proc_num = tag_num = items-1;
	tag = SvIV(ST(tag_num));
	RETVAL = pvm_mcast(tids,proc_num,tag);
	OUTPUT:
	RETVAL

int
sendsig(tid,sig)
	int 	tid
	int	sig
	PROTOTYPE: $$
	CODE:
	RETVAL = pvm_sendsig(tid,sig);
	OUTPUT:
	RETVAL
	
int
probe(tid=-1,tag=-1)
	int 	tid
	int	tag
	PROTOTYPE: ;$$
	CODE:
	RETVAL = pvm_probe(tid,tag);

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

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> 

blib/man3/Pvm.3  view on Meta::CPAN

\&        # Pvm::send(-1,-1);
\&        $info = Pvm::send ;
.Ve
.Vb 2
\&        # Pvm::send($tid,-1);
\&        $info = Pvm::send($tid);
.Ve
.Vb 1
\&        $info = Pvm::send($tid,$tag);
.Ve
.Ip "\f(CWPvm::sendsig\fR" 0
.IX Item "\f(CWPvm::sendsig\fR"
Sends a signal to another \s-1PVM\s0 process.  Eg.
.PP
.Vb 2
\&        use POSIX qw(:signal_h);
\&        ...
.Ve
.Vb 1
\&        $info = Pvm::sendsig($tid,SIGKILL);
.Ve
.Ip "\f(CWPvm::setopt\fR" 0
.IX Item "\f(CWPvm::setopt\fR"
Sets various libpvm options.  Eg.
.PP
.Vb 1
\&        $oldval=Pvm::setopt(PvmOutputTid,$val);
.Ve
.Vb 1
\&        $oldval=Pvm::setopt(PvmRoute,PvmRouteDirect);