~ubuntu-branches/ubuntu/trusty/libf2c2/trusty

« back to all changes in this revision

Viewing changes to ftell_.c

Committer: Bazaar Package Importer
Author(s): Alan Bain
Date: 2008-05-19 22:50:54 UTC
mfrom: (2.1.4 intrepid)
Revision ID: james.westby@ubuntu.com-20080519225054-jlymia0wdvvfq7dg

Tags: 20061008-4

Remove CVS directory left in source package

files added:
Notice

README

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

debian/compat

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

f2c_master.h

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

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

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

files removed:
f2c.install.h

libF77

libF77/F77_aloc.c

libF77/Notice

libF77/README

libF77/abort_.c

libF77/arithchk.c

libF77/c_abs.c

libF77/c_cos.c

libF77/c_div.c

libF77/c_exp.c

libF77/c_log.c

libF77/c_sin.c

libF77/c_sqrt.c

libF77/cabs.c

libF77/d_abs.c

libF77/d_acos.c

libF77/d_asin.c

libF77/d_atan.c

libF77/d_atn2.c

libF77/d_cnjg.c

libF77/d_cos.c

libF77/d_cosh.c

libF77/d_dim.c

libF77/d_exp.c

libF77/d_imag.c

libF77/d_int.c

libF77/d_lg10.c

libF77/d_log.c

libF77/d_mod.c

libF77/d_nint.c

libF77/d_prod.c

libF77/d_sign.c

libF77/d_sin.c

libF77/d_sinh.c

libF77/d_sqrt.c

libF77/d_tan.c

libF77/d_tanh.c

libF77/derf_.c

libF77/derfc_.c

libF77/dtime_.c

libF77/ef1asc_.c

libF77/ef1cmc_.c

libF77/erf_.c

libF77/erfc_.c

libF77/etime_.c

libF77/exit_.c

libF77/f2ch.add

libF77/f77vers.c

libF77/getarg_.c

libF77/getenv_.c

libF77/h_abs.c

libF77/h_dim.c

libF77/h_dnnt.c

libF77/h_indx.c

libF77/h_len.c

libF77/h_mod.c

libF77/h_nint.c

libF77/h_sign.c

libF77/hl_ge.c

libF77/hl_gt.c

libF77/hl_le.c

libF77/hl_lt.c

libF77/i_abs.c

libF77/i_dim.c

libF77/i_dnnt.c

libF77/i_indx.c

libF77/i_len.c

libF77/i_mod.c

libF77/i_nint.c

libF77/i_sign.c

libF77/iargc_.c

libF77/l_ge.c

libF77/l_gt.c

libF77/l_le.c

libF77/l_lt.c

libF77/lbitbits.c

libF77/lbitshft.c

libF77/libF77.xsum

libF77/main.c

libF77/makefile

libF77/newun.c

libF77/pow_ci.c

libF77/pow_dd.c

libF77/pow_di.c

libF77/pow_hh.c

libF77/pow_ii.c

libF77/pow_qq.c

libF77/pow_ri.c

libF77/pow_zi.c

libF77/pow_zz.c

libF77/qbitbits.c

libF77/qbitshft.c

libF77/r_abs.c

libF77/r_acos.c

libF77/r_asin.c

libF77/r_atan.c

libF77/r_atn2.c

libF77/r_cnjg.c

libF77/r_cos.c

libF77/r_cosh.c

libF77/r_dim.c

libF77/r_exp.c

libF77/r_imag.c

libF77/r_int.c

libF77/r_lg10.c

libF77/r_log.c

libF77/r_mod.c

libF77/r_nint.c

libF77/r_sign.c

libF77/r_sin.c

libF77/r_sinh.c

libF77/r_sqrt.c

libF77/r_tan.c

libF77/r_tanh.c

libF77/s_cat.c

libF77/s_cmp.c

libF77/s_copy.c

libF77/s_paus.c

libF77/s_rnge.c

libF77/s_stop.c

libF77/sig_die.c

libF77/signal1.h

libF77/signal1.h0

libF77/signal_.c

libF77/system_.c

libF77/uninit.c

libF77/z_abs.c

libF77/z_cos.c

libF77/z_div.c

libF77/z_exp.c

libF77/z_log.c

libF77/z_sin.c

libF77/z_sqrt.c

libI77

libI77/Notice

libI77/README

libI77/backspace.c

libI77/close.c

libI77/dfe.c

libI77/dolio.c

libI77/due.c

libI77/endfile.c

libI77/err.c

libI77/f2ch.add

libI77/fio.h

libI77/fmt.c

libI77/fmt.h

libI77/fmtlib.c

libI77/fp.h

libI77/ftell64_.c

libI77/ftell_.c

libI77/i77vers.c

libI77/iio.c

libI77/ilnw.c

libI77/inquire.c

libI77/libI77.xsum

libI77/lio.h

libI77/lread.c

libI77/lwrite.c

libI77/makefile

libI77/open.c

libI77/rawio.h

libI77/rdfmt.c

libI77/rewind.c

libI77/rsfe.c

libI77/rsli.c

libI77/rsne.c

libI77/sfe.c

libI77/signbit.c

libI77/sue.c

libI77/sysdep1.h

libI77/sysdep1.h0

libI77/typesize.c

libI77/uio.c

libI77/util.c

libI77/wref.c

libI77/wrtfmt.c

libI77/wsfe.c

libI77/wsle.c

libI77/wsne.c

libI77/xwsne.c

substvars.libf2c2

files modified:
debian/README.debian

debian/changelog

debian/control

debian/make_lib

debian/rules

Show diffs side-by-side

added added

removed removed

ftell_.c

#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, const char *who)

#endif

{

if (Unit >= MXUNIT || Unit < 0)

f__fatal(101, who);

return f__units[Unit].ufd;

}

integer

#ifdef KR_headers

ftell_(Unit) integer *Unit;

#else

ftell_(integer *Unit)

#endif

{

FILE *f;

return (f = unit_chk(*Unit, "ftell")) ? ftell(f) : -1L;

}

int

#ifdef KR_headers

fseek_(Unit, offset, whence) integer *Unit, *offset, *whence;

#else

fseek_(integer *Unit, integer *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, *offset, w) ? 1 : 0;

}

#ifdef __cplusplus

}

#endif

Older »