← Back to branch summary

~ubuntu-branches/ubuntu/lucid/9base/lucid

« back to all changes in this revision

Viewing changes to mk/env.c

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Baumann
  • Date: 2009-08-20 17:34:06 UTC
  • mfrom: (6.2.2 squeeze)
  • Revision ID: james.westby@ubuntu.com-20090820173406-xpwqa9ruyevvc0ut
Tags: 1:3-3
* Updating maintainer field.
* Updating vcs fields.
* Updating package to standards version 3.8.3.
* Updatin variables writing in rules to consistent style.

Show diffs side-by-side

added added

removed removed

Lines of Context:
mk/env.c
1
 
#include        "mk.h"
2
 
 
3
 
enum {
4
 
        ENVQUANTA=10
5
 
};
6
 
 
7
 
Envy    *envy;
8
 
static int nextv;
9
 
 
10
 
static char     *myenv[] =
11
 
{
12
 
        "target",
13
 
        "stem",
14
 
        "prereq",
15
 
        "pid",
16
 
        "nproc",
17
 
        "newprereq",
18
 
        "alltarget",
19
 
        "newmember",
20
 
        "stem0",                /* must be in order from here */
21
 
        "stem1",
22
 
        "stem2",
23
 
        "stem3",
24
 
        "stem4",
25
 
        "stem5",
26
 
        "stem6",
27
 
        "stem7",
28
 
        "stem8",
29
 
        "stem9",
30
 
        0,
31
 
};
32
 
 
33
 
void
34
 
initenv(void)
35
 
{
36
 
        char **p;
37
 
 
38
 
        for(p = myenv; *p; p++)
39
 
                symlook(*p, S_INTERNAL, (void *)"");
40
 
        readenv();                              /* o.s. dependent */
41
 
}
42
 
 
43
 
static void
44
 
envinsert(char *name, Word *value)
45
 
{
46
 
        static int envsize;
47
 
 
48
 
        if (nextv >= envsize) {
49
 
                envsize += ENVQUANTA;
50
 
                envy = (Envy *) Realloc((char *) envy, envsize*sizeof(Envy));
51
 
        }
52
 
        envy[nextv].name = name;
53
 
        envy[nextv++].values = value;
54
 
}
55
 
 
56
 
static void
57
 
envupd(char *name, Word *value)
58
 
{
59
 
        Envy *e;
60
 
 
61
 
        for(e = envy; e->name; e++)
62
 
                if(strcmp(name, e->name) == 0){
63
 
                        delword(e->values);
64
 
                        e->values = value;
65
 
                        return;
66
 
                }
67
 
        e->name = name;
68
 
        e->values = value;
69
 
        envinsert(0,0);
70
 
}
71
 
 
72
 
static void
73
 
ecopy(Symtab *s)
74
 
{
75
 
        char **p;
76
 
 
77
 
        if(symlook(s->name, S_NOEXPORT, 0))
78
 
                return;
79
 
        for(p = myenv; *p; p++)
80
 
                if(strcmp(*p, s->name) == 0)
81
 
                        return;
82
 
        envinsert(s->name, (Word *) s->value);
83
 
}
84
 
 
85
 
void
86
 
execinit(void)
87
 
{
88
 
        char **p;
89
 
 
90
 
        nextv = 0;
91
 
        for(p = myenv; *p; p++)
92
 
                envinsert(*p, stow(""));
93
 
 
94
 
        symtraverse(S_VAR, ecopy);
95
 
        envinsert(0, 0);
96
 
}
97
 
 
98
 
Envy*
99
 
buildenv(Job *j, int slot)
100
 
{
101
 
        char **p, *cp, *qp;
102
 
        Word *w, *v, **l;
103
 
        int i;
104
 
        char buf[256];
105
 
 
106
 
        envupd("target", wdup(j->t));
107
 
        if(j->r->attr&REGEXP)
108
 
                envupd("stem",newword(""));
109
 
        else
110
 
                envupd("stem", newword(j->stem));
111
 
        envupd("prereq", wdup(j->p));
112
 
        sprint(buf, "%d", getpid());
113
 
        envupd("pid", newword(buf));
114
 
        sprint(buf, "%d", slot);
115
 
        envupd("nproc", newword(buf));
116
 
        envupd("newprereq", wdup(j->np));
117
 
        envupd("alltarget", wdup(j->at));
118
 
        l = &v;
119
 
        v = w = wdup(j->np);
120
 
        while(w){
121
 
                cp = strchr(w->s, '(');
122
 
                if(cp){
123
 
                        qp = strchr(cp+1, ')');
124
 
                        if(qp){
125
 
                                *qp = 0;
126
 
                                strcpy(w->s, cp+1);
127
 
                                l = &w->next;
128
 
                                w = w->next;
129
 
                                continue;
130
 
                        }
131
 
                }
132
 
                *l = w->next;
133
 
                free(w->s);
134
 
                free(w);
135
 
                w = *l;
136
 
        }
137
 
        envupd("newmember", v);
138
 
                /* update stem0 -> stem9 */
139
 
        for(p = myenv; *p; p++)
140
 
                if(strcmp(*p, "stem0") == 0)
141
 
                        break;
142
 
        for(i = 0; *p; i++, p++){
143
 
                if((j->r->attr&REGEXP) && j->match[i])
144
 
                        envupd(*p, newword(j->match[i]));
145
 
                else 
146
 
                        envupd(*p, newword(""));
147
 
        }
148
 
        return envy;
149
 
}