← Back to branch summary

~ubuntu-branches/ubuntu/natty/9base/natty

« back to all changes in this revision

Viewing changes to mk/shprint.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/shprint.c
1
 
#include        "mk.h"
2
 
 
3
 
static char *vexpand(char*, Envy*, Bufblock*);
4
 
 
5
 
#define getfields mkgetfields
6
 
 
7
 
static int
8
 
getfields(char *str, char **args, int max, int mflag, char *set)
9
 
{
10
 
        Rune r;
11
 
        int nr, intok, narg;
12
 
 
13
 
        if(max <= 0)
14
 
                return 0;
15
 
 
16
 
        narg = 0;
17
 
        args[narg] = str;
18
 
        if(!mflag)
19
 
                narg++;
20
 
        intok = 0;
21
 
        for(;; str += nr) {
22
 
                nr = chartorune(&r, str);
23
 
                if(r == 0)
24
 
                        break;
25
 
                if(utfrune(set, r)) {
26
 
                        if(narg >= max)
27
 
                                break;
28
 
                        *str = 0;
29
 
                        intok = 0;
30
 
                        args[narg] = str + nr;
31
 
                        if(!mflag)
32
 
                                narg++;
33
 
                } else {
34
 
                        if(!intok && mflag)
35
 
                                narg++;
36
 
                        intok = 1;
37
 
                }
38
 
        }
39
 
        return narg;
40
 
}
41
 
 
42
 
void
43
 
shprint(char *s, Envy *env, Bufblock *buf, Shell *sh)
44
 
{
45
 
        int n;
46
 
        Rune r;
47
 
 
48
 
        while(*s) {
49
 
                n = chartorune(&r, s);
50
 
                if (r == '$')
51
 
                        s = vexpand(s, env, buf);
52
 
                else {
53
 
                        rinsert(buf, r);
54
 
                        s += n;
55
 
                        s = sh->copyq(s, r, buf);       /*handle quoted strings*/
56
 
                }
57
 
        }
58
 
        insert(buf, 0);
59
 
}
60
 
 
61
 
static char *
62
 
mygetenv(char *name, Envy *env)
63
 
{
64
 
        if (!env)
65
 
                return 0;
66
 
        if (symlook(name, S_WESET, 0) == 0 && symlook(name, S_INTERNAL, 0) == 0)
67
 
                return 0;
68
 
                /* only resolve internal variables and variables we've set */
69
 
        for(; env->name; env++){
70
 
                if (strcmp(env->name, name) == 0)
71
 
                        return wtos(env->values, ' ');
72
 
        }
73
 
        return 0;
74
 
}
75
 
 
76
 
static char *
77
 
vexpand(char *w, Envy *env, Bufblock *buf)
78
 
{
79
 
        char *s, carry, *p, *q;
80
 
 
81
 
        assert("vexpand no $", *w == '$');
82
 
        p = w+1;        /* skip dollar sign */
83
 
        if(*p == '{') {
84
 
                p++;
85
 
                q = utfrune(p, '}');
86
 
                if (!q)
87
 
                        q = strchr(p, 0);
88
 
        } else
89
 
                q = shname(p);
90
 
        carry = *q;
91
 
        *q = 0;
92
 
        s = mygetenv(p, env);
93
 
        *q = carry;
94
 
        if (carry == '}')
95
 
                q++;
96
 
        if (s) {
97
 
                bufcpy(buf, s, strlen(s));
98
 
                free(s);
99
 
        } else          /* copy name intact*/
100
 
                bufcpy(buf, w, q-w);
101
 
        return(q);
102
 
}
103
 
 
104
 
void
105
 
front(char *s)
106
 
{
107
 
        char *t, *q;
108
 
        int i, j;
109
 
        char *flds[512];
110
 
 
111
 
        q = strdup(s);
112
 
        i = getfields(q, flds, 512, 0, " \t\n");
113
 
        if(i > 5){
114
 
                flds[4] = flds[i-1];
115
 
                flds[3] = "...";
116
 
                i = 5;
117
 
        }
118
 
        t = s;
119
 
        for(j = 0; j < i; j++){
120
 
                for(s = flds[j]; *s; *t++ = *s++);
121
 
                *t++ = ' ';
122
 
        }
123
 
        *t = 0;
124
 
        free(q);
125
 
}