Doxygen Source Code Documentation
getenv_.c File Reference
#include "f2c.h"Go to the source code of this file.
Functions | |
| void | getenv_ (char *fname, char *value, ftnlen flen, ftnlen vlen) |
Function Documentation
|
||||||||||||||||||||
|
Definition at line 18 of file getenv_.c. References ep.
00020 {
00021 extern char **environ;
00022 register char *ep, *fp, *flast;
00023 register char **env = environ;
00024
00025 flast = fname + flen;
00026 for(fp = fname ; fp < flast ; ++fp)
00027 if(*fp == ' ')
00028 {
00029 flast = fp;
00030 break;
00031 }
00032
00033 while (ep = *env++)
00034 {
00035 for(fp = fname; fp<flast ; )
00036 if(*fp++ != *ep++)
00037 goto endloop;
00038
00039 if(*ep++ == '=') { /* copy right hand side */
00040 while( *ep && --vlen>=0 )
00041 *value++ = *ep++;
00042
00043 goto blank;
00044 }
00045 endloop: ;
00046 }
00047
00048 blank:
00049 while( --vlen >= 0 )
00050 *value++ = ' ';
00051 }
|