Blame sysdeps/aix/procstate.c

Packit d37888
/* Copyright (C) 1998-99 Martin Baulig
Packit d37888
   This file is part of LibGTop 1.0.
Packit d37888
Packit d37888
   Contributed by Martin Baulig <martin@home-of-linux.org>, April 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 <procinfo.h>
Packit d37888
#include <sys/thread.h>
Packit d37888
Packit d37888
#include <glibtop.h>
Packit d37888
#include <glibtop/procstate.h>
Packit d37888
#include <glibtop/error.h>
Packit d37888
Packit d37888
#include "utils.h"
Packit d37888
Packit d37888
static const unsigned long _glibtop_sysdeps_proc_state =
Packit d37888
(1 << GLIBTOP_PROC_STATE_CMD) + (1 << GLIBTOP_PROC_STATE_STATE) +
Packit d37888
(1 << GLIBTOP_PROC_STATE_UID) + (1 << GLIBTOP_PROC_STATE_GID);
Packit d37888
Packit d37888
/* Init function. */
Packit d37888
Packit d37888
void
Packit d37888
_glibtop_init_proc_state_s (glibtop *server)
Packit d37888
{
Packit d37888
	server->sysdeps.proc_state = _glibtop_sysdeps_proc_state;
Packit d37888
}
Packit d37888
Packit d37888
/* Provides detailed information about a process. */
Packit d37888
Packit d37888
void
Packit d37888
glibtop_get_proc_state_s (glibtop *server, glibtop_proc_state *buf,
Packit d37888
			  pid_t pid)
Packit d37888
{
Packit d37888
	struct procsinfo *pinfo;
Packit d37888
	struct thrdsinfo thinfo;
Packit d37888
	tid_t thid;
Packit d37888
	int result;
Packit d37888
Packit d37888
	glibtop_init_s (&server, (1L << GLIBTOP_SYSDEPS_PROC_STATE), 0);
Packit d37888
Packit d37888
	memset (buf, 0, sizeof (glibtop_proc_state));
Packit d37888
Packit d37888
	pinfo = _glibtop_get_procinfo(server, pid);
Packit d37888
	if (pinfo == NULL) return;
Packit d37888
Packit d37888
	if (pinfo->pi_pid == 0)
Packit d37888
	{
Packit d37888
		strcpy(buf->cmd, "swapper");
Packit d37888
	}
Packit d37888
Packit d37888
	if (pinfo->pi_comm[0] == 0)
Packit d37888
	{
Packit d37888
		strcpy(buf->cmd, "<unknown>");
Packit d37888
	}
Packit d37888
	else
Packit d37888
	{
Packit d37888
		g_strlcpy(buf->cmd, pinfo->pi_comm, sizeof buf->cmd);
Packit d37888
	}
Packit d37888
Packit d37888
	buf->uid = pinfo->pi_uid;
Packit d37888
	buf->gid = pinfo->pi_cred.cr_gid;
Packit d37888
Packit d37888
	if (pinfo->pi_state == SZOMB)
Packit d37888
	{
Packit d37888
		buf->state = GLIBTOP_PROCESS_ZOMBIE;
Packit d37888
		strcpy(buf->cmd, "<defunct>");
Packit d37888
	}
Packit d37888
	else
Packit d37888
	{
Packit d37888
		/* get state of first thread */
Packit d37888
Packit d37888
		thid = 0;
Packit d37888
		result = getthrds(pid, &thinfo, sizeof(thinfo), &thid, 1);
Packit d37888
		if (result != 1)
Packit d37888
		{
Packit d37888
			glibtop_error_io_r(server, "Cannot read threadinfo");
Packit d37888
		}
Packit d37888
Packit d37888
		switch (thinfo.ti_state)
Packit d37888
		{
Packit d37888
			case TSIDL:
Packit d37888
				/* FIXME */
Packit d37888
				/* buf->state = GLIBTOP_PROCESS_UNINTERRUPTIBLE; */
Packit d37888
				break;
Packit d37888
			case TSRUN:
Packit d37888
				buf->state = GLIBTOP_PROCESS_RUNNING;
Packit d37888
				break;
Packit d37888
			case TSSLEEP:
Packit d37888
				buf->state = GLIBTOP_PROCESS_INTERRUPTIBLE;
Packit d37888
				break;
Packit d37888
			case TSZOMB:
Packit d37888
				buf->state = GLIBTOP_PROCESS_ZOMBIE;
Packit d37888
				strcpy(buf->cmd, "<defunct>");
Packit d37888
				break;
Packit d37888
			case TSSTOP:
Packit d37888
				buf->state = GLIBTOP_PROCESS_STOPPED;
Packit d37888
				break;
Packit d37888
			case TSSWAP:
Packit d37888
				buf->state = GLIBTOP_PROCESS_SWAPPING;
Packit d37888
				break;
Packit d37888
			default:
Packit d37888
				buf->state = 0;
Packit d37888
				break;
Packit d37888
		}
Packit d37888
	}
Packit d37888
Packit d37888
	buf->flags = _glibtop_sysdeps_proc_state;
Packit d37888
}