diff options
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.17/libf2c/uio.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.17/libf2c/uio.c | 75 |
1 files changed, 0 insertions, 75 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.17/libf2c/uio.c b/Build/source/utils/pmx/pmx-2.6.17/libf2c/uio.c deleted file mode 100644 index 44f768d9a24..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.17/libf2c/uio.c +++ /dev/null @@ -1,75 +0,0 @@ -#include "f2c.h" -#include "fio.h" -#ifdef __cplusplus -extern "C" { -#endif -uiolen f__reclen; - - int -#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) - { -#ifdef Pad_UDread -#ifdef KR_headers - int i; -#else - size_t i; -#endif - if (!(i = fread(ptr,(int)len,(int)(*number),f__cf)) - && !(f__recpos - *number*len)) - err(f__elist->cierr,EOF,"do_ud") - if (i < *number) - memset(ptr + i*len, 0, (*number - i)*len); - return 0; -#else - if(fread(ptr,(int)len,(int)(*number),f__cf) != *number) - err(f__elist->cierr,EOF,"do_ud") - else return(0); -#endif - } - (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)); -} -#ifdef __cplusplus -} -#endif |