Return to due.c CVS log

Up to [Research Unix] / researchv10dc / libI77

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

1.1     ! root        1: #include "f2c.h"
        !             2: #include "fio.h"
        !             3: 
        !             4: #ifdef KR_headers
        !             5: c_due(a) cilist *a;
        !             6: #else
        !             7: c_due(cilist *a)
        !             8: #endif
        !             9: {
        !            10:        if(!f__init) f_init();
        !            11:        if(a->ciunit>=MXUNIT || a->ciunit<0)
        !            12:                err(a->cierr,101,"startio");
        !            13:        f__sequential=f__formatted=f__recpos=0;
        !            14:        f__external=1;
        !            15:        f__curunit = &f__units[a->ciunit];
        !            16:        f__elist=a;
        !            17:        if(f__curunit->ufd==NULL && fk_open(DIR,UNF,a->ciunit) ) err(a->cierr,104,"due");
        !            18:        f__cf=f__curunit->ufd;
        !            19:        if(f__curunit->ufmt) err(a->cierr,102,"cdue")
        !            20:        if(!f__curunit->useek) err(a->cierr,104,"cdue")
        !            21:        if(f__curunit->ufd==NULL) err(a->cierr,114,"cdue")
        !            22:        (void) fseek(f__cf,(long)(a->cirec-1)*f__curunit->url,SEEK_SET);
        !            23:        f__curunit->uend = 0;
        !            24:        return(0);
        !            25: }
        !            26: #ifdef KR_headers
        !            27: integer s_rdue(a) cilist *a;
        !            28: #else
        !            29: integer s_rdue(cilist *a)
        !            30: #endif
        !            31: {
        !            32:        int n;
        !            33:        if(n=c_due(a)) return(n);
        !            34:        f__reading=1;
        !            35:        if(f__curunit->uwrt && f__nowreading(f__curunit))
        !            36:                err(a->cierr,errno,"read start");
        !            37:        return(0);
        !            38: }
        !            39: #ifdef KR_headers
        !            40: integer s_wdue(a) cilist *a;
        !            41: #else
        !            42: integer s_wdue(cilist *a)
        !            43: #endif
        !            44: {
        !            45:        int n;
        !            46:        if(n=c_due(a)) return(n);
        !            47:        f__reading=0;
        !            48:        if(f__curunit->uwrt != 1 && f__nowwriting(f__curunit))
        !            49:                err(a->cierr,errno,"write start");
        !            50:        return(0);
        !            51: }
        !            52: integer e_rdue(Void)
        !            53: {
        !            54:        if(f__curunit->url==1 || f__recpos==f__curunit->url)
        !            55:                return(0);
        !            56:        (void) fseek(f__cf,(long)(f__curunit->url-f__recpos),SEEK_CUR);
        !            57:        if(ftell(f__cf)%f__curunit->url)
        !            58:                err(f__elist->cierr,200,"syserr");
        !            59:        return(0);
        !            60: }
        !            61: integer e_wdue(Void)
        !            62: {
        !            63:        return(e_rdue());
        !            64: }

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