lang/fortran/lib/libI77/ilnw.c

   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         }