1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1985-2011 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Eclipse Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.eclipse.org/org/documents/epl-v10.html *
11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * Phong Vo <kpv@research.att.com> *
20 * *
21 ***********************************************************************/
22 #pragma prototyped
23
24 /*
25 * trace systems calls if possible
26 */
27
28 #include <ast.h>
29 #include <error.h>
30 #include <proc.h>
31 #include <debug.h>
32
33 void
systrace(const char * id)34 systrace(const char* id)
35 {
36 register int n;
37 register char* out;
38 char* s;
39 char buf[PATH_MAX];
40 char* av[7];
41 long ov[2];
42
43 static char* trace[] = { "trace", "truss", "strace", "traces" };
44
45 if (!(s = getenv("HOME")))
46 return;
47 if (!id && !(id = (const char*)error_info.id))
48 id = (const char*)trace[0];
49 out = buf;
50 out += sfsprintf(out, sizeof(buf), "%s/.%s/%s", s, trace[0], id);
51 if (access(buf, F_OK))
52 return;
53 av[1] = trace[0];
54 av[2] = "-o";
55 av[3] = buf;
56 av[4] = "-p";
57 av[5] = out + 1;
58 av[6] = 0;
59 ov[0] = PROC_FD_DUP(open("/dev/null", O_WRONLY), 2, PROC_FD_PARENT|PROC_FD_CHILD);
60 ov[1] = 0;
61 sfsprintf(out, &buf[sizeof(buf)] - out, ".%d", getpid());
62 for (n = 0; n < elementsof(trace); n++)
63 if (!procfree(procopen(trace[n], av + 1, NiL, ov, PROC_ARGMOD|PROC_GID|PROC_UID|(n == (elementsof(trace) - 1) ? PROC_CLEANUP : 0))))
64 {
65 sleep(1);
66 break;
67 }
68 }
69