diff options
Diffstat (limited to 'libf2c/libI77/wsle.c')
| -rw-r--r-- | libf2c/libI77/wsle.c | 15 |
1 files changed, 6 insertions, 9 deletions
diff --git a/libf2c/libI77/wsle.c b/libf2c/libI77/wsle.c index d13f78f650b..f8555d79c45 100644 --- a/libf2c/libI77/wsle.c +++ b/libf2c/libI77/wsle.c @@ -2,6 +2,7 @@ #include "fio.h" #include "fmt.h" #include "lio.h" +#include "string.h" #ifdef KR_headers integer s_wsle(a) cilist *a; @@ -14,7 +15,7 @@ integer s_wsle(cilist *a) f__reading=0; f__external=1; f__formatted=1; - f__putn = t_putc; + f__putn = x_putc; f__lioproc = l_write; L_len = LINE; f__donewrec = x_wSL; @@ -25,17 +26,13 @@ integer s_wsle(cilist *a) integer e_wsle(Void) { + int n; f__init = 1; - t_putc('\n'); + n = f__putbuf('\n'); f__recpos=0; #ifdef ALWAYS_FLUSH - if (fflush(f__cf)) + if (!n && fflush(f__cf)) err(f__elist->cierr, errno, "write end"); -#else - if (f__cf == stdout) - fflush(stdout); - else if (f__cf == stderr) - fflush(stderr); #endif - return(0); + return(n); } |