diff options
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 |