home *** CD-ROM | disk | FTP | other *** search
/ Turbo Toolbox / Turbo_Toolbox.iso / sharew / f_2_c / libi77 / ilnw.c < prev    next >
Encoding:
C/C++ Source or Header  |  1991-06-10  |  861 b   |  63 lines
  1. #include "f2c.h"
  2. #include "fio.h"
  3. #include "lio.h"
  4. extern char *icptr;
  5. extern char *icend;
  6. extern icilist *svic;
  7. extern int icnum;
  8. extern int (*donewrec)();
  9. extern int z_putc(), l_write();
  10.  
  11.  static int
  12. z_wSL()
  13. {
  14.     extern int z_rnew();
  15.     while(recpos < svic->icirlen)
  16.         z_putc(' ');
  17.     return z_rnew();
  18.     }
  19.  
  20.  int
  21. c_liw(a)
  22.  icilist *a;
  23. {
  24.     reading = 0;
  25.     external = 0;
  26.     formatted = 1;
  27.     putn = z_putc;
  28.     L_len = a->icirlen;
  29.     donewrec = z_wSL;
  30.     svic = a;
  31.     icnum = recpos = 0;
  32.     cursor = 0;
  33.     cf = 0;
  34.     curunit = 0;
  35.     icptr = a->iciunit;
  36.     icend = icptr + a->icirlen*a->icirnum;
  37.     }
  38.  
  39. s_wsni(a)
  40.  icilist *a;
  41. {
  42.     cilist ca;
  43.  
  44.     c_liw(a);
  45.     ca.cifmt = a->icifmt;
  46.     x_wsne(&ca);
  47.     z_wSL();
  48.     return 0;
  49.     }
  50.  
  51. integer s_wsli(a) icilist *a;
  52. {
  53.     lioproc = l_write;
  54.     c_liw(a);
  55.     return(0);
  56.     }
  57.  
  58. integer e_wsli()
  59. {
  60.     z_wSL();
  61.     return(0);
  62.     }
  63.