[unix-history] / usr / src / usr.bin / f77 / libU77 / kill_.c

/*
char id_kill[] = "@(#)kill_.c	1.1";
 *
 * send a signal to a process
 *
 * calling sequence:
 *	ierror = kill(pid, signum)
 * where:
 *	pid must be the process id of one of the user's processes
 *	signum must be a valid signal number (see signal(2))
 *	ierror will be 0 if successful; an error code otherwise.
 */

#include "../libI77/f_errno.h"

long kill_(pid, signum)
long *pid, *signum;
{
	if (*pid < 0 || *pid > 32767L || *signum < 1 || *signum > 16)
		return((long)(errno=F_ERARG));
	if (kill((int)*pid, (int)*signum) != 0)
		return((long)errno);
	return(0L);
}
Commit	Line	Data
443011a0 DW	1	/*
	2	char id_kill[] = "@(#)kill_.c 1.1";
	3	*
	4	* send a signal to a process
	5	*
	6	* calling sequence:
	7	* ierror = kill(pid, signum)
	8	* where:
	9	* pid must be the process id of one of the user's processes
	10	* signum must be a valid signal number (see signal(2))
	11	* ierror will be 0 if successful; an error code otherwise.
	12	*/
	13
	14	#include "../libI77/f_errno.h"
	15
	16	long kill_(pid, signum)
	17	long pid, signum;
	18	{
	19	if (pid < 0 \|\| pid > 32767L \|\| signum < 1 \|\| signum > 16)
	20	return((long)(errno=F_ERARG));
	21	if (kill((int)pid, (int)signum) != 0)
	22	return((long)errno);
	23	return(0L);
	24	}