xref: /original-bsd/usr.bin/f77/libU77/kill_.c (revision 6c57d260)
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 }
25