comparison src/process.c @ 624:2bb7f23b7ea5

*** empty log message ***

623:347a8db13650

#include "buffer.h"
#include "process.h"
#include "termhooks.h"
#include "termopts.h"
#include "commands.h"

extern int screen_garbaged;

Lisp_Object Qrun, Qstop, Qsignal, Qopen, Qclosed;
/* Qexit is declared and initialized in eval.c.  */

/* a process object is a network connection when its childp field is neither

{
  struct stat stb;
  register c, i;
  int fd;

#ifdef PTY_ITERATION
  PTY_ITERATION
#else
  for (c = FIRST_PTY_LETTER; c <= 'z'; c++)
    for (i = 0; i < 16; i++)

	sprintf (pty_name, "/dev/pty%c%x", c, i);
#endif /* not RTU */
#endif /* not HPUX */
#endif /* no PTY_NAME_SPRINTF */

#ifndef IRIS
	if (stat (pty_name, &stb) < 0)
	  return -1;
#ifdef O_NONBLOCK
	fd = open (pty_name, O_RDWR | O_NONBLOCK, 0);
#else
	fd = open (pty_name, O_RDWR | O_NDELAY, 0);
#endif
#else /* Unusual IRIS code */
 	*ptyv = open ("/dev/ptc", O_RDWR | O_NDELAY, 0);
 	if (fd < 0)
 	  return -1;
	if (fstat (fd, &stb) < 0)
	  return -1;
#endif /* IRIS */

	if (fd >= 0)
	  {
	    /* check to make certain that both sides are available

      Available = input_wait_mask;
      if (!read_kbd)
	FD_CLR (0, &Available);

      /* If a screen has been newly mapped and needs updating,
	 reprocess its display stuff.  */
      if (screen_garbaged)
	redisplay_preserve_echo_area ();

      if (read_kbd && detect_input_pending ())
	nfds = 0;
      else
	nfds = select (MAXDESC, &Available, 0, 0, &timeout);

	}
#endif vipc

      if (! wait_proc)
	got_some_input |= nfds > 0;

      /* Check for data from a process or a command channel */
      for (channel = FIRST_PROC_DESC; channel < MAXDESC; channel++)
	{
	  if (FD_ISSET (channel, &Available))

624:2bb7f23b7ea5

#include "buffer.h"
#include "process.h"
#include "termhooks.h"
#include "termopts.h"
#include "commands.h"
#include "dispextern.h"

Lisp_Object Qrun, Qstop, Qsignal, Qopen, Qclosed;
/* Qexit is declared and initialized in eval.c.  */

/* a process object is a network connection when its childp field is neither

{
  struct stat stb;
  register c, i;
  int fd;

  /* Some systems name their pseudoterminals so that there are gaps in
     the usual sequence - for example, on HP9000/S700 systems, there
     are no pseudoterminals with names ending in 'f'.  So we wait for
     three failures in a row before deciding that we've reached the
     end of the ptys.  */
  int failed_count = 0;

#ifdef PTY_ITERATION
  PTY_ITERATION
#else
  for (c = FIRST_PTY_LETTER; c <= 'z'; c++)
    for (i = 0; i < 16; i++)

	sprintf (pty_name, "/dev/pty%c%x", c, i);
#endif /* not RTU */
#endif /* not HPUX */
#endif /* no PTY_NAME_SPRINTF */

#ifdef IRIS
	/* Unusual IRIS code */
 	*ptyv = open ("/dev/ptc", O_RDWR | O_NDELAY, 0);
 	if (fd < 0)
 	  return -1;
	if (fstat (fd, &stb) < 0)
	  return -1;
#else
	if (stat (pty_name, &stb) < 0)
	  {
	    failed_count++;
	    if (failed_count >= 3)
	      return -1;
	  }
	else
	  failed_count = 0;
#ifdef O_NONBLOCK
	fd = open (pty_name, O_RDWR | O_NONBLOCK, 0);
#else
	fd = open (pty_name, O_RDWR | O_NDELAY, 0);
#endif
#endif /* IRIS */

	if (fd >= 0)
	  {
	    /* check to make certain that both sides are available

      Available = input_wait_mask;
      if (!read_kbd)
	FD_CLR (0, &Available);

      if (read_kbd && detect_input_pending ())
	nfds = 0;
      else
	nfds = select (MAXDESC, &Available, 0, 0, &timeout);

	}
#endif vipc

      if (! wait_proc)
	got_some_input |= nfds > 0;

      /* If checking input just got us a size-change event from X,
	 obey it now if we should.  */
      if (read_kbd)
	do_pending_window_change ();

      /* If screen size has changed, redisplay now
	 for either sit-for or keyboard input.  */
      if (read_kbd && screen_garbaged)
	redisplay_preserve_echo_area ();

      /* Check for data from a process or a command channel */
      for (channel = FIRST_PROC_DESC; channel < MAXDESC; channel++)
	{
	  if (FD_ISSET (channel, &Available))