Return to ilnw.c CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/ilnw.c, revision 1.1.1.1

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

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.