src/libstatgrab/process_stats.c

/*
 * i-scream central monitoring system
 * http://www.i-scream.org
 * Copyright (C) 2000-2004 i-scream
 * 
 * This library is free software; you can redistribute it and/or
 * modify it under the terms of the GNU Lesser General Public
 * License as published by the Free Software Foundation; either
 * version 2.1 of the License, or (at your option) any later version.
 * 
 * This library 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
 * Lesser General Public License for more details.
 * 
 * You should have received a copy of the GNU Lesser General Public
 * License along with this library; if not, write to the Free Software
 * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
 * 02111-1307 USA
 *
 * $Id: process_stats.c,v 1.47 2004/04/05 00:21:29 tdb Exp $
 */

#ifdef HAVE_CONFIG_H
#include "config.h"
#endif

#include "statgrab.h"
#include "tools.h"
#include "vector.h"
#if defined(SOLARIS) || defined(LINUX)
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>
#include <dirent.h>
#include <string.h>
#endif

#ifdef SOLARIS
#include <procfs.h>
#include <limits.h>
#define PROC_LOCATION "/proc"
#define MAX_FILE_LENGTH PATH_MAX
#endif
#ifdef LINUX
#include <limits.h>
#include <unistd.h>
#include <sys/stat.h>
#include <fcntl.h>
#define PROC_LOCATION "/proc"
#define MAX_FILE_LENGTH PATH_MAX
#endif
#ifdef ALLBSD
#include <stdlib.h>
#include <sys/param.h>
#include <sys/sysctl.h>
#if defined(FREEBSD) || defined(DFBSD)
#include <sys/user.h>
#else
#include <sys/proc.h>
#endif
#include <string.h>
#include <paths.h>
#include <fcntl.h>
#include <limits.h>
#if (defined(FREEBSD) && !defined(FREEBSD5)) || defined(DFBSD)
#include <kvm.h>
#include <tools.h>
#endif
#include <unistd.h>
#endif

static void proc_state_init(proc_state_t *s) {
        s->process_name = NULL;
        s->proctitle = NULL;
}

static void proc_state_destroy(proc_state_t *s) {
        free(s->process_name);
        free(s->proctitle);
}

