7 do_us(number
,ptr
,len
) ftnint
*number
; char *ptr
; ftnlen len
;
9 do_us(ftnint
*number
, char *ptr
, ftnlen len
)
14 f__recpos
+= (int)(*number
* len
);
15 if(f__recpos
>f__reclen
)
16 err(f__elist
->cierr
, 110, "do_us");
17 if (fread(ptr
,(size_t)len
,(size_t)(*number
),f__cf
) != *number
)
18 err(f__elist
->ciend
, EOF
, "do_us");
23 f__reclen
+= *number
* len
;
24 (void) fwrite(ptr
,(size_t)len
,(size_t)(*number
),f__cf
);
29 integer
do_ud(number
,ptr
,len
) ftnint
*number
; char *ptr
; ftnlen len
;
31 integer
do_ud(ftnint
*number
, char *ptr
, ftnlen len
)
34 f__recpos
+= (int)(*number
* len
);
35 if(f__recpos
> f__curunit
->url
&& f__curunit
->url
!=1)
36 err(f__elist
->cierr
,110,"do_ud");
45 if (!(i
= fread(ptr
,(size_t)len
,(size_t)(*number
),f__cf
))
46 && !(f__recpos
- *number
*len
))
47 err(f__elist
->cierr
,EOF
,"do_ud");
49 memset(ptr
+ i
*len
, 0, (*number
- i
)*len
);
52 if(fread(ptr
,(size_t)len
,(size_t)(*number
),f__cf
) != *number
)
53 err(f__elist
->cierr
,EOF
,"do_ud");
57 (void) fwrite(ptr
,(size_t)len
,(size_t)(*number
),f__cf
);
61 integer
do_uio(number
,ptr
,len
) ftnint
*number
; char *ptr
; ftnlen len
;
63 integer
do_uio(ftnint
*number
, char *ptr
, ftnlen len
)
67 return(do_us(number
,ptr
,len
));
68 else return(do_ud(number
,ptr
,len
));