Initial revision

1 files changed, 318 insertions, 0 deletions

diff --git a/resource.c b/resource.c
new file mode 100644
index 0000000..cb63214
--- /dev/null
+++ b/resource.c
@@ -0,0 +1,318 @@
+/*
+ * 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>
+ * 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 */
+#ifdef SUNOS4
+#include <ufs/quota.h>
+#endif /* SUNOS4 */
+#ifdef SVR4
+#include <sys/times.h>
+#include <sys/time.h>
+#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_NOFILE
+	{ RLIMIT_NOFILE,"RLIMIT_NOFILE"	},
+#endif
+#ifdef RLIMIT_VMEM
+	{ RLIMIT_VMEM,	"RLIMIT_VMEM"	},
+#endif
+#ifdef RLIMIT_AS
+	{ RLIMIT_AS,	"RLIMIT_AS"	},
+#endif
+	{ 0,		NULL		},
+};
+
+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;
+}
+
+#ifndef SVR4
+
+static struct xlat usagewho[] = {
+	{ RUSAGE_SELF,		"RUSAGE_SELF"		},
+	{ RUSAGE_CHILDREN,	"RUSAGE_CHILDREN"	},
+	{ 0,			NULL			},
+};
+
+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;
+}
+
+#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 SUNOS4
+
+static struct xlat quotacmds[] = {
+	{ Q_QUOTAON,	"Q_QUOTAON"	},
+	{ Q_QUOTAOFF,	"Q_QUOTAOFF"	},
+	{ Q_GETQUOTA,	"Q_GETQUOTA"	},
+	{ Q_SETQUOTA,	"Q_SETQUOTA"	},
+	{ Q_SETQLIM,	"Q_SETQLIM"	},
+	{ Q_SYNC,	"Q_SYNC"	},
+	{ 0,		NULL		},
+};
+
+int
+sys_quotactl(tcp)
+struct tcb *tcp;
+{
+	/* fourth arg (addr) not interpreted here */
+	if (entering(tcp)) {
+		printxval(quotacmds, tcp->u_arg[0], "Q_???");
+		tprintf(", ");
+		printstr(tcp, tcp->u_arg[1], -1);
+		tprintf(", %lu, %#lx", tcp->u_arg[2], tcp->u_arg[3]);
+	}
+	return 0;
+}
+
+#endif /* SUNOS4 */