| /* |
| * 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> |
| #endif /* LINUX */ |
| #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 const struct xlat resources[] = { |
| #ifdef RLIMIT_AS |
| { RLIMIT_AS, "RLIMIT_AS" }, |
| #endif |
| #ifdef RLIMIT_CORE |
| { RLIMIT_CORE, "RLIMIT_CORE" }, |
| #endif |
| #ifdef RLIMIT_CPU |
| { RLIMIT_CPU, "RLIMIT_CPU" }, |
| #endif |
| #ifdef RLIMIT_DATA |
| { RLIMIT_DATA, "RLIMIT_DATA" }, |
| #endif |
| #ifdef RLIMIT_FSIZE |
| { RLIMIT_FSIZE, "RLIMIT_FSIZE" }, |
| #endif |
| #ifdef RLIMIT_LOCKS |
| { RLIMIT_LOCKS, "RLIMIT_LOCKS" }, |
| #endif |
| #ifdef RLIMIT_MEMLOCK |
| { RLIMIT_MEMLOCK, "RLIMIT_MEMLOCK" }, |
| #endif |
| #ifdef RLIMIT_MSGQUEUE |
| { RLIMIT_MSGQUEUE, "RLIMIT_MSGQUEUE" }, |
| #endif |
| #ifdef RLIMIT_NICE |
| { RLIMIT_NICE, "RLIMIT_NICE" }, |
| #endif |
| #ifdef RLIMIT_NOFILE |
| { RLIMIT_NOFILE, "RLIMIT_NOFILE" }, |
| #endif |
| #ifdef RLIMIT_NPROC |
| { RLIMIT_NPROC, "RLIMIT_NPROC" }, |
| #endif |
| #ifdef RLIMIT_RSS |
| { RLIMIT_RSS, "RLIMIT_RSS" }, |
| #endif |
| #ifdef RLIMIT_RTPRIO |
| { RLIMIT_RTPRIO, "RLIMIT_RTPRIO" }, |
| #endif |
| #ifdef RLIMIT_SIGPENDING |
| { RLIMIT_SIGPENDING, "RLIMIT_SIGPENDING" }, |
| #endif |
| #ifdef RLIMIT_STACK |
| { RLIMIT_STACK, "RLIMIT_STACK" }, |
| #endif |
| #ifdef RLIMIT_VMEM |
| { RLIMIT_VMEM, "RLIMIT_VMEM" }, |
| #endif |
| { 0, NULL }, |
| }; |
| |
| #if !HAVE_LONG_LONG_RLIM_T |
| static char * |
| sprintrlim(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; |
| } |
| |
| # if defined LINUX && (defined POWERPC64 || defined X86_64) |
| static void |
| print_rlimit32(struct tcb *tcp) |
| { |
| struct rlimit32 { |
| unsigned int rlim_cur; |
| unsigned int rlim_max; |
| } rlim; |
| |
| if (umove(tcp, tcp->u_arg[1], &rlim) < 0) |
| tprintf("{...}"); |
| else { |
| tprintf("{rlim_cur=%s,", |
| sprintrlim(rlim.rlim_cur == -1 ? RLIM_INFINITY |
| : rlim.rlim_cur)); |
| tprintf(" rlim_max=%s}", |
| sprintrlim(rlim.rlim_max == -1 ? RLIM_INFINITY |
| : rlim.rlim_max)); |
| } |
| } |
| # endif |
| |
| int |
| sys_getrlimit(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]); |
| # if defined LINUX && (defined POWERPC64 || defined X86_64) |
| else if (current_personality == 1) |
| print_rlimit32(tcp); |
| # endif |
| 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(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]); |
| # if defined LINUX && (defined POWERPC64 || defined X86_64) |
| else if (current_personality == 1) |
| print_rlimit32(tcp); |
| # endif |
| 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(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(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(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 const 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(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(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(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(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(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 const struct xlat priorities[] = { |
| { PRIO_PROCESS, "PRIO_PROCESS" }, |
| { PRIO_PGRP, "PRIO_PGRP" }, |
| { PRIO_USER, "PRIO_USER" }, |
| { 0, NULL }, |
| }; |
| |
| int |
| sys_getpriority(struct tcb *tcp) |
| { |
| if (entering(tcp)) { |
| printxval(priorities, tcp->u_arg[0], "PRIO_???"); |
| tprintf(", %lu", tcp->u_arg[1]); |
| } |
| return 0; |
| } |
| |
| int |
| sys_setpriority(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(struct tcb *tcp) |
| { |
| if (entering(tcp)) |
| tprintf("%ld", tcp->u_arg[0]); |
| return 0; |
| } |
| |
| #ifndef SUNOS4 |
| |
| int |
| sys_times(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 */ |
