strace/resource.c
Roland McGrath 9f09da616a 2004-07-08 Roland McGrath <roland@redhat.com>
* resource.c (sys_quotactl): Truncate first argument to 32 bits, since
	that's what the kernel will do.
2004-07-08 19:00:04 +00:00

589 lines
14 KiB
C

/*
* Copyright (c) 1991, 1992 Paul Kranenburg <pk@cs.few.eur.nl>
* Copyright (c) 1993 Branko Lankester <branko@hacktic.nl>
* Copyright (c) 1993, 1994, 1995, 1996 Rick Sladkey <jrs@world.std.com>
* Copyright (c) 1996-1999 Wichert Akkerman <wichert@cistron.nl>
* All rights reserved.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
* 3. The name of the author may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
* IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
* OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
* IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
* INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
* DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
* THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
* (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
* THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
*
* $Id$
*/
#include "defs.h"
#include <sys/resource.h>
#ifdef LINUX
#include <sys/times.h>
#include <linux/kernel.h>
#include <sys/quota.h>
#endif /* LINUX */
#ifdef SUNOS4
#include <ufs/quota.h>
#endif /* SUNOS4 */
#if defined(SVR4) || defined(FREEBSD)
#include <sys/times.h>
#include <sys/time.h>
#endif
#if HAVE_LONG_LONG_RLIM_T
/*
* Hacks for systems that have a long long rlim_t
*/
#define rlimit64 rlimit /* Ugly hack */
#define rlim64_t rlim_t /* Ugly hack */
#define RLIM64_INFINITY RLIM_INFINITY /* You guessed it */
#define sys_getrlimit64 sys_getrlimit
#define sys_setrlimit64 sys_setrlimit
#endif
static struct xlat resources[] = {
#ifdef RLIMIT_CPU
{ RLIMIT_CPU, "RLIMIT_CPU" },
#endif
#ifdef RLIMIT_FSIZE
{ RLIMIT_FSIZE, "RLIMIT_FSIZE" },
#endif
#ifdef RLIMIT_DATA
{ RLIMIT_DATA, "RLIMIT_DATA" },
#endif
#ifdef RLIMIT_STACK
{ RLIMIT_STACK, "RLIMIT_STACK" },
#endif
#ifdef RLIMIT_CORE
{ RLIMIT_CORE, "RLIMIT_CORE" },
#endif
#ifdef RLIMIT_RSS
{ RLIMIT_RSS, "RLIMIT_RSS" },
#endif
#ifdef RLIMIT_NPROC
{ RLIMIT_NPROC,"RLIMIT_NPROC" },
#endif
#ifdef RLIMIT_NOFILE
{ RLIMIT_NOFILE,"RLIMIT_NOFILE" },
#endif
#ifdef RLIMIT_MEMLOCK
{ RLIMIT_MEMLOCK, "RLIMIT_MEMLOCK" },
#endif
#ifdef RLIMIT_VMEM
{ RLIMIT_VMEM, "RLIMIT_VMEM" },
#endif
#ifdef RLIMIT_AS
{ RLIMIT_AS, "RLIMIT_AS" },
#endif
{ 0, NULL },
};
#if !HAVE_LONG_LONG_RLIM_T
static char *
sprintrlim(lim)
long lim;
{
static char buf[32];
if (lim == RLIM_INFINITY)
sprintf(buf, "RLIM_INFINITY");
else if (lim > 1024 && lim%1024 == 0)
sprintf(buf, "%ld*1024", lim/1024);
else
sprintf(buf, "%ld", lim);
return buf;
}
int
sys_getrlimit(tcp)
struct tcb *tcp;
{
struct rlimit rlim;
if (entering(tcp)) {
printxval(resources, tcp->u_arg[0], "RLIMIT_???");
tprintf(", ");
}
else {
if (syserror(tcp) || !verbose(tcp))
tprintf("%#lx", tcp->u_arg[1]);
else if (umove(tcp, tcp->u_arg[1], &rlim) < 0)
tprintf("{...}");
else {
tprintf("{rlim_cur=%s,", sprintrlim(rlim.rlim_cur));
tprintf(" rlim_max=%s}", sprintrlim(rlim.rlim_max));
}
}
return 0;
}
int
sys_setrlimit(tcp)
struct tcb *tcp;
{
struct rlimit rlim;
if (entering(tcp)) {
printxval(resources, tcp->u_arg[0], "RLIMIT_???");
tprintf(", ");
if (!verbose(tcp))
tprintf("%#lx", tcp->u_arg[1]);
else if (umove(tcp, tcp->u_arg[1], &rlim) < 0)
tprintf("{...}");
else {
tprintf("{rlim_cur=%s,", sprintrlim(rlim.rlim_cur));
tprintf(" rlim_max=%s}", sprintrlim(rlim.rlim_max));
}
}
return 0;
}
#endif /* !HAVE_LONG_LONG_RLIM_T */
#if _LFS64_LARGEFILE || HAVE_LONG_LONG_RLIM_T
static char *
sprintrlim64(lim)
rlim64_t lim;
{
static char buf[64];
if (lim == RLIM64_INFINITY)
sprintf(buf, "RLIM64_INFINITY");
else if (lim > 1024 && lim%1024 == 0)
sprintf(buf, "%lld*1024", (long long) lim/1024);
else
sprintf(buf, "%lld", (long long) lim);
return buf;
}
int
sys_getrlimit64(tcp)
struct tcb *tcp;
{
struct rlimit64 rlim;
if (entering(tcp)) {
printxval(resources, tcp->u_arg[0], "RLIMIT_???");
tprintf(", ");
}
else {
if (syserror(tcp) || !verbose(tcp))
tprintf("%#lx", tcp->u_arg[1]);
else if (umove(tcp, tcp->u_arg[1], &rlim) < 0)
tprintf("{...}");
else {
tprintf("{rlim_cur=%s,", sprintrlim64(rlim.rlim_cur));
tprintf(" rlim_max=%s}", sprintrlim64(rlim.rlim_max));
}
}
return 0;
}
int
sys_setrlimit64(tcp)
struct tcb *tcp;
{
struct rlimit64 rlim;
if (entering(tcp)) {
printxval(resources, tcp->u_arg[0], "RLIMIT_???");
tprintf(", ");
if (!verbose(tcp))
tprintf("%#lx", tcp->u_arg[1]);
else if (umove(tcp, tcp->u_arg[1], &rlim) < 0)
tprintf("{...}");
else {
tprintf("{rlim_cur=%s,", sprintrlim64(rlim.rlim_cur));
tprintf(" rlim_max=%s}", sprintrlim64(rlim.rlim_max));
}
}
return 0;
}
#endif /* _LFS64_LARGEFILES || HAVE_LONG_LONG_RLIM_T */
#ifndef SVR4
static struct xlat usagewho[] = {
{ RUSAGE_SELF, "RUSAGE_SELF" },
{ RUSAGE_CHILDREN, "RUSAGE_CHILDREN" },
#ifdef RUSAGE_BOTH
{ RUSAGE_BOTH, "RUSAGE_BOTH" },
#endif
{ 0, NULL },
};
#ifdef ALPHA
void
printrusage32(tcp, addr)
struct tcb *tcp;
long addr;
{
struct timeval32
{
unsigned tv_sec;
unsigned tv_usec;
};
struct rusage32
{
struct timeval32 ru_utime; /* user time used */
struct timeval32 ru_stime; /* system time used */
long ru_maxrss; /* maximum resident set size */
long ru_ixrss; /* integral shared memory size */
long ru_idrss; /* integral unshared data size */
long ru_isrss; /* integral unshared stack size */
long ru_minflt; /* page reclaims */
long ru_majflt; /* page faults */
long ru_nswap; /* swaps */
long ru_inblock; /* block input operations */
long ru_oublock; /* block output operations */
long ru_msgsnd; /* messages sent */
long ru_msgrcv; /* messages received */
long ru_nsignals; /* signals received */
long ru_nvcsw; /* voluntary context switches */
long ru_nivcsw; /* involuntary " */
} ru;
if (!addr)
tprintf("NULL");
else if (syserror(tcp) || !verbose(tcp))
tprintf("%#lx", addr);
else if (umove(tcp, addr, &ru) < 0)
tprintf("{...}");
else if (!abbrev(tcp)) {
tprintf("{ru_utime={%lu, %lu}, ru_stime={%lu, %lu}, ",
(long) ru.ru_utime.tv_sec, (long) ru.ru_utime.tv_usec,
(long) ru.ru_stime.tv_sec, (long) ru.ru_stime.tv_usec);
tprintf("ru_maxrss=%lu, ru_ixrss=%lu, ",
ru.ru_maxrss, ru.ru_ixrss);
tprintf("ru_idrss=%lu, ru_isrss=%lu, ",
ru.ru_idrss, ru.ru_isrss);
tprintf("ru_minflt=%lu, ru_majflt=%lu, ru_nswap=%lu, ",
ru.ru_minflt, ru.ru_majflt, ru.ru_nswap);
tprintf("ru_inblock=%lu, ru_oublock=%lu, ",
ru.ru_inblock, ru.ru_oublock);
tprintf("ru_msgsnd=%lu, ru_msgrcv=%lu, ",
ru.ru_msgsnd, ru.ru_msgrcv);
tprintf("ru_nsignals=%lu, ru_nvcsw=%lu, ru_nivcsw=%lu}",
ru.ru_nsignals, ru.ru_nvcsw, ru.ru_nivcsw);
}
else {
tprintf("{ru_utime={%lu, %lu}, ru_stime={%lu, %lu}, ...}",
(long) ru.ru_utime.tv_sec, (long) ru.ru_utime.tv_usec,
(long) ru.ru_stime.tv_sec, (long) ru.ru_stime.tv_usec);
}
}
#endif
void
printrusage(tcp, addr)
struct tcb *tcp;
long addr;
{
struct rusage ru;
if (!addr)
tprintf("NULL");
else if (syserror(tcp) || !verbose(tcp))
tprintf("%#lx", addr);
else if (umove(tcp, addr, &ru) < 0)
tprintf("{...}");
else if (!abbrev(tcp)) {
tprintf("{ru_utime={%lu, %lu}, ru_stime={%lu, %lu}, ",
(long) ru.ru_utime.tv_sec, (long) ru.ru_utime.tv_usec,
(long) ru.ru_stime.tv_sec, (long) ru.ru_stime.tv_usec);
tprintf("ru_maxrss=%lu, ru_ixrss=%lu, ",
ru.ru_maxrss, ru.ru_ixrss);
tprintf("ru_idrss=%lu, ru_isrss=%lu, ",
ru.ru_idrss, ru.ru_isrss);
tprintf("ru_minflt=%lu, ru_majflt=%lu, ru_nswap=%lu, ",
ru.ru_minflt, ru.ru_majflt, ru.ru_nswap);
tprintf("ru_inblock=%lu, ru_oublock=%lu, ",
ru.ru_inblock, ru.ru_oublock);
tprintf("ru_msgsnd=%lu, ru_msgrcv=%lu, ",
ru.ru_msgsnd, ru.ru_msgrcv);
tprintf("ru_nsignals=%lu, ru_nvcsw=%lu, ru_nivcsw=%lu}",
ru.ru_nsignals, ru.ru_nvcsw, ru.ru_nivcsw);
}
else {
tprintf("{ru_utime={%lu, %lu}, ru_stime={%lu, %lu}, ...}",
(long) ru.ru_utime.tv_sec, (long) ru.ru_utime.tv_usec,
(long) ru.ru_stime.tv_sec, (long) ru.ru_stime.tv_usec);
}
}
int
sys_getrusage(tcp)
struct tcb *tcp;
{
if (entering(tcp)) {
printxval(usagewho, tcp->u_arg[0], "RUSAGE_???");
tprintf(", ");
}
else
printrusage(tcp, tcp->u_arg[1]);
return 0;
}
#ifdef ALPHA
int
sys_osf_getrusage(tcp)
struct tcb *tcp;
{
if (entering(tcp)) {
printxval(usagewho, tcp->u_arg[0], "RUSAGE_???");
tprintf(", ");
}
else
printrusage32(tcp, tcp->u_arg[1]);
return 0;
}
#endif /* ALPHA */
#endif /* !SVR4 */
#ifdef LINUX
int
sys_sysinfo(tcp)
struct tcb *tcp;
{
struct sysinfo si;
if (exiting(tcp)) {
if (syserror(tcp) || !verbose(tcp))
tprintf("%#lx", tcp->u_arg[0]);
else if (umove(tcp, tcp->u_arg[0], &si) < 0)
tprintf("{...}");
else {
tprintf("{uptime=%lu, loads=[%lu, %lu, %lu] ",
si.uptime, si.loads[0], si.loads[1],
si.loads[2]);
tprintf("totalram=%lu, freeram=%lu, ",
si.totalram, si.freeram);
tprintf("sharedram=%lu, bufferram=%lu} ",
si.sharedram, si.bufferram);
tprintf("totalswap=%lu, freeswap=%lu, procs=%hu}",
si.totalswap, si.freeswap, si.procs);
}
}
return 0;
}
#endif /* LINUX */
static struct xlat priorities[] = {
{ PRIO_PROCESS, "PRIO_PROCESS" },
{ PRIO_PGRP, "PRIO_PGRP" },
{ PRIO_USER, "PRIO_USER" },
{ 0, NULL },
};
int
sys_getpriority(tcp)
struct tcb *tcp;
{
if (entering(tcp)) {
printxval(priorities, tcp->u_arg[0], "PRIO_???");
tprintf(", %lu", tcp->u_arg[1]);
}
return 0;
}
int
sys_setpriority(tcp)
struct tcb *tcp;
{
if (entering(tcp)) {
printxval(priorities, tcp->u_arg[0], "PRIO_???");
tprintf(", %lu, %ld", tcp->u_arg[1], tcp->u_arg[2]);
}
return 0;
}
int
sys_nice(tcp)
struct tcb *tcp;
{
if (entering(tcp))
tprintf("%ld", tcp->u_arg[0]);
return 0;
}
#ifndef SUNOS4
int
sys_times(tcp)
struct tcb *tcp;
{
struct tms tbuf;
if (exiting(tcp)) {
if (tcp->u_arg[0] == 0)
tprintf("NULL");
else if (syserror(tcp))
tprintf("%#lx", tcp->u_arg[0]);
else if (umove(tcp, tcp->u_arg[0], &tbuf) < 0)
tprintf("{...}");
else {
tprintf("{tms_utime=%lu, tms_stime=%lu, ",
tbuf.tms_utime, tbuf.tms_stime);
tprintf("tms_cutime=%lu, tms_cstime=%lu}",
tbuf.tms_cutime, tbuf.tms_cstime);
}
}
return 0;
}
#endif /* !SUNOS4 */
#ifdef LINUX
#define NEW_CMD(c) ((0x80<<16)+(c))
#define XQM_CMD(c) (('X'<<8)+(c))
#define NEW_COMMAND(c) (( ((c) >> SUBCMDSHIFT) & (0x80 << 16)))
#define XQM_COMMAND(c) (( ((c) >> SUBCMDSHIFT) & ('X' << 8)) == ('X' << 8))
#define OLD_COMMAND(c) (!NEW_COMMAND(c) && !XQM_COMMAND(c))
static struct xlat quotacmds[] = {
{ Q_QUOTAON, "Q_QUOTAON" },
{ Q_QUOTAOFF, "Q_QUOTAOFF" },
{ Q_GETQUOTA, "Q_GETQUOTA" },
{ Q_SETQUOTA, "Q_SETQUOTA" },
{ Q_SETUSE, "Q_SETUSE" },
{ Q_SYNC, "Q_SYNC" },
{ Q_SETQLIM, "Q_SETQLIM" },
{ Q_GETSTATS, "Q_GETSTATS" },
{ Q_RSQUASH, "Q_RSQUASH" },
{ NEW_CMD(0x1), "Q_SYNC" },
{ NEW_CMD(0x2), "Q_QUOTAON" },
{ NEW_CMD(0x3), "Q_QUOTAOFF" },
{ NEW_CMD(0x4), "Q_GETFMT" },
{ NEW_CMD(0x5), "Q_GETINFO" },
{ NEW_CMD(0x6), "Q_SETINFO" },
{ NEW_CMD(0x7), "Q_GETQUOTA" },
{ NEW_CMD(0x8), "Q_SETQUOTA" },
{ XQM_CMD(0x1), "Q_XQUOTAON" },
{ XQM_CMD(0x2), "Q_XQUOTAOFF" },
{ XQM_CMD(0x3), "Q_XGETQUOTA" },
{ XQM_CMD(0x4), "Q_XSETQLIM" },
{ XQM_CMD(0x5), "Q_XGETQSTAT" },
{ XQM_CMD(0x6), "Q_XQUOTARM" },
{ 0, NULL },
};
static struct xlat quotatypes[] = {
{ USRQUOTA, "USRQUOTA" },
{ GRPQUOTA, "GRPQUOTA" },
{ 0, NULL },
};
int
sys_quotactl(tcp)
struct tcb *tcp;
{
/*
* The Linux kernel only looks at the low 32 bits of the command
* argument, but on some 64-bit architectures (s390x) this word
* will have been sign-extended when we see it. The high 1 bits
* don't mean anything, so don't confuse the output with them.
*/
unsigned int cmd = tcp->u_arg[0];
if (entering(tcp)) {
printxval(quotacmds, cmd >> SUBCMDSHIFT, "Q_???");
tprintf("|");
printxval(quotatypes, cmd & SUBCMDMASK, "???QUOTA");
tprintf(", ");
printstr(tcp, tcp->u_arg[1], -1);
tprintf(", %lu, ", tcp->u_arg[2]);
}
else {
struct dqblk dq;
if (!tcp->u_arg[3])
tprintf("NULL");
else if (!verbose(tcp) || !OLD_COMMAND(cmd))
tprintf("%#lx", tcp->u_arg[3]);
else if (umoven(tcp, tcp->u_arg[3], sizeof(struct dqblk),
(char *) &dq) < 0)
tprintf("???");
else {
tprintf("{");
tprintf("%u, ", dq.dqb_bhardlimit);
tprintf("%u, ", dq.dqb_bsoftlimit);
tprintf("%u, ", dq.dqb_curblocks);
tprintf("%u, ", dq.dqb_ihardlimit);
tprintf("%u, ", dq.dqb_isoftlimit);
tprintf("%u, ", dq.dqb_curinodes);
tprintf("%lu, ", dq.dqb_btime);
tprintf("%lu", dq.dqb_itime);
tprintf("}");
}
}
return 0;
}
#endif /* Linux */
#if defined(SUNOS4) || defined(FREEBSD)
#ifdef FREEBSD
#include <ufs/ufs/quota.h>
#endif
static struct xlat quotacmds[] = {
{ Q_QUOTAON, "Q_QUOTAON" },
{ Q_QUOTAOFF, "Q_QUOTAOFF" },
{ Q_GETQUOTA, "Q_GETQUOTA" },
{ Q_SETQUOTA, "Q_SETQUOTA" },
#ifdef Q_SETQLIM
{ Q_SETQLIM, "Q_SETQLIM" },
#endif
#ifdef Q_SETUSE
{ Q_SETUSE, "Q_SETUSE" },
#endif
{ Q_SYNC, "Q_SYNC" },
{ 0, NULL },
};
int
sys_quotactl(tcp)
struct tcb *tcp;
{
/* fourth arg (addr) not interpreted here */
if (entering(tcp)) {
#ifdef SUNOS4
printxval(quotacmds, tcp->u_arg[0], "Q_???");
tprintf(", ");
printstr(tcp, tcp->u_arg[1], -1);
#endif
#ifdef FREEBSD
printpath(tcp, tcp->u_arg[0]);
tprintf(", ");
printxval(quotacmds, tcp->u_arg[1], "Q_???");
#endif
tprintf(", %lu, %#lx", tcp->u_arg[2], tcp->u_arg[3]);
}
return 0;
}
#endif /* SUNOS4 || FREEBSD */