int get_proc_snapshot(proc_state_t **ps){
        VECTOR_DECLARE_STATIC(proc_state, proc_state_t, 64,
                              proc_state_init, proc_state_destroy);
        int proc_state_size = 0;
        proc_state_t *proc_state_ptr;
#ifdef ALLBSD
        int mib[4];
        size_t size;
        struct kinfo_proc *kp_stats;
        int procs, i;
        char *proctitle;
#if (defined(FREEBSD) && !defined(FREEBSD5)) || defined(DFBSD)
        kvm_t *kvmd;
        char **args;
        int alloc;
        char *proctitletmp;
#else
        long buflen;
        char *p;
#endif
#endif
#if defined(SOLARIS) || defined(LINUX)
        DIR *proc_dir;
        struct dirent *dir_entry;
        char filename[MAX_FILE_LENGTH];
        FILE *f;
#ifdef SOLARIS
        psinfo_t process_info;
#endif
#ifdef LINUX
        char s;
        /* If someone has a executable of 4k filename length, they deserve to get it truncated :) */
        char ps_name[4096];
        char *ptr;
        VECTOR_DECLARE_STATIC(psargs, char, 128, NULL, NULL);
        unsigned long stime, utime;
        int x;
        int fn;
        int len;
        int rc;
#endif

        if((proc_dir=opendir(PROC_LOCATION))==NULL){
                return -1;
        }

        while((dir_entry=readdir(proc_dir))!=NULL){
                if(atoi(dir_entry->d_name) == 0) continue;

#ifdef SOLARIS
                snprintf(filename, MAX_FILE_LENGTH, "/proc/%s/psinfo", dir_entry->d_name);
#endif
#ifdef LINUX
                snprintf(filename, MAX_FILE_LENGTH, "/proc/%s/stat", dir_entry->d_name);
#endif
                if((f=fopen(filename, "r"))==NULL){
                        /* Open failed.. Process since vanished, or the path was too long.
                         * Ah well, move onwards to the next one */
                        continue;
                }
#ifdef SOLARIS
                fread(&process_info, sizeof(psinfo_t), 1, f);
#endif

                if (VECTOR_RESIZE(proc_state, proc_state_size + 1) < 0) {
                        return -1;
                }
                proc_state_ptr = proc_state+proc_state_size;

#ifdef SOLARIS          
                proc_state_ptr->pid = process_info.pr_pid;
                proc_state_ptr->parent = process_info.pr_ppid;
                proc_state_ptr->pgid = process_info.pr_pgid;
                proc_state_ptr->uid = process_info.pr_uid;
                proc_state_ptr->euid = process_info.pr_euid;
                proc_state_ptr->gid = process_info.pr_gid;
                proc_state_ptr->egid = process_info.pr_egid;
                proc_state_ptr->proc_size = (process_info.pr_size) * 1024;
                proc_state_ptr->proc_resident = (process_info.pr_rssize) * 1024;
                proc_state_ptr->time_spent = process_info.pr_time.tv_sec;
                proc_state_ptr->cpu_percent = (process_info.pr_pctcpu * 100.0) / 0x8000;
                proc_state_ptr->process_name = strdup(process_info.pr_fname);
                proc_state_ptr->proctitle = strdup(process_info.pr_psargs);

                if(process_info.pr_lwp.pr_state==1) proc_state_ptr->state = SLEEPING;
                if(process_info.pr_lwp.pr_state==2) proc_state_ptr->state = RUNNING; 
                if(process_info.pr_lwp.pr_state==3) proc_state_ptr->state = ZOMBIE; 
                if(process_info.pr_lwp.pr_state==4) proc_state_ptr->state = STOPPED; 
                if(process_info.pr_lwp.pr_state==6) proc_state_ptr->state = RUNNING; 
#endif
#ifdef LINUX
                x = fscanf(f, "%d %4096s %c %d %d %*d %*d %*d %*u %*u %*u %*u %*u %lu %lu %*d %*d %*d %d %*d %*d %*u %llu %llu %*u %*u %*u %*u %*u %*u %*u %*u %*u %*u %*u %*u %*u %*d %*d\n", &(proc_state_ptr->pid), ps_name, &s, &(proc_state_ptr->parent), &(proc_state_ptr->pgid), &utime, &stime, &(proc_state_ptr->nice), &(proc_state_ptr->proc_size), &(proc_state_ptr->proc_resident));
                proc_state_ptr->proc_resident = proc_state_ptr->proc_resident * getpagesize();
                if(s == 'S') proc_state_ptr->state = SLEEPING;
                if(s == 'R') proc_state_ptr->state = RUNNING;
                if(s == 'Z') proc_state_ptr->state = ZOMBIE;
                if(s == 'T') proc_state_ptr->state = STOPPED;
                if(s == 'D') proc_state_ptr->state = STOPPED;
        
                /* pa_name[0] should = '(' */
                ptr = strchr(&ps_name[1], ')'); 
                if(ptr !=NULL) *ptr='\0';

                if (update_string(&proc_state_ptr->process_name,
                                  &ps_name[1]) == NULL) {
                        return -1;
                }

                /* Need to do cpu */
                

                fclose(f);

                /* proctitle */ 
                snprintf(filename, MAX_FILE_LENGTH, "/proc/%s/cmdline", dir_entry->d_name);

                if((fn=open(filename, O_RDONLY)) == -1){
                        /* Open failed.. Process since vanished, or the path was too long.
                         * Ah well, move onwards to the next one */
                        continue;
                }

#define READ_BLOCK_SIZE 128
                len = 0;
                do {
                        if (VECTOR_RESIZE(psargs, len + READ_BLOCK_SIZE + 1) < 0) {
                                return -1;
                        }
                        rc = read(fn, psargs + len, READ_BLOCK_SIZE);
                        if (rc > 0) {
                                len += rc;
                        }
                } while (rc == READ_BLOCK_SIZE);
                close(fn);

                if (rc == -1) {
                        /* Read failed; move on. */
                        continue;
                }

                /* Turn \0s into spaces within the command line. */
                ptr = psargs;
                for(x = 0; x < len; x++) {
                        if (*ptr == '\0') *ptr = ' ';
                        ptr++;
                }
                /* for safety's sake */
                psargs[len] = '\0';

                if (update_string(&proc_state_ptr->proctitle, psargs) == NULL) {
                        return -1;
                }
#endif

                proc_state_size++;
        }
        closedir(proc_dir);
#endif

#ifdef ALLBSD
        mib[0] = CTL_KERN;
        mib[1] = KERN_PROC;
        mib[2] = KERN_PROC_ALL;

        if(sysctl(mib, 3, NULL, &size, NULL, 0) < 0) {
                return -1;
        }

        procs = size / sizeof(struct kinfo_proc);

        kp_stats = malloc(size);
        if(kp_stats == NULL) {
                return -1;
        }

        if(sysctl(mib, 3, kp_stats, &size, NULL, 0) < 0) {
                free(kp_stats);
                return -1;
        }

#if (defined(FREEBSD) && !defined(FREEBSD5)) || defined(DFBSD)
        kvmd = get_kvm2();
#endif

        for (i = 0; i < procs; i++) {
                const char *name;

                if (VECTOR_RESIZE(proc_state, proc_state_size + 1) < 0) {
                        return -1;
                }
                proc_state_ptr = proc_state+proc_state_size;

#ifdef FREEBSD5
                name = kp_stats[i].ki_comm;
#elif defined(DFBSD)
                name = kp_stats[i].kp_thread.td_comm;
#else
                name = kp_stats[i].kp_proc.p_comm;
#endif
                if (update_string(&proc_state_ptr->process_name, name) == NULL) {
                        return -1;
                }

#if defined(FREEBSD5) || defined(NETBSD) || defined(OPENBSD)
                size = sizeof(buflen);

#ifdef FREEBSD5
                if(sysctlbyname("kern.ps_arg_cache_limit", &buflen, &size, NULL, 0) < 0) {
                        return -1;
                }
#else
                mib[1] = KERN_ARGMAX;

                if(sysctl(mib, 2, &buflen, &size, NULL, 0) < 0) {
                        return -1;
                }
#endif

                proctitle = malloc(buflen);
                if(proctitle == NULL) {
                        return -1;
                }

                size = buflen;

#ifdef FREEBSD5
                mib[2] = KERN_PROC_ARGS;
                mib[3] = kp_stats[i].ki_pid;
#else
                mib[1] = KERN_PROC_ARGS;
                mib[2] = kp_stats[i].kp_proc.p_pid;
                mib[3] = KERN_PROC_ARGV;
#endif

                free(proc_state_ptr->proctitle);
                if(sysctl(mib, 4, proctitle, &size, NULL, 0) < 0) {
                        free(proctitle);
                        proc_state_ptr->proctitle = NULL;
                }
                else if(size > 0) {
                        proc_state_ptr->proctitle = malloc(size+1);
                        if(proc_state_ptr->proctitle == NULL) {
                                return -1;
                        }
                        p = proctitle;
                        proc_state_ptr->proctitle[0] = NULL;
                        do {
                                strlcat(proc_state_ptr->proctitle, p, size+1);
                                strlcat(proc_state_ptr->proctitle, " ", size+1);
                                p += strlen(p) + 1;
                        } while (p < proctitle + size);
                        free(proctitle);
                        /* remove trailing space */
                        proc_state_ptr->proctitle[strlen(proc_state_ptr->proctitle)-1] = '\0';
                }
                else {
                        free(proctitle);
                        proc_state_ptr->proctitle = NULL;
                }
#else
                free(proc_state_ptr->proctitle);
                if(kvmd != NULL) {
                        args = kvm_getargv(kvmd, &(kp_stats[i]), 0);
                        if(args != NULL) {
                                alloc = 1;
                                proctitle = malloc(alloc);
                                if(proctitle == NULL) {
                                        return -1;
                                }
                                while(*args != NULL) {
                                        if(strlen(proctitle) + strlen(*args) >= alloc) {
                                                alloc = (alloc + strlen(*args)) * 2;
                                                proctitletmp = realloc(proctitle, alloc);
                                                if(proctitletmp == NULL) {
                                                        return -1;
                                                }
                                                proctitle = proctitletmp;
                                        }
                                        strlcat(proctitle, *args, alloc);
                                        strlcat(proctitle, " ", alloc);
                                        args++;
                                }
                                /* remove trailing space */
                                proctitle[strlen(proctitle)-1] = '\0';
                                proc_state_ptr->proctitle = proctitle;
                        }
                        else {
                                proc_state_ptr->proctitle = NULL;
                        }
                }
                else {
                        proc_state_ptr->proctitle = NULL;
                }
#endif

#ifdef FREEBSD5
                proc_state_ptr->pid = kp_stats[i].ki_pid;
                proc_state_ptr->parent = kp_stats[i].ki_ppid;
                proc_state_ptr->pgid = kp_stats[i].ki_pgid;
#else
                proc_state_ptr->pid = kp_stats[i].kp_proc.p_pid;
                proc_state_ptr->parent = kp_stats[i].kp_eproc.e_ppid;
                proc_state_ptr->pgid = kp_stats[i].kp_eproc.e_pgid;
#endif

#ifdef FREEBSD5
                proc_state_ptr->uid = kp_stats[i].ki_ruid;
                proc_state_ptr->euid = kp_stats[i].ki_uid;
                proc_state_ptr->gid = kp_stats[i].ki_rgid;
                proc_state_ptr->egid = kp_stats[i].ki_svgid;
#elif defined(DFBSD)
                proc_state_ptr->uid = kp_stats[i].kp_eproc.e_ucred.cr_ruid;
                proc_state_ptr->euid = kp_stats[i].kp_eproc.e_ucred.cr_svuid;
                proc_state_ptr->gid = kp_stats[i].kp_eproc.e_ucred.cr_rgid;
                proc_state_ptr->egid = kp_stats[i].kp_eproc.e_ucred.cr_svgid;
#else
                proc_state_ptr->uid = kp_stats[i].kp_eproc.e_pcred.p_ruid;
                proc_state_ptr->euid = kp_stats[i].kp_eproc.e_pcred.p_svuid;
                proc_state_ptr->gid = kp_stats[i].kp_eproc.e_pcred.p_rgid;
                proc_state_ptr->egid = kp_stats[i].kp_eproc.e_pcred.p_svgid;
#endif

#ifdef FREEBSD5
                proc_state_ptr->proc_size = kp_stats[i].ki_size;
                /* This is in pages */
                proc_state_ptr->proc_resident =
                        kp_stats[i].ki_rssize * getpagesize();
                /* This is in microseconds */
                proc_state_ptr->time_spent = kp_stats[i].ki_runtime / 1000000;
                proc_state_ptr->cpu_percent =
                        ((double)kp_stats[i].ki_pctcpu / FSCALE) * 100.0;
                proc_state_ptr->nice = kp_stats[i].ki_nice;
#else
                proc_state_ptr->proc_size =
                        kp_stats[i].kp_eproc.e_vm.vm_map.size;
                /* This is in pages */
                proc_state_ptr->proc_resident =
                        kp_stats[i].kp_eproc.e_vm.vm_rssize * getpagesize();
#if defined(NETBSD) || defined(OPENBSD)
                proc_state_ptr->time_spent =
                        kp_stats[i].kp_proc.p_rtime.tv_sec;
#elif defined(DFBSD)
                proc_state_ptr->time_spent = 
                        ( kp_stats[i].kp_thread.td_uticks +
                        kp_stats[i].kp_thread.td_sticks +
                        kp_stats[i].kp_thread.td_iticks ) / 1000000;
#else
                /* This is in microseconds */
                proc_state_ptr->time_spent =
                        kp_stats[i].kp_proc.p_runtime / 1000000;
#endif
                proc_state_ptr->cpu_percent =
                        ((double)kp_stats[i].kp_proc.p_pctcpu / FSCALE) * 100.0;
                proc_state_ptr->nice = kp_stats[i].kp_proc.p_nice;
#endif

#ifdef FREEBSD5
                switch (kp_stats[i].ki_stat) {
#else
                switch (kp_stats[i].kp_proc.p_stat) {
#endif
                case SIDL:
                case SRUN:
#ifdef SONPROC
                case SONPROC: /* NetBSD */
#endif
                        proc_state_ptr->state = RUNNING;
                        break;
                case SSLEEP:
#ifdef SWAIT
                case SWAIT: /* FreeBSD 5 */
#endif
#ifdef SLOCK
                case SLOCK: /* FreeBSD 5 */
#endif
                        proc_state_ptr->state = SLEEPING;
                        break;
                case SSTOP:
                        proc_state_ptr->state = STOPPED;
                        break;
                case SZOMB:
#ifdef SDEAD
                case SDEAD: /* OpenBSD & NetBSD */
#endif
                        proc_state_ptr->state = ZOMBIE;
                        break;
                default:
                        proc_state_ptr->state = UNKNOWN;
                        break;
                }
                proc_state_size++;
        }

        free(kp_stats);
#endif

#ifdef CYGWIN
        return -1;
#endif

        *ps = proc_state;
        return proc_state_size;
}

process_stat_t *get_process_stats() {
        static process_stat_t process_stat;
        proc_state_t *ps;
        int ps_size, x;

        process_stat.sleeping = 0;
        process_stat.running = 0;
        process_stat.zombie = 0;
        process_stat.stopped = 0;
        process_stat.total = 0;

        ps_size = get_proc_snapshot(&ps);

        if(ps_size < 0) {
                return NULL;
        }

        for(x = 0; x < ps_size; x++) {
                switch (ps->state) {
                case RUNNING:
                        process_stat.running++;
                        break;
                case SLEEPING:
                        process_stat.sleeping++;
                        break;
                case STOPPED:
                        process_stat.stopped++;
                        break;
                case ZOMBIE:
                        process_stat.zombie++;
                        break;
                default:
                        /* currently no mapping for UNKNOWN in process_stat_t */
                        break;
                }
                ps++;
        }

        process_stat.total = ps_size;

        return &process_stat;
}
Revision:	1.48
Committed:	Mon Apr 5 01:41:25 2004 UTC (20 years, 1 month ago) by ats
Content type:	text/plain
Branch:	MAIN
Changes since 1.47:	+65 -42 lines
Log Message:	Use vectors and update_string. (I haven't really touched the BSD code here yet.)
#	User	Rev	Content
1	tdb	1.17	/*
2	pajs	1.1	* i-scream central monitoring system
3	tdb	1.8	* http://www.i-scream.org
4	tdb	1.17	* Copyright (C) 2000-2004 i-scream
5	pajs	1.1	*
6	tdb	1.17	* This library is free software; you can redistribute it and/or
7			* modify it under the terms of the GNU Lesser General Public
8			* License as published by the Free Software Foundation; either
9			* version 2.1 of the License, or (at your option) any later version.
10	pajs	1.1	*
11	tdb	1.17	* This library is distributed in the hope that it will be useful,
12	pajs	1.1	* but WITHOUT ANY WARRANTY; without even the implied warranty of
13	tdb	1.17	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14			* Lesser General Public License for more details.
15	pajs	1.1	*
16	tdb	1.17	* You should have received a copy of the GNU Lesser General Public
17			* License along with this library; if not, write to the Free Software
18			* Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
19			* 02111-1307 USA
20	tdb	1.18	*
21	ats	1.48	* $Id: process_stats.c,v 1.47 2004/04/05 00:21:29 tdb Exp $
22	pajs	1.1	*/
23
24			#ifdef HAVE_CONFIG_H
25			#include "config.h"
26			#endif
27
28	pajs	1.6	#include "statgrab.h"
29	ats	1.48	#include "tools.h"
30			#include "vector.h"
31	pajs	1.6	#if defined(SOLARIS) \|\| defined(LINUX)
32	pajs	1.1	#include <stdio.h>
33			#include <stdlib.h>
34	pajs	1.5	#include <sys/types.h>
35			#include <dirent.h>
36			#include <string.h>
37	pajs	1.6	#endif
38	pajs	1.1
39			#ifdef SOLARIS
40			#include <procfs.h>
41			#include <limits.h>
42	pajs	1.5	#define PROC_LOCATION "/proc"
43			#define MAX_FILE_LENGTH PATH_MAX
44			#endif
45			#ifdef LINUX
46	ats	1.16	#include <limits.h>
47	pajs	1.25	#include <unistd.h>
48			#include <sys/stat.h>
49			#include <fcntl.h>
50	pajs	1.1	#define PROC_LOCATION "/proc"
51			#define MAX_FILE_LENGTH PATH_MAX
52			#endif
53	ats	1.13	#ifdef ALLBSD
54	tdb	1.19	#include <stdlib.h>
55	pajs	1.6	#include <sys/param.h>
56			#include <sys/sysctl.h>
57	tdb	1.22	#if defined(FREEBSD) \|\| defined(DFBSD)
58			#include <sys/user.h>
59			#else
60	tdb	1.19	#include <sys/proc.h>
61	ats	1.13	#endif
62	tdb	1.29	#include <string.h>
63			#include <paths.h>
64			#include <fcntl.h>
65			#include <limits.h>
66	tdb	1.41	#if (defined(FREEBSD) && !defined(FREEBSD5)) \|\| defined(DFBSD)
67	tdb	1.29	#include <kvm.h>
68	tdb	1.43	#include <tools.h>
69	pajs	1.6	#endif
70	tdb	1.41	#include <unistd.h>
71			#endif
72	pajs	1.1
73	ats	1.48	static void proc_state_init(proc_state_t *s) {
74			s->process_name = NULL;
75			s->proctitle = NULL;
76			}
77
78			static void proc_state_destroy(proc_state_t *s) {
79			free(s->process_name);
80			free(s->proctitle);
81			}
82
83	pajs	1.23	int get_proc_snapshot(proc_state_t **ps){
84	ats	1.48	VECTOR_DECLARE_STATIC(proc_state, proc_state_t, 64,
85			proc_state_init, proc_state_destroy);
86			int proc_state_size = 0;
87	pajs	1.23	proc_state_t *proc_state_ptr;
88	tdb	1.26	#ifdef ALLBSD
89	tdb	1.37	int mib[4];
90	tdb	1.26	size_t size;
91			struct kinfo_proc *kp_stats;
92	tdb	1.41	int procs, i;
93	tdb	1.45	char *proctitle;
94	tdb	1.41	#if (defined(FREEBSD) && !defined(FREEBSD5)) \|\| defined(DFBSD)
95	tdb	1.42	kvm_t *kvmd;
96	tdb	1.41	char **args;
97			int alloc;
98	tdb	1.45	char *proctitletmp;
99	tdb	1.41	#else
100	tdb	1.37	long buflen;
101			char *p;
102			#endif
103	tdb	1.26	#endif
104	pajs	1.24	#if defined(SOLARIS) \|\| defined(LINUX)
105	pajs	1.23	DIR *proc_dir;
106			struct dirent *dir_entry;
107			char filename[MAX_FILE_LENGTH];
108			FILE *f;
109	pajs	1.24	#ifdef SOLARIS
110	pajs	1.5	psinfo_t process_info;
111	pajs	1.24	#endif
112	pajs	1.25	#ifdef LINUX
113			char s;
114			/* If someone has a executable of 4k filename length, they deserve to get it truncated :) */
115			char ps_name[4096];
116			char *ptr;
117	ats	1.48	VECTOR_DECLARE_STATIC(psargs, char, 128, NULL, NULL);
118	pajs	1.25	unsigned long stime, utime;
119			int x;
120			int fn;
121	ats	1.48	int len;
122			int rc;
123	pajs	1.25	#endif
124	pajs	1.1
125	pajs	1.23	if((proc_dir=opendir(PROC_LOCATION))==NULL){
126	pajs	1.25	return -1;
127	pajs	1.23	}
128
129			while((dir_entry=readdir(proc_dir))!=NULL){
130			if(atoi(dir_entry->d_name) == 0) continue;
131
132	pajs	1.24	#ifdef SOLARIS
133	pajs	1.23	snprintf(filename, MAX_FILE_LENGTH, "/proc/%s/psinfo", dir_entry->d_name);
134	pajs	1.24	#endif
135	pajs	1.25	#ifdef LINUX
136			snprintf(filename, MAX_FILE_LENGTH, "/proc/%s/stat", dir_entry->d_name);
137			#endif
138	pajs	1.23	if((f=fopen(filename, "r"))==NULL){
139			/* Open failed.. Process since vanished, or the path was too long.
140			* Ah well, move onwards to the next one */
141			continue;
142			}
143	pajs	1.24	#ifdef SOLARIS
144	pajs	1.23	fread(&process_info, sizeof(psinfo_t), 1, f);
145	pajs	1.25	#endif
146	pajs	1.1
147	ats	1.48	if (VECTOR_RESIZE(proc_state, proc_state_size + 1) < 0) {
148			return -1;
149			}
150	pajs	1.23	proc_state_ptr = proc_state+proc_state_size;
151	ats	1.48
152	pajs	1.25	#ifdef SOLARIS
153	pajs	1.23	proc_state_ptr->pid = process_info.pr_pid;
154			proc_state_ptr->parent = process_info.pr_ppid;
155			proc_state_ptr->pgid = process_info.pr_pgid;
156			proc_state_ptr->uid = process_info.pr_uid;
157			proc_state_ptr->euid = process_info.pr_euid;
158			proc_state_ptr->gid = process_info.pr_gid;
159			proc_state_ptr->egid = process_info.pr_egid;
160			proc_state_ptr->proc_size = (process_info.pr_size) * 1024;
161			proc_state_ptr->proc_resident = (process_info.pr_rssize) * 1024;
162			proc_state_ptr->time_spent = process_info.pr_time.tv_sec;
163			proc_state_ptr->cpu_percent = (process_info.pr_pctcpu * 100.0) / 0x8000;
164			proc_state_ptr->process_name = strdup(process_info.pr_fname);
165			proc_state_ptr->proctitle = strdup(process_info.pr_psargs);
166	pajs	1.24
167			if(process_info.pr_lwp.pr_state==1) proc_state_ptr->state = SLEEPING;
168			if(process_info.pr_lwp.pr_state==2) proc_state_ptr->state = RUNNING;
169			if(process_info.pr_lwp.pr_state==3) proc_state_ptr->state = ZOMBIE;
170			if(process_info.pr_lwp.pr_state==4) proc_state_ptr->state = STOPPED;
171			if(process_info.pr_lwp.pr_state==6) proc_state_ptr->state = RUNNING;
172	pajs	1.25	#endif
173			#ifdef LINUX
174	ats	1.38	x = fscanf(f, "%d %4096s %c %d %d %d %d %d %u %u %u %u %u %lu %lu %d %d %d %d %d %d %u %llu %llu %u %u %u %u %u %u %u %u %u %u %u %u %u %d %*d\n", &(proc_state_ptr->pid), ps_name, &s, &(proc_state_ptr->parent), &(proc_state_ptr->pgid), &utime, &stime, &(proc_state_ptr->nice), &(proc_state_ptr->proc_size), &(proc_state_ptr->proc_resident));
175	pajs	1.25	proc_state_ptr->proc_resident = proc_state_ptr->proc_resident * getpagesize();
176			if(s == 'S') proc_state_ptr->state = SLEEPING;
177			if(s == 'R') proc_state_ptr->state = RUNNING;
178			if(s == 'Z') proc_state_ptr->state = ZOMBIE;
179			if(s == 'T') proc_state_ptr->state = STOPPED;
180			if(s == 'D') proc_state_ptr->state = STOPPED;
181
182			/* pa_name[0] should = '(' */
183			ptr = strchr(&ps_name[1], ')');
184			if(ptr !=NULL) *ptr='\0';
185	ats	1.48
186			if (update_string(&proc_state_ptr->process_name,
187			&ps_name[1]) == NULL) {
188			return -1;
189			}
190	pajs	1.25
191			/* Need to do cpu */
192
193
194	ats	1.48	fclose(f);
195
196	pajs	1.25	/* proctitle */
197			snprintf(filename, MAX_FILE_LENGTH, "/proc/%s/cmdline", dir_entry->d_name);
198
199			if((fn=open(filename, O_RDONLY)) == -1){
200			/* Open failed.. Process since vanished, or the path was too long.
201			* Ah well, move onwards to the next one */
202			continue;
203			}
204	ats	1.48
205			#define READ_BLOCK_SIZE 128
206			len = 0;
207			do {
208			if (VECTOR_RESIZE(psargs, len + READ_BLOCK_SIZE + 1) < 0) {
209			return -1;
210			}
211			rc = read(fn, psargs + len, READ_BLOCK_SIZE);
212			if (rc > 0) {
213			len += rc;
214			}
215			} while (rc == READ_BLOCK_SIZE);
216			close(fn);
217
218			if (rc == -1) {
219			/* Read failed; move on. */
220			continue;
221	pajs	1.25	}
222
223	ats	1.48	/* Turn \0s into spaces within the command line. */
224	pajs	1.25	ptr = psargs;
225	ats	1.48	for(x = 0; x < len; x++) {
226	pajs	1.25	if (ptr == '\0') ptr = ' ';
227			ptr++;
228			}
229	ats	1.48	/* for safety's sake */
230			psargs[len] = '\0';
231	pajs	1.25
232	ats	1.48	if (update_string(&proc_state_ptr->proctitle, psargs) == NULL) {
233			return -1;
234			}
235	pajs	1.24	#endif
236	pajs	1.23
237			proc_state_size++;
238			}
239			closedir(proc_dir);
240	tdb	1.26	#endif
241
242			#ifdef ALLBSD
243	tdb	1.36	mib[0] = CTL_KERN;
244			mib[1] = KERN_PROC;
245			mib[2] = KERN_PROC_ALL;
246
247			if(sysctl(mib, 3, NULL, &size, NULL, 0) < 0) {
248	tdb	1.46	return -1;
249	tdb	1.36	}
250
251			procs = size / sizeof(struct kinfo_proc);
252
253			kp_stats = malloc(size);
254			if(kp_stats == NULL) {
255	tdb	1.46	return -1;
256	tdb	1.36	}
257
258			if(sysctl(mib, 3, kp_stats, &size, NULL, 0) < 0) {
259			free(kp_stats);
260	tdb	1.46	return -1;
261	tdb	1.36	}
262	tdb	1.33
263	tdb	1.37	#if (defined(FREEBSD) && !defined(FREEBSD5)) \|\| defined(DFBSD)
264	tdb	1.42	kvmd = get_kvm2();
265	tdb	1.33	#endif
266	tdb	1.26
267			for (i = 0; i < procs; i++) {
268	ats	1.48	const char *name;
269
270			if (VECTOR_RESIZE(proc_state, proc_state_size + 1) < 0) {
271	tdb	1.46	return -1;
272	tdb	1.29	}
273	tdb	1.26	proc_state_ptr = proc_state+proc_state_size;
274	tdb	1.30
275			#ifdef FREEBSD5
276	ats	1.48	name = kp_stats[i].ki_comm;
277	tdb	1.35	#elif defined(DFBSD)
278	ats	1.48	name = kp_stats[i].kp_thread.td_comm;
279	tdb	1.30	#else
280	ats	1.48	name = kp_stats[i].kp_proc.p_comm;
281	tdb	1.30	#endif
282	ats	1.48	if (update_string(&proc_state_ptr->process_name, name) == NULL) {
283			return -1;
284			}
285	tdb	1.29
286	tdb	1.37	#if defined(FREEBSD5) \|\| defined(NETBSD) \|\| defined(OPENBSD)
287			size = sizeof(buflen);
288
289			#ifdef FREEBSD5
290			if(sysctlbyname("kern.ps_arg_cache_limit", &buflen, &size, NULL, 0) < 0) {
291	tdb	1.46	return -1;
292	tdb	1.37	}
293			#else
294			mib[1] = KERN_ARGMAX;
295
296			if(sysctl(mib, 2, &buflen, &size, NULL, 0) < 0) {
297	tdb	1.46	return -1;
298	tdb	1.37	}
299			#endif
300
301			proctitle = malloc(buflen);
302			if(proctitle == NULL) {
303	tdb	1.46	return -1;
304	tdb	1.37	}
305
306			size = buflen;
307
308			#ifdef FREEBSD5
309			mib[2] = KERN_PROC_ARGS;
310			mib[3] = kp_stats[i].ki_pid;
311			#else
312			mib[1] = KERN_PROC_ARGS;
313			mib[2] = kp_stats[i].kp_proc.p_pid;
314			mib[3] = KERN_PROC_ARGV;
315			#endif
316
317	ats	1.48	free(proc_state_ptr->proctitle);
318	tdb	1.37	if(sysctl(mib, 4, proctitle, &size, NULL, 0) < 0) {
319			free(proctitle);
320			proc_state_ptr->proctitle = NULL;
321			}
322			else if(size > 0) {
323	tdb	1.44	proc_state_ptr->proctitle = malloc(size+1);
324	tdb	1.37	if(proc_state_ptr->proctitle == NULL) {
325	tdb	1.46	return -1;
326	tdb	1.29	}
327	tdb	1.37	p = proctitle;
328			proc_state_ptr->proctitle[0] = NULL;
329			do {
330	tdb	1.44	strlcat(proc_state_ptr->proctitle, p, size+1);
331			strlcat(proc_state_ptr->proctitle, " ", size+1);
332	tdb	1.37	p += strlen(p) + 1;
333			} while (p < proctitle + size);
334			free(proctitle);
335	tdb	1.45	/* remove trailing space */
336			proc_state_ptr->proctitle[strlen(proc_state_ptr->proctitle)-1] = '\0';
337	tdb	1.37	}
338			else {
339			free(proctitle);
340			proc_state_ptr->proctitle = NULL;
341			}
342			#else
343	ats	1.48	free(proc_state_ptr->proctitle);
344	tdb	1.37	if(kvmd != NULL) {
345			args = kvm_getargv(kvmd, &(kp_stats[i]), 0);
346			if(args != NULL) {
347			alloc = 1;
348			proctitle = malloc(alloc);
349			if(proctitle == NULL) {
350	tdb	1.46	return -1;
351	tdb	1.37	}
352			while(*args != NULL) {
353			if(strlen(proctitle) + strlen(*args) >= alloc) {
354	tdb	1.44	alloc = (alloc + strlen(args)) 2;
355			proctitletmp = realloc(proctitle, alloc);
356			if(proctitletmp == NULL) {
357	tdb	1.46	return -1;
358	tdb	1.37	}
359	tdb	1.44	proctitle = proctitletmp;
360	tdb	1.29	}
361	tdb	1.44	strlcat(proctitle, *args, alloc);
362			strlcat(proctitle, " ", alloc);
363	tdb	1.37	args++;
364	tdb	1.29	}
365	tdb	1.37	/* remove trailing space */
366	tdb	1.45	proctitle[strlen(proctitle)-1] = '\0';
367	tdb	1.37	proc_state_ptr->proctitle = proctitle;
368			}
369			else {
370			proc_state_ptr->proctitle = NULL;
371	tdb	1.29	}
372			}
373			else {
374	tdb	1.37	proc_state_ptr->proctitle = NULL;
375	tdb	1.29	}
376	tdb	1.37	#endif
377	tdb	1.26
378	tdb	1.30	#ifdef FREEBSD5
379	tdb	1.26	proc_state_ptr->pid = kp_stats[i].ki_pid;
380			proc_state_ptr->parent = kp_stats[i].ki_ppid;
381			proc_state_ptr->pgid = kp_stats[i].ki_pgid;
382	tdb	1.30	#else
383			proc_state_ptr->pid = kp_stats[i].kp_proc.p_pid;
384			proc_state_ptr->parent = kp_stats[i].kp_eproc.e_ppid;
385			proc_state_ptr->pgid = kp_stats[i].kp_eproc.e_pgid;
386			#endif
387	tdb	1.26
388	tdb	1.30	#ifdef FREEBSD5
389	tdb	1.26	proc_state_ptr->uid = kp_stats[i].ki_ruid;
390			proc_state_ptr->euid = kp_stats[i].ki_uid;
391			proc_state_ptr->gid = kp_stats[i].ki_rgid;
392			proc_state_ptr->egid = kp_stats[i].ki_svgid;
393	tdb	1.35	#elif defined(DFBSD)
394			proc_state_ptr->uid = kp_stats[i].kp_eproc.e_ucred.cr_ruid;
395			proc_state_ptr->euid = kp_stats[i].kp_eproc.e_ucred.cr_svuid;
396			proc_state_ptr->gid = kp_stats[i].kp_eproc.e_ucred.cr_rgid;
397			proc_state_ptr->egid = kp_stats[i].kp_eproc.e_ucred.cr_svgid;
398	tdb	1.30	#else
399			proc_state_ptr->uid = kp_stats[i].kp_eproc.e_pcred.p_ruid;
400			proc_state_ptr->euid = kp_stats[i].kp_eproc.e_pcred.p_svuid;
401			proc_state_ptr->gid = kp_stats[i].kp_eproc.e_pcred.p_rgid;
402			proc_state_ptr->egid = kp_stats[i].kp_eproc.e_pcred.p_svgid;
403			#endif
404	tdb	1.26
405	tdb	1.30	#ifdef FREEBSD5
406	tdb	1.26	proc_state_ptr->proc_size = kp_stats[i].ki_size;
407			/* This is in pages */
408	tdb	1.30	proc_state_ptr->proc_resident =
409			kp_stats[i].ki_rssize * getpagesize();
410	tdb	1.28	/* This is in microseconds */
411	tdb	1.26	proc_state_ptr->time_spent = kp_stats[i].ki_runtime / 1000000;
412	tdb	1.30	proc_state_ptr->cpu_percent =
413			((double)kp_stats[i].ki_pctcpu / FSCALE) * 100.0;
414	tdb	1.26	proc_state_ptr->nice = kp_stats[i].ki_nice;
415	tdb	1.30	#else
416			proc_state_ptr->proc_size =
417			kp_stats[i].kp_eproc.e_vm.vm_map.size;
418			/* This is in pages */
419			proc_state_ptr->proc_resident =
420			kp_stats[i].kp_eproc.e_vm.vm_rssize * getpagesize();
421	tdb	1.34	#if defined(NETBSD) \|\| defined(OPENBSD)
422	tdb	1.33	proc_state_ptr->time_spent =
423			kp_stats[i].kp_proc.p_rtime.tv_sec;
424	tdb	1.35	#elif defined(DFBSD)
425			proc_state_ptr->time_spent =
426			( kp_stats[i].kp_thread.td_uticks +
427			kp_stats[i].kp_thread.td_sticks +
428			kp_stats[i].kp_thread.td_iticks ) / 1000000;
429	tdb	1.33	#else
430	tdb	1.36	/* This is in microseconds */
431	tdb	1.30	proc_state_ptr->time_spent =
432			kp_stats[i].kp_proc.p_runtime / 1000000;
433	tdb	1.33	#endif
434	tdb	1.30	proc_state_ptr->cpu_percent =
435			((double)kp_stats[i].kp_proc.p_pctcpu / FSCALE) * 100.0;
436			proc_state_ptr->nice = kp_stats[i].kp_proc.p_nice;
437			#endif
438	tdb	1.26
439	tdb	1.30	#ifdef FREEBSD5
440	tdb	1.26	switch (kp_stats[i].ki_stat) {
441	tdb	1.30	#else
442			switch (kp_stats[i].kp_proc.p_stat) {
443			#endif
444	tdb	1.26	case SIDL:
445			case SRUN:
446			#ifdef SONPROC
447			case SONPROC: /* NetBSD */
448			#endif
449			proc_state_ptr->state = RUNNING;
450			break;
451			case SSLEEP:
452			#ifdef SWAIT
453			case SWAIT: /* FreeBSD 5 */
454			#endif
455			#ifdef SLOCK
456			case SLOCK: /* FreeBSD 5 */
457			#endif
458			proc_state_ptr->state = SLEEPING;
459			break;
460			case SSTOP:
461			proc_state_ptr->state = STOPPED;
462			break;
463			case SZOMB:
464			#ifdef SDEAD
465			case SDEAD: /* OpenBSD & NetBSD */
466			#endif
467			proc_state_ptr->state = ZOMBIE;
468	tdb	1.31	break;
469			default:
470			proc_state_ptr->state = UNKNOWN;
471	tdb	1.26	break;
472			}
473			proc_state_size++;
474			}
475
476			free(kp_stats);
477	tdb	1.47	#endif
478
479			#ifdef CYGWIN
480			return -1;
481	tdb	1.26	#endif
482
483	pajs	1.23	*ps = proc_state;
484			return proc_state_size;
485	tdb	1.27	}
486
487			process_stat_t *get_process_stats() {
488			static process_stat_t process_stat;
489			proc_state_t *ps;
490			int ps_size, x;
491
492	tdb	1.30	process_stat.sleeping = 0;
493			process_stat.running = 0;
494			process_stat.zombie = 0;
495			process_stat.stopped = 0;
496			process_stat.total = 0;
497	tdb	1.27
498			ps_size = get_proc_snapshot(&ps);
499	tdb	1.32
500	tdb	1.46	if(ps_size < 0) {
501	tdb	1.32	return NULL;
502			}
503	tdb	1.27
504			for(x = 0; x < ps_size; x++) {
505			switch (ps->state) {
506			case RUNNING:
507			process_stat.running++;
508			break;
509			case SLEEPING:
510			process_stat.sleeping++;
511			break;
512			case STOPPED:
513			process_stat.stopped++;
514			break;
515			case ZOMBIE:
516			process_stat.zombie++;
517	ats	1.40	break;
518			default:
519			/* currently no mapping for UNKNOWN in process_stat_t */
520	tdb	1.27	break;
521			}
522			ps++;
523			}
524
525			process_stat.total = ps_size;
526
527			return &process_stat;
528	pajs	1.23	}