1 a84cbb2a 2004-04-19 devnull /*
  2 a84cbb2a 2004-04-19 devnull  * process interface for Linux.
  3 a84cbb2a 2004-04-19 devnull  * 
  4 a84cbb2a 2004-04-19 devnull  * Uses ptrace for registers and data,
  5 a84cbb2a 2004-04-19 devnull  * /proc for some process status.
  6 a84cbb2a 2004-04-19 devnull  * There's not much point to worrying about
  7 a84cbb2a 2004-04-19 devnull  * byte order here -- using ptrace means
  8 a84cbb2a 2004-04-19 devnull  * we're running on the architecture we're debugging,
  9 a84cbb2a 2004-04-19 devnull  * unless truly weird stuff is going on.
 10 a84cbb2a 2004-04-19 devnull  *
 11 a84cbb2a 2004-04-19 devnull  * It is tempting to use /proc/%d/mem along with
 12 a84cbb2a 2004-04-19 devnull  * the sp and pc in the stat file to get a stack trace
 13 a84cbb2a 2004-04-19 devnull  * without attaching to the program, but unfortunately
 14 a84cbb2a 2004-04-19 devnull  * you can't read the mem file unless you've attached.
 15 a84cbb2a 2004-04-19 devnull  */
 16 a84cbb2a 2004-04-19 devnull 
 17 a84cbb2a 2004-04-19 devnull #include <u.h>
 18 a84cbb2a 2004-04-19 devnull #include <sys/ptrace.h>
 19 a84cbb2a 2004-04-19 devnull #include <sys/types.h>
 20 a84cbb2a 2004-04-19 devnull #include <sys/wait.h>
 21 a84cbb2a 2004-04-19 devnull #include <signal.h>
 22 a84cbb2a 2004-04-19 devnull #include <errno.h>
 23 a84cbb2a 2004-04-19 devnull #include <libc.h>
 24 a84cbb2a 2004-04-19 devnull #include <mach.h>
 25 a84cbb2a 2004-04-19 devnull #include "ureg386.h"
 26 a84cbb2a 2004-04-19 devnull 
 27 a84cbb2a 2004-04-19 devnull Mach *machcpu = &mach386;
 28 a84cbb2a 2004-04-19 devnull 
 29 a84cbb2a 2004-04-19 devnull typedef struct PtraceRegs PtraceRegs;
 30 a84cbb2a 2004-04-19 devnull 
 31 a84cbb2a 2004-04-19 devnull struct PtraceRegs
 32 a84cbb2a 2004-04-19 devnull {
 33 a84cbb2a 2004-04-19 devnull 	Regs r;
 34 a84cbb2a 2004-04-19 devnull 	int pid;
 35 a84cbb2a 2004-04-19 devnull };
 36 a84cbb2a 2004-04-19 devnull 
 37 a84cbb2a 2004-04-19 devnull static int ptracerw(Map*, Seg*, ulong, void*, uint, int);
 38 a84cbb2a 2004-04-19 devnull static int ptraceregrw(Regs*, char*, ulong*, int);
 39 a84cbb2a 2004-04-19 devnull 
 40 a84cbb2a 2004-04-19 devnull void
 41 a84cbb2a 2004-04-19 devnull unmapproc(Map *map)
 42 a84cbb2a 2004-04-19 devnull {
 43 a84cbb2a 2004-04-19 devnull 	int i;
 44 a84cbb2a 2004-04-19 devnull 
 45 a84cbb2a 2004-04-19 devnull 	if(map == nil)
 46 a84cbb2a 2004-04-19 devnull 		return;
 47 a84cbb2a 2004-04-19 devnull 	for(i=0; i<map->nseg; i++)
 48 a84cbb2a 2004-04-19 devnull 		while(i<map->nseg && map->seg[i].pid){
 49 a84cbb2a 2004-04-19 devnull 			map->nseg--;
 50 a84cbb2a 2004-04-19 devnull 			memmove(&map->seg[i], &map->seg[i+1], 
 51 a84cbb2a 2004-04-19 devnull 				(map->nseg-i)*sizeof(map->seg[0]));
 52 a84cbb2a 2004-04-19 devnull 		}
 53 a84cbb2a 2004-04-19 devnull }
 54 a84cbb2a 2004-04-19 devnull 
 55 a84cbb2a 2004-04-19 devnull int
 56 a84cbb2a 2004-04-19 devnull mapproc(int pid, Map *map, Regs **rp)
 57 a84cbb2a 2004-04-19 devnull {
 58 a84cbb2a 2004-04-19 devnull 	Seg s;
 59 a84cbb2a 2004-04-19 devnull 	PtraceRegs *r;
 60 a84cbb2a 2004-04-19 devnull 
 61 a84cbb2a 2004-04-19 devnull 	if(ptrace(PTRACE_ATTACH, pid, 0, 0) < 0)
 62 a84cbb2a 2004-04-19 devnull 	if(ptrace(PTRACE_PEEKUSER, pid, 0, 0) < 0)
 63 a84cbb2a 2004-04-19 devnull 	if(ptrace(PTRACE_ATTACH, pid, 0, 0) < 0){
 64 a84cbb2a 2004-04-19 devnull 		werrstr("ptrace attach %d: %r", pid);
 65 a84cbb2a 2004-04-19 devnull 		return -1;
 66 a84cbb2a 2004-04-19 devnull 	}
 67 a84cbb2a 2004-04-19 devnull 
 68 a84cbb2a 2004-04-19 devnull 	if(ctlproc(pid, "waitstop") < 0){
 69 a84cbb2a 2004-04-19 devnull 		ptrace(PTRACE_DETACH, pid, 0, 0);
 70 a84cbb2a 2004-04-19 devnull 		return -1;
 71 a84cbb2a 2004-04-19 devnull 	}
 72 a84cbb2a 2004-04-19 devnull 
 73 a84cbb2a 2004-04-19 devnull 	memset(&s, 0, sizeof s);
 74 a84cbb2a 2004-04-19 devnull 	s.base = 0;
 75 a84cbb2a 2004-04-19 devnull 	s.size = 0xFFFFFFFF;
 76 a84cbb2a 2004-04-19 devnull 	s.offset = 0;
 77 a84cbb2a 2004-04-19 devnull 	s.name = "data";
 78 a84cbb2a 2004-04-19 devnull 	s.file = nil;
 79 a84cbb2a 2004-04-19 devnull 	s.rw = ptracerw;
 80 a84cbb2a 2004-04-19 devnull 	s.pid = pid;
 81 a84cbb2a 2004-04-19 devnull 	if(addseg(map, s) < 0)
 82 a84cbb2a 2004-04-19 devnull 		return -1;
 83 a84cbb2a 2004-04-19 devnull 
 84 a84cbb2a 2004-04-19 devnull 	if((r = mallocz(sizeof(PtraceRegs), 1)) == nil)
 85 a84cbb2a 2004-04-19 devnull 		return -1;
 86 a84cbb2a 2004-04-19 devnull 	r->r.rw = ptraceregrw;
 87 a84cbb2a 2004-04-19 devnull 	r->pid = pid;
 88 a84cbb2a 2004-04-19 devnull 	*rp = (Regs*)r;
 89 a84cbb2a 2004-04-19 devnull 	return 0;
 90 a84cbb2a 2004-04-19 devnull }
 91 a84cbb2a 2004-04-19 devnull 
 92 a84cbb2a 2004-04-19 devnull int
 93 a84cbb2a 2004-04-19 devnull detachproc(int pid)
 94 a84cbb2a 2004-04-19 devnull {
 95 a84cbb2a 2004-04-19 devnull 	return ptrace(PTRACE_DETACH, pid, 0, 0);
 96 a84cbb2a 2004-04-19 devnull }
 97 a84cbb2a 2004-04-19 devnull 
 98 a84cbb2a 2004-04-19 devnull static int
 99 a84cbb2a 2004-04-19 devnull ptracerw(Map *map, Seg *seg, ulong addr, void *v, uint n, int isr)
