comparison src/process.c @ 621:eca8812e61cd

*** empty log message ***

620:88a29c720fa7

  else
    return Fcopy_sequence (Fsymbol_name (symbol));
}

#ifdef HAVE_PTYS
static pty_process;

/* Open an available pty, returning a file descriptor.
   Return -1 on failure.
   The file name of the terminal corresponding to the pty
   is left in the variable pty_name.  */

	 to give it higher priority than subprocesses */

      if (read_kbd && detect_input_pending ())
	break;

      /* If we think we have keyboard input waiting, but didn't get SIGIO
	 go read it.  This can happen with X on BSD after logging out.
	 In that case, there really is no input and no SIGIO,
	 but select says there is input.  */

      /*
      if (read_kbd && interrupt_input && (Available & fileno (stdin)))
      */
      if (read_kbd && interrupt_input && (FD_ISSET (fileno (stdin), &Available)))
	kill (0, SIGIO);

#ifdef vipc
      /* Check for connection from other process */

      if (Available & ChannelMask (comm_server))

#else
  if (!setjmp (send_process_frame))
    while (len > 0)
      {
	int this = len;
	/* Don't send more than 500 bytes at a time.  */
	if (this > 500)
	  this = 500;
	signal (SIGPIPE, send_process_trap);
	rv = write (XFASTINT (XPROCESS (proc)->outfd), buf, this);
	signal (SIGPIPE, SIG_DFL);
	if (rv < 0)
	  {
	    if (0
#ifdef EWOULDBLOCK
		|| errno == EWOULDBLOCK

621:eca8812e61cd

  else
    return Fcopy_sequence (Fsymbol_name (symbol));
}

#ifdef HAVE_PTYS
static int pty_process;

/* Open an available pty, returning a file descriptor.
   Return -1 on failure.
   The file name of the terminal corresponding to the pty
   is left in the variable pty_name.  */

	 to give it higher priority than subprocesses */

      if (read_kbd && detect_input_pending ())
	break;

#ifdef SIGIO
      /* If we think we have keyboard input waiting, but didn't get SIGIO
	 go read it.  This can happen with X on BSD after logging out.
	 In that case, there really is no input and no SIGIO,
	 but select says there is input.  */

      /*
      if (read_kbd && interrupt_input && (Available & fileno (stdin)))
      */
      if (read_kbd && interrupt_input && (FD_ISSET (fileno (stdin), &Available)))
	kill (0, SIGIO);
#endif

#ifdef vipc
      /* Check for connection from other process */

      if (Available & ChannelMask (comm_server))

#else
  if (!setjmp (send_process_frame))
    while (len > 0)
      {
	int this = len;
	SIGTYPE (*old_sigpipe)();

	/* Don't send more than 500 bytes at a time.  */
	if (this > 500)
	  this = 500;
	old_sigpipe = signal (SIGPIPE, send_process_trap);
	rv = write (XFASTINT (XPROCESS (proc)->outfd), buf, this);
	signal (SIGPIPE, old_sigpipe);
	if (rv < 0)
	  {
	    if (0
#ifdef EWOULDBLOCK
		|| errno == EWOULDBLOCK