summaryrefslogtreecommitdiff
path: root/Build/source/utils/pmx/pmx-2.6.18/libf2c/system_.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/system_.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/system_.c')
-rw-r--r--Build/source/utils/pmx/pmx-2.6.18/libf2c/system_.c42
1 files changed, 0 insertions, 42 deletions
diff --git a/Build/source/utils/pmx/pmx-2.6.18/libf2c/system_.c b/Build/source/utils/pmx/pmx-2.6.18/libf2c/system_.c
deleted file mode 100644
index 3220bfb5c2d..00000000000
--- a/Build/source/utils/pmx/pmx-2.6.18/libf2c/system_.c
+++ /dev/null
@@ -1,42 +0,0 @@
-/* f77 interface to system routine */
-
-#include "f2c.h"
-
-#ifdef KR_headers
-extern char *F77_aloc();
-
- integer
-system_(s, n) register char *s; ftnlen n;
-#else
-#undef abs
-#undef min
-#undef max
-#include "stdlib.h"
-#ifdef __cplusplus
-extern "C" {
-#endif
-extern char *F77_aloc(ftnlen, char*);
-
- integer
-system_(register char *s, ftnlen n)
-#endif
-{
- char buff0[256], *buff;
- register char *bp, *blast;
- integer rv;
-
- buff = bp = n < sizeof(buff0)
- ? buff0 : F77_aloc(n+1, "system_");
- blast = bp + n;
-
- while(bp < blast && *s)
- *bp++ = *s++;
- *bp = 0;
- rv = system(buff);
- if (buff != buff0)
- free(buff);
- return rv;
- }
-#ifdef __cplusplus
-}
-#endif