ftell64_.c - libf2c2 (HEAD)

Tree @HEAD (Download .tar.gz)

debian
.gitignore
abort_.c
arithchk.c
backspac.c
c_abs.c
c_cos.c
c_div.c
c_exp.c
c_log.c
c_sin.c
c_sqrt.c
cabs.c
close.c
comptry.bat
ctype.c
ctype.h
d_abs.c
d_acos.c
d_asin.c
d_atan.c
d_atn2.c
d_cnjg.c
d_cos.c
d_cosh.c
d_dim.c
d_exp.c
d_imag.c
d_int.c
d_lg10.c
d_log.c
d_mod.c
d_nint.c
d_prod.c
d_sign.c
d_sin.c
d_sinh.c
d_sqrt.c
d_tan.c
d_tanh.c
derf_.c
derfc_.c
dfe.c
dolio.c
dtime_.c
due.c
ef1asc_.c
ef1cmc_.c
endfile.c
erf_.c
erfc_.c
err.c
etime_.c
exit_.c
f2c.h0
f2ch.add
f77_aloc.c
f77vers.c
fio.h
fmt.c
fmt.h
fmtlib.c
fp.h
ftell64_.c
ftell_.c
getarg_.c
getenv_.c
h_abs.c
h_dim.c
h_dnnt.c
h_indx.c
h_len.c
h_mod.c
h_nint.c
h_sign.c
hl_ge.c
hl_gt.c
hl_le.c
hl_lt.c
i77vers.c
i_abs.c
i_dim.c
i_dnnt.c
i_indx.c
i_len.c
i_mod.c
i_nint.c
i_sign.c
iargc_.c
iio.c
ilnw.c
inquire.c
l_ge.c
l_gt.c
l_le.c
l_lt.c
lbitbits.c
lbitshft.c
libf2c.lbc
libf2c.sy
lio.h
lread.c
lwrite.c
main.c
makefile.sy
makefile.u
makefile.vc
makefile.wat
math.hvc
mkfile.plan9
Notice
open.c
pow_ci.c
pow_dd.c
pow_di.c
pow_hh.c
pow_ii.c
pow_qq.c
pow_ri.c
pow_zi.c
pow_zz.c
qbitbits.c
qbitshft.c
r_abs.c
r_acos.c
r_asin.c
r_atan.c
r_atn2.c
r_cnjg.c
r_cos.c
r_cosh.c
r_dim.c
r_exp.c
r_imag.c
r_int.c
r_lg10.c
r_log.c
r_mod.c
r_nint.c
r_sign.c
r_sin.c
r_sinh.c
r_sqrt.c
r_tan.c
r_tanh.c
rawio.h
rdfmt.c
README
rewind.c
rsfe.c
rsli.c
rsne.c
s_cat.c
s_cmp.c
s_copy.c
s_paus.c
s_rnge.c
s_stop.c
scomptry.bat
sfe.c
sig_die.c
signal1.h0
signal_.c
signbit.c
sue.c
sysdep1.h0
system_.c
typesize.c
uio.c
uninit.c
util.c
wref.c
wrtfmt.c
wsfe.c
wsle.c
wsne.c
xsum0.out
xwsne.c
z_abs.c
z_cos.c
z_div.c
z_exp.c
z_log.c
z_sin.c
z_sqrt.c

ftell64_.c @HEAD — raw · history · blame

#include "f2c.h"
#include "fio.h"
#ifdef __cplusplus
extern "C" {
#endif

 static FILE *
#ifdef KR_headers
unit_chk(Unit, who) integer Unit; char *who;
#else
unit_chk(integer Unit, char *who)
#endif
{
	if (Unit >= MXUNIT || Unit < 0)
		f__fatal(101, who);
	return f__units[Unit].ufd;
	}

 longint
#ifdef KR_headers
ftell64_(Unit) integer *Unit;
#else
ftell64_(integer *Unit)
#endif
{
	FILE *f;
	return (f = unit_chk(*Unit, "ftell")) ? FTELL(f) : -1L;
	}

 int
#ifdef KR_headers
fseek64_(Unit, offset, whence) integer *Unit, *whence; longint *offset;
#else
fseek64_(integer *Unit, longint *offset, integer *whence)
#endif
{
	FILE *f;
	int w = (int)*whence;
#ifdef SEEK_SET
	static int wohin[3] = { SEEK_SET, SEEK_CUR, SEEK_END };
#endif
	if (w < 0 || w > 2)
		w = 0;
#ifdef SEEK_SET
	w = wohin[w];
#endif
	return	!(f = unit_chk(*Unit, "fseek"))
		|| FSEEK(f, (OFF_T)*offset, w) ? 1 : 0;
	}
#ifdef __cplusplus
}
#endif