The Perl Toolchain Summit 2025 Needs You: You can help 🙏 Learn more

#include <stdlib.h>
#include <stdio.h>
#include <fcntl.h>
#include <dirent.h>
#include <string.h>
#include <sys/resource.h>
#include <unistd.h>
#include <sys/proc.h> /* needed for process state constants */
#include <sys/statvfs.h>
#include <sys/types.h>
#include <sys/sysmp.h>
#if defined(PROC_FS)
#include <procfs.h>
#else
#include <sys/procfs.h>
#endif
#ifdef i386
#undef SP
#define SP sp
#endif
/****************************************/
/* Process state strings that we return */
/****************************************/
#define SLEEP "sleep"
#define WAIT "wait"
#define RUN "run"
#define IDLE "idle"
#define ZOMBIE "defunct"
#define STOP "stop"
#define XBRK "xswapped"
/* Solaris is an all-or-nothing deal, all this stuff comes out of
one structure, so we don't need to dick around with the format much */
static char Format[] = "iiiiiiiilllllllllslsssss";
/* Mapping of field to type */
static char* Fields[] = {
"uid",
"gid",
"pid",
"ppid",
"spid",
"pgrp",
"sess",
"cpuid",
"priority",
"ttynum",
"flags",
"time",
"ctime",
"qtime",
"size",
"rss",
"wchan",
"fname",
"start",
"pctcpu",
"state",
"pctmem",
"cmndline",
"clname"
};