Return to wsle.c CVS log

Up to [Research Unix] / researchv10dc / libI77

Annotation of researchv10dc/libI77/wsle.c, revision 1.1

1.1     ! root        1: #include "f2c.h"
        !             2: #include "fio.h"
        !             3: #include "fmt.h"
        !             4: #include "lio.h"
        !             5: 
        !             6: #ifdef KR_headers
        !             7: integer s_wsle(a) cilist *a;
        !             8: #else
        !             9: integer s_wsle(cilist *a)
        !            10: #endif
        !            11: {
        !            12:        int n;
        !            13:        if(!f__init) f_init();
        !            14:        if(n=c_le(a)) return(n);
        !            15:        f__reading=0;
        !            16:        f__external=1;
        !            17:        f__formatted=1;
        !            18:        f__putn = t_putc;
        !            19:        f__lioproc = l_write;
        !            20:        L_len = LINE;
        !            21:        f__donewrec = x_wSL;
        !            22:        if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
        !            23:                err(a->cierr, errno, "list output start");
        !            24:        return(0);
        !            25:        }
        !            26: 
        !            27: integer e_wsle(Void)
        !            28: {
        !            29:        t_putc('\n');
        !            30:        f__recpos=0;
        !            31:        if (f__cf == stdout)
        !            32:                fflush(stdout);
        !            33:        else if (f__cf == stderr)
        !            34:                fflush(stderr);
        !            35:        return(0);
        !            36:        }

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