mirror/emacs
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/emacs.git synced 2024-12-15 09:47:20 +00:00
Code Issues Releases Activity

(Fcall_process): Keep reading till buffer is nearly full.

Browse Source
This commit is contained in:
Richard M. Stallman 1995-05-09 05:35:45 +00:00
parent c60f3a6a67
commit 60558b198d
1 changed files with 25 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
src/callproc.c
View File

@ -497,16 +497,33 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
int first = 1;
int total_read = 0;
while ((nread = read (fd[0], bufptr, bufsize)) != 0)
while (1)
{
if (nread < 0)
/* Repeatedly read until we've filled as much as possible
of the buffer size we have. But don't read
less than 1024--save that for the next bufferfull. */
nread = 0;
while (nread < bufsize - 1024)
{
#if defined (__osf__) && defined (__alpha)
continue; /* Work around bug in DEC OSF/1 V3.0. */
#else
break;
#endif
int this_read
= read (fd[0], bufptr + nread, bufsize - nread);
if (this_read < 0)
goto give_up;
if (this_read == 0)
goto give_up_1;
nread += this_read;
}
give_up_1:
/* Now NREAD is the total amount of data in the buffer. */
if (nread == 0)
break;
immediate_quit = 0;
total_read += nread;
@ -531,6 +548,7 @@ If you quit, the process is killed with SIGINT, or SIGKILL if you quit again.")
immediate_quit = 1;
QUIT;
}
give_up: ;
}
/* Wait for it to terminate, unless it already has. */