systrace.c revision 7c2fbfb345896881c631598ee3852ce9ce33fb07
1N/A/***********************************************************************
1N/A* *
1N/A* This software is part of the ast package *
1N/A* Copyright (c) 1985-2008 AT&T Intellectual Property *
1N/A* and is licensed under the *
1N/A* Common Public License, Version 1.0 *
1N/A* by AT&T Intellectual Property *
1N/A* *
1N/A* A copy of the License is available at *
1N/A* http://www.opensource.org/licenses/cpl1.0.txt *
1N/A* (with md5 checksum 059e8cd6165cb4c31e351f2b69388fd9) *
1N/A* *
1N/A* Information and Software Systems Research *
1N/A* AT&T Research *
1N/A* Florham Park NJ *
1N/A* *
1N/A* Glenn Fowler <gsf@research.att.com> *
1N/A* David Korn <dgk@research.att.com> *
1N/A* Phong Vo <kpv@research.att.com> *
1N/A* *
1N/A***********************************************************************/
1N/A#pragma prototyped
1N/A
1N/A/*
1N/A * trace systems calls if possible
1N/A */
1N/A
1N/A#include <ast.h>
1N/A#include <error.h>
1N/A#include <proc.h>
1N/A#include <debug.h>
1N/A
1N/Avoid
1N/Asystrace(const char* id)
1N/A{
1N/A register int n;
1N/A register char* out;
1N/A char* s;
1N/A char buf[PATH_MAX];
1N/A char* av[7];
1N/A long ov[2];
1N/A
1N/A static char* trace[] = { "trace", "truss", "strace", "traces" };
1N/A
1N/A if (!(s = getenv("HOME")))
1N/A return;
1N/A if (!id && !(id = (const char*)error_info.id))
1N/A id = (const char*)trace[0];
1N/A out = buf;
1N/A out += sfsprintf(out, sizeof(buf), "%s/.%s/%s", s, trace[0], id);
1N/A if (access(buf, F_OK))
1N/A return;
1N/A av[1] = trace[0];
1N/A av[2] = "-o";
1N/A av[3] = buf;
1N/A av[4] = "-p";
1N/A av[5] = out + 1;
1N/A av[6] = 0;
1N/A ov[0] = PROC_FD_DUP(open("/dev/null", O_WRONLY), 2, PROC_FD_PARENT|PROC_FD_CHILD);
1N/A ov[1] = 0;
1N/A sfsprintf(out, &buf[sizeof(buf)] - out, ".%d", getpid());
1N/A for (n = 0; n < elementsof(trace); n++)
1N/A if (!procfree(procopen(trace[n], av + 1, NiL, ov, PROC_ARGMOD|PROC_GID|PROC_UID|(n == (elementsof(trace) - 1) ? PROC_CLEANUP : 0))))
1N/A {
1N/A sleep(1);
1N/A break;
1N/A }
1N/A}
1N/A