toolchain/gcc/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)
  44     f_init ();
  45   f__init = 3;
  46   c_liw (a);
  47   ca.cifmt = a->icifmt;
  48   x_wsne (&ca);
  49   z_wSL ();
  50   return 0;
  51 }
  52
  53 integer
  54 s_wsli (icilist * a)
  55 {
  56   if (f__init != 1)
  57     f_init ();
  58   f__init = 3;
  59   f__lioproc = l_write;
  60   c_liw (a);
  61   return (0);
  62 }
  63
  64 integer
  65 e_wsli (void)
  66 {
  67   f__init = 1;
  68   z_wSL ();
  69   return (0);
  70 }