Blame sysdeps/bsd/procmap.c

Packit d37888
/* Copyright (C) 1998 Joshua Sled
Packit d37888
   This file is part of LibGTop 1.0.
Packit d37888
Packit d37888
   Contributed by Joshua Sled <jsled@xcf.berkeley.edu>, July 1998.
Packit d37888
Packit d37888
   LibGTop is free software; you can redistribute it and/or modify it
Packit d37888
   under the terms of the GNU General Public License as published by
Packit d37888
   the Free Software Foundation; either version 2 of the License,
Packit d37888
   or (at your option) any later version.
Packit d37888
Packit d37888
   LibGTop is distributed in the hope that it will be useful, but WITHOUT
Packit d37888
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
Packit d37888
   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
Packit d37888
   for more details.
Packit d37888
Packit d37888
   You should have received a copy of the GNU General Public License
Packit d37888
   along with LibGTop; see the file COPYING. If not, write to the
Packit d37888
   Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
Packit d37888
   Boston, MA 02110-1301, USA.
Packit d37888
*/
Packit d37888
Packit d37888
#include <config.h>
Packit d37888
#include <glibtop.h>
Packit d37888
#include <glibtop/error.h>
Packit d37888
#include <glibtop/procmap.h>
Packit d37888
Packit d37888
#include <glibtop_suid.h>
Packit d37888
Packit d37888
#include <kvm.h>
Packit d37888
#include <sys/param.h>
Packit d37888
#include <sys/proc.h>
Packit d37888
#include <sys/resource.h>
Packit d37888
#if defined(__NetBSD__) && (__NetBSD_Version__ < 105020000)
Packit d37888
#include <vm/vm_object.h>
Packit d37888
#include <vm/vm_prot.h>
Packit d37888
#include <vm/vm_map.h>
Packit d37888
#elif defined(__NetBSD__) && (__NetBSD_Version__ >= 105020000)
Packit d37888
#include <uvm/uvm_extern.h>
Packit d37888
#else
Packit d37888
#include <vm/vm_object.h>
Packit d37888
#include <vm/vm_map.h>
Packit d37888
#if (__FreeBSD_version >= 400011) || defined(__FreeBSD_kernel__)
Packit d37888
#include <vm/vm.h>
Packit d37888
#else
Packit d37888
#include <vm/vm_prot.h>
Packit d37888
#endif
Packit d37888
#endif
Packit d37888
Packit d37888
#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
Packit d37888
#define _KVM_VNODE
Packit d37888
#endif
Packit d37888
#include <sys/vnode.h>
Packit d37888
#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
Packit d37888
#undef _KVM_VNODE
Packit d37888
#endif
Packit d37888
#include <sys/mount.h>
Packit d37888
#include <ufs/ufs/quota.h>
Packit d37888
#include <ufs/ufs/inode.h>
Packit d37888
Packit d37888
#include <sys/ucred.h>
Packit d37888
#if (!defined __OpenBSD__) && (!defined __bsdi__)
Packit d37888
#include <sys/user.h>
Packit d37888
#endif
Packit d37888
#include <sys/sysctl.h>
Packit d37888
#if !defined(__NetBSD__) || (__NetBSD_Version__ < 105020000)
Packit d37888
#include <vm/vm.h>
Packit d37888
#endif
Packit d37888
Packit d37888
#if defined(__NetBSD__) && (__NetBSD_Version__ >= 104000000)
Packit d37888
/* Fixme ... */
Packit d37888
#undef _KERNEL
Packit d37888
#define _UVM_UVM_AMAP_I_H_ 1
Packit d37888
#define _UVM_UVM_MAP_I_H_ 1
Packit d37888
#include <uvm/uvm.h>
Packit d37888
#endif
Packit d37888
Packit d37888
static const unsigned long _glibtop_sysdeps_proc_map =
Packit d37888
(1L << GLIBTOP_PROC_MAP_TOTAL) + (1L << GLIBTOP_PROC_MAP_NUMBER) +
Packit d37888
(1L << GLIBTOP_PROC_MAP_SIZE);
Packit d37888
Packit d37888
static const unsigned long _glibtop_sysdeps_map_entry =
Packit d37888
(1L << GLIBTOP_MAP_ENTRY_START) + (1L << GLIBTOP_MAP_ENTRY_END) +
Packit d37888
(1L << GLIBTOP_MAP_ENTRY_OFFSET) + (1L << GLIBTOP_MAP_ENTRY_PERM) +
Packit d37888
(1L << GLIBTOP_MAP_ENTRY_INODE) + (1L << GLIBTOP_MAP_ENTRY_DEVICE);
Packit d37888
Packit d37888
/* Init function. */
Packit d37888
Packit d37888
void
Packit d37888
_glibtop_init_proc_map_p (glibtop *server)
Packit d37888
{
Packit d37888
	server->sysdeps.proc_map = _glibtop_sysdeps_proc_map;
Packit d37888
}
Packit d37888
Packit d37888
/* Provides detailed information about a process. */
Packit d37888
Packit d37888
glibtop_map_entry *
Packit d37888
glibtop_get_proc_map_p (glibtop *server, glibtop_proc_map *buf,
Packit d37888
			pid_t pid)
