2.9BSD - /usr/src/lib/libU77/kill_.c

   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/fiodefs.h"
  15: 
  16: ftnint kill_(pid, signum)
  17: ftnint *pid, *signum;
  18: {
  19:     if (*pid < 0 || *pid > (ftnint) 32767 || *signum < 1 || *signum > 16)
  20:         return((ftnint)(errno=F_ERARG));
  21:     if (kill((int)*pid, (int)*signum) != 0)
  22:         return((ftnint)errno);
  23:     return((ftnint) 0);
  24: }

Defined functions