2 20035ed4 2014-02-28 minux.ma * process interface for DragonFly BSD
4 20035ed4 2014-02-28 minux.ma * we could be a little more careful about not using
5 20035ed4 2014-02-28 minux.ma * ptrace unless absolutely necessary. this would let us
6 20035ed4 2014-02-28 minux.ma * look at processes without stopping them.
8 20035ed4 2014-02-28 minux.ma * I'd like to make this a bit more generic (there's too much
9 20035ed4 2014-02-28 minux.ma * duplication with Linux and presumably other systems),
10 20035ed4 2014-02-28 minux.ma * but ptrace is too damn system-specific.
13 20035ed4 2014-02-28 minux.ma #include <u.h>
14 20035ed4 2014-02-28 minux.ma #include <sys/ptrace.h>
15 20035ed4 2014-02-28 minux.ma #include <sys/types.h>
16 20035ed4 2014-02-28 minux.ma #include <sys/wait.h>
17 20035ed4 2014-02-28 minux.ma #include <machine/reg.h>
18 20035ed4 2014-02-28 minux.ma #include <signal.h>
19 20035ed4 2014-02-28 minux.ma #include <errno.h>
20 20035ed4 2014-02-28 minux.ma #include <libc.h>
21 20035ed4 2014-02-28 minux.ma #include <mach.h>
22 20035ed4 2014-02-28 minux.ma #include "ureg386.h"
24 20035ed4 2014-02-28 minux.ma Mach *machcpu = &mach386;
26 20035ed4 2014-02-28 minux.ma typedef struct PtraceRegs PtraceRegs;
27 20035ed4 2014-02-28 minux.ma struct PtraceRegs
30 20035ed4 2014-02-28 minux.ma int pid;
33 20035ed4 2014-02-28 minux.ma static int ptracerw(Map*, Seg*, ulong, void*, uint, int);
34 20035ed4 2014-02-28 minux.ma static int ptraceregrw(Regs*, char*, ulong*, int);
37 20035ed4 2014-02-28 minux.ma unmapproc(Map *map)
41 20035ed4 2014-02-28 minux.ma if(map == nil)
43 20035ed4 2014-02-28 minux.ma for(i=0; i<map->nseg; i++)
44 20035ed4 2014-02-28 minux.ma while(i<map->nseg && map->seg[i].pid){
45 20035ed4 2014-02-28 minux.ma map->nseg--;
46 fa325e9b 2020-01-10 cross memmove(&map->seg[i], &map->seg[i+1],
47 20035ed4 2014-02-28 minux.ma (map->nseg-i)*sizeof(map->seg[0]));
52 20035ed4 2014-02-28 minux.ma mapproc(int pid, Map *map, Regs **rp)
55 20035ed4 2014-02-28 minux.ma PtraceRegs *r;
57 20035ed4 2014-02-28 minux.ma if(ptrace(PT_ATTACH, pid, 0, 0) < 0)
58 20035ed4 2014-02-28 minux.ma if(ptrace(PT_READ_I, pid, 0, 0)<0 && errno!=EINVAL)
59 20035ed4 2014-02-28 minux.ma if(ptrace(PT_ATTACH, pid, 0, 0) < 0){
60 20035ed4 2014-02-28 minux.ma werrstr("ptrace attach %d: %r", pid);
61 20035ed4 2014-02-28 minux.ma return -1;
64 20035ed4 2014-02-28 minux.ma if(ctlproc(pid, "waitanyway") < 0){
65 20035ed4 2014-02-28 minux.ma ptrace(PT_DETACH, pid, 0, 0);
66 20035ed4 2014-02-28 minux.ma return -1;
69 20035ed4 2014-02-28 minux.ma memset(&s, 0, sizeof s);
70 20035ed4 2014-02-28 minux.ma s.base = 0;
71 20035ed4 2014-02-28 minux.ma s.size = 0xFFFFFFFF;
72 20035ed4 2014-02-28 minux.ma s.offset = 0;
73 20035ed4 2014-02-28 minux.ma s.name = "data";
74 20035ed4 2014-02-28 minux.ma s.file = nil;
75 20035ed4 2014-02-28 minux.ma s.rw = ptracerw;
76 20035ed4 2014-02-28 minux.ma s.pid = pid;
77 20035ed4 2014-02-28 minux.ma if(addseg(map, s) < 0)
78 20035ed4 2014-02-28 minux.ma return -1;
80 20035ed4 2014-02-28 minux.ma if((r = mallocz(sizeof(PtraceRegs), 1)) == nil)
81 20035ed4 2014-02-28 minux.ma return -1;
82 20035ed4 2014-02-28 minux.ma r->r.rw = ptraceregrw;
83 20035ed4 2014-02-28 minux.ma r->pid = pid;
84 20035ed4 2014-02-28 minux.ma *rp = (Regs*)r;
85 20035ed4 2014-02-28 minux.ma return 0;
89 20035ed4 2014-02-28 minux.ma detachproc(int pid)
91 20035ed4 2014-02-28 minux.ma return ptrace(PT_DETACH, pid, 0, 0);
94 20035ed4 2014-02-28 minux.ma static int
95 20035ed4 2014-02-28 minux.ma ptracerw(Map *map, Seg *seg, ulong addr, void *v, uint n, int isr)
98 20035ed4 2014-02-28 minux.ma u32int u;
99 20035ed4 2014-02-28 minux.ma uchar buf[4];
101 20035ed4 2014-02-28 minux.ma addr += seg->base;
102 20035ed4 2014-02-28 minux.ma for(i=0; i<n; i+=4){
103 20035ed4 2014-02-28 minux.ma if(isr){
104 20035ed4 2014-02-28 minux.ma errno = 0;
105 20035ed4 2014-02-28 minux.ma u = ptrace(PT_READ_D, seg->pid, (char*)addr+i, 0);
106 20035ed4 2014-02-28 minux.ma if(errno)
107 20035ed4 2014-02-28 minux.ma goto ptraceerr;
108 20035ed4 2014-02-28 minux.ma if(n-i >= 4)
109 20035ed4 2014-02-28 minux.ma *(u32int*)((char*)v+i) = u;
111 20035ed4 2014-02-28 minux.ma *(u32int*)buf = u;
112 20035ed4 2014-02-28 minux.ma memmove((char*)v+i, buf, n-i);
115 20035ed4 2014-02-28 minux.ma if(n-i >= 4)
116 20035ed4 2014-02-28 minux.ma u = *(u32int*)((char*)v+i);
118 20035ed4 2014-02-28 minux.ma errno = 0;
119 20035ed4 2014-02-28 minux.ma u = ptrace(PT_READ_D, seg->pid, (char*)addr+i, 0);
120 20035ed4 2014-02-28 minux.ma if(errno)
121 20035ed4 2014-02-28 minux.ma return -1;
122 20035ed4 2014-02-28 minux.ma *(u32int*)buf = u;
123 20035ed4 2014-02-28 minux.ma memmove(buf, (char*)v+i, n-i);
124 20035ed4 2014-02-28 minux.ma u = *(u32int*)buf;
126 20035ed4 2014-02-28 minux.ma if(ptrace(PT_WRITE_D, seg->pid, (char*)addr+i, u) < 0)
127 20035ed4 2014-02-28 minux.ma goto ptraceerr;
130 20035ed4 2014-02-28 minux.ma return 0;
132 20035ed4 2014-02-28 minux.ma ptraceerr:
133 20035ed4 2014-02-28 minux.ma werrstr("ptrace: %r");
134 20035ed4 2014-02-28 minux.ma return -1;
137 20035ed4 2014-02-28 minux.ma static char *freebsdregs[] = {
149 20035ed4 2014-02-28 minux.ma "TRAP",
152 20035ed4 2014-02-28 minux.ma "EFLAGS",
158 20035ed4 2014-02-28 minux.ma static ulong
159 20035ed4 2014-02-28 minux.ma reg2freebsd(char *reg)
163 20035ed4 2014-02-28 minux.ma for(i=0; i<nelem(freebsdregs); i++)
164 20035ed4 2014-02-28 minux.ma if(strcmp(freebsdregs[i], reg) == 0)
165 20035ed4 2014-02-28 minux.ma return 4*i;
166 20035ed4 2014-02-28 minux.ma return ~(ulong)0;
169 20035ed4 2014-02-28 minux.ma static int
170 20035ed4 2014-02-28 minux.ma ptraceregrw(Regs *regs, char *name, ulong *val, int isr)
172 20035ed4 2014-02-28 minux.ma int pid;
173 20035ed4 2014-02-28 minux.ma ulong addr;
174 20035ed4 2014-02-28 minux.ma struct reg mregs;
176 20035ed4 2014-02-28 minux.ma addr = reg2freebsd(name);
177 20035ed4 2014-02-28 minux.ma if(~addr == 0){
178 20035ed4 2014-02-28 minux.ma if(isr){
179 20035ed4 2014-02-28 minux.ma *val = ~(ulong)0;
180 20035ed4 2014-02-28 minux.ma return 0;
182 20035ed4 2014-02-28 minux.ma werrstr("register not available");
183 20035ed4 2014-02-28 minux.ma return -1;
186 20035ed4 2014-02-28 minux.ma pid = ((PtraceRegs*)regs)->pid;
187 20035ed4 2014-02-28 minux.ma if(ptrace(PT_GETREGS, pid, (char*)&mregs, 0) < 0)
188 20035ed4 2014-02-28 minux.ma return -1;
189 20035ed4 2014-02-28 minux.ma if(isr)
190 20035ed4 2014-02-28 minux.ma *val = *(u32int*)((char*)&mregs+addr);
192 20035ed4 2014-02-28 minux.ma *(u32int*)((char*)&mregs+addr) = *val;
193 20035ed4 2014-02-28 minux.ma if(ptrace(PT_SETREGS, pid, (char*)&mregs, 0) < 0)
194 20035ed4 2014-02-28 minux.ma return -1;
196 20035ed4 2014-02-28 minux.ma return 0;
200 20035ed4 2014-02-28 minux.ma proctextfile(int pid)
202 20035ed4 2014-02-28 minux.ma static char buf[1024], pbuf[128];
204 20035ed4 2014-02-28 minux.ma snprint(pbuf, sizeof pbuf, "/proc/%d/file", pid);
205 20035ed4 2014-02-28 minux.ma if(readlink(pbuf, buf, sizeof buf) >= 0)
206 20035ed4 2014-02-28 minux.ma return buf;
207 20035ed4 2014-02-28 minux.ma if(access(pbuf, AEXIST) >= 0)
208 20035ed4 2014-02-28 minux.ma return pbuf;
209 20035ed4 2014-02-28 minux.ma return nil;
214 20035ed4 2014-02-28 minux.ma status The process status. This file is read-only and returns a single
215 20035ed4 2014-02-28 minux.ma line containing multiple space-separated fields as follows:
217 20035ed4 2014-02-28 minux.ma o command name
218 20035ed4 2014-02-28 minux.ma o process id
219 20035ed4 2014-02-28 minux.ma o parent process id
220 20035ed4 2014-02-28 minux.ma o process group id
221 20035ed4 2014-02-28 minux.ma o session id
222 20035ed4 2014-02-28 minux.ma o major,minor of the controlling terminal, or -1,-1 if there is
223 20035ed4 2014-02-28 minux.ma no controlling terminal.
224 20035ed4 2014-02-28 minux.ma o a list of process flags: ctty if there is a controlling ter-
225 20035ed4 2014-02-28 minux.ma minal, sldr if the process is a session leader, noflags if
226 20035ed4 2014-02-28 minux.ma neither of the other two flags are set.
227 20035ed4 2014-02-28 minux.ma o the process start time in seconds and microseconds, comma
228 20035ed4 2014-02-28 minux.ma separated.
229 20035ed4 2014-02-28 minux.ma o the user time in seconds and microseconds, comma separated.
230 20035ed4 2014-02-28 minux.ma o the system time in seconds and microseconds, comma separated.
231 20035ed4 2014-02-28 minux.ma o the wait channel message
232 20035ed4 2014-02-28 minux.ma o the process credentials consisting of the effective user id
233 20035ed4 2014-02-28 minux.ma and the list of groups (whose first member is the effective
234 20035ed4 2014-02-28 minux.ma group id) all comma separated.
238 20035ed4 2014-02-28 minux.ma procnotes(int pid, char ***pnotes)
240 20035ed4 2014-02-28 minux.ma /* figure out the set of pending notes - how? */
241 20035ed4 2014-02-28 minux.ma *pnotes = nil;
242 20035ed4 2014-02-28 minux.ma return 0;
245 20035ed4 2014-02-28 minux.ma static int
246 20035ed4 2014-02-28 minux.ma isstopped(int pid)
248 20035ed4 2014-02-28 minux.ma char buf[1024], *f[12];
249 20035ed4 2014-02-28 minux.ma int fd, n, nf;
251 20035ed4 2014-02-28 minux.ma snprint(buf, sizeof buf, "/proc/%d/status", pid);
252 20035ed4 2014-02-28 minux.ma if((fd = open(buf, OREAD)) < 0)
253 20035ed4 2014-02-28 minux.ma return 0;
254 20035ed4 2014-02-28 minux.ma n = read(fd, buf, sizeof buf-1);
255 20035ed4 2014-02-28 minux.ma close(fd);
256 20035ed4 2014-02-28 minux.ma if(n <= 0)
257 20035ed4 2014-02-28 minux.ma return 0;
258 20035ed4 2014-02-28 minux.ma buf[n] = 0;
260 20035ed4 2014-02-28 minux.ma if((nf = tokenize(buf, f, nelem(f))) < 11)
261 20035ed4 2014-02-28 minux.ma return 0;
262 20035ed4 2014-02-28 minux.ma if(strcmp(f[10], "nochan") == 0)
263 20035ed4 2014-02-28 minux.ma return 1;
264 20035ed4 2014-02-28 minux.ma return 0;
267 20035ed4 2014-02-28 minux.ma #undef waitpid
270 20035ed4 2014-02-28 minux.ma ctlproc(int pid, char *msg)
272 20035ed4 2014-02-28 minux.ma int p, status;
274 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "hang") == 0){
275 20035ed4 2014-02-28 minux.ma if(pid == getpid())
276 20035ed4 2014-02-28 minux.ma return ptrace(PT_TRACE_ME, 0, 0, 0);
277 20035ed4 2014-02-28 minux.ma werrstr("can only hang self");
278 20035ed4 2014-02-28 minux.ma return -1;
280 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "kill") == 0)
281 20035ed4 2014-02-28 minux.ma return ptrace(PT_KILL, pid, 0, 0);
282 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "startstop") == 0){
283 20035ed4 2014-02-28 minux.ma if(ptrace(PT_CONTINUE, pid, 0, 0) < 0)
284 20035ed4 2014-02-28 minux.ma return -1;
285 20035ed4 2014-02-28 minux.ma goto waitstop;
288 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "sysstop") == 0){
289 20035ed4 2014-02-28 minux.ma if(ptrace(PTRACE_SYSCALL, pid, 0, 0) < 0)
290 20035ed4 2014-02-28 minux.ma return -1;
291 20035ed4 2014-02-28 minux.ma goto waitstop;
294 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "stop") == 0){
295 20035ed4 2014-02-28 minux.ma if(kill(pid, SIGSTOP) < 0)
296 20035ed4 2014-02-28 minux.ma return -1;
297 20035ed4 2014-02-28 minux.ma goto waitstop;
299 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "waitanyway") == 0)
300 20035ed4 2014-02-28 minux.ma goto waitanyway;
301 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "waitstop") == 0){
302 20035ed4 2014-02-28 minux.ma waitstop:
303 20035ed4 2014-02-28 minux.ma if(isstopped(pid))
304 20035ed4 2014-02-28 minux.ma return 0;
305 20035ed4 2014-02-28 minux.ma waitanyway:
306 20035ed4 2014-02-28 minux.ma for(;;){
307 20035ed4 2014-02-28 minux.ma p = waitpid(pid, &status, WUNTRACED);
308 20035ed4 2014-02-28 minux.ma if(p <= 0)
309 20035ed4 2014-02-28 minux.ma return -1;
310 20035ed4 2014-02-28 minux.ma if(WIFEXITED(status) || WIFSTOPPED(status))
311 20035ed4 2014-02-28 minux.ma return 0;
314 20035ed4 2014-02-28 minux.ma if(strcmp(msg, "start") == 0)
315 20035ed4 2014-02-28 minux.ma return ptrace(PT_CONTINUE, pid, 0, 0);
316 20035ed4 2014-02-28 minux.ma werrstr("unknown control message '%s'", msg);
317 20035ed4 2014-02-28 minux.ma return -1;
