Initial (actually preliminary) version of an `fdcontrol' program.

[unix-history] / lib / libI77 / uio.c

#include "f2c.h"
#include "fio.h"
uiolen f__reclen;

#ifdef KR_headers
do_us(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
#else
do_us(ftnint *number, char *ptr, ftnlen len)
#endif
{
       if(f__reading)
       {
               f__recpos += (int)(*number * len);
               if(f__recpos>f__reclen)
                       err(f__elist->cierr, 110, "do_us");
               if (fread(ptr,(int)len,(int)(*number),f__cf) != *number)
                       err(f__elist->ciend, EOF, "do_us");
               return(0);
       }
       else
       {
               f__reclen += *number * len;
               (void) fwrite(ptr,(int)len,(int)(*number),f__cf);
               return(0);
       }
}
#ifdef KR_headers
integer do_ud(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
#else
integer do_ud(ftnint *number, char *ptr, ftnlen len)
#endif
{
       f__recpos += (int)(*number * len);
       if(f__recpos > f__curunit->url && f__curunit->url!=1)
               err(f__elist->cierr,110,"do_ud");
       if(f__reading)
       {
               if(fread(ptr,(int)len,(int)(*number),f__cf) != *number)
                       err(f__elist->cierr,EOF,"do_ud")
               else return(0);
       }
       (void) fwrite(ptr,(int)len,(int)(*number),f__cf);
       return(0);
}
#ifdef KR_headers
integer do_uio(number,ptr,len) ftnint *number; char *ptr; ftnlen len;
#else
integer do_uio(ftnint *number, char *ptr, ftnlen len)
#endif
{
       if(f__sequential)
               return(do_us(number,ptr,len));
       else    return(do_ud(number,ptr,len));
}