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/system_.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/system_.c')
-rw-r--r-- | Build/source/utils/pmx/pmx-2.6.18/libf2c/system_.c | 42 |
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 |