op public repos

Blame

Date:: Wed Apr 21 05:34:37 2004 UTC
Message:: Include looks in #9/acid now. Acid works harder at not falling over.
Actions:: History | Blob | Raw File
  1 564ca709 2004-04-19 devnull #include <u.h>
  2 564ca709 2004-04-19 devnull #include <libc.h>
  3 564ca709 2004-04-19 devnull #include <bio.h>
  4 564ca709 2004-04-19 devnull #include <ctype.h>
  5 564ca709 2004-04-19 devnull #include <mach.h>
  6 564ca709 2004-04-19 devnull #define Extern extern
  7 564ca709 2004-04-19 devnull #include "acid.h"
  8 564ca709 2004-04-19 devnull #include "y.tab.h"
  9 564ca709 2004-04-19 devnull 
 10 564ca709 2004-04-19 devnull static int syren;
 11 564ca709 2004-04-19 devnull 
 12 564ca709 2004-04-19 devnull Lsym*
 13 564ca709 2004-04-19 devnull unique(char *buf, Symbol *s)
 14 564ca709 2004-04-19 devnull {
 15 564ca709 2004-04-19 devnull 	Lsym *l;
 16 564ca709 2004-04-19 devnull 	int i, renamed;
 17 564ca709 2004-04-19 devnull 
 18 564ca709 2004-04-19 devnull 	renamed = 0;
 19 564ca709 2004-04-19 devnull 	strcpy(buf, s->name);
 20 564ca709 2004-04-19 devnull 	for(;;) {
 21 564ca709 2004-04-19 devnull 		l = look(buf);
 22 564ca709 2004-04-19 devnull 		if(l == 0 || (l->lexval == Tid && l->v->set == 0))
 23 564ca709 2004-04-19 devnull 			break;
 24 564ca709 2004-04-19 devnull 
 25 564ca709 2004-04-19 devnull 		if(syren == 0 && !quiet) {
 26 564ca709 2004-04-19 devnull 			print("Symbol renames:\n");
 27 564ca709 2004-04-19 devnull 			syren = 1;
 28 564ca709 2004-04-19 devnull 		}
 29 564ca709 2004-04-19 devnull 		i = strlen(buf)+1;
 30 564ca709 2004-04-19 devnull 		memmove(buf+1, buf, i);
 31 564ca709 2004-04-19 devnull 		buf[0] = '$';
 32 564ca709 2004-04-19 devnull 		renamed++;
 33 564ca709 2004-04-19 devnull 		if(renamed > 5 && !quiet) {
 34 564ca709 2004-04-19 devnull 			print("Too many renames; must be X source!\n");
 35 564ca709 2004-04-19 devnull 			break;
 36 564ca709 2004-04-19 devnull 		}
 37 564ca709 2004-04-19 devnull 	}
 38 564ca709 2004-04-19 devnull 	if(renamed && !quiet)
 39 a8c15b08 2004-04-21 devnull 		print("\t%s=%s %c/%L\n", s->name, buf, s->type, s->loc);
 40 564ca709 2004-04-19 devnull 	if(l == 0)
 41 564ca709 2004-04-19 devnull 		l = enter(buf, Tid);
 42 564ca709 2004-04-19 devnull 	return l;	
 43 564ca709 2004-04-19 devnull }
 44 564ca709 2004-04-19 devnull 
 45 564ca709 2004-04-19 devnull void
 46 564ca709 2004-04-19 devnull varsym(void)
 47 564ca709 2004-04-19 devnull {
 48 564ca709 2004-04-19 devnull 	Lsym *l;
 49 564ca709 2004-04-19 devnull 	Fhdr *fp;
 50 564ca709 2004-04-19 devnull 
 51 564ca709 2004-04-19 devnull 	l = mkvar("symbols");
 52 564ca709 2004-04-19 devnull 	if(l->v->set)
 53 564ca709 2004-04-19 devnull 		return;
 54 564ca709 2004-04-19 devnull 
 55 564ca709 2004-04-19 devnull 	l->v->set = 1;
 56 564ca709 2004-04-19 devnull 	l->v->type = TLIST;
 57 564ca709 2004-04-19 devnull 	l->v->store.u.l = nil;
 58 564ca709 2004-04-19 devnull 
 59 564ca709 2004-04-19 devnull 	for(fp=fhdrlist; fp; fp=fp->next){
 60 564ca709 2004-04-19 devnull 		if(fp->ftype == FCORE)
 61 564ca709 2004-04-19 devnull 			continue;
 62 564ca709 2004-04-19 devnull 		addvarsym(fp);
 63 564ca709 2004-04-19 devnull 	}
 64 564ca709 2004-04-19 devnull 
 65 564ca709 2004-04-19 devnull 	if(l->v->store.u.l == nil)
 66 564ca709 2004-04-19 devnull 		print("no debugging symbols\n");
 67 564ca709 2004-04-19 devnull }
 68 564ca709 2004-04-19 devnull 
 69 564ca709 2004-04-19 devnull void
 70 564ca709 2004-04-19 devnull addvarsym(Fhdr *fp)
 71 564ca709 2004-04-19 devnull {
 72 564ca709 2004-04-19 devnull 	int i;
 73 564ca709 2004-04-19 devnull 	Symbol s;
 74 564ca709 2004-04-19 devnull 	Lsym *l;
 75 564ca709 2004-04-19 devnull 	String *file;
 76 564ca709 2004-04-19 devnull 	ulong v;
 77 564ca709 2004-04-19 devnull 	char buf[1024];
 78 564ca709 2004-04-19 devnull 	List *list, **tail, *tl;
 79 564ca709 2004-04-19 devnull 
 80 564ca709 2004-04-19 devnull 	if(fp == nil)
 81 564ca709 2004-04-19 devnull 		return;
 82 564ca709 2004-04-19 devnull 
 83 564ca709 2004-04-19 devnull 	l = look("symbols");
 84 564ca709 2004-04-19 devnull 	if(l == nil)
 85 564ca709 2004-04-19 devnull 		return;
 86 564ca709 2004-04-19 devnull 
 87 564ca709 2004-04-19 devnull 	l->v->set = 1;
 88 564ca709 2004-04-19 devnull 	l->v->type = TLIST;
 89 564ca709 2004-04-19 devnull 	tail = &l->v->store.u.l;
 90 564ca709 2004-04-19 devnull 	while(*tail)
 91 564ca709 2004-04-19 devnull 		tail = &(*tail)->next;
 92 564ca709 2004-04-19 devnull 
 93 564ca709 2004-04-19 devnull 	file = strnode(fp->filename);
 94 564ca709 2004-04-19 devnull 	for(i=0; findexsym(fp, i, &s)>=0; i++){
 95 564ca709 2004-04-19 devnull 		switch(s.type) {
 96 564ca709 2004-04-19 devnull 		case 'T':
 97 564ca709 2004-04-19 devnull 		case 'L':
 98 564ca709 2004-04-19 devnull 		case 'D':
 99 564ca709 2004-04-19 devnull 		case 'B':
100 564ca709 2004-04-19 devnull 		case 'b':
101 564ca709 2004-04-19 devnull 		case 'd':
102 564ca709 2004-04-19 devnull 		case 'l':
103 564ca709 2004-04-19 devnull 		case 't':
104 564ca709 2004-04-19 devnull 			if(s.name[0] == '.')
105 564ca709 2004-04-19 devnull 				continue;
106 564ca709 2004-04-19 devnull 			if(s.loc.type != LADDR)
107 564ca709 2004-04-19 devnull 				continue;
108 564ca709 2004-04-19 devnull 			v = s.loc.addr;
109 564ca709 2004-04-19 devnull 			tl = al(TLIST);
110 564ca709 2004-04-19 devnull 			*tail = tl;
111 564ca709 2004-04-19 devnull 			tail = &tl->next;
112 564ca709 2004-04-19 devnull 
113 564ca709 2004-04-19 devnull 			l = unique(buf, &s);
114 564ca709 2004-04-19 devnull 			l->v->set = 1;
115 564ca709 2004-04-19 devnull 			l->v->type = TINT;
116 564ca709 2004-04-19 devnull 			l->v->store.u.ival = v;
117 564ca709 2004-04-19 devnull 			if(l->v->store.comt == 0)
118 564ca709 2004-04-19 devnull 				l->v->store.fmt = 'X';
119 564ca709 2004-04-19 devnull 
120 564ca709 2004-04-19 devnull 			/* Enter as list of { name, type, value, file } */
121 564ca709 2004-04-19 devnull 			list = al(TSTRING);
122 564ca709 2004-04-19 devnull 			tl->store.u.l = list;
123 564ca709 2004-04-19 devnull 			list->store.u.string = strnode(buf);
124 564ca709 2004-04-19 devnull 			list->store.fmt = 's';
125 564ca709 2004-04-19 devnull 			list->next = al(TINT);
126 564ca709 2004-04-19 devnull 			list = list->next;
127 564ca709 2004-04-19 devnull 			list->store.fmt = 'c';
128 564ca709 2004-04-19 devnull 			list->store.u.ival = s.type;
129 564ca709 2004-04-19 devnull 			list->next = al(TINT);
130 564ca709 2004-04-19 devnull 			list = list->next;
131 564ca709 2004-04-19 devnull 			list->store.fmt = 'X';
132 564ca709 2004-04-19 devnull 			list->store.u.ival = v;
133 564ca709 2004-04-19 devnull 			list->next = al(TSTRING);
134 564ca709 2004-04-19 devnull 			list = list->next;
135 564ca709 2004-04-19 devnull 			list->store.fmt = 's';
136 564ca709 2004-04-19 devnull 			list->store.u.string = file;
137 564ca709 2004-04-19 devnull 		}
138 564ca709 2004-04-19 devnull 	}
139 564ca709 2004-04-19 devnull 	*tail = nil;
140 564ca709 2004-04-19 devnull }
141 564ca709 2004-04-19 devnull 
142 564ca709 2004-04-19 devnull static int
143 564ca709 2004-04-19 devnull infile(List *list, char *file, char **name)
144 564ca709 2004-04-19 devnull {
145 564ca709 2004-04-19 devnull 	/* name */
146 564ca709 2004-04-19 devnull 	if(list->type != TSTRING)
147 564ca709 2004-04-19 devnull 		return 0;
148 564ca709 2004-04-19 devnull 	*name = list->store.u.string->string;
149 564ca709 2004-04-19 devnull 	if(list->next == nil)
150 564ca709 2004-04-19 devnull 		return 0;
151 564ca709 2004-04-19 devnull 	list = list->next;
152 564ca709 2004-04-19 devnull 
153 564ca709 2004-04-19 devnull 	/* type character */
154 564ca709 2004-04-19 devnull 	if(list->next == nil)
155 564ca709 2004-04-19 devnull 		return 0;
156 564ca709 2004-04-19 devnull 	list = list->next;
157 564ca709 2004-04-19 devnull 
158 564ca709 2004-04-19 devnull 	/* address */
159 564ca709 2004-04-19 devnull 	if(list->next == nil)
160 564ca709 2004-04-19 devnull 		return 0;
161 564ca709 2004-04-19 devnull 	list = list->next;
162 564ca709 2004-04-19 devnull 
163 564ca709 2004-04-19 devnull 	/* file */
164 564ca709 2004-04-19 devnull 	if(list->type != TSTRING)
165 564ca709 2004-04-19 devnull 		return 0;
166 564ca709 2004-04-19 devnull 	return strcmp(list->store.u.string->string, file) == 0;
167 564ca709 2004-04-19 devnull }
168 564ca709 2004-04-19 devnull 
169 564ca709 2004-04-19 devnull void
170 564ca709 2004-04-19 devnull delvarsym(char *file)
171 564ca709 2004-04-19 devnull {
172 564ca709 2004-04-19 devnull 	char *name;
173 564ca709 2004-04-19 devnull 	Lsym *l;
174 564ca709 2004-04-19 devnull 	List **lp, *p;
175 564ca709 2004-04-19 devnull 
176 564ca709 2004-04-19 devnull 	l = look("symbols");
177 564ca709 2004-04-19 devnull 	if(l == nil)
178 564ca709 2004-04-19 devnull 		return;
179 564ca709 2004-04-19 devnull 
180 564ca709 2004-04-19 devnull 	if(l->v->type != TLIST)
181 564ca709 2004-04-19 devnull 		return;
182 564ca709 2004-04-19 devnull 
183 564ca709 2004-04-19 devnull 	for(lp=&l->v->store.u.l; *lp; lp=&(*lp)->next){
184 564ca709 2004-04-19 devnull 		while(*lp){
185 564ca709 2004-04-19 devnull 			p = *lp;
186 564ca709 2004-04-19 devnull 			if(p->type != TLIST)
187 564ca709 2004-04-19 devnull 				break;
188 564ca709 2004-04-19 devnull 			if(!infile(p->store.u.l, file, &name))
189 564ca709 2004-04-19 devnull 				break;
190 564ca709 2004-04-19 devnull 			*lp = p->next;
191 564ca709 2004-04-19 devnull 			/* XXX remove from hash tables */
192 564ca709 2004-04-19 devnull 		}
193 564ca709 2004-04-19 devnull 		if(*lp == nil)
194 564ca709 2004-04-19 devnull 			break;
195 564ca709 2004-04-19 devnull 	}
196 564ca709 2004-04-19 devnull }
197 564ca709 2004-04-19 devnull 
198 564ca709 2004-04-19 devnull void
199 564ca709 2004-04-19 devnull varreg(void)
200 564ca709 2004-04-19 devnull {
201 564ca709 2004-04-19 devnull 	Lsym *l;
202 564ca709 2004-04-19 devnull 	Value *v;
203 564ca709 2004-04-19 devnull 	Regdesc *r;
204 564ca709 2004-04-19 devnull 	List **tail, *li;
205 564ca709 2004-04-19 devnull 
206 564ca709 2004-04-19 devnull 	l = mkvar("registers");
207 564ca709 2004-04-19 devnull 	v = l->v;
208 564ca709 2004-04-19 devnull 	v->set = 1;
209 564ca709 2004-04-19 devnull 	v->type = TLIST;
210 564ca709 2004-04-19 devnull 	v->store.u.l = 0;
211 564ca709 2004-04-19 devnull 	tail = &v->store.u.l;
212 564ca709 2004-04-19 devnull 
213 564ca709 2004-04-19 devnull 	if(mach == nil)
214 564ca709 2004-04-19 devnull 		return;
215 564ca709 2004-04-19 devnull 
216 564ca709 2004-04-19 devnull 	for(r = mach->reglist; r->name; r++) {
217 564ca709 2004-04-19 devnull 		l = mkvar(r->name);
218 564ca709 2004-04-19 devnull 		v = l->v;
219 564ca709 2004-04-19 devnull 		v->set = 1;
220 564ca709 2004-04-19 devnull 		v->store.u.ival = r->offset;
221 564ca709 2004-04-19 devnull 		v->store.fmt = r->format;
222 564ca709 2004-04-19 devnull 		v->type = TINT;
223 564ca709 2004-04-19 devnull 
224 564ca709 2004-04-19 devnull 		li = al(TSTRING);
225 564ca709 2004-04-19 devnull 		li->store.u.string = strnode(r->name);
226 564ca709 2004-04-19 devnull 		li->store.fmt = 's';
227 564ca709 2004-04-19 devnull 		*tail = li;
228 564ca709 2004-04-19 devnull 		tail = &li->next;
229 564ca709 2004-04-19 devnull 	}
230 564ca709 2004-04-19 devnull 
231 564ca709 2004-04-19 devnull 	l = mkvar("bpinst");	/* Breakpoint text */
232 564ca709 2004-04-19 devnull 	v = l->v;
233 564ca709 2004-04-19 devnull 	v->type = TSTRING;
234 564ca709 2004-04-19 devnull 	v->store.fmt = 's';
235 564ca709 2004-04-19 devnull 	v->set = 1;
236 564ca709 2004-04-19 devnull 	v->store.u.string = gmalloc(sizeof(String));
237 564ca709 2004-04-19 devnull 	v->store.u.string->len = mach->bpsize;
238 564ca709 2004-04-19 devnull 	v->store.u.string->string = gmalloc(mach->bpsize);
239 564ca709 2004-04-19 devnull 	memmove(v->store.u.string->string, mach->bpinst, mach->bpsize);
240 564ca709 2004-04-19 devnull }
241 564ca709 2004-04-19 devnull 
242 564ca709 2004-04-19 devnull void
243 564ca709 2004-04-19 devnull loadvars(void)
244 564ca709 2004-04-19 devnull {
245 564ca709 2004-04-19 devnull 	Lsym *l;
246 564ca709 2004-04-19 devnull 	Value *v;
247 564ca709 2004-04-19 devnull 
248 564ca709 2004-04-19 devnull 	l =  mkvar("proc");
249 564ca709 2004-04-19 devnull 	v = l->v;
250 564ca709 2004-04-19 devnull 	v->type = TINT;
251 564ca709 2004-04-19 devnull 	v->store.fmt = 'X';
252 564ca709 2004-04-19 devnull 	v->set = 1;
253 564ca709 2004-04-19 devnull 	v->store.u.ival = 0;
254 564ca709 2004-04-19 devnull 
255 564ca709 2004-04-19 devnull 	l = mkvar("pid");		/* Current process */
256 564ca709 2004-04-19 devnull 	v = l->v;
257 564ca709 2004-04-19 devnull 	v->type = TINT;
258 564ca709 2004-04-19 devnull 	v->store.fmt = 'D';
259 564ca709 2004-04-19 devnull 	v->set = 1;
260 564ca709 2004-04-19 devnull 	v->store.u.ival = 0;
261 564ca709 2004-04-19 devnull 
262 564ca709 2004-04-19 devnull 	mkvar("notes");			/* Pending notes */
263 564ca709 2004-04-19 devnull 
264 564ca709 2004-04-19 devnull 	l = mkvar("proclist");		/* Attached processes */
265 564ca709 2004-04-19 devnull 	l->v->type = TLIST;
266 564ca709 2004-04-19 devnull }
267 564ca709 2004-04-19 devnull 
268 564ca709 2004-04-19 devnull String*
269 564ca709 2004-04-19 devnull strnodlen(char *name, int len)
270 564ca709 2004-04-19 devnull {
271 564ca709 2004-04-19 devnull 	String *s;
272 564ca709 2004-04-19 devnull 
273 564ca709 2004-04-19 devnull 	s = gmalloc(sizeof(String)+len+1);
274 564ca709 2004-04-19 devnull 	s->string = (char*)s+sizeof(String);
275 564ca709 2004-04-19 devnull 	s->len = len;
276 564ca709 2004-04-19 devnull 	if(name != 0)
277 564ca709 2004-04-19 devnull 		memmove(s->string, name, len);
278 564ca709 2004-04-19 devnull 	s->string[len] = '\0';
279 564ca709 2004-04-19 devnull 
280 564ca709 2004-04-19 devnull 	s->gc.gclink = gcl;
281 564ca709 2004-04-19 devnull 	gcl = (Gc*)s;
282 564ca709 2004-04-19 devnull 
283 564ca709 2004-04-19 devnull 	return s;
284 564ca709 2004-04-19 devnull }
285 564ca709 2004-04-19 devnull 
286 564ca709 2004-04-19 devnull String*
287 564ca709 2004-04-19 devnull strnode(char *name)
288 564ca709 2004-04-19 devnull {
289 564ca709 2004-04-19 devnull 	return strnodlen(name, strlen(name));
290 564ca709 2004-04-19 devnull }
291 564ca709 2004-04-19 devnull 
292 564ca709 2004-04-19 devnull String*
293 564ca709 2004-04-19 devnull runenode(Rune *name)
294 564ca709 2004-04-19 devnull {
295 564ca709 2004-04-19 devnull 	int len;
296 564ca709 2004-04-19 devnull 	Rune *p;
297 564ca709 2004-04-19 devnull 	String *s;
298 564ca709 2004-04-19 devnull 
299 564ca709 2004-04-19 devnull 	p = name;
300 564ca709 2004-04-19 devnull 	for(len = 0; *p; p++)
301 564ca709 2004-04-19 devnull 		len++;
302 564ca709 2004-04-19 devnull 
303 564ca709 2004-04-19 devnull 	len++;
304 564ca709 2004-04-19 devnull 	len *= sizeof(Rune);
305 564ca709 2004-04-19 devnull 	s = gmalloc(sizeof(String)+len);
306 564ca709 2004-04-19 devnull 	s->string = (char*)s+sizeof(String);
307 564ca709 2004-04-19 devnull 	s->len = len;
308 564ca709 2004-04-19 devnull 	memmove(s->string, name, len);
309 564ca709 2004-04-19 devnull 
310 564ca709 2004-04-19 devnull 	s->gc.gclink = gcl;
311 564ca709 2004-04-19 devnull 	gcl = (Gc*)s;
312 564ca709 2004-04-19 devnull 
313 564ca709 2004-04-19 devnull 	return s;
314 564ca709 2004-04-19 devnull }
315 564ca709 2004-04-19 devnull 
316 564ca709 2004-04-19 devnull String*
317 564ca709 2004-04-19 devnull stradd(String *l, String *r)
318 564ca709 2004-04-19 devnull {
319 564ca709 2004-04-19 devnull 	int len;
320 564ca709 2004-04-19 devnull 	String *s;
321 564ca709 2004-04-19 devnull 
322 564ca709 2004-04-19 devnull 	len = l->len+r->len;
323 564ca709 2004-04-19 devnull 	s = gmalloc(sizeof(String)+len+1);
324 564ca709 2004-04-19 devnull 	s->gc.gclink = gcl;
325 564ca709 2004-04-19 devnull 	gcl = (Gc*)s;
326 564ca709 2004-04-19 devnull 	s->len = len;
327 564ca709 2004-04-19 devnull 	s->string = (char*)s+sizeof(String);
328 564ca709 2004-04-19 devnull 	memmove(s->string, l->string, l->len);
329 564ca709 2004-04-19 devnull 	memmove(s->string+l->len, r->string, r->len);
330 564ca709 2004-04-19 devnull 	s->string[s->len] = 0;
331 564ca709 2004-04-19 devnull 	return s;
332 564ca709 2004-04-19 devnull }
333 564ca709 2004-04-19 devnull 
334 564ca709 2004-04-19 devnull int
335 564ca709 2004-04-19 devnull scmp(String *sr, String *sl)
336 564ca709 2004-04-19 devnull {
337 564ca709 2004-04-19 devnull 	if(sr->len != sl->len)
338 564ca709 2004-04-19 devnull 		return 0;
339 564ca709 2004-04-19 devnull 
340 564ca709 2004-04-19 devnull 	if(memcmp(sr->string, sl->string, sl->len))
341 564ca709 2004-04-19 devnull 		return 0;
342 564ca709 2004-04-19 devnull 
343 564ca709 2004-04-19 devnull 	return 1;
344 564ca709 2004-04-19 devnull }