Packit d37888
{
Packit d37888
	struct kinfo_proc *pinfo;
Packit d37888
	struct vm_map_entry entry, *first;
Packit d37888
	struct vmspace vmspace;
Packit d37888
#if defined(__NetBSD__) && (__NetBSD_Version__ >= 104000000)
Packit d37888
	struct vnode vnode;
Packit d37888
	struct inode inode;
Packit d37888
#else
Packit d37888
	struct vm_object object;
Packit d37888
#endif
Packit d37888
	GArray *maps = g_array_sized_new(FALSE, FALSE,
Packit d37888
					 sizeof(glibtop_map_entry),
Packit d37888
					 100);
Packit d37888
#if (defined __FreeBSD__) || defined(__FreeBSD_kernel__)
Packit d37888
	struct vnode vnode;
Packit d37888
#if (__FreeBSD_version < 500039) && !defined(__FreeBSD_kernel__)
Packit d37888
	struct inode inode;
Packit d37888
#endif
Packit d37888
#endif
Packit d37888
	int count, i = 0;
Packit d37888
	int update = 0;
Packit d37888
Packit d37888
	glibtop_init_p (server, (1L << GLIBTOP_SYSDEPS_PROC_MAP), 0);
Packit d37888
Packit d37888
	memset (buf, 0, sizeof (glibtop_proc_map));
Packit d37888
Packit d37888
	/* It does not work for the swapper task. */
Packit d37888
	if (pid == 0) return (glibtop_map_entry*) g_array_free(maps, TRUE);
Packit d37888
Packit d37888
	glibtop_suid_enter (server);
Packit d37888
Packit d37888
	/* Get the process data */
Packit d37888
	pinfo = kvm_getprocs (server->machine->kd, KERN_PROC_PID, pid, &count);
Packit d37888
	if ((pinfo == NULL) || (count < 1)) {
Packit d37888
		glibtop_warn_io_r (server, "kvm_getprocs (%d)", pid);
Packit d37888
		return (glibtop_map_entry*) g_array_free(maps, TRUE);
Packit d37888
	}
Packit d37888
Packit d37888
	/* Now we get the memory maps. */
Packit d37888
Packit d37888
	if (kvm_read (server->machine->kd,
Packit d37888
#if (defined(__FreeBSD__) && (__FreeBSD_version >= 500013)) || defined(__FreeBSD_kernel__)
Packit d37888
		      (unsigned long) pinfo [0].ki_vmspace,
Packit d37888
#else
Packit d37888
		      (unsigned long) pinfo [0].kp_proc.p_vmspace,
Packit d37888
#endif
Packit d37888
		      (char *) &vmspace, sizeof (vmspace)) != sizeof (vmspace))
Packit d37888
		glibtop_error_io_r (server, "kvm_read (vmspace)");
Packit d37888
Packit d37888
	first = vmspace.vm_map.header.next;
Packit d37888
Packit d37888
	if (kvm_read (server->machine->kd,
Packit d37888
		      (unsigned long) vmspace.vm_map.header.next,
Packit d37888
		      (char *) &entry, sizeof (entry)) != sizeof (entry))
Packit d37888
		glibtop_error_io_r (server, "kvm_read (entry)");
Packit d37888
Packit d37888
	/* Allocate space. */
Packit d37888
Packit d37888
	buf->number = vmspace.vm_map.nentries;
Packit d37888
	buf->size = sizeof (glibtop_map_entry);
Packit d37888
Packit d37888
	buf->total = buf->number * buf->size;
Packit d37888
Packit d37888
	buf->flags = _glibtop_sysdeps_proc_map;
Packit d37888
Packit d37888
	/* Walk through the `vm_map_entry' list ... */
Packit d37888
Packit d37888
	/* I tested this a few times with `mmap'; as soon as you write
Packit d37888
	 * to the mmap'ed area, the object type changes from OBJT_VNODE
Packit d37888
	 * to OBJT_DEFAULT so if seems this really works. */
Packit d37888
Packit d37888
	do {
Packit d37888
		glibtop_map_entry *mentry;
Packit d37888
		unsigned long inum, dev;
Packit d37888
		guint len;
Packit d37888
Packit d37888
		if (update) {
Packit d37888
			if (kvm_read (server->machine->kd,
Packit d37888
				      (unsigned long) entry.next,
Packit d37888
				      &entry, sizeof (entry)) != sizeof (entry))
Packit d37888
				glibtop_error_io_r (server, "kvm_read (entry)");
Packit d37888
		} else {
Packit d37888
			update = 1;
Packit d37888
		}
Packit d37888
Packit d37888
#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
Packit d37888
#if (__FreeBSD__ >= 4) || defined(__FreeBSD_kernel__)
Packit d37888
		if (entry.eflags & (MAP_ENTRY_IS_SUB_MAP))
Packit d37888
			continue;
Packit d37888
#else
Packit d37888
 		if (entry.eflags & (MAP_ENTRY_IS_A_MAP|MAP_ENTRY_IS_SUB_MAP))
Packit d37888
 			continue;
Packit d37888
#endif
Packit d37888
#else
Packit d37888
#if defined(__NetBSD__) && (__NetBSD_Version__ >= 104000000)
Packit d37888
 		if (UVM_ET_ISSUBMAP (&entry))
Packit d37888
			continue;
Packit d37888
#else
Packit d37888
		if (entry.is_a_map || entry.is_sub_map)
Packit d37888
			continue;
Packit d37888
#endif
Packit d37888
#endif
Packit d37888
Packit d37888
Packit d37888
#if defined(__NetBSD__) && (__NetBSD_Version__ >= 104000000)
Packit d37888
		if (!entry.object.uvm_obj)
Packit d37888
			continue;
Packit d37888
Packit d37888
		/* We're only interested in vnodes */
Packit d37888
Packit d37888
		if (kvm_read (server->machine->kd,
Packit d37888
			      (unsigned long) entry.object.uvm_obj,
Packit d37888
			      &vnode, sizeof (vnode)) != sizeof (vnode)) {
Packit d37888
			glibtop_warn_io_r (server, "kvm_read (vnode)");
Packit d37888
			return (glibtop_map_entry*) g_array_free(maps, TRUE);
Packit d37888
		}
Packit d37888
#else
Packit d37888
		if (!entry.object.vm_object)
Packit d37888
			continue;
Packit d37888
Packit d37888
		/* We're only interested in `vm_object's */
Packit d37888
Packit d37888
		if (kvm_read (server->machine->kd,
Packit d37888
			      (unsigned long) entry.object.vm_object,
Packit d37888
			      &object, sizeof (object)) != sizeof (object))
Packit d37888
			glibtop_error_io_r (server, "kvm_read (object)");
Packit d37888
#endif
Packit d37888
Packit d37888
#if defined(__NetBSD__) && (__NetBSD_Version__ >= 104000000)
Packit d37888
#if defined(UVM_VNODE_VALID)
Packit d37888
		if (!vnode.v_uvm.u_flags & UVM_VNODE_VALID)
Packit d37888
			continue;
Packit d37888
#endif
Packit d37888
		if ((vnode.v_type != VREG) || (vnode.v_tag != VT_UFS) ||
Packit d37888
		    !vnode.v_data) continue;
Packit d37888
Packit d37888
		if (kvm_read (server->machine->kd,
Packit d37888
			      (unsigned long) vnode.v_data,
Packit d37888
			      &inode, sizeof (inode)) != sizeof (inode))
Packit d37888
			glibtop_error_io_r (server, "kvm_read (inode)");
Packit d37888
Packit d37888
		inum  = inode.i_number;
Packit d37888
		dev = inode.i_dev;
Packit d37888
#endif
Packit d37888
Packit d37888
Packit d37888
#if defined(__FreeBSD__) || defined(__FreeBSD_kernel__)
Packit d37888
		/* If the object is of type vnode, add its size */
Packit d37888
Packit d37888
		if (object.type != OBJT_VNODE)
Packit d37888
			continue;
Packit d37888
Packit d37888
		if (!object.handle)
Packit d37888
			continue;
Packit d37888
Packit d37888
		if (kvm_read (server->machine->kd,
Packit d37888
			      (unsigned long) object.handle,
Packit d37888
			      &vnode, sizeof (vnode)) != sizeof (vnode))
Packit d37888
			glibtop_error_io_r (server, "kvm_read (vnode)");
Packit d37888
Packit d37888
#if (defined(__FreeBSD__) && (__FreeBSD_version >= 500039)) || defined(__FreeBSD_kernel__)
Packit d37888
               switch (vnode.v_type) {
Packit d37888
                   case VREG:
Packit d37888
#if (__FreeBSD_version < 600006) && !defined(__FreeBSD_kernel__)
Packit d37888
                       inum = vnode.v_cachedid;
Packit d37888
		       dev = vnode.v_cachedfs;
Packit d37888
#endif
Packit d37888
                   default:
Packit d37888
                   continue;
Packit d37888
               }
Packit d37888
#else
Packit d37888
		if ((vnode.v_type != VREG) || (vnode.v_tag != VT_UFS) ||
Packit d37888
		    !vnode.v_data) continue;
Packit d37888
Packit d37888
		if (kvm_read (server->machine->kd,
Packit d37888
			      (unsigned long) vnode.v_data,
Packit d37888
			      &inode, sizeof (inode)) != sizeof (inode))
Packit d37888
			glibtop_error_io_r (server, "kvm_read (inode)");
Packit d37888
Packit d37888
		inum  = inode.i_number;
Packit d37888
		dev = inode.i_dev;
Packit d37888
#endif
Packit d37888
#endif
Packit d37888
		len = maps->len;
Packit d37888
		g_array_set_size(maps, len + 1);
Packit d37888
		mentry = &g_array_index(maps, glibtop_map_entry, len);
Packit d37888
Packit d37888
		mentry->flags  = _glibtop_sysdeps_map_entry;
Packit d37888
Packit d37888
		mentry->start  = (guint64) entry.start;
Packit d37888
		mentry->end    = (guint64) entry.end;
Packit d37888
		mentry->offset = (guint64) entry.offset;
Packit d37888
		mentry->device = (guint64) dev;
Packit d37888
		mentry->inode  = (guint64) inum;
Packit d37888
Packit d37888
		mentry->perm   = (guint64) 0;
Packit d37888
Packit d37888
		if (entry.protection & VM_PROT_READ)
Packit d37888
			mentry->perm |= GLIBTOP_MAP_PERM_READ;
Packit d37888
		if (entry.protection & VM_PROT_WRITE)
Packit d37888
			mentry->perm |= GLIBTOP_MAP_PERM_WRITE;
Packit d37888
		if (entry.protection & VM_PROT_EXECUTE)
Packit d37888
			mentry->perm |= GLIBTOP_MAP_PERM_EXECUTE;
Packit d37888
	} while (entry.next != first);
Packit d37888
Packit d37888
	buf->flags = _glibtop_sysdeps_proc_map;
Packit d37888
Packit d37888
	buf->number = maps->len;
Packit d37888
	buf->size = sizeof (glibtop_map_entry);
Packit d37888
	buf->total = buf->number * buf->size;
Packit d37888
Packit d37888
	return (glibtop_map_entry*) g_array_free(maps, FALSE);
Packit d37888
}