Return to uio.c CVS log

Up to [Research Unix] / researchv10dc / libI77

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

1.1     ! root        1: #include "f2c.h"
        !             2: #include "fio.h"
        !             3: uiolen f__reclen;
        !             4: 
        !             5: #ifdef KR_headers
        !             6: do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
        !             7: #else
        !             8: do_us(ftnint *number, char *ptr, ftnlen len)
        !             9: #endif
        !            10: {
        !            11:        if(f__reading)
        !            12:        {
        !            13:                f__recpos += (int)(*number * len);
        !            14:                if(f__recpos>f__reclen)
        !            15:                        err(f__elist->cierr, 110, "do_us");
        !            16:                if (fread(ptr,(int)len,(int)(*number),f__cf) != *number)
        !            17:                        err(f__elist->ciend, EOF, "do_us");
        !            18:                return(0);
        !            19:        }
        !            20:        else
        !            21:        {
        !            22:                f__reclen += *number * len;
        !            23:                (void) fwrite(ptr,(int)len,(int)(*number),f__cf);
        !            24:                return(0);
        !            25:        }
        !            26: }
        !            27: #ifdef KR_headers
        !            28: integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
        !            29: #else
        !            30: integer do_ud(ftnint *number, char *ptr, ftnlen len)
        !            31: #endif
        !            32: {
        !            33:        f__recpos += (int)(*number * len);
        !            34:        if(f__recpos > f__curunit->url && f__curunit->url!=1)
        !            35:                err(f__elist->cierr,110,"do_ud");
        !            36:        if(f__reading)
        !            37:        {
        !            38:                if(fread(ptr,(int)len,(int)(*number),f__cf) != *number)
        !            39:                        err(f__elist->cierr,EOF,"do_ud")
        !            40:                else return(0);
        !            41:        }
        !            42:        (void) fwrite(ptr,(int)len,(int)(*number),f__cf);
        !            43:        return(0);
        !            44: }
        !            45: #ifdef KR_headers
        !            46: integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
        !            47: #else
        !            48: integer do_uio(ftnint *number, char *ptr, ftnlen len)
        !            49: #endif
        !            50: {
        !            51:        if(f__sequential)
        !            52:                return(do_us(number,ptr,len));
        !            53:        else    return(do_ud(number,ptr,len));
        !            54: }

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