comparison src/process.c @ 48053:f840e449c328

(Fsignal_process): Allow PROCESS to be specified by name in addition to pid (as integer or string).

48052:0e3c2c0b690a

#endif
  return process;
}

DEFUN ("signal-process", Fsignal_process, Ssignal_process,
       2, 2, "nProcess number: \nnSignal code: ",
       doc: /* Send the process with process id PID the signal with code SIGCODE.
PID must be an integer.  The process need not be a child of this Emacs.
SIGCODE may be an integer, or a symbol whose name is a signal name.  */)
     (pid, sigcode)
     Lisp_Object pid, sigcode;
{
  CHECK_NUMBER (pid);

#define handle_signal(NAME, VALUE)		\
  else if (!strcmp (name, NAME))		\
    XSETINT (sigcode, VALUE)

48053:f840e449c328

#endif
  return process;
}

DEFUN ("signal-process", Fsignal_process, Ssignal_process,
       2, 2, "sProcess (name or number): \nnSignal code: ",
       doc: /* Send PROCESS the signal with code SIGCODE.
PROCESS may also be an integer specifying the process id of the
process to signal; in this case, the process need not be a child of
this Emacs.
SIGCODE may be an integer, or a symbol whose name is a signal name.  */)
     (process, sigcode)
     Lisp_Object process, sigcode;
{
  Lisp_Object pid;

  if (INTEGERP (process))
    {
      pid = process;
      goto got_it;
    }

  if (STRINGP (process))
    {
      Lisp_Object tem;
      if (tem = Fget_process (process), NILP (tem))
	{
	  pid = Fstring_to_number (process, make_number (10));
	  if (XINT (pid) != 0)
	    goto got_it;
	}
      process = tem;
    }
  else
    process = get_process (process);
      
  if (NILP (process))
    return process;

  CHECK_PROCESS (process);
  pid = XPROCESS (process)->pid;
  if (!INTEGERP (pid) || XINT (pid) <= 0)
    error ("Cannot signal process %s", SDATA (XPROCESS (process)->name));

 got_it:

#define handle_signal(NAME, VALUE)		\
  else if (!strcmp (name, NAME))		\
    XSETINT (sigcode, VALUE)