100 a84cbb2a 2004-04-19 devnull {
101 a84cbb2a 2004-04-19 devnull 	int i;
102 a84cbb2a 2004-04-19 devnull 	u32int u;
103 a84cbb2a 2004-04-19 devnull 	uchar buf[4];
104 a84cbb2a 2004-04-19 devnull 
105 a84cbb2a 2004-04-19 devnull 	addr += seg->base;
106 a84cbb2a 2004-04-19 devnull 	for(i=0; i<n; i+=4){
107 a84cbb2a 2004-04-19 devnull 		if(isr){
108 a84cbb2a 2004-04-19 devnull 			errno = 0;
109 a84cbb2a 2004-04-19 devnull 			u = ptrace(PTRACE_PEEKDATA, seg->pid, addr+i, 0);
110 a84cbb2a 2004-04-19 devnull 			if(errno)
111 a84cbb2a 2004-04-19 devnull 				goto ptraceerr;
112 a84cbb2a 2004-04-19 devnull 			if(n-i >= 4)
113 a84cbb2a 2004-04-19 devnull 				*(u32int*)((char*)v+i) = u;
114 a84cbb2a 2004-04-19 devnull 			else{
115 a84cbb2a 2004-04-19 devnull 				*(u32int*)buf = u;
116 a84cbb2a 2004-04-19 devnull 				memmove((char*)v+i, buf, n-i);
117 a84cbb2a 2004-04-19 devnull 			}
118 a84cbb2a 2004-04-19 devnull 		}else{
119 a84cbb2a 2004-04-19 devnull 			if(n-i >= 4)
120 a84cbb2a 2004-04-19 devnull 				u = *(u32int*)((char*)v+i);
121 a84cbb2a 2004-04-19 devnull 			else{
122 a84cbb2a 2004-04-19 devnull 				errno = 0;
123 a84cbb2a 2004-04-19 devnull 				u = ptrace(PTRACE_PEEKDATA, seg->pid, addr+i, 0);
124 a84cbb2a 2004-04-19 devnull 				if(errno)
125 a84cbb2a 2004-04-19 devnull 					return -1;
126 a84cbb2a 2004-04-19 devnull 				*(u32int*)buf = u;
127 a84cbb2a 2004-04-19 devnull 				memmove(buf, (char*)v+i, n-i);
128 a84cbb2a 2004-04-19 devnull 				u = *(u32int*)buf;
129 a84cbb2a 2004-04-19 devnull 			}
130 a84cbb2a 2004-04-19 devnull 			if(ptrace(PTRACE_POKEDATA, seg->pid, addr+i, &u) < 0)
131 a84cbb2a 2004-04-19 devnull 				goto ptraceerr;
132 a84cbb2a 2004-04-19 devnull 		}
133 a84cbb2a 2004-04-19 devnull 	}
134 a84cbb2a 2004-04-19 devnull 	return 0;
135 a84cbb2a 2004-04-19 devnull 
136 a84cbb2a 2004-04-19 devnull ptraceerr:
137 a84cbb2a 2004-04-19 devnull 	werrstr("ptrace: %r");
138 a84cbb2a 2004-04-19 devnull 	return -1;
139 a84cbb2a 2004-04-19 devnull }
140 a84cbb2a 2004-04-19 devnull 
141 a84cbb2a 2004-04-19 devnull static char* linuxregs[] = {
142 a84cbb2a 2004-04-19 devnull 	"BX",
143 a84cbb2a 2004-04-19 devnull 	"CX",
144 a84cbb2a 2004-04-19 devnull 	"DX",
145 a84cbb2a 2004-04-19 devnull 	"SI",
146 a84cbb2a 2004-04-19 devnull 	"DI",
147 a84cbb2a 2004-04-19 devnull 	"BP",
148 a84cbb2a 2004-04-19 devnull 	"AX",
149 a84cbb2a 2004-04-19 devnull 	"DS",
150 a84cbb2a 2004-04-19 devnull 	"ES",
151 a84cbb2a 2004-04-19 devnull 	"FS",
152 a84cbb2a 2004-04-19 devnull 	"GS",
153 a84cbb2a 2004-04-19 devnull 	"OAX",
154 a84cbb2a 2004-04-19 devnull 	"PC",
155 a84cbb2a 2004-04-19 devnull 	"CS",
156 a84cbb2a 2004-04-19 devnull 	"EFLAGS",
157 a84cbb2a 2004-04-19 devnull 	"SP",
158 a84cbb2a 2004-04-19 devnull 	"SS",
159 a84cbb2a 2004-04-19 devnull };
160 a84cbb2a 2004-04-19 devnull 
161 a84cbb2a 2004-04-19 devnull static ulong
162 a84cbb2a 2004-04-19 devnull reg2linux(char *reg)
163 a84cbb2a 2004-04-19 devnull {
164 a84cbb2a 2004-04-19 devnull 	int i;
165 a84cbb2a 2004-04-19 devnull 
166 a84cbb2a 2004-04-19 devnull 	for(i=0; i<nelem(linuxregs); i++)
167 a84cbb2a 2004-04-19 devnull 		if(strcmp(linuxregs[i], reg) == 0)
168 a84cbb2a 2004-04-19 devnull 			return 4*i;
169 a84cbb2a 2004-04-19 devnull 	return ~(ulong)0;
170 a84cbb2a 2004-04-19 devnull }
171 a84cbb2a 2004-04-19 devnull 
172 a84cbb2a 2004-04-19 devnull static int
173 a84cbb2a 2004-04-19 devnull ptraceregrw(Regs *regs, char *name, ulong *val, int isr)
174 a84cbb2a 2004-04-19 devnull {
175 a84cbb2a 2004-04-19 devnull 	int pid;
176 a84cbb2a 2004-04-19 devnull 	ulong addr;
177 a84cbb2a 2004-04-19 devnull 	u32int u;
178 a84cbb2a 2004-04-19 devnull 
179 a84cbb2a 2004-04-19 devnull 	pid = ((PtraceRegs*)regs)->pid;
180 a84cbb2a 2004-04-19 devnull 	addr = reg2linux(name);
181 a84cbb2a 2004-04-19 devnull 	if(~addr == 0){
182 a84cbb2a 2004-04-19 devnull 		if(isr){
183 a84cbb2a 2004-04-19 devnull 			*val = ~(ulong)0;
184 a84cbb2a 2004-04-19 devnull 			return 0;
185 a84cbb2a 2004-04-19 devnull 		}
186 a84cbb2a 2004-04-19 devnull 		werrstr("register not available");
187 a84cbb2a 2004-04-19 devnull 		return -1;
188 a84cbb2a 2004-04-19 devnull 	}
189 a84cbb2a 2004-04-19 devnull 	if(isr){
190 a84cbb2a 2004-04-19 devnull 		errno = 0;
191 a84cbb2a 2004-04-19 devnull 		u = ptrace(PTRACE_PEEKUSER, pid, addr, 0);
192 a84cbb2a 2004-04-19 devnull 		if(errno)
193 a84cbb2a 2004-04-19 devnull 			goto ptraceerr;
194 a84cbb2a 2004-04-19 devnull 		*val = u;
195 a84cbb2a 2004-04-19 devnull 	}else{
196 a84cbb2a 2004-04-19 devnull 		u = *val;
197 a84cbb2a 2004-04-19 devnull 		if(ptrace(PTRACE_POKEUSER, pid, addr, &u) < 0)
198 a84cbb2a 2004-04-19 devnull 			goto ptraceerr;
199 a84cbb2a 2004-04-19 devnull 	}
200 a84cbb2a 2004-04-19 devnull 	return 0;
201 a84cbb2a 2004-04-19 devnull 
202 a84cbb2a 2004-04-19 devnull ptraceerr:
203 a84cbb2a 2004-04-19 devnull 	werrstr("ptrace: %r");
204 a84cbb2a 2004-04-19 devnull 	return -1;
205 a84cbb2a 2004-04-19 devnull }
206 a84cbb2a 2004-04-19 devnull 
207 a84cbb2a 2004-04-19 devnull static int
208 a84cbb2a 2004-04-19 devnull isstopped(int pid)
209 a84cbb2a 2004-04-19 devnull {
210 a84cbb2a 2004-04-19 devnull 	char buf[1024];
211 a84cbb2a 2004-04-19 devnull 	int fd, n;
212 a84cbb2a 2004-04-19 devnull 	char *p;
213 a84cbb2a 2004-04-19 devnull 
214 a84cbb2a 2004-04-19 devnull 	snprint(buf, sizeof buf, "/proc/%d/stat", pid);
215 a84cbb2a 2004-04-19 devnull 	if((fd = open(buf, OREAD)) < 0)
216 a84cbb2a 2004-04-19 devnull 		return 0;
217 a84cbb2a 2004-04-19 devnull 	n = read(fd, buf, sizeof buf-1);
218 a84cbb2a 2004-04-19 devnull 	close(fd);
219 a84cbb2a 2004-04-19 devnull 	if(n <= 0)
220 a84cbb2a 2004-04-19 devnull 		return 0;
221 a84cbb2a 2004-04-19 devnull 	buf[n] = 0;
222 a84cbb2a 2004-04-19 devnull 
223 a84cbb2a 2004-04-19 devnull 	/* command name is in parens, no parens afterward */
224 a84cbb2a 2004-04-19 devnull 	p = strrchr(buf, ')');
225 a84cbb2a 2004-04-19 devnull 	if(p == nil || *++p != ' ')
226 a84cbb2a 2004-04-19 devnull 		return 0;
227 a84cbb2a 2004-04-19 devnull 	++p;
228 a84cbb2a 2004-04-19 devnull 
229 a84cbb2a 2004-04-19 devnull 	/* next is state - T is stopped for tracing */
230 a84cbb2a 2004-04-19 devnull 	return *p == 'T';
231 a84cbb2a 2004-04-19 devnull }
232 a84cbb2a 2004-04-19 devnull 
233 a84cbb2a 2004-04-19 devnull /* /proc/pid/stat contains 
234 a84cbb2a 2004-04-19 devnull 	pid
235 a84cbb2a 2004-04-19 devnull 	command in parens
236 a84cbb2a 2004-04-19 devnull 	0. state
237 a84cbb2a 2004-04-19 devnull 	1. ppid
238 a84cbb2a 2004-04-19 devnull 	2. pgrp
239 a84cbb2a 2004-04-19 devnull 	3. session
240 a84cbb2a 2004-04-19 devnull 	4. tty_nr
241 a84cbb2a 2004-04-19 devnull 	5. tpgid
242 a84cbb2a 2004-04-19 devnull 	6. flags (math=4, traced=10)
243 a84cbb2a 2004-04-19 devnull 	7. minflt
244 a84cbb2a 2004-04-19 devnull 	8. cminflt
245 a84cbb2a 2004-04-19 devnull 	9. majflt
246 a84cbb2a 2004-04-19 devnull 	10. cmajflt
247 a84cbb2a 2004-04-19 devnull 	11. utime
248 a84cbb2a 2004-04-19 devnull 	12. stime
249 a84cbb2a 2004-04-19 devnull 	13. cutime
250 a84cbb2a 2004-04-19 devnull 	14. cstime
251 a84cbb2a 2004-04-19 devnull 	15. priority
252 a84cbb2a 2004-04-19 devnull 	16. nice
253 a84cbb2a 2004-04-19 devnull 	17. 0
254 a84cbb2a 2004-04-19 devnull 	18. itrealvalue
255 a84cbb2a 2004-04-19 devnull 	19. starttime
256 a84cbb2a 2004-04-19 devnull 	20. vsize
257 a84cbb2a 2004-04-19 devnull 	21. rss
258 a84cbb2a 2004-04-19 devnull 	22. rlim
259 a84cbb2a 2004-04-19 devnull 	23. startcode
260 a84cbb2a 2004-04-19 devnull 	24. endcode
261 a84cbb2a 2004-04-19 devnull 	25. startstack
262 a84cbb2a 2004-04-19 devnull 	26. kstkesp
263 a84cbb2a 2004-04-19 devnull 	27. kstkeip
264 a84cbb2a 2004-04-19 devnull 	28. pending signal bitmap
265 a84cbb2a 2004-04-19 devnull 	29. blocked signal bitmap
266 a84cbb2a 2004-04-19 devnull 	30. ignored signal bitmap
267 a84cbb2a 2004-04-19 devnull 	31. caught signal bitmap
268 a84cbb2a 2004-04-19 devnull 	32. wchan
269 a84cbb2a 2004-04-19 devnull 	33. nswap
270 a84cbb2a 2004-04-19 devnull 	34. cnswap
271 a84cbb2a 2004-04-19 devnull 	35. exit_signal
272 a84cbb2a 2004-04-19 devnull 	36. processor
273 a84cbb2a 2004-04-19 devnull */
274 a84cbb2a 2004-04-19 devnull 
275 a84cbb2a 2004-04-19 devnull 
276 a84cbb2a 2004-04-19 devnull int
277 a84cbb2a 2004-04-19 devnull procnotes(int pid, char ***pnotes)
278 a84cbb2a 2004-04-19 devnull {
279 a84cbb2a 2004-04-19 devnull 	char buf[1024], *f[40];
280 a84cbb2a 2004-04-19 devnull 	int fd, i, n, nf;
281 a84cbb2a 2004-04-19 devnull 	char *p, *s, **notes;
282 a84cbb2a 2004-04-19 devnull 	ulong sigs;
283 a84cbb2a 2004-04-19 devnull 	extern char *_p9sigstr(int, char*);
284 a84cbb2a 2004-04-19 devnull 
285 a84cbb2a 2004-04-19 devnull 	*pnotes = nil;
286 a84cbb2a 2004-04-19 devnull 	snprint(buf, sizeof buf, "/proc/%d/stat", pid);
287 a84cbb2a 2004-04-19 devnull 	if((fd = open(buf, OREAD)) < 0){
288 a84cbb2a 2004-04-19 devnull 		fprint(2, "open %s: %r\n", buf);
289 a84cbb2a 2004-04-19 devnull 		return -1;
290 a84cbb2a 2004-04-19 devnull 	}
291 a84cbb2a 2004-04-19 devnull 	n = read(fd, buf, sizeof buf-1);
292 a84cbb2a 2004-04-19 devnull 	close(fd);
293 a84cbb2a 2004-04-19 devnull 	if(n <= 0){
294 a84cbb2a 2004-04-19 devnull 		fprint(2, "read %s: %r\n", buf);
295 a84cbb2a 2004-04-19 devnull 		return -1;
296 a84cbb2a 2004-04-19 devnull 	}
297 a84cbb2a 2004-04-19 devnull 	buf[n] = 0;
298 a84cbb2a 2004-04-19 devnull 
299 a84cbb2a 2004-04-19 devnull 	/* command name is in parens, no parens afterward */
300 a84cbb2a 2004-04-19 devnull 	p = strrchr(buf, ')');
301 a84cbb2a 2004-04-19 devnull 	if(p == nil || *++p != ' '){
302 a84cbb2a 2004-04-19 devnull 		fprint(2, "bad format in /proc/%d/stat\n", pid);
303 a84cbb2a 2004-04-19 devnull 		return -1;
304 a84cbb2a 2004-04-19 devnull 	}
305 a84cbb2a 2004-04-19 devnull 	++p;
306 a84cbb2a 2004-04-19 devnull 
307 a84cbb2a 2004-04-19 devnull 	nf = tokenize(p, f, nelem(f));
308 a84cbb2a 2004-04-19 devnull 	if(0) print("code 0x%lux-0x%lux stack 0x%lux kstk 0x%lux keip 0x%lux pending 0x%lux\n",
309 a84cbb2a 2004-04-19 devnull 		strtoul(f[23], 0, 0), strtoul(f[24], 0, 0), strtoul(f[25], 0, 0),
310 a84cbb2a 2004-04-19 devnull 		strtoul(f[26], 0, 0), strtoul(f[27], 0, 0), strtoul(f[28], 0, 0));
311 a84cbb2a 2004-04-19 devnull 	if(nf <= 28)
312 a84cbb2a 2004-04-19 devnull 		return -1;
313 a84cbb2a 2004-04-19 devnull 
314 a84cbb2a 2004-04-19 devnull 	sigs = strtoul(f[28], 0, 0) & ~(1<<SIGCONT);
315 a84cbb2a 2004-04-19 devnull 	if(sigs == 0){
316 a84cbb2a 2004-04-19 devnull 		*pnotes = nil;
317 a84cbb2a 2004-04-19 devnull 		return 0;
318 a84cbb2a 2004-04-19 devnull 	}
319 a84cbb2a 2004-04-19 devnull 
320 a84cbb2a 2004-04-19 devnull 	notes = mallocz(32*sizeof(char*), 0);
321 a84cbb2a 2004-04-19 devnull 	if(notes == nil)
322 a84cbb2a 2004-04-19 devnull 		return -1;
323 a84cbb2a 2004-04-19 devnull 	n = 0;
324 a84cbb2a 2004-04-19 devnull 	for(i=0; i<32; i++){
325 a84cbb2a 2004-04-19 devnull 		if((sigs&(1<<i)) == 0)
326 a84cbb2a 2004-04-19 devnull 			continue;
327 a84cbb2a 2004-04-19 devnull 		if((s = _p9sigstr(i, nil)) == nil)
328 a84cbb2a 2004-04-19 devnull 			continue;
329 a84cbb2a 2004-04-19 devnull 		notes[n++] = s;
330 a84cbb2a 2004-04-19 devnull 	}
331 a84cbb2a 2004-04-19 devnull 	*pnotes = notes;
332 a84cbb2a 2004-04-19 devnull 	return n;
333 a84cbb2a 2004-04-19 devnull }
334 a84cbb2a 2004-04-19 devnull 
335 a84cbb2a 2004-04-19 devnull #undef waitpid
336 a84cbb2a 2004-04-19 devnull 
337 a84cbb2a 2004-04-19 devnull int
338 a84cbb2a 2004-04-19 devnull ctlproc(int pid, char *msg)
339 a84cbb2a 2004-04-19 devnull {
340 a84cbb2a 2004-04-19 devnull 	int p, status;
341 a84cbb2a 2004-04-19 devnull 
342 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "hang") == 0){
343 a84cbb2a 2004-04-19 devnull 		if(pid == getpid())
344 a84cbb2a 2004-04-19 devnull 			return ptrace(PTRACE_TRACEME, 0, 0, 0);
345 a84cbb2a 2004-04-19 devnull 		werrstr("can only hang self");
346 a84cbb2a 2004-04-19 devnull 		return -1;
347 a84cbb2a 2004-04-19 devnull 	}
348 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "kill") == 0)
349 a84cbb2a 2004-04-19 devnull 		return ptrace(PTRACE_KILL, pid, 0, 0);
350 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "startstop") == 0){
351 a84cbb2a 2004-04-19 devnull 		if(ptrace(PTRACE_CONT, pid, 0, 0) < 0)
352 a84cbb2a 2004-04-19 devnull 			return -1;
353 a84cbb2a 2004-04-19 devnull 		goto waitstop;
354 a84cbb2a 2004-04-19 devnull 	}
355 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "sysstop") == 0){
356 a84cbb2a 2004-04-19 devnull 		if(ptrace(PTRACE_SYSCALL, pid, 0, 0) < 0)
357 a84cbb2a 2004-04-19 devnull 			return -1;
358 a84cbb2a 2004-04-19 devnull 		goto waitstop;
359 a84cbb2a 2004-04-19 devnull 	}
360 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "stop") == 0){
361 a84cbb2a 2004-04-19 devnull 		if(kill(pid, SIGSTOP) < 0)
362 a84cbb2a 2004-04-19 devnull 			return -1;
363 a84cbb2a 2004-04-19 devnull 		goto waitstop;
364 a84cbb2a 2004-04-19 devnull 	}
365 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "waitstop") == 0){
366 a84cbb2a 2004-04-19 devnull 	waitstop:
367 a84cbb2a 2004-04-19 devnull 		if(isstopped(pid))
368 a84cbb2a 2004-04-19 devnull 			return 0;
369 a84cbb2a 2004-04-19 devnull 		for(;;){
370 a84cbb2a 2004-04-19 devnull 			p = waitpid(pid, &status, WUNTRACED);
371 a84cbb2a 2004-04-19 devnull 			if(p <= 0)
372 a84cbb2a 2004-04-19 devnull 				return -1;
373 a84cbb2a 2004-04-19 devnull 			if(WIFEXITED(status) || WIFSTOPPED(status))
374 a84cbb2a 2004-04-19 devnull 				return 0;
375 a84cbb2a 2004-04-19 devnull 		}
376 a84cbb2a 2004-04-19 devnull 	}
377 a84cbb2a 2004-04-19 devnull 	if(strcmp(msg, "start") == 0)
378 a84cbb2a 2004-04-19 devnull 		return ptrace(PTRACE_CONT, pid, 0, 0);
379 a84cbb2a 2004-04-19 devnull 	werrstr("unknown control message '%s'", msg);
380 a84cbb2a 2004-04-19 devnull 	return -1;
381 a84cbb2a 2004-04-19 devnull }
382 a84cbb2a 2004-04-19 devnull 
383 a84cbb2a 2004-04-19 devnull char*
384 a84cbb2a 2004-04-19 devnull proctextfile(int pid)
385 a84cbb2a 2004-04-19 devnull {
386 a84cbb2a 2004-04-19 devnull 	static char buf[1024], pbuf[128];
387 a84cbb2a 2004-04-19 devnull 
388 a84cbb2a 2004-04-19 devnull 	snprint(pbuf, sizeof pbuf, "/proc/%d/exe", pid);
389 a84cbb2a 2004-04-19 devnull 	if(readlink(pbuf, buf, sizeof buf) >= 0)
390 a84cbb2a 2004-04-19 devnull 		return buf;
391 a84cbb2a 2004-04-19 devnull 	if(access(pbuf, AEXIST) >= 0)
392 a84cbb2a 2004-04-19 devnull 		return pbuf;
393 a84cbb2a 2004-04-19 devnull 	return nil;
394 a84cbb2a 2004-04-19 devnull }
395 a84cbb2a 2004-04-19 devnull 
396 a84cbb2a 2004-04-19 devnull 
397 a84cbb2a 2004-04-19 devnull #if 0
398 a84cbb2a 2004-04-19 devnull 	snprint(buf, sizeof buf, "/proc/%d/maps", pid);
399 a84cbb2a 2004-04-19 devnull 	if((b = Bopen(buf, OREAD)) == nil){
400 a84cbb2a 2004-04-19 devnull 		werrstr("open %s: %r", buf);
401 a84cbb2a 2004-04-19 devnull 		return -1;
402 a84cbb2a 2004-04-19 devnull 	}
403 a84cbb2a 2004-04-19 devnull 
404 a84cbb2a 2004-04-19 devnull /*
405 a84cbb2a 2004-04-19 devnull         08048000-08056000 r-xp 00000000 03:0c 64593      /usr/sbin/gpm
406 a84cbb2a 2004-04-19 devnull         08056000-08058000 rw-p 0000d000 03:0c 64593      /usr/sbin/gpm
407 a84cbb2a 2004-04-19 devnull         08058000-0805b000 rwxp 00000000 00:00 0
408 a84cbb2a 2004-04-19 devnull         40000000-40013000 r-xp 00000000 03:0c 4165       /lib/ld-2.2.4.so
409 a84cbb2a 2004-04-19 devnull         40013000-40015000 rw-p 00012000 03:0c 4165       /lib/ld-2.2.4.so
410 a84cbb2a 2004-04-19 devnull         4001f000-40135000 r-xp 00000000 03:0c 45494      /lib/libc-2.2.4.so
411 a84cbb2a 2004-04-19 devnull         40135000-4013e000 rw-p 00115000 03:0c 45494      /lib/libc-2.2.4.so
412 a84cbb2a 2004-04-19 devnull         4013e000-40142000 rw-p 00000000 00:00 0
413 a84cbb2a 2004-04-19 devnull         bffff000-c0000000 rwxp 00000000 00:00 0
414 a84cbb2a 2004-04-19 devnull */
415 a84cbb2a 2004-04-19 devnull 
416 a84cbb2a 2004-04-19 devnull 	file = nil;
417 a84cbb2a 2004-04-19 devnull 	while((p = Brdline(b, '\n')) != nil){
418 a84cbb2a 2004-04-19 devnull 		p[Blinelen(b)-1] = 0;
419 a84cbb2a 2004-04-19 devnull 		memset(f, 0, sizeof f);
420 a84cbb2a 2004-04-19 devnull 		if((nf = getfields(p, f, 6, 1, " ")) < 5)
421 a84cbb2a 2004-04-19 devnull 			continue;
422 a84cbb2a 2004-04-19 devnull 		base = strtoul(f[0], &p, 16);
423 a84cbb2a 2004-04-19 devnull 		if(*p != '-')
424 a84cbb2a 2004-04-19 devnull 			continue;
425 a84cbb2a 2004-04-19 devnull 		end = strtoul(p+1, &p, 16);
426 a84cbb2a 2004-04-19 devnull 		if(*p != 0)
427 a84cbb2a 2004-04-19 devnull 			continue;
428 a84cbb2a 2004-04-19 devnull 		offset = strtoul(f[2], &p, 16);
429 a84cbb2a 2004-04-19 devnull 		if(*p != 0)
430 a84cbb2a 2004-04-19 devnull 			continue;
431 a84cbb2a 2004-04-19 devnull 		if(nf == 6)
432 a84cbb2a 2004-04-19 devnull 			file = f[5];
433 a84cbb2a 2004-04-19 devnull 		zero = atoi(f[4]) == 0;
434 a84cbb2a 2004-04-19 devnull 		print("%lux-%lux %lux %s %s\n", base, end, offset, zero ? "data" : "text", file ? file : "");
435 a84cbb2a 2004-04-19 devnull 		s.base = base;
436 a84cbb2a 2004-04-19 devnull 		s.size = end - base;
437 a84cbb2a 2004-04-19 devnull 		s.offset = offset;
438 a84cbb2a 2004-04-19 devnull 		s.name = zero ? "data" : "text";
439 a84cbb2a 2004-04-19 devnull 		s.file = strdup(file);
440 a84cbb2a 2004-04-19 devnull 		s.rw = ptracerw;
441 a84cbb2a 2004-04-19 devnull 		s.pid = pid;
442 a84cbb2a 2004-04-19 devnull 		if(addseg(map, s) < 0){
443 a84cbb2a 2004-04-19 devnull 			Bterm(b);
444 a84cbb2a 2004-04-19 devnull 			ptrace(PTRACE_DETACH, pid, 0, 0);
445 a84cbb2a 2004-04-19 devnull 			return -1;
446 a84cbb2a 2004-04-19 devnull 		}
447 a84cbb2a 2004-04-19 devnull 	}
448 a84cbb2a 2004-04-19 devnull 	Bterm(b);
449 a84cbb2a 2004-04-19 devnull #endif
450 a84cbb2a 2004-04-19 devnull