home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / octa21fs.zip / octave / f2c / libi77 / wsle.c < prev    next >
C/C++ Source or Header  |  2000-01-15  |  647b  |  37 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "fmt.h"
  4. #include "lio.h"
  5.  
  6. #ifdef KR_headers
  7. integer s_wsle(a) cilist *a;
  8. #else
  9. integer s_wsle(cilist *a)
  10. #endif
  11. {
  12.     int n;
  13.     if(!f__init) f_init();
  14.     if(n=c_le(a)) return(n);
  15.     f__reading=0;
  16.     f__external=1;
  17.     f__formatted=1;
  18.     f__putn = t_putc;
  19.     f__lioproc = l_write;
  20.     L_len = LINE;
  21.     f__donewrec = x_wSL;
  22.     if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
  23.         err(a->cierr, errno, "list output start");
  24.     return(0);
  25.     }
  26.  
  27. integer e_wsle(Void)
  28. {
  29.     t_putc('\n');
  30.     f__recpos=0;
  31.     if (f__cf == stdout)
  32.         fflush(stdout);
  33.     else if (f__cf == stderr)
  34.         fflush(stderr);
  35.     return(0);
  36.     }
  37.