view release on metacpan or  search on metacpan

Pvm.xs  view on Meta::CPAN

	OUTPUT:
	RETVAL

int
send(tid,tag)
	int tid
	int tag
	PROTOTYPE: $$
	CODE:
	RETVAL = pvm_send(tid,tag);
	OUTPUT:
	RETVAL

int
psend(tid,tag,...)
	int 	tid
	int	tag
	PROTOTYPE: $$;@
	PREINIT:
	int i;
	char *str, *po;
	CODE:
	for(i=2;i<items;i++){
	   po = (char *)SvPV(ST(i),na);
           if ( i == 2 ) {
              str = buffer_string(po,1);
           } else{
              str = buffer_string(po,0);
           }
	}
	if ( items == 2 ){
	   str = (char *)calloc(1,sizeof(char));
	   str[0] = '\0';
	}
	RETVAL = pvm_psend(tid,tag,str,string_byte_cnt(str),PVM_BYTE);
	OUTPUT:
	RETVAL

int
mcast(...)
	PROTOTYPE: @
	PREINIT:
	int i;
	int tag_num;
	int proc_num;
	int tids[MAXPROCS];
	int tag;
	CODE:
	if ( items < 2 )
	   croak("Usage: Pvm::pvm_mcast(tids_list,tag)");
	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);
	OUTPUT:
	RETVAL

int
recv(tid=-1,tag=-1)
	int tid
	int tag
	PROTOTYPE: ;$$
	CODE:
	RETVAL = pvm_recv(tid,tag);
	OUTPUT:
	RETVAL

int
nrecv(tid=-1,tag=-1)
	int	tid
	int 	tag
	PROTOTYPE: ;$$
	CODE:
	RETVAL = pvm_nrecv(tid,tag);
	OUTPUT:
	RETVAL

int
trecv(tid=-1,tag=-1,sec=1,usec=0)
	int	tid
	int	tag
	int	sec
	int	usec
	PROTOTYPE: ;$$$$
	PREINIT:
	struct timeval tmout;
	CODE:
	tmout.tv_sec = sec;
	tmout.tv_usec = usec;
	RETVAL = pvm_trecv(tid,tag,&tmout);
	OUTPUT:
	RETVAL
	
void
precv(tid=-1,tag=-1)
	int 	tid
	int 	tag
	PROTOTYPE: ;$$
	PREINIT:
	int info, src, stag, scnt;
	char str[MAXSTR];
	char *po;
	int type;
	PPCODE: