diff options
Diffstat (limited to 'src/lib/libast/misc/systrace.c')
-rw-r--r-- | src/lib/libast/misc/systrace.c | 68 |
1 files changed, 68 insertions, 0 deletions
diff --git a/src/lib/libast/misc/systrace.c b/src/lib/libast/misc/systrace.c new file mode 100644 index 0000000..a084c29 --- /dev/null +++ b/src/lib/libast/misc/systrace.c @@ -0,0 +1,68 @@ +/*********************************************************************** +* * +* This software is part of the ast package * +* Copyright (c) 1985-2011 AT&T Intellectual Property * +* and is licensed under the * +* Eclipse Public License, Version 1.0 * +* by AT&T Intellectual Property * +* * +* A copy of the License is available at * +* http://www.eclipse.org/org/documents/epl-v10.html * +* (with md5 checksum b35adb5213ca9657e911e9befb180842) * +* * +* Information and Software Systems Research * +* AT&T Research * +* Florham Park NJ * +* * +* Glenn Fowler <gsf@research.att.com> * +* David Korn <dgk@research.att.com> * +* Phong Vo <kpv@research.att.com> * +* * +***********************************************************************/ +#pragma prototyped + +/* + * trace systems calls if possible + */ + +#include <ast.h> +#include <error.h> +#include <proc.h> +#include <debug.h> + +void +systrace(const char* id) +{ + register int n; + register char* out; + char* s; + char buf[PATH_MAX]; + char* av[7]; + long ov[2]; + + static char* trace[] = { "trace", "truss", "strace", "traces" }; + + if (!(s = getenv("HOME"))) + return; + if (!id && !(id = (const char*)error_info.id)) + id = (const char*)trace[0]; + out = buf; + out += sfsprintf(out, sizeof(buf), "%s/.%s/%s", s, trace[0], id); + if (access(buf, F_OK)) + return; + av[1] = trace[0]; + av[2] = "-o"; + av[3] = buf; + av[4] = "-p"; + av[5] = out + 1; + av[6] = 0; + ov[0] = PROC_FD_DUP(open("/dev/null", O_WRONLY), 2, PROC_FD_PARENT|PROC_FD_CHILD); + ov[1] = 0; + sfsprintf(out, &buf[sizeof(buf)] - out, ".%d", getpid()); + for (n = 0; n < elementsof(trace); n++) + if (!procfree(procopen(trace[n], av + 1, NiL, ov, PROC_ARGMOD|PROC_GID|PROC_UID|(n == (elementsof(trace) - 1) ? PROC_CLEANUP : 0)))) + { + sleep(1); + break; + } +} |