src/operand2sig.c

   1 /* operand2sig.c -- common function for parsing signal specifications
   2    Copyright (C) 2008 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>.  */
  16
  17 /* Extracted from kill.c/timeout.c by Pádraig Brady.
  18    FIXME: Move this to gnulib/str2sig.c */
  19
  20
  21 /* Convert OPERAND to a signal number with printable representation SIGNAME.
  22    Return the signal number, or -1 if unsuccessful.  */
  23
  24 #include <config.h>
  25 #include <stdio.h>
  26 #include <sys/types.h>
  27 #include <signal.h>
  28
  29 #if HAVE_SYS_WAIT_H
  30 # include <sys/wait.h>
  31 #endif
  32 #ifndef WIFSIGNALED
  33 # define WIFSIGNALED(s) (((s) & 0xFFFF) - 1 < (unsigned int) 0xFF)
  34 #endif
  35 #ifndef WTERMSIG
  36 # define WTERMSIG(s) ((s) & 0x7F)
  37 #endif
  38
  39 #include "system.h"
  40 #include "error.h"
  41 #include "sig2str.h"
  42 #include "operand2sig.h"
  43
  44 extern int
  45 operand2sig (char const *operand, char *signame)
  46 {
  47   int signum;
  48
  49   if (ISDIGIT (*operand))
  50     {
  51       char *endp;
  52       long int l = (errno = 0, strtol (operand, &endp, 10));
  53       int i = l;
  54       signum = (operand == endp || *endp || errno || i != l ? -1
  55                 : WIFSIGNALED (i) ? WTERMSIG (i) : i);
  56     }
  57   else
  58     {
  59       /* Convert signal to upper case in the C locale, not in the
  60          current locale.  Don't assume ASCII; it might be EBCDIC.  */
  61       char *upcased = xstrdup (operand);
  62       char *p;
  63       for (p = upcased; *p; p++)
  64         if (strchr ("abcdefghijklmnopqrstuvwxyz", *p))
  65           *p += 'A' - 'a';
  66
  67       /* Look for the signal name, possibly prefixed by "SIG",
  68          and possibly lowercased.  */
  69       if (!(str2sig (upcased, &signum) == 0
  70             || (upcased[0] == 'S' && upcased[1] == 'I' && upcased[2] == 'G'
  71                 && str2sig (upcased + 3, &signum) == 0)))
  72         signum = -1;
  73
  74       free (upcased);
  75     }
  76
  77   if (signum < 0 || sig2str (signum, signame) != 0)
  78     {
  79       error (0, 0, _("%s: invalid signal"), operand);
  80       return -1;
  81     }
  82
  83   return signum;
  84 }