xref: /csrg-svn/usr.bin/f77/libU77/kill_.c (revision 23034)
12543Sdlw /*
2*23034Skre  * Copyright (c) 1980 Regents of the University of California.
3*23034Skre  * All rights reserved.  The Berkeley software License Agreement
4*23034Skre  * specifies the terms and conditions for redistribution.
52543Sdlw  *
6*23034Skre  *	@(#)kill_.c	5.1	06/07/85
7*23034Skre  */
8*23034Skre 
9*23034Skre /*
102543Sdlw  * send a signal to a process
112543Sdlw  *
122543Sdlw  * calling sequence:
132543Sdlw  *	ierror = kill(pid, signum)
142543Sdlw  * where:
152543Sdlw  *	pid must be the process id of one of the user's processes
162543Sdlw  *	signum must be a valid signal number (see signal(2))
172543Sdlw  *	ierror will be 0 if successful; an error code otherwise.
182543Sdlw  */
192543Sdlw 
202543Sdlw #include "../libI77/f_errno.h"
212543Sdlw 
222543Sdlw long kill_(pid, signum)
232543Sdlw long *pid, *signum;
242543Sdlw {
252543Sdlw 	if (*pid < 0 || *pid > 32767L || *signum < 1 || *signum > 16)
262543Sdlw 		return((long)(errno=F_ERARG));
272543Sdlw 	if (kill((int)*pid, (int)*signum) != 0)
282543Sdlw 		return((long)errno);
292543Sdlw 	return(0L);
302543Sdlw }
31