toolchain/gcc/libf2c/libI77/wsle.c

   1 #include "config.h"
   2 #include "f2c.h"
   3 #include "fio.h"
   4 #include "fmt.h"
   5 #include "lio.h"
   6 #include "string.h"
   7
   8 integer
   9 s_wsle (cilist * a)
  10 {
  11   int n;
  12   if ((n = c_le (a)))
  13     return (n);
  14   f__reading = 0;
  15   f__external = 1;
  16   f__formatted = 1;
  17   f__putn = x_putc;
  18   f__lioproc = l_write;
  19   L_len = LINE;
  20   f__donewrec = x_wSL;
  21   if (f__curunit->uwrt != 1 && f__nowwriting (f__curunit))
  22     err (a->cierr, errno, "list output start");
  23   return (0);
  24 }
  25
  26 integer
  27 e_wsle (void)
  28 {
  29   int n;
  30   f__init = 1;
  31   n = f__putbuf ('\n');
  32   f__recpos = 0;
  33 #ifdef ALWAYS_FLUSH
  34   if (!n && fflush (f__cf))
  35     err (f__elist->cierr, errno, "write end");
  36 #endif
  37   return (n);
  38 }