Context Navigation

GETENV.C

Last change on this file was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 7 years ago
Imported original source code.
Property mode set to `100755`
File size: 823 bytes

Line
1	#include "stdio.h"
2	#include "ctype.h"
3	#include "osbind.h"
4
5	#define TRUE 1
6	#define FALSE 0
7
8	struct basepage {
9
10	char *ltpa;
11	char *htpa;
12	char *lcode;
13	long codelen;
14	char *ldata;
15	long datalen;
16	char *lbss;
17	long bsslen;
18	char *dta;
19	char *parent;
20	long rsvd;
21	char *env;
22	};
23
24	extern struct basepage *_BasePag;
25
26	/* locate variable name in environment string */
27
28	static
29	char *
30	findenv(s)
31	char *s;
32	{
33	char name[20];
34	char *p;
35
36	if (s) {
37
38	strcpy(name, s);
39	strcat(name, "=");
40	}
41
42	for (p = _BasePag->env; *p; p++) {
43
44	if (s) {
45
46	if (strcmp(p, name) == 0)
47	break;
48	}
49
50	while (*p)
51	p++;
52	}
53
54	return(p);
55	}
56
57	char *
58	getenv(name)
59	char *name;
60	{
61	char *p;
62
63	p = findenv(name);
64
65	if (*p) {
66
67	while (*p)
68	p++;
69
70	return(++p);
71	}
72
73	return(NULL);
74	}

Note: See TracBrowser for help on using the repository browser.