1 76193d7c 2003-09-30 devnull #include "mk.h"
4 76193d7c 2003-09-30 devnull ENVQUANTA=10
7 76193d7c 2003-09-30 devnull Envy *envy;
8 76193d7c 2003-09-30 devnull static int nextv;
10 76193d7c 2003-09-30 devnull static char *myenv[] =
12 76193d7c 2003-09-30 devnull "target",
14 76193d7c 2003-09-30 devnull "prereq",
17 76193d7c 2003-09-30 devnull "newprereq",
18 76193d7c 2003-09-30 devnull "alltarget",
19 76193d7c 2003-09-30 devnull "newmember",
20 76193d7c 2003-09-30 devnull "stem0", /* must be in order from here */
34 76193d7c 2003-09-30 devnull initenv(void)
36 76193d7c 2003-09-30 devnull char **p;
38 76193d7c 2003-09-30 devnull for(p = myenv; *p; p++)
39 76193d7c 2003-09-30 devnull symlook(*p, S_INTERNAL, (void *)"");
40 76193d7c 2003-09-30 devnull readenv(); /* o.s. dependent */
43 76193d7c 2003-09-30 devnull static void
44 76193d7c 2003-09-30 devnull envinsert(char *name, Word *value)
46 76193d7c 2003-09-30 devnull static int envsize;
48 76193d7c 2003-09-30 devnull if (nextv >= envsize) {
49 76193d7c 2003-09-30 devnull envsize += ENVQUANTA;
50 76193d7c 2003-09-30 devnull envy = (Envy *) Realloc((char *) envy, envsize*sizeof(Envy));
52 76193d7c 2003-09-30 devnull envy[nextv].name = name;
53 76193d7c 2003-09-30 devnull envy[nextv++].values = value;
56 76193d7c 2003-09-30 devnull static void
57 76193d7c 2003-09-30 devnull envupd(char *name, Word *value)
61 76193d7c 2003-09-30 devnull for(e = envy; e->name; e++)
62 76193d7c 2003-09-30 devnull if(strcmp(name, e->name) == 0){
63 76193d7c 2003-09-30 devnull delword(e->values);
64 76193d7c 2003-09-30 devnull e->values = value;
67 76193d7c 2003-09-30 devnull e->name = name;
68 76193d7c 2003-09-30 devnull e->values = value;
69 76193d7c 2003-09-30 devnull envinsert(0,0);
72 76193d7c 2003-09-30 devnull static void
73 76193d7c 2003-09-30 devnull ecopy(Symtab *s)
75 76193d7c 2003-09-30 devnull char **p;
77 76193d7c 2003-09-30 devnull if(symlook(s->name, S_NOEXPORT, 0))
79 76193d7c 2003-09-30 devnull for(p = myenv; *p; p++)
80 76193d7c 2003-09-30 devnull if(strcmp(*p, s->name) == 0)
82 76193d7c 2003-09-30 devnull envinsert(s->name, (Word *) s->value);
86 76193d7c 2003-09-30 devnull execinit(void)
88 76193d7c 2003-09-30 devnull char **p;
90 76193d7c 2003-09-30 devnull nextv = 0;
91 76193d7c 2003-09-30 devnull for(p = myenv; *p; p++)
92 76193d7c 2003-09-30 devnull envinsert(*p, stow(""));
94 76193d7c 2003-09-30 devnull symtraverse(S_VAR, ecopy);
95 76193d7c 2003-09-30 devnull envinsert(0, 0);
99 76193d7c 2003-09-30 devnull buildenv(Job *j, int slot)
101 76193d7c 2003-09-30 devnull char **p, *cp, *qp;
102 76193d7c 2003-09-30 devnull Word *w, *v, **l;
104 76193d7c 2003-09-30 devnull char buf[256];
106 76193d7c 2003-09-30 devnull envupd("target", wdup(j->t));
107 76193d7c 2003-09-30 devnull if(j->r->attr®EXP)
108 76193d7c 2003-09-30 devnull envupd("stem",newword(""));
110 76193d7c 2003-09-30 devnull envupd("stem", newword(j->stem));
111 76193d7c 2003-09-30 devnull envupd("prereq", wdup(j->p));
112 76193d7c 2003-09-30 devnull sprint(buf, "%d", getpid());
113 76193d7c 2003-09-30 devnull envupd("pid", newword(buf));
114 76193d7c 2003-09-30 devnull sprint(buf, "%d", slot);
115 76193d7c 2003-09-30 devnull envupd("nproc", newword(buf));
116 76193d7c 2003-09-30 devnull envupd("newprereq", wdup(j->np));
117 76193d7c 2003-09-30 devnull envupd("alltarget", wdup(j->at));
119 76193d7c 2003-09-30 devnull v = w = wdup(j->np);
120 76193d7c 2003-09-30 devnull while(w){
121 76193d7c 2003-09-30 devnull cp = strchr(w->s, '(');
123 76193d7c 2003-09-30 devnull qp = strchr(cp+1, ')');
125 76193d7c 2003-09-30 devnull *qp = 0;
126 76193d7c 2003-09-30 devnull strcpy(w->s, cp+1);
127 76193d7c 2003-09-30 devnull l = &w->next;
128 76193d7c 2003-09-30 devnull w = w->next;
129 76193d7c 2003-09-30 devnull continue;
132 76193d7c 2003-09-30 devnull *l = w->next;
133 76193d7c 2003-09-30 devnull free(w->s);
134 76193d7c 2003-09-30 devnull free(w);
137 76193d7c 2003-09-30 devnull envupd("newmember", v);
138 76193d7c 2003-09-30 devnull /* update stem0 -> stem9 */
139 76193d7c 2003-09-30 devnull for(p = myenv; *p; p++)
140 76193d7c 2003-09-30 devnull if(strcmp(*p, "stem0") == 0)
142 76193d7c 2003-09-30 devnull for(i = 0; *p; i++, p++){
143 76193d7c 2003-09-30 devnull if((j->r->attr®EXP) && j->match[i])
144 76193d7c 2003-09-30 devnull envupd(*p, newword(j->match[i]));
146 76193d7c 2003-09-30 devnull envupd(*p, newword(""));
148 76193d7c 2003-09-30 devnull return envy;