source: buchla-68k/orig/LATTICE/GETENV.C@ cbe2c15

Last change on this file since cbe2c15 was 3ae31e9, checked in by Thomas Lopatic <thomas@…>, 8 years ago

Imported original source code.

  • Property mode set to 100755
File size: 823 bytes
RevLine 
[3ae31e9]1#include "stdio.h"
2#include "ctype.h"
3#include "osbind.h"
4
5#define TRUE 1
6#define FALSE 0
7
8struct 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
24extern struct basepage *_BasePag;
25
26/* locate variable name in environment string */
27
28static
29char *
30findenv(s)
31char *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
57char *
58getenv(name)
59char *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.