diff options
author | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-01-18 08:05:40 +0000 |
---|---|---|
committer | Peter Breitenlohner <peb@mppmu.mpg.de> | 2013-01-18 08:05:40 +0000 |
commit | 1edf6b64eb5ea6b65099076e92bccb6a90d2d88b (patch) | |
tree | d48cc72a02cb4ee2c9203876e21a15acaacc12cd /Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell_.c | |
parent | 8118b1b3be31a537d3c5f622f817a75a10c27741 (diff) |
pmx 2.6.19
git-svn-id: svn://tug.org/texlive/trunk@28860 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell_.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell_.c | 52 |
1 files changed, 0 insertions, 52 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell_.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell_.c deleted file mode 100644 index be9f2871086..00000000000 --- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell_.c +++ /dev/null @@ -1,52 +0,0 @@ -#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; - } - - 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 |