xref: /original-bsd/usr.bin/f77/libU77/kill_.c (revision cfa2a17a)
1 /*-
2  * Copyright (c) 1980 The Regents of the University of California.
3  * All rights reserved.
4  *
5  * %sccs.include.proprietary.c%
6  */
7 
8 #ifndef lint
9 static char sccsid[] = "@(#)kill_.c	5.2 (Berkeley) 04/12/91";
10 #endif /* not lint */
11 
12 /*
13  * send a signal to a process
14  *
15  * calling sequence:
16  *	ierror = kill(pid, signum)
17  * where:
18  *	pid must be the process id of one of the user's processes
19  *	signum must be a valid signal number (see signal(2))
20  *	ierror will be 0 if successful; an error code otherwise.
21  */
22 
23 #include "../libI77/f_errno.h"
24 
25 long kill_(pid, signum)
26 long *pid, *signum;
27 {
28 	if (*pid < 0 || *pid > 32767L || *signum < 1 || *signum > 16)
29 		return((long)(errno=F_ERARG));
30 	if (kill((int)*pid, (int)*signum) != 0)
31 		return((long)errno);
32 	return(0L);
33 }
34