blob: 72bbcd20bf8cfb112dfabfe64746457e23ca1f24 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
|
/* getenv( const char * )
This file is part of the Public Domain C Library (PDCLib).
Permission is granted to use, modify, and / or redistribute at will.
*/
/* This is an example implementation of getenv() fit for use with POSIX kernels.
*/
#include <string.h>
#include <stdlib.h>
#ifndef REGTEST
extern char * * environ;
char * getenv( const char * name )
{
size_t len = strlen( name );
size_t index = 0;
while ( environ[ index ] != NULL )
{
if ( strncmp( environ[ index ], name, len ) == 0 )
{
return environ[ index ] + len + 1;
}
index++;
}
return NULL;
}
#endif
#ifdef TEST
#include "_PDCLIB_test.h"
int main( void )
{
TESTCASE( strcmp( getenv( "SHELL" ), "/bin/bash" ) == 0 );
/* TESTCASE( strcmp( getenv( "SHELL" ), "/bin/sh" ) == 0 ); */
return TEST_RESULTS;
}
#endif
|
