← Back to branch summary

~ubuntu-branches/ubuntu/utopic/9base/utopic

« back to all changes in this revision

Viewing changes to mk/env.c

  • Committer: Bazaar Package Importer
  • Author(s): Daniel Baumann
  • Date: 2009-11-07 12:25:14 UTC
  • mfrom: (6.2.3 squeeze)
  • Revision ID: james.westby@ubuntu.com-20091107122514-tcw4u4ha2w2xbbnn
http://bugs.debian.org/545772
* Adding maintainer homepage field to control.
* Marking maintainer homepage field to be also included in binary
  packages and changelog.
* Adding README.source.
* Merging upstream version 4.
* Adding sh4 to explicit architecture list (Closes: #545772).
* Moving maintainer homepage field from control to copyright.
* Updating README.source.
* Updating homepage field in control.
* Removing manpage patch, went upstream.
* Removing kfreebsd.patch, went upstream.
* Generalizing manpage moving in rules.
* Moving base directory from /usr/lib/9base to /usr/lib/plan9 for
  consistency reasons.
* Prefixing manpages with plan9 instead of 9base for consistency
  reasons.
* Bumping versioned build-depends on debhelper.
* Making internal mkMAP and sendcover scripts executable.
* Adding patch to adjust shebang in newly included troff commands.
* Updating lintian-overrides.
* Making buildd-depends on quilt versioned.

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, s->u.ptr);
 
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
}