xref: /csrg-svn/usr.bin/f77/libU77/kill_.c (revision 47944)
1*47944Sbostic /*-
2*47944Sbostic  * Copyright (c) 1980 The Regents of the University of California.
3*47944Sbostic  * All rights reserved.
42543Sdlw  *
5*47944Sbostic  * %sccs.include.proprietary.c%
623034Skre  */
723034Skre 
8*47944Sbostic #ifndef lint
9*47944Sbostic static char sccsid[] = "@(#)kill_.c	5.2 (Berkeley) 04/12/91";
10*47944Sbostic #endif /* not lint */
11*47944Sbostic 
1223034Skre /*
132543Sdlw  * send a signal to a process
142543Sdlw  *
152543Sdlw  * calling sequence:
162543Sdlw  *	ierror = kill(pid, signum)
172543Sdlw  * where:
182543Sdlw  *	pid must be the process id of one of the user's processes
192543Sdlw  *	signum must be a valid signal number (see signal(2))
202543Sdlw  *	ierror will be 0 if successful; an error code otherwise.
212543Sdlw  */
222543Sdlw 
232543Sdlw #include "../libI77/f_errno.h"
242543Sdlw 
kill_(pid,signum)252543Sdlw long kill_(pid, signum)
262543Sdlw long *pid, *signum;
272543Sdlw {
282543Sdlw 	if (*pid < 0 || *pid > 32767L || *signum < 1 || *signum > 16)
292543Sdlw 		return((long)(errno=F_ERARG));
302543Sdlw 	if (kill((int)*pid, (int)*signum) != 0)
312543Sdlw 		return((long)errno);
322543Sdlw 	return(0L);
332543Sdlw }
34