[p5sagit/p5-mst-13.2.git] / do / msgsnd

int
do_msgsnd(arglast)
int *arglast;
{
#ifdef HAS_MSG
    register STR **st = stack->ary_array;
    register int sp = arglast[0];
    STR *mstr;
    char *mbuf;
    int id, msize, flags;

    id = (int)str_gnum(st[++sp]);
    mstr = st[++sp];
    flags = (int)str_gnum(st[++sp]);
    mbuf = str_get(mstr);
    if ((msize = mstr->str_cur - sizeof(long)) < 0) {
	errno = EINVAL;
	return -1;
    }
    errno = 0;
    return msgsnd(id, (struct msgbuf *)mbuf, msize, flags);
#else
    fatal("msgsnd not implemented");
#endif
}
Commit	Line	Data
79072805	1	int
	2	do_msgsnd(arglast)
	3	int *arglast;
	4	{
	5	#ifdef HAS_MSG
	6	register STR **st = stack->ary_array;
	7	register int sp = arglast[0];
	8	STR *mstr;
	9	char *mbuf;
	10	int id, msize, flags;
	11
	12	id = (int)str_gnum(st[++sp]);
	13	mstr = st[++sp];
	14	flags = (int)str_gnum(st[++sp]);
	15	mbuf = str_get(mstr);
	16	if ((msize = mstr->str_cur - sizeof(long)) < 0) {
	17	errno = EINVAL;
	18	return -1;
	19	}
	20	errno = 0;
	21	return msgsnd(id, (struct msgbuf *)mbuf, msize, flags);
	22	#else
	23	fatal("msgsnd not implemented");
	24	#endif
	25	}
	26