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 #ifdef KR_headers
  10 extern void z_putc();
  11 #else
  12 extern void z_putc(int);
  13 #endif
  14
  15  static int
  16 z_wSL(Void)
  17 {
  18         while(f__recpos < f__svic->icirlen)
  19                 z_putc(' ');
  20         return z_rnew();
  21         }
  22
  23  static void
  24 #ifdef KR_headers
  25 c_liw(a) icilist *a;
  26 #else
  27 c_liw(icilist *a)
  28 #endif
  29 {
  30         f__reading = 0;
  31         f__external = 0;
  32         f__formatted = 1;
  33         f__putn = z_putc;
  34         L_len = a->icirlen;
  35         f__donewrec = z_wSL;
  36         f__svic = a;
  37         f__icnum = f__recpos = 0;
  38         f__cursor = 0;
  39         f__cf = 0;
  40         f__curunit = 0;
  41         f__icptr = a->iciunit;
  42         f__icend = f__icptr + a->icirlen*a->icirnum;
  43         f__elist = (cilist *)a;
  44         }
  45
  46  integer
  47 #ifdef KR_headers
  48 s_wsni(a) icilist *a;
  49 #else
  50 s_wsni(icilist *a)
  51 #endif
  52 {
  53         cilist ca;
  54
  55         if(f__init != 1) f_init();
  56         f__init = 3;
  57         c_liw(a);
  58         ca.cifmt = a->icifmt;
  59         x_wsne(&ca);
  60         z_wSL();
  61         return 0;
  62         }
  63
  64  integer
  65 #ifdef KR_headers
  66 s_wsli(a) icilist *a;
  67 #else
  68 s_wsli(icilist *a)
  69 #endif
  70 {
  71         if(f__init != 1) f_init();
  72         f__init = 3;
  73         f__lioproc = l_write;
  74         c_liw(a);
  75         return(0);
  76         }
  77
  78 integer e_wsli(Void)
  79 {
  80         f__init = 1;
  81         z_wSL();
  82         return(0);
  83         }