libf2c/libI77/ilnw.c

   1 #include "config.h"
   2 #include "f2c.h"
   3 #include "fio.h"
   4 #include "lio.h"
   5 extern char *f__icptr;
   6 extern char *f__icend;
   7 extern icilist *f__svic;
   8 extern int f__icnum;
   9 extern void z_putc(int);
  10
  11  static int
  12 z_wSL(void)
  13 {
  14         while(f__recpos < f__svic->icirlen)
  15                 z_putc(' ');
  16         return z_rnew();
  17         }
  18
  19  static void
  20 c_liw(icilist *a)
  21 {
  22         f__reading = 0;
  23         f__external = 0;
  24         f__formatted = 1;
  25         f__putn = z_putc;
  26         L_len = a->icirlen;
  27         f__donewrec = z_wSL;
  28         f__svic = a;
  29         f__icnum = f__recpos = 0;
  30         f__cursor = 0;
  31         f__cf = 0;
  32         f__curunit = 0;
  33         f__icptr = a->iciunit;
  34         f__icend = f__icptr + a->icirlen*a->icirnum;
  35         f__elist = (cilist *)a;
  36         }
  37
  38  integer
  39 s_wsni(icilist *a)
  40 {
  41         cilist ca;
  42
  43         if(f__init != 1) f_init();
  44         f__init = 3;
  45         c_liw(a);
  46         ca.cifmt = a->icifmt;
  47         x_wsne(&ca);
  48         z_wSL();
  49         return 0;
  50         }
  51
  52  integer
  53 s_wsli(icilist *a)
  54 {
  55         if(f__init != 1) f_init();
  56         f__init = 3;
  57         f__lioproc = l_write;
  58         c_liw(a);
  59         return(0);
  60         }
  61
  62 integer e_wsli(void)
  63 {
  64         f__init = 1;
  65         z_wSL();
  66         return(0);
  67         }