comparison src/callproc.c @ 90188:01137c1fdbe9

Revision: [e-mail]--gnu-2005/emacs--unicode--0--patch-57 Merge from emacs--cvs-trunk--0 Patches applied: * emacs--cvs-trunk--0 (patch 324-352) - Merge from gnus--rel--5.10 - Update from CVS - etc/emacs-buffer.gdb: Remove RCS keywords * gnus--rel--5.10 (patch 70-79) - Update from CVS - Merge from emacs--cvs-trunk--0

90187:587ea1490d70

  Lisp_Object infile, buffer, current_dir, path;
  int display_p;
  int fd[2];
  int filefd;
  register int pid;
  char buf[16384];
  char *bufptr = buf;
  int bufsize = sizeof buf;
  int count = SPECPDL_INDEX ();

  register const unsigned char **new_argv
    = (const unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));
  struct buffer *old = current_buffer;

	   of the buffer size we have.  But don't read
	   less than 1024--save that for the next bufferful.  */
	nread = carryover;
	while (nread < bufsize - 1024)
	  {
	    int this_read = emacs_read (fd[0], bufptr + nread,
					bufsize - nread);

	    if (this_read < 0)
	      goto give_up;

	if (!NILP (buffer))
	  {
	    if (NILP (current_buffer->enable_multibyte_characters)
		&& ! CODING_MAY_REQUIRE_DECODING (&process_coding))
	      insert_1_both (bufptr, nread, nread, 0, 1, 0);
	    else
	      {			/* We have to decode the input.  */
		Lisp_Object buf;

		XSETBUFFER (buf, current_buffer);

	  }

	if (process_coding.mode & CODING_MODE_LAST_BLOCK)
	  break;

	/* Make the buffer bigger as we continue to read more data,
	   but not past 64k.  */
	if (bufsize < 64 * 1024 && total_read > 32 * bufsize)
	  {
	    char *tempptr;
	    bufsize *= 2;

	    tempptr = (char *) alloca (bufsize);
	    bcopy (bufptr, tempptr, bufsize / 2);
	    bufptr = tempptr;
	  }

	if (display_p)
	  {
	    if (first)
	      prepare_menu_bars ();

90188:01137c1fdbe9

  Lisp_Object infile, buffer, current_dir, path;
  int display_p;
  int fd[2];
  int filefd;
  register int pid;
#define CALLPROC_BUFFER_SIZE_MIN (16 * 1024)
#define CALLPROC_BUFFER_SIZE_MAX (4 * CALLPROC_BUFFER_SIZE_MIN)
  char buf[CALLPROC_BUFFER_SIZE_MAX];
  int bufsize = CALLPROC_BUFFER_SIZE_MIN;
  int count = SPECPDL_INDEX ();

  register const unsigned char **new_argv
    = (const unsigned char **) alloca ((max (2, nargs - 2)) * sizeof (char *));
  struct buffer *old = current_buffer;

	   of the buffer size we have.  But don't read
	   less than 1024--save that for the next bufferful.  */
	nread = carryover;
	while (nread < bufsize - 1024)
	  {
	    int this_read = emacs_read (fd[0], buf + nread,
					bufsize - nread);

	    if (this_read < 0)
	      goto give_up;

	if (!NILP (buffer))
	  {
	    if (NILP (current_buffer->enable_multibyte_characters)
		&& ! CODING_MAY_REQUIRE_DECODING (&process_coding))
	      insert_1_both (buf, nread, nread, 0, 1, 0);
	    else
	      {			/* We have to decode the input.  */
		Lisp_Object buf;

		XSETBUFFER (buf, current_buffer);

	  }

	if (process_coding.mode & CODING_MODE_LAST_BLOCK)
	  break;

#if (CALLPROC_BUFFER_SIZE_MIN != CALLPROC_BUFFER_SIZE_MAX)
	/* Make the buffer bigger as we continue to read more data,
	   but not past CALLPROC_BUFFER_SIZE_MAX.  */
	if (bufsize < CALLPROC_BUFFER_SIZE_MAX && total_read > 32 * bufsize)
	  if ((bufsize *= 2) > CALLPROC_BUFFER_SIZE_MAX)
	    bufsize = CALLPROC_BUFFER_SIZE_MAX;
#endif

	if (display_p)
	  {
	    if (first)
	      prepare_menu_bars ();