home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / f2csrc.zip / f2csrc / libI77 / ilnw.c < prev    next >
C/C++ Source or Header  |  1994-07-28  |  1KB  |  78 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "lio.h"
  4. extern char *f__icptr;
  5. extern char *f__icend;
  6. extern icilist *f__svic;
  7. extern int f__icnum;
  8. #ifdef KR_headers
  9. extern int z_putc();
  10. #else
  11. extern int z_putc(int);
  12. #endif
  13.  
  14.  static int
  15. z_wSL(Void)
  16. {
  17.     while(f__recpos < f__svic->icirlen)
  18.         z_putc(' ');
  19.     return z_rnew();
  20.     }
  21.  
  22.  VOID
  23. #ifdef KR_headers
  24. c_liw(a) icilist *a;
  25. #else
  26. c_liw(icilist *a)
  27. #endif
  28. {
  29.     f__reading = 0;
  30.     f__external = 0;
  31.     f__formatted = 1;
  32.     f__putn = z_putc;
  33.     L_len = a->icirlen;
  34.     f__donewrec = z_wSL;
  35.     f__svic = a;
  36.     f__icnum = f__recpos = 0;
  37.     f__cursor = 0;
  38.     f__cf = 0;
  39.     f__curunit = 0;
  40.     f__icptr = a->iciunit;
  41.     f__icend = f__icptr + a->icirlen*a->icirnum;
  42.     f__elist = (cilist *)a;
  43.     }
  44.  
  45.  integer
  46. #ifdef KR_headers
  47. s_wsni(a) icilist *a;
  48. #else
  49. s_wsni(icilist *a)
  50. #endif
  51. {
  52.     cilist ca;
  53.  
  54.     c_liw(a);
  55.     ca.cifmt = a->icifmt;
  56.     x_wsne(&ca);
  57.     z_wSL();
  58.     return 0;
  59.     }
  60.  
  61.  integer
  62. #ifdef KR_headers
  63. s_wsli(a) icilist *a;
  64. #else
  65. s_wsli(icilist *a)
  66. #endif
  67. {
  68.     f__lioproc = l_write;
  69.     c_liw(a);
  70.     return(0);
  71.     }
  72.  
  73. integer e_wsli(Void)
  74. {
  75.     z_wSL();
  76.     return(0);
  77.     }
  78.