1 2277c5d7 2004-03-21 devnull #include "std.h"
2 2277c5d7 2004-03-21 devnull #include "dat.h"
5 2277c5d7 2004-03-21 devnull addattr(Attr *a, char *fmt, ...)
7 2277c5d7 2004-03-21 devnull char buf[1024];
8 2277c5d7 2004-03-21 devnull va_list arg;
11 2277c5d7 2004-03-21 devnull va_start(arg, fmt);
12 2277c5d7 2004-03-21 devnull vseprint(buf, buf+sizeof buf, fmt, arg);
13 2277c5d7 2004-03-21 devnull va_end(arg);
14 2277c5d7 2004-03-21 devnull b = _parseattr(buf);
15 2277c5d7 2004-03-21 devnull a = addattrs(a, b);
16 2277c5d7 2004-03-21 devnull setmalloctag(a, getcallerpc(&a));
17 2277c5d7 2004-03-21 devnull _freeattr(b);
18 2277c5d7 2004-03-21 devnull return a;
22 2277c5d7 2004-03-21 devnull * add attributes in list b to list a. If any attributes are in
23 2277c5d7 2004-03-21 devnull * both lists, replace those in a by those in b.
26 2277c5d7 2004-03-21 devnull addattrs(Attr *a, Attr *b)
28 2277c5d7 2004-03-21 devnull int found;
29 2277c5d7 2004-03-21 devnull Attr **l, *aa;
31 2277c5d7 2004-03-21 devnull for(; b; b=b->next){
32 2277c5d7 2004-03-21 devnull switch(b->type){
33 2277c5d7 2004-03-21 devnull case AttrNameval:
34 2277c5d7 2004-03-21 devnull for(l=&a; *l; ){
35 2277c5d7 2004-03-21 devnull if(strcmp((*l)->name, b->name) != 0){
36 2277c5d7 2004-03-21 devnull l=&(*l)->next;
37 2277c5d7 2004-03-21 devnull continue;
40 2277c5d7 2004-03-21 devnull *l = aa->next;
41 2277c5d7 2004-03-21 devnull aa->next = nil;
42 2277c5d7 2004-03-21 devnull freeattr(aa);
44 2277c5d7 2004-03-21 devnull *l = mkattr(AttrNameval, b->name, b->val, nil);
46 2277c5d7 2004-03-21 devnull case AttrQuery:
47 2277c5d7 2004-03-21 devnull found = 0;
48 2277c5d7 2004-03-21 devnull for(l=&a; *l; l=&(*l)->next)
49 2277c5d7 2004-03-21 devnull if((*l)->type==AttrNameval && strcmp((*l)->name, b->name) == 0)
51 2277c5d7 2004-03-21 devnull if(!found)
52 2277c5d7 2004-03-21 devnull *l = mkattr(AttrQuery, b->name, b->val, nil);
56 2277c5d7 2004-03-21 devnull return a;
60 2277c5d7 2004-03-21 devnull setmalloctaghere(void *v)
62 2277c5d7 2004-03-21 devnull setmalloctag(v, getcallerpc(&v));
66 2277c5d7 2004-03-21 devnull sortattr(Attr *a)
69 2277c5d7 2004-03-21 devnull Attr *anext, *a0, *a1, **l;
71 2277c5d7 2004-03-21 devnull if(a == nil || a->next == nil)
72 2277c5d7 2004-03-21 devnull return a;
74 2277c5d7 2004-03-21 devnull /* cut list in halves */
75 2277c5d7 2004-03-21 devnull a0 = nil;
76 2277c5d7 2004-03-21 devnull a1 = nil;
78 2277c5d7 2004-03-21 devnull for(; a; a=anext){
79 2277c5d7 2004-03-21 devnull anext = a->next;
80 2277c5d7 2004-03-21 devnull if(i++%2){
81 2277c5d7 2004-03-21 devnull a->next = a0;
84 2277c5d7 2004-03-21 devnull a->next = a1;
89 2277c5d7 2004-03-21 devnull /* sort */
90 2277c5d7 2004-03-21 devnull a0 = sortattr(a0);
91 2277c5d7 2004-03-21 devnull a1 = sortattr(a1);
93 2277c5d7 2004-03-21 devnull /* merge */
95 2277c5d7 2004-03-21 devnull while(a0 || a1){
96 2277c5d7 2004-03-21 devnull if(a1==nil){
97 2277c5d7 2004-03-21 devnull anext = a0;
98 2277c5d7 2004-03-21 devnull a0 = a0->next;
99 2277c5d7 2004-03-21 devnull }else if(a0==nil){
100 2277c5d7 2004-03-21 devnull anext = a1;
101 2277c5d7 2004-03-21 devnull a1 = a1->next;
102 2277c5d7 2004-03-21 devnull }else if(strcmp(a0->name, a1->name) < 0){
103 2277c5d7 2004-03-21 devnull anext = a0;
104 2277c5d7 2004-03-21 devnull a0 = a0->next;
106 2277c5d7 2004-03-21 devnull anext = a1;
107 2277c5d7 2004-03-21 devnull a1 = a1->next;
109 2277c5d7 2004-03-21 devnull *l = anext;
110 2277c5d7 2004-03-21 devnull l = &(*l)->next;
112 2277c5d7 2004-03-21 devnull *l = nil;
113 2277c5d7 2004-03-21 devnull return a;
117 2277c5d7 2004-03-21 devnull attrnamefmt(Fmt *fmt)
119 2277c5d7 2004-03-21 devnull char *b, buf[1024], *ebuf;
120 2277c5d7 2004-03-21 devnull Attr *a;
122 2277c5d7 2004-03-21 devnull ebuf = buf+sizeof buf;
123 2277c5d7 2004-03-21 devnull b = buf;
124 2277c5d7 2004-03-21 devnull strcpy(buf, " ");
125 2277c5d7 2004-03-21 devnull for(a=va_arg(fmt->args, Attr*); a; a=a->next){
126 2277c5d7 2004-03-21 devnull if(a->name == nil)
127 2277c5d7 2004-03-21 devnull continue;
128 2277c5d7 2004-03-21 devnull b = seprint(b, ebuf, " %q?", a->name);
130 2277c5d7 2004-03-21 devnull return fmtstrcpy(fmt, buf+1);
133 2277c5d7 2004-03-21 devnull static int
134 2277c5d7 2004-03-21 devnull hasqueries(Attr *a)
136 2277c5d7 2004-03-21 devnull for(; a; a=a->next)
137 2277c5d7 2004-03-21 devnull if(a->type == AttrQuery)
138 2277c5d7 2004-03-21 devnull return 1;
139 2277c5d7 2004-03-21 devnull return 0;
142 2277c5d7 2004-03-21 devnull char *ignored[] = {
146 2277c5d7 2004-03-21 devnull static int
147 2277c5d7 2004-03-21 devnull ignoreattr(char *s)
151 2277c5d7 2004-03-21 devnull for(i=0; i<nelem(ignored); i++)
152 2277c5d7 2004-03-21 devnull if(strcmp(ignored[i], s)==0)
153 2277c5d7 2004-03-21 devnull return 1;
154 2277c5d7 2004-03-21 devnull return 0;
157 2277c5d7 2004-03-21 devnull static int
158 2277c5d7 2004-03-21 devnull hasname(Attr *a0, Attr *a1, char *name)
160 2277c5d7 2004-03-21 devnull return _findattr(a0, name) || _findattr(a1, name);
163 2277c5d7 2004-03-21 devnull static int
164 2277c5d7 2004-03-21 devnull hasnameval(Attr *a0, Attr *a1, char *name, char *val)
166 2277c5d7 2004-03-21 devnull Attr *a;
168 2277c5d7 2004-03-21 devnull for(a=_findattr(a0, name); a; a=_findattr(a->next, name))
169 2277c5d7 2004-03-21 devnull if(strcmp(a->val, val) == 0)
170 2277c5d7 2004-03-21 devnull return 1;
171 2277c5d7 2004-03-21 devnull for(a=_findattr(a1, name); a; a=_findattr(a->next, name))
172 2277c5d7 2004-03-21 devnull if(strcmp(a->val, val) == 0)
173 2277c5d7 2004-03-21 devnull return 1;
174 2277c5d7 2004-03-21 devnull return 0;
178 2277c5d7 2004-03-21 devnull matchattr(Attr *pat, Attr *a0, Attr *a1)
180 2277c5d7 2004-03-21 devnull int type;
182 2277c5d7 2004-03-21 devnull for(; pat; pat=pat->next){
183 2277c5d7 2004-03-21 devnull type = pat->type;
184 2277c5d7 2004-03-21 devnull if(ignoreattr(pat->name))
185 2277c5d7 2004-03-21 devnull type = AttrDefault;
186 2277c5d7 2004-03-21 devnull switch(type){
187 2277c5d7 2004-03-21 devnull case AttrQuery: /* name=something be present */
188 2277c5d7 2004-03-21 devnull if(!hasname(a0, a1, pat->name))
189 2277c5d7 2004-03-21 devnull return 0;
191 2277c5d7 2004-03-21 devnull case AttrNameval: /* name=val must be present */
192 2277c5d7 2004-03-21 devnull if(!hasnameval(a0, a1, pat->name, pat->val))
193 2277c5d7 2004-03-21 devnull return 0;
195 2277c5d7 2004-03-21 devnull case AttrDefault: /* name=val must be present if name=anything is present */
196 2277c5d7 2004-03-21 devnull if(hasname(a0, a1, pat->name) && !hasnameval(a0, a1, pat->name, pat->val))
197 2277c5d7 2004-03-21 devnull return 0;
201 2277c5d7 2004-03-21 devnull return 1;
205 2277c5d7 2004-03-21 devnull parseattrfmtv(char *fmt, va_list arg)
207 2277c5d7 2004-03-21 devnull char *s;
208 2277c5d7 2004-03-21 devnull Attr *a;
210 2277c5d7 2004-03-21 devnull s = vsmprint(fmt, arg);
211 2277c5d7 2004-03-21 devnull if(s == nil)
212 2277c5d7 2004-03-21 devnull sysfatal("vsmprint: out of memory");
213 2277c5d7 2004-03-21 devnull a = parseattr(s);
214 2277c5d7 2004-03-21 devnull free(s);
215 2277c5d7 2004-03-21 devnull return a;
219 2277c5d7 2004-03-21 devnull parseattrfmt(char *fmt, ...)
221 2277c5d7 2004-03-21 devnull va_list arg;
222 2277c5d7 2004-03-21 devnull Attr *a;
224 2277c5d7 2004-03-21 devnull va_start(arg, fmt);
225 2277c5d7 2004-03-21 devnull a = parseattrfmtv(fmt, arg);
226 2277c5d7 2004-03-21 devnull va_end(arg);
227 2277c5d7 2004-03-21 devnull return a;