ilnw.c
Go to the documentation of this file.
00001 #include "f2c.h"
00002 #include "fio.h"
00003 #include "lio.h"
00004 #ifdef __cplusplus
00005 extern "C" {
00006 #endif
00007 extern char *f__icptr;
00008 extern char *f__icend;
00009 extern icilist *f__svic;
00010 extern int f__icnum;
00011 #ifdef KR_headers
00012 extern void z_putc();
00013 #else
00014 extern void z_putc(int);
00015 #endif
00016 
00017  static int
00018 z_wSL(Void)
00019 {
00020         while(f__recpos < f__svic->icirlen)
00021                 z_putc(' ');
00022         return z_rnew();
00023         }
00024 
00025  static void
00026 #ifdef KR_headers
00027 c_liw(a) icilist *a;
00028 #else
00029 c_liw(icilist *a)
00030 #endif
00031 {
00032         f__reading = 0;
00033         f__external = 0;
00034         f__formatted = 1;
00035         f__putn = z_putc;
00036         L_len = a->icirlen;
00037         f__donewrec = z_wSL;
00038         f__svic = a;
00039         f__icnum = f__recpos = 0;
00040         f__cursor = 0;
00041         f__cf = 0;
00042         f__curunit = 0;
00043         f__icptr = a->iciunit;
00044         f__icend = f__icptr + a->icirlen*a->icirnum;
00045         f__elist = (cilist *)a;
00046         }
00047 
00048  integer
00049 #ifdef KR_headers
00050 s_wsni(a) icilist *a;
00051 #else
00052 s_wsni(icilist *a)
00053 #endif
00054 {
00055         cilist ca;
00056 
00057         c_liw(a);
00058         ca.cifmt = a->icifmt;
00059         x_wsne(&ca);
00060         z_wSL();
00061         return 0;
00062         }
00063 
00064  integer
00065 #ifdef KR_headers
00066 s_wsli(a) icilist *a;
00067 #else
00068 s_wsli(icilist *a)
00069 #endif
00070 {
00071         f__lioproc = l_write;
00072         c_liw(a);
00073         return(0);
00074         }
00075 
00076 integer e_wsli(Void)
00077 {
00078         z_wSL();
00079         return(0);
00080         }
00081 #ifdef __cplusplus
00082 }
00083 #endif


swiftnav
Author(s):
autogenerated on Sat Jun 8 2019 18:55:50