Return to rewind.c CVS log

Up to [Research Unix] / researchv10dc / libI77

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

1.1     ! root        1: #include "f2c.h"
        !             2: #include "fio.h"
        !             3: #ifdef KR_headers
        !             4: integer f_rew(a) alist *a;
        !             5: #else
        !             6: integer f_rew(alist *a)
        !             7: #endif
        !             8: {
        !             9:        unit *b;
        !            10:        if(a->aunit>=MXUNIT || a->aunit<0)
        !            11:                err(a->aerr,101,"rewind");
        !            12:        b = &f__units[a->aunit];
        !            13:        if(b->ufd == NULL || b->uwrt == 3)
        !            14:                return(0);
        !            15:        if(!b->useek)
        !            16:                err(a->aerr,106,"rewind")
        !            17:        if(b->uwrt) {
        !            18:                (void) t_runc(a);
        !            19:                b->uwrt = 3;
        !            20:                }
        !            21:        rewind(b->ufd);
        !            22:        b->uend=0;
        !            23:        return(0);
        !            24: }

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