Imported gcc-4.4.3

[msp430-gcc.git] / libf2c / libF77 / getenv_.c

diff --git a/libf2c/libF77/getenv_.c b/libf2c/libF77/getenv_.c
deleted file mode 100644 (file)
index 4d0b7cf..0000000
--- a/libf2c/libF77/getenv_.c
+++ /dev/null
@@ -1,56 +0,0 @@
-#include "f2c.h"
-#undef abs
-#ifdef KR_headers
-extern char *F77_aloc(), *getenv();
-#else
-#include <stdlib.h>
-#include <string.h>
-extern char *F77_aloc(ftnlen, char*);
-#endif
-
-/*
- * getenv - f77 subroutine to return environment variables
- *
- * called by:
- *     call getenv (ENV_NAME, char_var)
- * where:
- *     ENV_NAME is the name of an environment variable
- *     char_var is a character variable which will receive
- *             the current value of ENV_NAME, or all blanks
- *             if ENV_NAME is not defined
- */
-
-#ifdef KR_headers
- VOID
-G77_getenv_0 (fname, value, flen, vlen) char *value, *fname; ftnlen vlen, flen;
-#else
- void
-G77_getenv_0 (char *fname, char *value, ftnlen flen, ftnlen vlen)
-#endif
-{
-       char buf[256], *ep, *fp;
-       integer i;
-
-       if (flen <= 0)
-               goto add_blanks;
-       for(i = 0; i < sizeof(buf); i++) {
-               if (i == flen || (buf[i] = fname[i]) == ' ') {
-                       buf[i] = 0;
-                       ep = getenv(buf);
-                       goto have_ep;
-                       }
-               }
-       while(i < flen && fname[i] != ' ')
-               i++;
-       strncpy(fp = F77_aloc(i+1, "getenv_"), fname, (int)i);
-       fp[i] = 0;
-       ep = getenv(fp);
-       free(fp);
- have_ep:
-       if (ep)
-               while(*ep && vlen-- > 0)
-                       *value++ = *ep++;
- add_blanks:
-       while(vlen-- > 0)
-               *value++ = ' ';
-       }