|
Packit Service |
407539 |
/* Copyright (C) 1998 Joshua Sled
|
|
Packit Service |
407539 |
This file is part of LibGTop 1.0.
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
Contributed by Joshua Sled <jsled@xcf.berkeley.edu>, July 1998.
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
LibGTop is free software; you can redistribute it and/or modify it
|
|
Packit Service |
407539 |
under the terms of the GNU General Public License as published by
|
|
Packit Service |
407539 |
the Free Software Foundation; either version 2 of the License,
|
|
Packit Service |
407539 |
or (at your option) any later version.
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
LibGTop is distributed in the hope that it will be useful, but WITHOUT
|
|
Packit Service |
407539 |
ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
Packit Service |
407539 |
FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
Packit Service |
407539 |
for more details.
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
You should have received a copy of the GNU General Public License
|
|
Packit Service |
407539 |
along with LibGTop; see the file COPYING. If not, write to the
|
|
Packit Service |
407539 |
Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
|
|
Packit Service |
407539 |
Boston, MA 02110-1301, USA.
|
|
Packit Service |
407539 |
*/
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#include <config.h>
|
|
Packit Service |
407539 |
#include <glibtop.h>
|
|
Packit Service |
407539 |
#include <glibtop/error.h>
|
|
Packit Service |
407539 |
#include <glibtop/procmem.h>
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#include <glibtop_suid.h>
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#include <kvm.h>
|
|
Packit Service |
407539 |
#include <sys/param.h>
|
|
Packit Service |
407539 |
#include <sys/proc.h>
|
|
Packit Service |
407539 |
#include <sys/resource.h>
|
|
Packit Service |
407539 |
#include <vm/vm_object.h>
|
|
Packit Service |
407539 |
#include <vm/vm_map.h>
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#include <sys/vnode.h>
|
|
Packit Service |
407539 |
#include <ufs/ufs/quota.h>
|
|
Packit Service |
407539 |
#include <ufs/ufs/inode.h>
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#include <sys/ucred.h>
|
|
Packit Service |
407539 |
#include <sys/user.h>
|
|
Packit Service |
407539 |
#include <sys/sysctl.h>
|
|
Packit Service |
407539 |
#include <vm/vm.h>
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
static const unsigned long _glibtop_sysdeps_proc_mem =
|
|
Packit Service |
407539 |
(1L << GLIBTOP_PROC_MEM_SIZE) +
|
|
Packit Service |
407539 |
(1L << GLIBTOP_PROC_MEM_VSIZE) +
|
|
Packit Service |
407539 |
(1L << GLIBTOP_PROC_MEM_RESIDENT) +
|
|
Packit Service |
407539 |
(1L << GLIBTOP_PROC_MEM_RSS) +
|
|
Packit Service |
407539 |
(1L << GLIBTOP_PROC_MEM_RSS_RLIM);
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
static const unsigned long _glibtop_sysdeps_proc_mem_share =
|
|
Packit Service |
407539 |
(1L << GLIBTOP_PROC_MEM_SHARE);
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* define pagetok in terms of pageshift */
|
|
Packit Service |
407539 |
#define ps_pgtok(a) (((a) * getpagesize()) / 1024)
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* Init function. */
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
void
|
|
Packit Service |
407539 |
_glibtop_init_proc_mem_p (glibtop *server)
|
|
Packit Service |
407539 |
{
|
|
Packit Service |
407539 |
server->sysdeps.proc_mem = _glibtop_sysdeps_proc_mem;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* Provides detailed information about a process. */
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
void
|
|
Packit Service |
407539 |
glibtop_get_proc_mem_p (glibtop *server, glibtop_proc_mem *buf,
|
|
Packit Service |
407539 |
pid_t pid)
|
|
Packit Service |
407539 |
{
|
|
Packit Service |
407539 |
struct kinfo_proc *pinfo;
|
|
Packit Service |
407539 |
struct vm_map_entry entry, *first;
|
|
Packit Service |
407539 |
struct vmspace vmspace;
|
|
Packit Service |
407539 |
struct vm_object object;
|
|
Packit Service |
407539 |
int count;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
memset (buf, 0, sizeof (glibtop_proc_mem));
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (server->sysdeps.proc_mem == 0)
|
|
Packit Service |
407539 |
return;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* It does not work for the swapper task. */
|
|
Packit Service |
407539 |
if (pid == 0) return;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* Get the process data */
|
|
Packit Service |
407539 |
pinfo = kvm_getprocs (server->machine->kd, KERN_PROC_PID, pid, &count);
|
|
Packit Service |
407539 |
if ((pinfo == NULL) || (count < 1)) {
|
|
Packit Service |
407539 |
glibtop_warn_io_r (server, "kvm_getprocs (%d)", pid);
|
|
Packit Service |
407539 |
return;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#define PROC_VMSPACE ki_vmspace
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
buf->rss_rlim = pinfo [0].ki_rssize;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
buf->vsize = buf->size = (guint64)
|
|
Packit Service |
407539 |
pinfo [0].ki_size;
|
|
Packit Service |
407539 |
buf->resident = buf->rss = (guint64)
|
|
Packit Service |
407539 |
ps_pgtok (pinfo [0].ki_rssize) * 1024;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
buf->flags |= _glibtop_sysdeps_proc_mem;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
#if 0
|
|
Packit Service |
407539 |
/*
|
|
Packit Service |
407539 |
* It doesn't make any sense to count as shared each and every mmaped file
|
|
Packit Service |
407539 |
*/
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* Now we get the shared memory. */
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (kvm_read (server->machine->kd,
|
|
Packit Service |
407539 |
(unsigned long) pinfo [0].PROC_VMSPACE,
|
|
Packit Service |
407539 |
(char *) &vmspace, sizeof (vmspace)) != sizeof (vmspace)) {
|
|
Packit Service |
407539 |
glibtop_warn_io_r (server, "kvm_read (vmspace)");
|
|
Packit Service |
407539 |
return;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
first = vmspace.vm_map.header.next;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (kvm_read (server->machine->kd,
|
|
Packit Service |
407539 |
(unsigned long) vmspace.vm_map.header.next,
|
|
Packit Service |
407539 |
(char *) &entry, sizeof (entry)) != sizeof (entry)) {
|
|
Packit Service |
407539 |
glibtop_warn_io_r (server, "kvm_read (entry)");
|
|
Packit Service |
407539 |
return;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* Walk through the `vm_map_entry' list ... */
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* I tested this a few times with `mmap'; as soon as you write
|
|
Packit Service |
407539 |
* to the mmap'ed area, the object type changes from OBJT_VNODE
|
|
Packit Service |
407539 |
* to OBJT_DEFAULT so if seems this really works. */
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
while (entry.next != first) {
|
|
Packit Service |
407539 |
if (kvm_read (server->machine->kd,
|
|
Packit Service |
407539 |
(unsigned long) entry.next,
|
|
Packit Service |
407539 |
(char *) &entry, sizeof (entry)) != sizeof (entry)) {
|
|
Packit Service |
407539 |
glibtop_warn_io_r (server, "kvm_read (entry)");
|
|
Packit Service |
407539 |
return;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (entry.eflags & (MAP_ENTRY_IS_SUB_MAP))
|
|
Packit Service |
407539 |
continue;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (!entry.object.vm_object)
|
|
Packit Service |
407539 |
continue;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
/* We're only interested in `vm_object's */
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (kvm_read (server->machine->kd,
|
|
Packit Service |
407539 |
(unsigned long) entry.object.vm_object,
|
|
Packit Service |
407539 |
(char *) &object, sizeof (object)) != sizeof (object)) {
|
|
Packit Service |
407539 |
glibtop_warn_io_r (server, "kvm_read (object)");
|
|
Packit Service |
407539 |
return;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
if (object.type != OBJT_VNODE)
|
|
Packit Service |
407539 |
continue;
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
buf->share += object.un_pager.vnp.vnp_size;
|
|
Packit Service |
407539 |
}
|
|
Packit Service |
407539 |
|
|
Packit Service |
407539 |
buf->flags |= _glibtop_sysdeps_proc_mem_share;
|
|
Packit Service |
407539 |
#endif
|
|
Packit Service |
407539 |
}
|