summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell64_.c
diff options
context:
space:
mode:
authorPeter Breitenlohner <peb@mppmu.mpg.de>2013-01-18 08:05:40 +0000
committerPeter Breitenlohner <peb@mppmu.mpg.de>2013-01-18 08:05:40 +0000
commit1edf6b64eb5ea6b65099076e92bccb6a90d2d88b (patch)
treed48cc72a02cb4ee2c9203876e21a15acaacc12cd /Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell64_.c
parent8118b1b3be31a537d3c5f622f817a75a10c27741 (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/ftell64_.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell64_.c52
1 files changed, 0 insertions, 52 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell64_.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell64_.c
deleted file mode 100644
index 9cc00cba8b9..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/ftell64_.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;
- }
-
- 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