1 98cd2746 2004-04-19 devnull #include <u.h>
2 98cd2746 2004-04-19 devnull #include <errno.h>
3 98cd2746 2004-04-19 devnull #include <libc.h>
4 98cd2746 2004-04-19 devnull #include <bio.h>
5 98cd2746 2004-04-19 devnull #include <mach.h>
6 98cd2746 2004-04-19 devnull #include <stabs.h>
7 98cd2746 2004-04-19 devnull #include <ctype.h>
8 98cd2746 2004-04-19 devnull #include "dat.h"
10 98cd2746 2004-04-19 devnull static jmp_buf kaboom;
12 98cd2746 2004-04-19 devnull static Type *parsename(char*, char**);
13 98cd2746 2004-04-19 devnull static Type *parseinfo(char*, char**);
14 98cd2746 2004-04-19 devnull static int parsenum(char*, int*, int*, char**);
15 98cd2746 2004-04-19 devnull static int parseattr(char*, char**, char**);
16 98cd2746 2004-04-19 devnull static Type *parsedefn(char *p, Type *t, char **pp);
17 98cd2746 2004-04-19 devnull static int parsebound(char**);
18 98cd2746 2004-04-19 devnull static vlong parsebigint(char**);
20 98cd2746 2004-04-19 devnull typedef struct Ftypes Ftypes;
21 98cd2746 2004-04-19 devnull struct Ftypes
23 98cd2746 2004-04-19 devnull Ftypes *down;
24 98cd2746 2004-04-19 devnull Ftypes *next;
25 98cd2746 2004-04-19 devnull char *file;
26 98cd2746 2004-04-19 devnull TypeList *list;
29 98cd2746 2004-04-19 devnull Ftypes *fstack;
30 98cd2746 2004-04-19 devnull Ftypes *allftypes;
32 98cd2746 2004-04-19 devnull static char*
33 98cd2746 2004-04-19 devnull estrndup(char *s, int n)
37 98cd2746 2004-04-19 devnull t = emalloc(n+1);
38 98cd2746 2004-04-19 devnull memmove(t, s, n);
39 98cd2746 2004-04-19 devnull return t;
42 98cd2746 2004-04-19 devnull static char*
43 98cd2746 2004-04-19 devnull mkpath(char *dir, char *name)
46 98cd2746 2004-04-19 devnull if(name[0] == '/')
47 98cd2746 2004-04-19 devnull return estrdup(name);
49 98cd2746 2004-04-19 devnull s = emalloc(strlen(dir)+strlen(name)+1);
50 98cd2746 2004-04-19 devnull strcpy(s, dir);
51 98cd2746 2004-04-19 devnull strcat(s, name);
52 98cd2746 2004-04-19 devnull return s;
56 98cd2746 2004-04-19 devnull static Ftypes*
57 98cd2746 2004-04-19 devnull mkftypes(char *dir, char *name)
59 98cd2746 2004-04-19 devnull Ftypes *f;
61 98cd2746 2004-04-19 devnull f = emalloc(sizeof(*f));
62 98cd2746 2004-04-19 devnull f->file = mkpath(dir, name);
63 98cd2746 2004-04-19 devnull f->next = allftypes;
64 98cd2746 2004-04-19 devnull allftypes = f;
65 98cd2746 2004-04-19 devnull return f;
68 98cd2746 2004-04-19 devnull static Ftypes*
69 98cd2746 2004-04-19 devnull findftypes(char *dir, char *name)
72 98cd2746 2004-04-19 devnull Ftypes *f, *found;
74 98cd2746 2004-04-19 devnull found = nil;
75 98cd2746 2004-04-19 devnull s = mkpath(dir, name);
76 98cd2746 2004-04-19 devnull for(f=allftypes; f; f=f->next)
77 98cd2746 2004-04-19 devnull if(strcmp(f->file, s) == 0)
78 98cd2746 2004-04-19 devnull found = f;
79 98cd2746 2004-04-19 devnull return found;
82 98cd2746 2004-04-19 devnull static void
83 98cd2746 2004-04-19 devnull oops(void)
85 98cd2746 2004-04-19 devnull longjmp(kaboom, 1);
88 98cd2746 2004-04-19 devnull /* find a : but skip over :: */
89 98cd2746 2004-04-19 devnull static char*
90 98cd2746 2004-04-19 devnull findcolon(char *p)
92 98cd2746 2004-04-19 devnull while((p = strchr(p, ':')) != nil && *(p+1) == ':')
94 98cd2746 2004-04-19 devnull if(p == nil)
96 98cd2746 2004-04-19 devnull return p;
99 98cd2746 2004-04-19 devnull static void
100 98cd2746 2004-04-19 devnull semi(char **p)
102 98cd2746 2004-04-19 devnull if(**p != ';')
107 98cd2746 2004-04-19 devnull static void
108 98cd2746 2004-04-19 devnull comma(char **p)
110 98cd2746 2004-04-19 devnull if(**p != ',')
115 98cd2746 2004-04-19 devnull static int
116 98cd2746 2004-04-19 devnull parseint(char **pp)
118 98cd2746 2004-04-19 devnull if(!isdigit(**pp))
120 98cd2746 2004-04-19 devnull return strtol(*pp, pp, 10);
124 98cd2746 2004-04-19 devnull name ::= symbol_opt info
126 98cd2746 2004-04-19 devnull static Type*
127 98cd2746 2004-04-19 devnull parsename(char *desc, char **pp)
129 98cd2746 2004-04-19 devnull if(*desc == 'c')
130 98cd2746 2004-04-19 devnull return nil;
132 98cd2746 2004-04-19 devnull if(isdigit(*desc) || *desc=='-' || *desc=='(')
133 98cd2746 2004-04-19 devnull return parseinfo(desc, pp);
134 98cd2746 2004-04-19 devnull if(*desc == 0)
136 98cd2746 2004-04-19 devnull return parseinfo(desc+1, pp);
140 98cd2746 2004-04-19 devnull info ::= num | num '=' attr* defn
142 98cd2746 2004-04-19 devnull static Type*
143 98cd2746 2004-04-19 devnull parseinfo(char *desc, char **pp)
145 98cd2746 2004-04-19 devnull int n1, n2;
146 98cd2746 2004-04-19 devnull Type *t;
147 98cd2746 2004-04-19 devnull char *attr;
149 98cd2746 2004-04-19 devnull parsenum(desc, &n1, &n2, &desc);
150 98cd2746 2004-04-19 devnull t = typebynum(n1, n2);
151 98cd2746 2004-04-19 devnull if(*desc != '='){
152 98cd2746 2004-04-19 devnull *pp = desc;
153 98cd2746 2004-04-19 devnull return t;
156 98cd2746 2004-04-19 devnull if(fstack)
157 98cd2746 2004-04-19 devnull fstack->list = mktl(t, fstack->list);
158 98cd2746 2004-04-19 devnull while(parseattr(desc, &attr, &desc) >= 0){
159 98cd2746 2004-04-19 devnull if(*attr == 's')
160 98cd2746 2004-04-19 devnull t->xsizeof = atoi(attr+1)/8;
162 98cd2746 2004-04-19 devnull return parsedefn(desc, t, pp);
166 98cd2746 2004-04-19 devnull num ::= integer | '(' integer ',' integer ')'
168 98cd2746 2004-04-19 devnull static int
169 98cd2746 2004-04-19 devnull parsenum(char *p, int *n1, int *n2, char **pp)
171 98cd2746 2004-04-19 devnull if(isdigit(*p)){
172 98cd2746 2004-04-19 devnull *n1 = strtol(p, &p, 10);
173 98cd2746 2004-04-19 devnull *n2 = 0;
174 98cd2746 2004-04-19 devnull *pp = p;
175 98cd2746 2004-04-19 devnull return 0;
177 98cd2746 2004-04-19 devnull if(*p == '('){
178 98cd2746 2004-04-19 devnull *n1 = strtol(p+1, &p, 10);
179 98cd2746 2004-04-19 devnull if(*p != ',')
181 98cd2746 2004-04-19 devnull *n2 = strtol(p+1, &p, 10);
182 98cd2746 2004-04-19 devnull if(*p != ')')
184 98cd2746 2004-04-19 devnull *pp = p+1;
185 98cd2746 2004-04-19 devnull return 0;
188 98cd2746 2004-04-19 devnull return -1;
192 98cd2746 2004-04-19 devnull attr ::= '@' text ';'
195 98cd2746 2004-04-19 devnull 'a' integer (alignment)
196 98cd2746 2004-04-19 devnull 'p' integer (pointer class)
197 98cd2746 2004-04-19 devnull 'P' (packed type)
198 98cd2746 2004-04-19 devnull 's' integer (size of type in bits)
199 98cd2746 2004-04-19 devnull 'S' (string instead of array of chars)
201 98cd2746 2004-04-19 devnull static int
202 98cd2746 2004-04-19 devnull parseattr(char *p, char **text, char **pp)
204 98cd2746 2004-04-19 devnull if(*p != '@')
205 98cd2746 2004-04-19 devnull return -1;
206 98cd2746 2004-04-19 devnull *text = p+1;
207 98cd2746 2004-04-19 devnull if((p = strchr(p, ';')) == nil)
209 98cd2746 2004-04-19 devnull *pp = p+1;
210 98cd2746 2004-04-19 devnull return 0;
214 98cd2746 2004-04-19 devnull typedef struct Basic Basic;
215 98cd2746 2004-04-19 devnull struct Basic
217 98cd2746 2004-04-19 devnull int size;
218 98cd2746 2004-04-19 devnull int fmt;
221 98cd2746 2004-04-19 devnull static Basic baseints[] =
224 98cd2746 2004-04-19 devnull /*1*/ 4, 'd', /* int32 */
225 98cd2746 2004-04-19 devnull /*2*/ 1, 'd', /* char8 */
226 98cd2746 2004-04-19 devnull /*3*/ 2, 'd', /* int16 */
227 98cd2746 2004-04-19 devnull /*4*/ 4, 'd', /* long int32 */
228 98cd2746 2004-04-19 devnull /*5*/ 1, 'x', /* uchar8 */
229 98cd2746 2004-04-19 devnull /*6*/ 1, 'd', /* schar8 */
230 98cd2746 2004-04-19 devnull /*7*/ 2, 'x', /* uint16 */
231 98cd2746 2004-04-19 devnull /*8*/ 4, 'x', /* uint32 */
232 98cd2746 2004-04-19 devnull /*9*/ 4, 'x', /* uint32 */
233 98cd2746 2004-04-19 devnull /*10*/ 4, 'x', /* ulong32 */
234 98cd2746 2004-04-19 devnull /*11*/ 0, 0, /* void */
235 98cd2746 2004-04-19 devnull /*12*/ 4, 'f', /* float */
236 98cd2746 2004-04-19 devnull /*13*/ 8, 'f', /* double */
237 98cd2746 2004-04-19 devnull /*14*/ 10, 'f', /* long double */
238 98cd2746 2004-04-19 devnull /*15*/ 4, 'd', /* int32 */
239 98cd2746 2004-04-19 devnull /*16*/ 4, 'd', /* bool32 */
240 98cd2746 2004-04-19 devnull /*17*/ 2, 'f', /* short real */
241 98cd2746 2004-04-19 devnull /*18*/ 4, 'f', /* real */
242 98cd2746 2004-04-19 devnull /*19*/ 4, 'x', /* stringptr */
243 98cd2746 2004-04-19 devnull /*20*/ 1, 'd', /* character8 */
244 98cd2746 2004-04-19 devnull /*21*/ 1, 'x', /* logical*1 */
245 98cd2746 2004-04-19 devnull /*22*/ 2, 'x', /* logical*2 */
246 98cd2746 2004-04-19 devnull /*23*/ 4, 'X', /* logical*4 */
247 98cd2746 2004-04-19 devnull /*24*/ 4, 'X', /* logical32 */
248 98cd2746 2004-04-19 devnull /*25*/ 8, 'F', /* complex (two single) */
249 98cd2746 2004-04-19 devnull /*26*/ 16, 'F', /* complex (two double) */
250 98cd2746 2004-04-19 devnull /*27*/ 1, 'd', /* integer*1 */
251 98cd2746 2004-04-19 devnull /*28*/ 2, 'd', /* integer*2 */
252 98cd2746 2004-04-19 devnull /*29*/ 4, 'd', /* integer*4 */
253 98cd2746 2004-04-19 devnull /*30*/ 2, 'x', /* wide char */
254 98cd2746 2004-04-19 devnull /*31*/ 8, 'd', /* int64 */
255 98cd2746 2004-04-19 devnull /*32*/ 8, 'x', /* uint64 */
256 98cd2746 2004-04-19 devnull /*33*/ 8, 'x', /* logical*8 */
257 98cd2746 2004-04-19 devnull /*34*/ 8, 'd', /* integer*8 */
260 98cd2746 2004-04-19 devnull static Basic basefloats[] =
263 98cd2746 2004-04-19 devnull /*1*/ 4, 'f', /* 32-bit */
264 98cd2746 2004-04-19 devnull /*2*/ 8, 'f', /* 64-bit */
265 98cd2746 2004-04-19 devnull /*3*/ 8, 'F', /* complex */
266 98cd2746 2004-04-19 devnull /*4*/ 4, 'F', /* complex16 */
267 98cd2746 2004-04-19 devnull /*5*/ 8, 'F', /* complex32 */
268 98cd2746 2004-04-19 devnull /*6*/ 10, 'f', /* long double */
272 98cd2746 2004-04-19 devnull defn ::= info
273 98cd2746 2004-04-19 devnull | 'b' ('u' | 's') 'c'? width; offset; nbits; (builtin, signed/unsigned, char/not, width in bytes, offset & nbits of type)
274 98cd2746 2004-04-19 devnull | 'w' (aix wide char type, not used)
275 98cd2746 2004-04-19 devnull | 'R' fptype; bytes; (fptype 1=32-bit, 2=64-bit, 3=complex, 4=complex16, 5=complex32, 6=long double)
276 98cd2746 2004-04-19 devnull | 'g' typeinfo ';' nbits (aix floating, not used)
277 98cd2746 2004-04-19 devnull | 'c' typeinfo ';' nbits (aix complex, not used)
278 98cd2746 2004-04-19 devnull | 'b' typeinfo ';' bytes (ibm, no idea)
279 98cd2746 2004-04-19 devnull | 'B' typeinfo (volatile typref)
280 98cd2746 2004-04-19 devnull | 'd' typeinfo (file of typeref)
281 98cd2746 2004-04-19 devnull | 'k' typeinfo (const typeref)
282 98cd2746 2004-04-19 devnull | 'M' typeinfo ';' length (multiple instance type, fortran)
283 98cd2746 2004-04-19 devnull | 'S' typeinfo (set, typeref must have small number of values)
284 98cd2746 2004-04-19 devnull | '*' typeinfo (pointer to typeref)
285 98cd2746 2004-04-19 devnull | 'x' ('s'|'u'|'e') name ':' (struct, union, enum reference. name can have '::' in it)
286 98cd2746 2004-04-19 devnull | 'r' typeinfo ';' low ';' high ';' (subrange. typeref can be type being defined for base types!)
287 98cd2746 2004-04-19 devnull low and high are bounds
288 98cd2746 2004-04-19 devnull if bound is octal power of two, it's a big negative number
289 98cd2746 2004-04-19 devnull | ('a'|'P') indextypedef arraytypeinfo (array, index should be range type)
290 98cd2746 2004-04-19 devnull indextype is type definition not typeinfo (need not say typenum=)
291 98cd2746 2004-04-19 devnull P means packed array
292 98cd2746 2004-04-19 devnull | 'A' arraytypeinfo (open array (no index bounds))
293 98cd2746 2004-04-19 devnull | 'D' dims ';' typeinfo (dims-dimensional dynamic array)
294 98cd2746 2004-04-19 devnull | 'E' dims ';' typeinfo (subarray of N-dimensional array)
295 98cd2746 2004-04-19 devnull | 'n' typeinfo ';' bytes (max length string)
296 98cd2746 2004-04-19 devnull | 'z' typeinfo ';' bytes (no idea what difference is from 'n')
297 98cd2746 2004-04-19 devnull | 'N' (pascal stringptr)
298 98cd2746 2004-04-19 devnull | 'e' (name ':' bigint ',')* ';' (enum listing)
299 98cd2746 2004-04-19 devnull | ('s'|'u') bytes (name ':' type ',' bitoffset ',' bitsize ';')* ';' (struct/union defn)
300 98cd2746 2004-04-19 devnull tag is given as name in stabs entry, with 'T' symbol
301 98cd2746 2004-04-19 devnull | 'f' typeinfo ';' (function returning type)
302 98cd2746 2004-04-19 devnull | 'f' rettypeinfo ',' paramcount ';' (typeinfo ',' (0|1) ';')* ';'
303 98cd2746 2004-04-19 devnull | 'p' paramcount ';' (typeinfo ',' (0|1) ';')* ';'
304 98cd2746 2004-04-19 devnull | 'F' rettypeinfo ',' paramcount ';' (name ':' typeinfo ',' (0|1) ';')* ';'
305 98cd2746 2004-04-19 devnull | 'R' paramcount ';' (name ':' typeinfo ',' (0|1) ';')* ';'
306 98cd2746 2004-04-19 devnull (the 0 or 1 is pass-by-reference vs pass-by-value)
307 98cd2746 2004-04-19 devnull (the 0 or 1 is pass-by-reference vs pass-by-value)
310 98cd2746 2004-04-19 devnull static Type*
311 98cd2746 2004-04-19 devnull parsedefn(char *p, Type *t, char **pp)
313 98cd2746 2004-04-19 devnull char c, *name;
314 98cd2746 2004-04-19 devnull int ischar, namelen, n, wid, offset, bits, sign;
315 98cd2746 2004-04-19 devnull long val;
316 98cd2746 2004-04-19 devnull Type *tt;
318 98cd2746 2004-04-19 devnull if(*p == '(' || isdigit(*p)){
319 98cd2746 2004-04-19 devnull t->ty = Defer;
320 98cd2746 2004-04-19 devnull t->sub = parseinfo(p, pp);
321 98cd2746 2004-04-19 devnull return t;
324 98cd2746 2004-04-19 devnull switch(c = *p){
325 98cd2746 2004-04-19 devnull case '-': /* builtin */
326 98cd2746 2004-04-19 devnull n = strtol(p+1, &p, 10);
327 98cd2746 2004-04-19 devnull if(n >= nelem(baseints) || n < 0)
329 98cd2746 2004-04-19 devnull t->ty = Base;
330 98cd2746 2004-04-19 devnull t->xsizeof = baseints[n].size;
331 98cd2746 2004-04-19 devnull t->printfmt = baseints[n].fmt;
333 98cd2746 2004-04-19 devnull case 'b': /* builtin */
335 98cd2746 2004-04-19 devnull if(*p != 'u' && *p != 's')
337 98cd2746 2004-04-19 devnull sign = (*p == 's');
339 98cd2746 2004-04-19 devnull if(*p == 'c'){
340 98cd2746 2004-04-19 devnull ischar = 1;
343 98cd2746 2004-04-19 devnull wid = parseint(&p);
344 98cd2746 2004-04-19 devnull semi(&p);
345 98cd2746 2004-04-19 devnull offset = parseint(&p);
346 98cd2746 2004-04-19 devnull semi(&p);
347 98cd2746 2004-04-19 devnull bits = parseint(&p);
348 98cd2746 2004-04-19 devnull semi(&p);
349 98cd2746 2004-04-19 devnull t->ty = Base;
350 98cd2746 2004-04-19 devnull t->xsizeof = wid;
351 98cd2746 2004-04-19 devnull if(sign == 1)
352 98cd2746 2004-04-19 devnull t->printfmt = 'd';
354 98cd2746 2004-04-19 devnull t->printfmt = 'x';
356 98cd2746 2004-04-19 devnull case 'R': /* fp type */
357 98cd2746 2004-04-19 devnull n = parseint(&p);
358 98cd2746 2004-04-19 devnull semi(&p);
359 98cd2746 2004-04-19 devnull wid = parseint(&p);
360 98cd2746 2004-04-19 devnull semi(&p);
361 98cd2746 2004-04-19 devnull t->ty = Base;
362 98cd2746 2004-04-19 devnull t->xsizeof = wid;
363 98cd2746 2004-04-19 devnull if(n < 0 || n >= nelem(basefloats))
365 98cd2746 2004-04-19 devnull t->xsizeof = basefloats[n].size;
366 98cd2746 2004-04-19 devnull t->printfmt = basefloats[n].fmt;
368 98cd2746 2004-04-19 devnull case 'r': /* subrange */
369 98cd2746 2004-04-19 devnull t->ty = Range;
370 98cd2746 2004-04-19 devnull t->sub = parseinfo(p+1, &p);
371 98cd2746 2004-04-19 devnull if(*(p-1) == ';' && *p != ';')
373 98cd2746 2004-04-19 devnull semi(&p);
374 98cd2746 2004-04-19 devnull t->lo = parsebound(&p);
375 98cd2746 2004-04-19 devnull semi(&p);
376 98cd2746 2004-04-19 devnull t->hi = parsebound(&p);
377 98cd2746 2004-04-19 devnull semi(&p);
379 98cd2746 2004-04-19 devnull case 'B': /* volatile */
380 98cd2746 2004-04-19 devnull case 'k': /* const */
381 98cd2746 2004-04-19 devnull t->ty = Defer;
382 98cd2746 2004-04-19 devnull t->sub = parseinfo(p+1, &p);
384 98cd2746 2004-04-19 devnull case '*': /* pointer */
385 98cd2746 2004-04-19 devnull case 'A': /* open array */
386 98cd2746 2004-04-19 devnull t->ty = Pointer;
387 98cd2746 2004-04-19 devnull t->sub = parseinfo(p+1, &p);
389 98cd2746 2004-04-19 devnull case 'a': /* array */
390 98cd2746 2004-04-19 devnull case 'P': /* packed array */
391 98cd2746 2004-04-19 devnull t->ty = Pointer;
392 98cd2746 2004-04-19 devnull tt = newtype();
393 98cd2746 2004-04-19 devnull parsedefn(p+1, tt, &p); /* index type */
394 98cd2746 2004-04-19 devnull if(*p == ';')
396 98cd2746 2004-04-19 devnull tt = newtype();
397 98cd2746 2004-04-19 devnull t->sub = tt;
398 98cd2746 2004-04-19 devnull parsedefn(p, tt, &p); /* element type */
400 98cd2746 2004-04-19 devnull case 'e': /* enum listing */
402 98cd2746 2004-04-19 devnull t->sue = 'e';
403 98cd2746 2004-04-19 devnull t->ty = Enum;
404 98cd2746 2004-04-19 devnull while(*p != ';'){
405 98cd2746 2004-04-19 devnull name = p;
406 98cd2746 2004-04-19 devnull p = findcolon(p)+1;
407 98cd2746 2004-04-19 devnull namelen = (p-name)-1;
408 98cd2746 2004-04-19 devnull val = parsebigint(&p);
409 98cd2746 2004-04-19 devnull comma(&p);
410 98cd2746 2004-04-19 devnull if(t->n%32 == 0){
411 98cd2746 2004-04-19 devnull t->tname = erealloc(t->tname, (t->n+32)*sizeof(t->tname[0]));
412 98cd2746 2004-04-19 devnull t->val = erealloc(t->val, (t->n+32)*sizeof(t->val[0]));
414 98cd2746 2004-04-19 devnull t->tname[t->n] = estrndup(name, namelen);
415 98cd2746 2004-04-19 devnull t->val[t->n] = val;
418 98cd2746 2004-04-19 devnull semi(&p);
421 98cd2746 2004-04-19 devnull case 's': /* struct */
422 98cd2746 2004-04-19 devnull case 'u': /* union */
424 98cd2746 2004-04-19 devnull t->sue = c;
425 98cd2746 2004-04-19 devnull t->ty = Aggr;
426 98cd2746 2004-04-19 devnull n = parseint(&p);
427 98cd2746 2004-04-19 devnull while(*p != ';'){
428 98cd2746 2004-04-19 devnull name = p;
429 98cd2746 2004-04-19 devnull p = findcolon(p)+1;
430 98cd2746 2004-04-19 devnull namelen = (p-name)-1;
431 98cd2746 2004-04-19 devnull tt = parseinfo(p, &p);
432 98cd2746 2004-04-19 devnull comma(&p);
433 98cd2746 2004-04-19 devnull offset = parseint(&p);
434 98cd2746 2004-04-19 devnull comma(&p);
435 98cd2746 2004-04-19 devnull bits = parseint(&p);
436 98cd2746 2004-04-19 devnull semi(&p);
437 98cd2746 2004-04-19 devnull if(t->n%32 == 0){
438 98cd2746 2004-04-19 devnull t->tname = erealloc(t->tname, (t->n+32)*sizeof(t->tname[0]));
439 98cd2746 2004-04-19 devnull t->val = erealloc(t->val, (t->n+32)*sizeof(t->val[0]));
440 98cd2746 2004-04-19 devnull t->t = erealloc(t->t, (t->n+32)*sizeof(t->t[0]));
442 98cd2746 2004-04-19 devnull t->tname[t->n] = estrndup(name, namelen);
443 98cd2746 2004-04-19 devnull t->val[t->n] = offset;
444 98cd2746 2004-04-19 devnull t->t[t->n] = tt;
447 98cd2746 2004-04-19 devnull semi(&p);
450 98cd2746 2004-04-19 devnull case 'x': /* struct, union, enum reference */
452 98cd2746 2004-04-19 devnull t->ty = Defer;
453 98cd2746 2004-04-19 devnull if(*p != 's' && *p != 'u' && *p != 'e')
456 98cd2746 2004-04-19 devnull name = p+1;
457 98cd2746 2004-04-19 devnull p = findcolon(p+1);
458 98cd2746 2004-04-19 devnull name = estrndup(name, p-name);
459 98cd2746 2004-04-19 devnull t->sub = typebysue(c, name);
463 98cd2746 2004-04-19 devnull #if 0 /* AIX */
464 98cd2746 2004-04-19 devnull case 'f': /* function */
465 98cd2746 2004-04-19 devnull case 'p': /* procedure */
466 98cd2746 2004-04-19 devnull case 'F': /* Pascal function */
467 98cd2746 2004-04-19 devnull /* case 'R': /* Pascal procedure */
469 98cd2746 2004-04-19 devnull * Even though we don't use the info, we have
470 98cd2746 2004-04-19 devnull * to parse it in case it is embedded in other descriptions.
472 98cd2746 2004-04-19 devnull t->ty = Function;
474 98cd2746 2004-04-19 devnull if(c == 'f' || c == 'F'){
475 98cd2746 2004-04-19 devnull t->sub = parseinfo(p, &p);
476 98cd2746 2004-04-19 devnull if(*p != ','){
477 98cd2746 2004-04-19 devnull if(*p == ';')
481 98cd2746 2004-04-19 devnull comma(&p);
483 98cd2746 2004-04-19 devnull n = parseint(&p); /* number of params */
484 98cd2746 2004-04-19 devnull semi(&p);
485 98cd2746 2004-04-19 devnull while(*p != ';'){
486 98cd2746 2004-04-19 devnull if(c == 'F' || c == 'R'){
487 98cd2746 2004-04-19 devnull name = p; /* parameter name */
488 98cd2746 2004-04-19 devnull p = findcolon(p)+1;
490 98cd2746 2004-04-19 devnull parseinfo(p, &p); /* param type */
491 98cd2746 2004-04-19 devnull comma(&p);
492 98cd2746 2004-04-19 devnull parseint(&p); /* bool: passed by value? */
493 98cd2746 2004-04-19 devnull semi(&p);
495 98cd2746 2004-04-19 devnull semi(&p);
499 98cd2746 2004-04-19 devnull case 'f': /* static function */
500 98cd2746 2004-04-19 devnull case 'F': /* global function */
501 98cd2746 2004-04-19 devnull t->ty = Function;
503 98cd2746 2004-04-19 devnull t->sub = parseinfo(p, &p);
507 98cd2746 2004-04-19 devnull * We'll never see any of this stuff.
508 98cd2746 2004-04-19 devnull * When we do, we can worry about it.
510 98cd2746 2004-04-19 devnull case 'D': /* n-dimensional array */
511 98cd2746 2004-04-19 devnull case 'E': /* subarray of n-dimensional array */
512 98cd2746 2004-04-19 devnull case 'M': /* fortran multiple instance type */
513 98cd2746 2004-04-19 devnull case 'N': /* pascal string ptr */
514 98cd2746 2004-04-19 devnull case 'S': /* set */
515 98cd2746 2004-04-19 devnull case 'c': /* aix complex */
516 98cd2746 2004-04-19 devnull case 'd': /* file of */
517 98cd2746 2004-04-19 devnull case 'g': /* aix float */
518 98cd2746 2004-04-19 devnull case 'n': /* max length string */
519 98cd2746 2004-04-19 devnull case 'w': /* aix wide char */
520 98cd2746 2004-04-19 devnull case 'z': /* another max length string */
521 98cd2746 2004-04-19 devnull default:
522 98cd2746 2004-04-19 devnull fprint(2, "unsupported type char %c (%d)\n", *p, *p);
525 98cd2746 2004-04-19 devnull *pp = p;
526 98cd2746 2004-04-19 devnull return t;
530 98cd2746 2004-04-19 devnull bound ::=
531 98cd2746 2004-04-19 devnull 'A' offset (bound is on stack by ref at offset offset from arg list)
532 98cd2746 2004-04-19 devnull | 'T' offset (bound is on stack by val at offset offset from arg list)
533 98cd2746 2004-04-19 devnull | 'a' regnum (bound passed by reference in register)
534 98cd2746 2004-04-19 devnull | 't' regnum (bound passed by value in register)
535 98cd2746 2004-04-19 devnull | 'J' (no bound)
536 98cd2746 2004-04-19 devnull | bigint
538 98cd2746 2004-04-19 devnull static int
539 98cd2746 2004-04-19 devnull parsebound(char **pp)
541 98cd2746 2004-04-19 devnull char *p;
545 98cd2746 2004-04-19 devnull p = *pp;
546 98cd2746 2004-04-19 devnull switch(*p){
547 98cd2746 2004-04-19 devnull case 'A': /* bound is on stack by reference at offset n from arg list */
548 98cd2746 2004-04-19 devnull case 'T': /* bound is on stack by value at offset n from arg list */
549 98cd2746 2004-04-19 devnull case 'a': /* bound is passed by reference in register n */
550 98cd2746 2004-04-19 devnull case 't': /* bound is passed by value in register n */
552 98cd2746 2004-04-19 devnull parseint(&p);
554 98cd2746 2004-04-19 devnull case 'J': /* no bound */
557 98cd2746 2004-04-19 devnull default:
558 98cd2746 2004-04-19 devnull n = parsebigint(&p);
561 98cd2746 2004-04-19 devnull *pp = p;
562 98cd2746 2004-04-19 devnull return n;
566 98cd2746 2004-04-19 devnull bigint ::= '-'? decimal
567 98cd2746 2004-04-19 devnull | 0 octal
570 98cd2746 2004-04-19 devnull static vlong
571 98cd2746 2004-04-19 devnull parsebigint(char **pp)
573 98cd2746 2004-04-19 devnull char *p;
574 98cd2746 2004-04-19 devnull int n, neg;
576 98cd2746 2004-04-19 devnull p = *pp;
577 98cd2746 2004-04-19 devnull if(*p == '0'){
578 98cd2746 2004-04-19 devnull errno = 0;
579 98cd2746 2004-04-19 devnull n = strtoll(p, &p, 8);
580 98cd2746 2004-04-19 devnull if(errno)
582 98cd2746 2004-04-19 devnull goto out;
584 98cd2746 2004-04-19 devnull neg = 0;
585 98cd2746 2004-04-19 devnull if(*p == '-'){
586 98cd2746 2004-04-19 devnull neg = 1;
589 98cd2746 2004-04-19 devnull if(!isdigit(*p))
591 98cd2746 2004-04-19 devnull n = strtol(p, &p, 10);
596 98cd2746 2004-04-19 devnull *pp = p;
597 98cd2746 2004-04-19 devnull return n;
601 98cd2746 2004-04-19 devnull stabs2acid(Stab *stabs, Biobuf *b)
603 f7b74c17 2004-12-28 devnull volatile int fno, i;
604 f7b74c17 2004-12-28 devnull char c, *file, *desc, *p;
605 f7b74c17 2004-12-28 devnull char *volatile dir, *volatile fn, *volatile name;
606 98cd2746 2004-04-19 devnull Ftypes *f;
607 98cd2746 2004-04-19 devnull Type *t, *tt;
608 98cd2746 2004-04-19 devnull StabSym sym;
610 98cd2746 2004-04-19 devnull dir = nil;
611 98cd2746 2004-04-19 devnull file = nil;
612 98cd2746 2004-04-19 devnull fno = 0;
613 98cd2746 2004-04-19 devnull fn = nil;
614 98cd2746 2004-04-19 devnull for(i=0; stabsym(stabs, i, &sym)>=0; i++){
615 98cd2746 2004-04-19 devnull switch(sym.type){
616 98cd2746 2004-04-19 devnull case N_SO:
617 98cd2746 2004-04-19 devnull if(sym.name){
618 98cd2746 2004-04-19 devnull if(sym.name[0] && sym.name[strlen(sym.name)-1] == '/')
619 98cd2746 2004-04-19 devnull dir = sym.name;
621 98cd2746 2004-04-19 devnull file = sym.name;
623 98cd2746 2004-04-19 devnull denumber();
624 98cd2746 2004-04-19 devnull fstack = nil;
625 98cd2746 2004-04-19 devnull fno = 0;
627 98cd2746 2004-04-19 devnull case N_BINCL:
629 98cd2746 2004-04-19 devnull f = mkftypes(dir, sym.name);
630 98cd2746 2004-04-19 devnull f->down = fstack;
631 98cd2746 2004-04-19 devnull fstack = f;
633 98cd2746 2004-04-19 devnull case N_EINCL:
634 98cd2746 2004-04-19 devnull if(fstack)
635 98cd2746 2004-04-19 devnull fstack = fstack->down;
637 98cd2746 2004-04-19 devnull case N_EXCL:
639 98cd2746 2004-04-19 devnull if((f = findftypes(dir, sym.name)) == nil){
640 98cd2746 2004-04-19 devnull fprint(2, "cannot find remembered %s\n", sym.name);
641 98cd2746 2004-04-19 devnull continue;
643 98cd2746 2004-04-19 devnull renumber(f->list, fno);
645 98cd2746 2004-04-19 devnull case N_GSYM:
646 98cd2746 2004-04-19 devnull case N_FUN:
647 98cd2746 2004-04-19 devnull case N_PSYM:
648 98cd2746 2004-04-19 devnull case N_LSYM:
649 98cd2746 2004-04-19 devnull case N_LCSYM:
650 98cd2746 2004-04-19 devnull case N_STSYM:
651 98cd2746 2004-04-19 devnull case N_RSYM:
652 98cd2746 2004-04-19 devnull name = sym.name;
653 98cd2746 2004-04-19 devnull if(name == nil){
654 98cd2746 2004-04-19 devnull if(sym.type==N_FUN)
655 98cd2746 2004-04-19 devnull fn = nil;
656 98cd2746 2004-04-19 devnull continue;
658 98cd2746 2004-04-19 devnull if((p = strchr(name, ':')) == nil)
659 98cd2746 2004-04-19 devnull continue;
660 98cd2746 2004-04-19 devnull name = estrndup(name, p-name);
661 98cd2746 2004-04-19 devnull desc = ++p;
662 98cd2746 2004-04-19 devnull c = *desc;
663 98cd2746 2004-04-19 devnull if(c == 'c'){
664 98cd2746 2004-04-19 devnull fprint(2, "skip constant %s\n", name);
665 98cd2746 2004-04-19 devnull continue;
667 98cd2746 2004-04-19 devnull if(setjmp(kaboom)){
668 98cd2746 2004-04-19 devnull fprint(2, "cannot parse %s\n", name);
669 98cd2746 2004-04-19 devnull continue;
671 98cd2746 2004-04-19 devnull t = parsename(desc, &p);
672 98cd2746 2004-04-19 devnull if(t == nil)
673 98cd2746 2004-04-19 devnull continue;
674 98cd2746 2004-04-19 devnull if(*p != 0)
675 98cd2746 2004-04-19 devnull fprint(2, "extra desc '%s' in '%s'\n", p, desc);
676 98cd2746 2004-04-19 devnull /* void is defined as itself */
677 98cd2746 2004-04-19 devnull if(t->ty==Defer && t->sub==t && strcmp(name, "void")==0){
678 98cd2746 2004-04-19 devnull t->ty = Base;
679 98cd2746 2004-04-19 devnull t->xsizeof = 0;
680 98cd2746 2004-04-19 devnull t->printfmt = '0';
682 98cd2746 2004-04-19 devnull if(*name==' ' && *(name+1) == 0)
683 98cd2746 2004-04-19 devnull *name = 0;
684 98cd2746 2004-04-19 devnull /* attach names to structs, unions, enums */
685 98cd2746 2004-04-19 devnull if(c=='T' && *name && t->sue){
686 98cd2746 2004-04-19 devnull t->suename = name;
687 98cd2746 2004-04-19 devnull if(t->name == nil)
688 98cd2746 2004-04-19 devnull t->name = name;
689 98cd2746 2004-04-19 devnull tt = typebysue(t->sue, name);
690 98cd2746 2004-04-19 devnull tt->ty = Defer;
691 98cd2746 2004-04-19 devnull tt->sub = t;
693 98cd2746 2004-04-19 devnull if(c=='t'){
694 98cd2746 2004-04-19 devnull tt = newtype();
695 98cd2746 2004-04-19 devnull tt->ty = Typedef;
696 98cd2746 2004-04-19 devnull tt->name = name;
697 98cd2746 2004-04-19 devnull tt->sub = t;
699 98cd2746 2004-04-19 devnull /* define base c types */
700 98cd2746 2004-04-19 devnull if(t->ty==None || t->ty==Range){
701 98cd2746 2004-04-19 devnull if(strcmp(name, "char") == 0){
702 98cd2746 2004-04-19 devnull t->ty = Base;
703 98cd2746 2004-04-19 devnull t->xsizeof = 1;
704 98cd2746 2004-04-19 devnull t->printfmt = 'x';
706 98cd2746 2004-04-19 devnull if(strcmp(name, "int") == 0){
707 98cd2746 2004-04-19 devnull t->ty = Base;
708 98cd2746 2004-04-19 devnull t->xsizeof = 4;
709 98cd2746 2004-04-19 devnull t->printfmt = 'd';
712 98cd2746 2004-04-19 devnull /* record declaration in list for later. */
713 98cd2746 2004-04-19 devnull if(c != 't' && c != 'T')
714 98cd2746 2004-04-19 devnull switch(sym.type){
715 98cd2746 2004-04-19 devnull case N_GSYM:
716 87a478a3 2004-04-21 devnull addsymx(nil, name, t);
718 98cd2746 2004-04-19 devnull case N_FUN:
719 98cd2746 2004-04-19 devnull fn = name;
721 98cd2746 2004-04-19 devnull case N_PSYM:
722 98cd2746 2004-04-19 devnull case N_LSYM:
723 98cd2746 2004-04-19 devnull case N_LCSYM:
724 98cd2746 2004-04-19 devnull case N_STSYM:
725 98cd2746 2004-04-19 devnull case N_RSYM:
726 87a478a3 2004-04-21 devnull addsymx(fn, name, t);
733 98cd2746 2004-04-19 devnull printtypes(b);
734 87a478a3 2004-04-21 devnull dumpsyms(b);
735 87a478a3 2004-04-21 devnull freetypes();
737 98cd2746 2004-04-19 devnull return 0;
