date and time created 81/02/19 18:57:02 by dlw

SCCS-vsn: usr.bin/f77/libU77/kill_.c 1.1

diff --git a/usr/src/usr.bin/f77/libU77/kill_.c b/usr/src/usr.bin/f77/libU77/kill_.c
new file mode 100644 (file)
index 0000000..b5334fa
--- /dev/null
+++ b/usr/src/usr.bin/f77/libU77/kill_.c
@@ -0,0 +1,24 @@
+/*
+char id_kill[] = "@(#)kill_.c  1.1";
+ *
+ * send a signal to a process
+ *
+ * calling sequence:
+ *     ierror = kill(pid, signum)
+ * where:
+ *     pid must be the process id of one of the user's processes
+ *     signum must be a valid signal number (see signal(2))
+ *     ierror will be 0 if successful; an error code otherwise.
+ */
+
+#include "../libI77/f_errno.h"
+
+long kill_(pid, signum)
+long *pid, *signum;
+{
+       if (*pid < 0 || *pid > 32767L || *signum < 1 || *signum > 16)
+               return((long)(errno=F_ERARG));
+       if (kill((int)*pid, (int)*signum) != 0)
+               return((long)errno);
+       return(0L);
+}