/* -*- Mode: C; tab-width: 8; indent-tabs-mode: t; c-basic-offset: 4 -*- */

/* $Id$ */

/* Copyright (C) 1998 Joshua Sled
   This file is part of LibGTop 1.0.

   Contributed by Joshua Sled <jsled@xcf.berkeley.edu>, July 1998.

   LibGTop is free software; you can redistribute it and/or modify it
   under the terms of the GNU General Public License as published by
   the Free Software Foundation; either version 2 of the License,
   or (at your option) any later version.

   LibGTop is distributed in the hope that it will be useful, but WITHOUT
   ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
   FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
   for more details.

   You should have received a copy of the GNU General Public License
   along with LibGTop; see the file COPYING. If not, write to the
   Free Software Foundation, Inc., 59 Temple Place - Suite 330,
   Boston, MA 02111-1307, USA.
*/

#include <glibtop.h>
#include <glibtop/error.h>
#include <glibtop/xmalloc.h>
#include <glibtop/procargs.h>

#include <glibtop_suid.h>

#include <kvm.h>
#include <sys/param.h>
#include <sys/proc.h>

static const unsigned long _glibtop_sysdeps_proc_args =
(1L << GLIBTOP_ARRAY_NUMBER) + (1L << GLIBTOP_ARRAY_SIZE);

/* Init function. */

int
glibtop_init_proc_args_p (glibtop *server)
{
    server->sysdeps.proc_args = _glibtop_sysdeps_proc_args;

    return 0;
}

/* Provides detailed information about a process. */

char **
glibtop_get_proc_args_p (glibtop *server, glibtop_array *array, pid_t pid)
{
    struct kinfo_proc *pinfo;
    char **args, **ptr, **ptrlist;
    size_t count;
    int i;

#ifndef __bsdi__
    char filename [BUFSIZ];
    struct stat statb;
#endif

    glibtop_init_p (server, (1L << GLIBTOP_SYSDEPS_PROC_ARGS), 0);
	
    memset (array, 0, sizeof (glibtop_array));

    /* swapper, init, pagedaemon, vmdaemon, update - this doen't work. */
    if (pid < 5) return NULL;

#ifndef __bsdi__
    sprintf (filename, "/proc/%d/mem", pid);
    if (stat (filename, &statb)) return NULL;
#endif

    glibtop_suid_enter (server);

    /* Get the process data */
    pinfo = kvm_getprocs (server->_priv->machine.kd,
			  KERN_PROC_PID, pid, &count);
    if ((pinfo == NULL) || (count < 1)) {
	glibtop_suid_leave (server);
	glibtop_warn_io_r (server, "kvm_getprocs (%d)", pid);
	return NULL;
    }

    args = kvm_getargv (server->_priv->machine.kd, pinfo, BUFSIZ);
    if (args == NULL) {
	glibtop_suid_leave (server);
	glibtop_warn_io_r (server, "kvm_getargv (%d)", pid);
	return NULL;
    }

    glibtop_suid_leave (server);

    count = 0;
    for (ptr = args; *ptr; ptr++)
	count++;

    ptrlist = glibtop_calloc_r (server, count+1, sizeof (char *));

    for (i = 0, ptr = args; *ptr; ptr++, i++) {
	ptrlist [i] = glibtop_strdup_r (server, *ptr);
    }

    ptrlist [count] = NULL;

    array->number = count;
    array->size = sizeof (char *);
    array->flags = _glibtop_sysdeps_proc_args;

    return ptrlist;
}