Return to uio.c CVS log

Up to [Research Unix] / researchv8dc / libI77

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

1.1     ! root        1: /*     @(#)uio.c       1.2     */
        !             2: /*     3.0 SID #       1.2     */
        !             3: #include "fio.h"
        !             4: int reclen;
        !             5: do_us(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
        !             6: {
        !             7:        if(reading)
        !             8:        {
        !             9:                recpos += *number * len;
        !            10:                if(recpos>reclen)
        !            11:                {
        !            12:                        err(elist->ciend,(-1), "eof/uio");
        !            13:                }
        !            14:                (void) fread(ptr,(int)len,(int)(*number),cf);
        !            15:                return(0);
        !            16:        }
        !            17:        else
        !            18:        {
        !            19:                reclen += *number * len;
        !            20:                (void) fwrite(ptr,(int)len,(int)(*number),cf);
        !            21:                return(0);
        !            22:        }
        !            23: }
        !            24: do_uio(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
        !            25: {
        !            26:        if(sequential)
        !            27:                return(do_us(number,ptr,len));
        !            28:        else    return(do_ud(number,ptr,len));
        !            29: }
        !            30: do_ud(number,ptr,len) ftnint *number; ftnlen len; char *ptr;
        !            31: {
        !            32:        recpos += *number * len;
        !            33:        if(recpos > curunit->url && curunit->url!=1)
        !            34:                err(elist->cierr,110,"eof/uio");
        !            35:        if(reading)
        !            36:        {
        !            37:                if(fread(ptr,(int)len,(int)(*number),cf)
        !            38:                        != *number)
        !            39:                        err(elist->cierr,27,"eof/uio")
        !            40:                else return(0);
        !            41:        }
        !            42:        (void) fwrite(ptr,(int)len,(int)(*number),cf);
        !            43:        return(0);
        !            44: }

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