workbench/network/stacks/AROSTCP/netlib/kill.c

   1 #include <dos/dos.h>
   2 #include <exec/execbase.h>
   3 #include <proto/exec.h>
   4 #include <signal.h>
   5 #include <sys/types.h>
   6 #include <errno.h>
   7
   8 static BOOL CheckTask(struct List *tl, pid_t pid)
   9 {
  10     struct Node *t;
  11     for (t = tl->lh_Head; t->ln_Succ; t = t->ln_Succ)
  12         if ((pid_t)t == pid)
  13             return TRUE;
  14     return FALSE;
  15 }
  16
  17 int kill(pid_t pid, int sigs)
  18 {
  19     ULONG exec_sigs;
  20     int task_valid;
  21
  22     if ((pid == 0) || (sigs < 0))
  23         return ESRCH;
  24     switch (sigs) {
  25     case SIGTERM:
  26         exec_sigs = SIGBREAKF_CTRL_C;
  27     case 0:
  28         exec_sigs = 0;
  29         break;
  30     default:
  31         return EINVAL;
  32     }
  33
  34     Forbid();
  35
  36     /*
  37      * The task can be:
  38      * a) Current one
  39      * b) In the TaskReady list
  40      * c) In the TaskWait list
  41      */
  42     task_valid = ((pid == (pid_t)FindTask(NULL)) ||
  43                   CheckTask(&SysBase->TaskReady, pid) ||
  44                   CheckTask(&SysBase->TaskWait, pid));
  45
  46     if (task_valid && exec_sigs)
  47         Signal((struct Task *)pid, exec_sigs);
  48
  49     Permit();
  50
  51     return task_valid ? 0 : ESRCH;
  52 }
  53