comparison src/process.c @ 2200:5e58643bb169

(wait_reading_process_input): New option to wait till a given cons cell has a non-nil car. Delete vipc conditionals.

2199:d005529475af

    "exceeded file size limit"
    };
#endif
#endif /* VMS */

#ifdef vipc

#include "vipc.h"
extern int comm_server;
extern int net_listen_address;
#endif /* vipc */

/* t means use pty, nil means use a pipe,
   maybe other values to come.  */
Lisp_Object Vprocess_connection_type;

#ifdef SKTPAIR

     -1 means gobble data immediately available but don't wait for any.

   read_kbd is a lisp value:
     0 to ignore keyboard input, or
     1 to return when input is available, or
     -1 means caller will actually read the input, so don't throw to
       the quit handler, or
     a process object, meaning wait until something arrives from that
       process.  The return value is true iff we read some input from
       that process.

   do_display != 0 means redisplay should be done to show subprocess

  EMACS_TIME timeout, end_time, garbage;
  SELECT_TYPE Atemp;
  int wait_channel = 0;
  struct Lisp_Process *wait_proc = 0;
  int got_some_input = 0;

  FD_ZERO (&Available);

  /* If read_kbd is a process to watch, set wait_proc and wait_channel
     accordingly.  */
  if (XTYPE (read_kbd) == Lisp_Process)
    {
      wait_proc = XPROCESS (read_kbd);
      wait_channel = XFASTINT (wait_proc->infd);
      XFASTINT (read_kbd) = 0;
    }

  waiting_for_user_input_p = XINT (read_kbd);

	 to give it higher priority than subprocesses */

      if (XINT (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 (XINT (read_kbd) && interrupt_input && (Available & fileno (stdin)))
	*/
      if (XINT (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))
	{
	  Available &= ~(ChannelMask (comm_server));
	  create_commchan ();
	}
#endif /* vipc */

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

      /* If checking input just got us a size-change event from X,

		  got_some_input = 1;
		}
	      proc = chan_process[channel];
	      if (NILP (proc))
		continue;

#ifdef vipc
	      /* It's a command channel */
	      if (!NILP (XPROCESS (proc)->command_channel_p))
		{
		  ProcessCommChan (channel, proc);
		  if (NILP (XPROCESS (proc)->command_channel_p))
		    {
		      /* It has ceased to be a command channel! */
		      int bytes_available;
		      if (ioctl (channel, FIONREAD, &bytes_available) < 0)
			bytes_available = 0;
		      if (bytes_available)
			FD_SET (channel, &Available);
		    }
		  continue;
		}
#endif				/* vipc */

	      /* Read data from the process, starting with our
		 buffered-ahead character if we have one.  */

	      nread = read_process_output (proc, channel);

2200:5e58643bb169

    "exceeded file size limit"
    };
#endif
#endif /* VMS */

/* t means use pty, nil means use a pipe,
   maybe other values to come.  */
Lisp_Object Vprocess_connection_type;

#ifdef SKTPAIR

     -1 means gobble data immediately available but don't wait for any.

   read_kbd is a lisp value:
     0 to ignore keyboard input, or
     1 to return when input is available, or
     -1 meaning caller will actually read the input, so don't throw to
       the quit handler, or
     a cons cell, meaning wait wait until its car is non-nil, or
     a process object, meaning wait until something arrives from that
       process.  The return value is true iff we read some input from
       that process.

   do_display != 0 means redisplay should be done to show subprocess

  EMACS_TIME timeout, end_time, garbage;
  SELECT_TYPE Atemp;
  int wait_channel = 0;
  struct Lisp_Process *wait_proc = 0;
  int got_some_input = 0;
  Lisp_Object *wait_for_cell = 0;

  FD_ZERO (&Available);

  /* If read_kbd is a process to watch, set wait_proc and wait_channel
     accordingly.  */
  if (XTYPE (read_kbd) == Lisp_Process)
    {
      wait_proc = XPROCESS (read_kbd);
      wait_channel = XFASTINT (wait_proc->infd);
      XFASTINT (read_kbd) = 0;
    }

  /* If waiting for non-nil in a cell, record where.  */
  if (XTYPE (read_kbd) == Lisp_Cons)
    {
      wait_for_cell = &XCONS (read_kbd)->car;
      XFASTINT (read_kbd) = 0;
    }

  waiting_for_user_input_p = XINT (read_kbd);

	 to give it higher priority than subprocesses */

      if (XINT (read_kbd) && detect_input_pending ())
	break;

      /* Exit now if the cell we're waiting for became non-nil.  */
      if (wait_for_cell && ! NILP (*wait_for_cell))
	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 (XINT (read_kbd) && interrupt_input && (FD_ISSET (fileno (stdin), &Available)))
	kill (0, SIGIO);
#endif

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

      /* If checking input just got us a size-change event from X,

		  got_some_input = 1;
		}
	      proc = chan_process[channel];
	      if (NILP (proc))
		continue;

	      /* Read data from the process, starting with our
		 buffered-ahead character if we have one.  */

	      nread = read_process_output (proc, channel);