1 files changed, 70 insertions, 0 deletions
diff --git a/libf2c/libI77/ilnw.c b/libf2c/libI77/ilnw.c
new file mode 100644
index 0000000..0a92a0c
--- /dev/null
+++ b/libf2c/libI77/ilnw.c
@@ -0,0 +1,70 @@
+#include "config.h"
+#include "f2c.h"
+#include "fio.h"
+#include "lio.h"
+extern char *f__icptr;
+extern char *f__icend;
+extern icilist *f__svic;
+extern int f__icnum;
+extern void z_putc (int);
+
+static int
+z_wSL (void)
+{
+  while (f__recpos < f__svic->icirlen)
+    z_putc (' ');
+  return z_rnew ();
+}
+
+static void
+c_liw (icilist * a)
+{
+  f__reading = 0;
+  f__external = 0;
+  f__formatted = 1;
+  f__putn = z_putc;
+  L_len = a->icirlen;
+  f__donewrec = z_wSL;
+  f__svic = a;
+  f__icnum = f__recpos = 0;
+  f__cursor = 0;
+  f__cf = 0;
+  f__curunit = 0;
+  f__icptr = a->iciunit;
+  f__icend = f__icptr + a->icirlen * a->icirnum;
+  f__elist = (cilist *) a;
+}
+
+integer
+s_wsni (icilist * a)
+{
+  cilist ca;
+
+  if (f__init != 1)
+    f_init ();
+  f__init = 3;
+  c_liw (a);
+  ca.cifmt = a->icifmt;
+  x_wsne (&ca);
+  z_wSL ();
+  return 0;
+}
+
+integer
+s_wsli (icilist * a)
+{
+  if (f__init != 1)
+    f_init ();
+  f__init = 3;
+  f__lioproc = l_write;
+  c_liw (a);
+  return (0);
+}
+
+integer
+e_wsli (void)
+{
+  f__init = 1;
+  z_wSL ();
+  return (0);
+}