David Landgren <[EMAIL PROTECTED]> writes:
> [EMAIL PROTECTED] wrote:
>
> [...]
>
> > Output from '/usr/bin/make':
> > cp Process.pm blib/lib/BSD/Process.pm
> > /usr/local/bin/perl5.10.0 /usr/perl5.10.0/lib/5.10.0/ExtUtils/xsubpp
> > -typemap /usr/perl5.10.0/lib/5.10.0/ExtUtils/typemap Process.xs >
> > Process.xsc && mv Process.xsc Process.c
> > ccache cc -c -DHAS_FPSETMASK -DHAS_FLOATINGPOINT_H -fno-strict-aliasing
> > -pipe -I/usr/local/include -O2 -pipe -DVERSION=\"0.04\"
> > -DXS_VERSION=\"0.04\" -DPIC -fPIC
> > "-I/usr/perl5.10.0/lib/5.10.0/amd64-freebsd/CORE" Process.c
> > Process.c:698:1: unterminated argument list invoking macro "hv_store"
> > Process.c: In function `_procinfo':
> > Process.c:666: error: syntax error at end of input
> > *** Error code 1
>
> Any chance of mailing me Process.c as it stands? I think I know where
> the problem is, but I would like to be sure.
>
Sure, file is attached.
/*
* This file was generated automatically by ExtUtils::ParseXS version 2.18 from
the
* contents of Process.xs. Do not edit this file, edit Process.xs instead.
*
* ANY CHANGES MADE HERE WILL BE LOST!
*
*/
#line 1 "Process.xs"
#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
/* define _FreeBSD_version where applicable */
#if __FreeBSD__ >= 2
#include <osreldate.h>
#endif
#include <kvm.h>
#include <sys/types.h>
#include <sys/sysctl.h> /* KERN_PROC_* */
#include <pwd.h> /* struct passwd */
#include <grp.h> /* struct group */
#include <sys/param.h> /* struct kinfo_proc prereq*/
#if __FreeBSD__ >= 5
#define cv bsd_cv
#endif
#include <sys/user.h> /* struct kinfo_proc */
#if __FreeBSD__ >= 5
#undef cv
#endif
#if __FreeBSD_version < 500000
#define PID_FIELD kp_proc.p_pid
#else
#define PID_FIELD ki_pid
#endif
#include <fcntl.h> /* O_RDONLY */
#include <limits.h> /* _POSIX2_LINE_MAX */
#define PATH_DEV_NULL "/dev/null"
#define TIME_FRAC(t) ( (double)(t).tv_sec + (double)(t).tv_usec/1000000 )
#define P_FLAG(f) ((kp->ki_flag & f) ? 1 : 0))
#define KI_FLAG(f) ((kp->ki_kiflag & f) ? 1 : 0))
static int proc_info_mib[4] = { -1, -1, -1, -1 };
struct kinfo_proc *_proc_request (kvm_t *kd, int request, int param, int *pnr) {
struct kinfo_proc *kip;
switch(request) {
case 2:
kip = kvm_getprocs(kd, KERN_PROC_PGRP, param, pnr);
break;
case 3:
kip = kvm_getprocs(kd, KERN_PROC_SESSION, param, pnr);
break;
case 5:
kip = kvm_getprocs(kd, KERN_PROC_UID, param, pnr);
break;
case 6:
kip = kvm_getprocs(kd, KERN_PROC_RUID, param, pnr);
break;
#if __FreeBSD_version >= 600000
case 10:
kip = kvm_getprocs(kd, KERN_PROC_RGID, param, pnr);
break;
case 11:
kip = kvm_getprocs(kd, KERN_PROC_GID, param, pnr);
break;
#endif
case 0:
default:
kip = kvm_getprocs(kd, KERN_PROC_ALL, 0, pnr);
break;
}
return(kip);
}
HV *_procinfo (struct kinfo_proc *kp, int resolve) {
HV *h;
const char *nlistf, *memf;
kvm_t *kd;
char errbuf[_POSIX2_LINE_MAX];
char **argv;
SV *argsv;
size_t len;
struct passwd *pw;
struct group *gr;
short g;
AV *grlist;
struct rusage *rp;
#if __FreeBSD_version < 500000
struct proc *p;
struct eproc *e;
#endif
h = (HV *)sv_2mortal((SV *)newHV());
#if __FreeBSD_version < 500000
p = &kp->kp_proc;
e = &kp->kp_eproc;
hv_store(h, "pid", 3, newSViv(kp->kp_proc.p_pid), 0);
hv_store(h, "ppid", 4, newSViv(kp->kp_eproc.e_ppid), 0);
hv_store(h, "pgid", 4, newSViv(kp->kp_eproc.e_pgid), 0);
hv_store(h, "jobc", 4, newSViv(kp->kp_eproc.e_jobc), 0);
hv_store(h, "tpgid", 5, newSViv(kp->kp_eproc.e_tpgid), 0);
hv_store(h, "wmesg", 5, newSVpv(kp->kp_eproc.e_wmesg, 0), 0);
hv_store(h, "tsize", 5, newSViv(kp->kp_eproc.e_xsize), 0);
hv_store(h, "rssize", 6, newSViv(kp->kp_eproc.e_xrssize), 0);
hv_store(h, "swrss", 5, newSViv(kp->kp_eproc.e_xswrss), 0);
hv_store(h, "flag", 4, newSViv(kp->kp_eproc.e_flag), 0);
hv_store(h, "login", 5, newSVpv(kp->kp_eproc.e_login, 0), 0);
hv_store(h, "estcpu", 6, newSViv(kp->kp_proc.p_estcpu), 0);
hv_store(h, "pctcpu", 6, newSViv(kp->kp_proc.p_pctcpu), 0);
hv_store(h, "slptime", 7, newSViv(kp->kp_proc.p_slptime), 0);
hv_store(h, "swtime", 6, newSViv(kp->kp_proc.p_swtime), 0);
hv_store(h, "runtime", 7, newSViv(kp->kp_proc.p_runtime), 0);
hv_store(h, "lock", 4, newSViv(kp->kp_proc.p_lock), 0);
hv_store(h, "rqindex", 7, newSViv(kp->kp_proc.p_rqindex), 0);
hv_store(h, "oncpu", 5, newSViv(kp->kp_proc.p_oncpu), 0);
hv_store(h, "lastcpu", 7, newSViv(kp->kp_proc.p_lastcpu), 0);
hv_store(h, "nice", 4, newSViv(kp->kp_proc.p_nice), 0);
hv_store(h, "comm", 4, newSVpv(kp->kp_proc.p_comm, 0), 0);
hv_store(h, "xstat", 5, newSViv(kp->kp_proc.p_xstat), 0);
hv_store(h, "acflag", 6, newSViv(kp->kp_proc.p_acflag), 0);
/* not available in FreeBSD 4.x */
hv_store(h, "tpgid", 5, newSViv(-1), 0);
hv_store(h, "sid", 3, newSViv(-1), 0);
hv_store(h, "tsid", 4, newSViv(-1), 0);
hv_store(h, "jobc", 4, newSViv(-1), 0);
hv_store(h, "uid", 3, newSViv(-1), 0);
hv_store(h, "ruid", 4, newSViv(-1), 0);
hv_store(h, "svuid", 5, newSViv(-1), 0);
hv_store(h, "rgid", 4, newSViv(-1), 0);
hv_store(h, "svgid", 5, newSViv(-1), 0);
hv_store(h, "args", 4, newSViv(-1), 0);
hv_store(h, "groups", 6, newRV(sv_2mortal((SV *)newAV())), 0);
hv_store(h, "ngroups", 7, newSViv(-1), 0);
hv_store(h, "size", 4, newSViv(-1), 0);
hv_store(h, "dsize", 5, newSViv(-1), 0);
hv_store(h, "ssize", 5, newSViv(-1), 0);
hv_store(h, "start", 5, newSViv(-1), 0);
hv_store(h, "childtime", 9, newSViv(-1), 0);
hv_store(h, "advlock", 7, newSViv(-1), 0);
hv_store(h, "controlt", 8, newSViv(-1), 0);
hv_store(h, "kthread", 7, newSViv(-1), 0);
hv_store(h, "noload", 6, newSViv(-1), 0);
hv_store(h, "ppwait", 6, newSViv(-1), 0);
hv_store(h, "profil", 6, newSViv(-1), 0);
hv_store(h, "stopprof", 8, newSViv(-1), 0);
hv_store(h, "hadthreads", 10, newSViv(-1), 0);
hv_store(h, "sugid", 5, newSViv(-1), 0);
hv_store(h, "system", 6, newSViv(-1), 0);
hv_store(h, "single_exit", 11, newSViv(-1), 0);
hv_store(h, "traced", 6, newSViv(-1), 0);
hv_store(h, "waited", 6, newSViv(-1), 0);
hv_store(h, "wexit", 5, newSViv(-1), 0);
hv_store(h, "exec", 4, newSViv(-1), 0);
hv_store(h, "kiflag", 6, newSViv(-1), 0);
hv_store(h, "locked", 6, newSViv(-1), 0);
hv_store(h, "isctty", 6, newSViv(-1), 0);
hv_store(h, "issleader", 9, newSViv(-1), 0);
hv_store(h, "stat", 4, newSViv(-1), 0);
hv_store(h, "stat_1", 6, newSViv(-1), 0);
hv_store(h, "stat_2", 6, newSViv(-1), 0);
hv_store(h, "stat_3", 6, newSViv(-1), 0);
hv_store(h, "stat_4", 6, newSViv(-1), 0);
hv_store(h, "stat_5", 6, newSViv(-1), 0);
hv_store(h, "stat_6", 6, newSViv(-1), 0);
hv_store(h, "stat_7", 6, newSViv(-1), 0);
hv_store(h, "ocomm", 5, newSViv(-1), 0);
hv_store(h, "lockname", 8, newSViv(-1), 0);
hv_store(h, "pri_class", 9, newSViv(-1), 0);
hv_store(h, "pri_level", 9, newSViv(-1), 0);
hv_store(h, "pri_native", 10, newSViv(-1), 0);
hv_store(h, "pri_user", 8, newSViv(-1), 0);
hv_store(h, "utime", 5, newSViv(-1), 0);
hv_store(h, "stime", 5, newSViv(-1), 0);
hv_store(h, "time", 4, newSViv(-1), 0);
hv_store(h, "maxrss", 6, newSViv(-1), 0);
hv_store(h, "ixrss", 5, newSViv(-1), 0);
hv_store(h, "idrss", 5, newSViv(-1), 0);
hv_store(h, "isrss", 5, newSViv(-1), 0);
hv_store(h, "minflt", 6, newSViv(-1), 0);
hv_store(h, "majflt", 6, newSViv(-1), 0);
hv_store(h, "nswap", 5, newSViv(-1), 0);
hv_store(h, "inblock", 7, newSViv(-1), 0);
hv_store(h, "oublock", 7, newSViv(-1), 0);
hv_store(h, "msgsnd", 6, newSViv(-1), 0);
hv_store(h, "msgrcv", 6, newSViv(-1), 0);
hv_store(h, "nsignals", 8, newSViv(-1), 0);
hv_store(h, "nvcsw", 5, newSViv(-1), 0);
hv_store(h, "nivcsw", 6, newSViv(-1), 0);
#endif
/* attributes available only in FreeBSD 5.x, 6.x */
#if __FreeBSD_version >= 500000
nlistf = memf = PATH_DEV_NULL;
kd = kvm_openfiles(nlistf, memf, NULL, O_RDONLY, errbuf);
if (!kd) {
warn( "kvm_openfiles failed: %s\n", errbuf );
argv = 0;
}
else {
argv = kvm_getargv(kd, kp, 0);
}
if( argv && *argv ) {
#ifdef NEVER
len = strlen(*argv);
argsv = newSVpvn(*argv, len);
while (*++argv) {
sv_catpvn(argsv, " ", 1);
sv_catpvn(argsv, *argv, strlen(*argv));
len += strlen(*argv)+1;
}
hv_store(h, "args", 4, argsv, 0);
#else
hv_store(h, "args", 4, newSVpvn("", 0), 0);
#endif
}
else {
hv_store(h, "args", 4, newSVpvn("", 0), 0);
}
if (kd) {
kvm_close(kd);
}
hv_store(h, "pid", 3, newSViv(kp->ki_pid), 0);
hv_store(h, "ppid", 4, newSViv(kp->ki_ppid), 0);
hv_store(h, "pgid", 4, newSViv(kp->ki_pgid), 0);
hv_store(h, "tpgid", 5, newSViv(kp->ki_tpgid), 0);
hv_store(h, "sid", 3, newSViv(kp->ki_sid), 0);
hv_store(h, "tsid", 4, newSViv(kp->ki_tsid), 0);
hv_store(h, "jobc", 4, newSViv(kp->ki_jobc), 0);
if (!resolve) {
/* numeric user and group ids */
hv_store(h, "uid", 3, newSViv(kp->ki_uid), 0);
hv_store(h, "ruid", 4, newSViv(kp->ki_ruid), 0);
hv_store(h, "svuid", 5, newSViv(kp->ki_svuid), 0);
hv_store(h, "rgid", 4, newSViv(kp->ki_rgid), 0);
hv_store(h, "svgid", 5, newSViv(kp->ki_svgid), 0);
}
else {
/* first, the user ids */
pw = getpwuid(kp->ki_uid);
if (!pw) {
/* shouldn't ever happen... */
hv_store(h, "uid", 3, newSViv(kp->ki_uid), 0);
}
else {
len = strlen(pw->pw_name);
hv_store(h, "uid", 3, newSVpvn(pw->pw_name,len), 0);
}
/* if the real uid is the same, use the previous results */
if (kp->ki_ruid != kp->ki_uid) {
pw = getpwuid(kp->ki_ruid);
if (pw) {
len = strlen(pw->pw_name);
}
}
if (pw) {
hv_store(h, "ruid", 4, newSVpvn(pw->pw_name,len), 0);
}
else {
hv_store(h, "ruid", 4, newSViv(kp->ki_ruid), 0);
}
if (kp->ki_svuid != kp->ki_uid) {
pw = getpwuid(kp->ki_svuid);
len = strlen(pw->pw_name);
}
if (pw) {
hv_store(h, "svuid", 5, newSVpvn(pw->pw_name,len), 0);
}
else {
hv_store(h, "svuid", 5, newSViv(kp->ki_svuid), 0);
}
/* and now the group ids */
gr = getgrgid(kp->ki_rgid);
if (gr) {
len = strlen(gr->gr_name);
hv_store(h, "rgid", 4, newSVpvn(gr->gr_name,len), 0);
}
else {
hv_store(h, "rgid", 4, newSViv(kp->ki_rgid), 0);
}
if (kp->ki_svgid != kp->ki_rgid) {
gr = getgrgid(kp->ki_svgid);
if (gr) {
len = strlen(gr->gr_name);
}
}
if (gr) {
hv_store(h, "svgid", 5, newSVpvn(gr->gr_name,len), 0);
}
else {
hv_store(h, "svgid", 5, newSViv(kp->ki_svgid), 0);
}
}
/* deal with groups array */
grlist = (AV *)sv_2mortal((SV *)newAV());
for (g = 0; g < kp->ki_ngroups; ++g) {
if (resolve && (gr = getgrgid(kp->ki_groups[g]))) {
av_push(grlist, newSVpvn(gr->gr_name, strlen(gr->gr_name)));
}
else {
av_push(grlist, newSViv(kp->ki_groups[g]));
}
}
hv_store(h, "groups", 6, newRV((SV *)grlist), 0);
hv_store(h, "ngroups", 7, newSViv(kp->ki_ngroups), 0);
hv_store(h, "size", 4, newSViv(kp->ki_size), 0);
hv_store(h, "rssize", 6, newSViv(kp->ki_rssize), 0);
hv_store(h, "swrss", 5, newSViv(kp->ki_swrss), 0);
hv_store(h, "tsize", 5, newSViv(kp->ki_tsize), 0);
hv_store(h, "dsize", 5, newSViv(kp->ki_dsize), 0);
hv_store(h, "ssize", 5, newSViv(kp->ki_ssize), 0);
hv_store(h, "xstat", 5, newSViv(kp->ki_xstat), 0);
hv_store(h, "acflag", 6, newSViv(kp->ki_acflag), 0);
hv_store(h, "pctcpu", 6, newSViv(kp->ki_pctcpu), 0);
hv_store(h, "estcpu", 6, newSViv(kp->ki_estcpu), 0);
hv_store(h, "slptime", 7, newSViv(kp->ki_slptime), 0);
hv_store(h, "swtime", 6, newSViv(kp->ki_swtime), 0);
hv_store(h, "runtime", 7, newSViv(kp->ki_runtime), 0);
hv_store(h, "start", 5, newSVnv(TIME_FRAC(kp->ki_start)), 0);
hv_store(h, "childtime", 9, newSVnv(TIME_FRAC(kp->ki_childtime)), 0);
hv_store(h, "flag", 4, newSViv(kp->ki_flag), 0);
hv_store(h, "advlock", 7, newSViv(P_FLAG(P_ADVLOCK), 0);
hv_store(h, "controlt", 8, newSViv(P_FLAG(P_CONTROLT), 0);
hv_store(h, "kthread", 7, newSViv(P_FLAG(P_KTHREAD), 0);
hv_store(h, "noload", 6, newSViv(P_FLAG(P_NOLOAD), 0);
hv_store(h, "ppwait", 6, newSViv(P_FLAG(P_PPWAIT), 0);
hv_store(h, "profil", 6, newSViv(P_FLAG(P_PROFIL), 0);
hv_store(h, "stopprof", 8, newSViv(P_FLAG(P_STOPPROF), 0);
hv_store(h, "sugid", 5, newSViv(P_FLAG(P_SUGID), 0);
hv_store(h, "system", 6, newSViv(P_FLAG(P_SYSTEM), 0);
hv_store(h, "single_exit", 11, newSViv(P_FLAG(P_SINGLE_EXIT), 0);
hv_store(h, "traced", 6, newSViv(P_FLAG(P_TRACED), 0);
hv_store(h, "waited", 6, newSViv(P_FLAG(P_WAITED), 0);
hv_store(h, "wexit", 5, newSViv(P_FLAG(P_WEXIT), 0);
hv_store(h, "exec", 4, newSViv(P_FLAG(P_EXEC), 0);
#if __FreeBSD_version < 600000
hv_store(h, "hadthreads", 10, newSViv(-1), 0);
#else
hv_store(h, "hadthreads", 10, newSViv(P_FLAG(P_HADTHREADS), 0);
#endif
hv_store(h, "kiflag", 6, newSViv(kp->ki_kiflag), 0);
hv_store(h, "locked", 6, newSViv(KI_FLAG(KI_LOCKBLOCK), 0);
hv_store(h, "isctty", 6, newSViv(KI_FLAG(KI_CTTY), 0);
hv_store(h, "issleader", 9, newSViv(KI_FLAG(KI_SLEADER), 0);
hv_store(h, "stat", 4, newSViv((int)kp->ki_stat), 0);
hv_store(h, "stat_1", 6, newSViv((int)kp->ki_stat == 1 ? 1 : 0), 0);
hv_store(h, "stat_2", 6, newSViv((int)kp->ki_stat == 2 ? 1 : 0), 0);
hv_store(h, "stat_3", 6, newSViv((int)kp->ki_stat == 3 ? 1 : 0), 0);
hv_store(h, "stat_4", 6, newSViv((int)kp->ki_stat == 4 ? 1 : 0), 0);
hv_store(h, "stat_5", 6, newSViv((int)kp->ki_stat == 5 ? 1 : 0), 0);
hv_store(h, "stat_6", 6, newSViv((int)kp->ki_stat == 6 ? 1 : 0), 0);
hv_store(h, "stat_7", 6, newSViv((int)kp->ki_stat == 7 ? 1 : 0), 0);
hv_store(h, "nice", 4, newSViv(kp->ki_nice), 0);
hv_store(h, "lock", 4, newSViv(kp->ki_lock), 0);
hv_store(h, "rqindex", 7, newSViv(kp->ki_rqindex), 0);
hv_store(h, "oncpu", 5, newSViv(kp->ki_oncpu), 0);
hv_store(h, "lastcpu", 7, newSViv(kp->ki_lastcpu), 0);
hv_store(h, "ocomm", 5, newSVpv(kp->ki_ocomm, 0), 0);
hv_store(h, "wmesg", 5, newSVpv(kp->ki_wmesg, 0), 0);
hv_store(h, "login", 5, newSVpv(kp->ki_login, 0), 0);
hv_store(h, "lockname", 8, newSVpv(kp->ki_lockname, 0), 0);
hv_store(h, "comm", 4, newSVpv(kp->ki_comm, 0), 0);
hv_store(h, "pri_class", 9, newSViv(kp->ki_pri.pri_class), 0);
hv_store(h, "pri_level", 9, newSViv(kp->ki_pri.pri_level), 0);
hv_store(h, "pri_native", 10, newSViv(kp->ki_pri.pri_native), 0);
hv_store(h, "pri_user", 8, newSViv(kp->ki_pri.pri_user), 0);
rp = &kp->ki_rusage;
hv_store(h, "utime", 5, newSVnv(TIME_FRAC(rp->ru_utime)), 0);
hv_store(h, "stime", 5, newSVnv(TIME_FRAC(rp->ru_stime)), 0);
hv_store(h, "time", 4, newSVnv(
TIME_FRAC(rp->ru_utime)+TIME_FRAC(rp->ru_stime)), 0);
hv_store(h, "maxrss", 6, newSVnv(rp->ru_maxrss), 0);
hv_store(h, "ixrss", 5, newSVnv(rp->ru_ixrss), 0);
hv_store(h, "idrss", 5, newSVnv(rp->ru_idrss), 0);
hv_store(h, "isrss", 5, newSVnv(rp->ru_isrss), 0);
hv_store(h, "minflt", 6, newSVnv(rp->ru_minflt), 0);
hv_store(h, "majflt", 6, newSVnv(rp->ru_majflt), 0);
hv_store(h, "nswap", 5, newSVnv(rp->ru_nswap), 0);
hv_store(h, "inblock", 7, newSVnv(rp->ru_inblock), 0);
hv_store(h, "oublock", 7, newSVnv(rp->ru_oublock), 0);
hv_store(h, "msgsnd", 6, newSVnv(rp->ru_msgsnd), 0);
hv_store(h, "msgrcv", 6, newSVnv(rp->ru_msgrcv), 0);
hv_store(h, "nsignals", 8, newSViv(rp->ru_nsignals), 0);
hv_store(h, "nvcsw", 5, newSViv(rp->ru_nvcsw), 0);
hv_store(h, "nivcsw", 6, newSViv(rp->ru_nivcsw), 0);
#endif
/* attributes available only in FreeBSD 6.x */
#if __FreeBSD_version < 600000
hv_store(h, "emul", 4, newSViv(-1), 0);
hv_store(h, "jid", 3, newSViv(-1), 0);
hv_store(h, "numthreads", 10, newSViv(-1), 0);
hv_store(h, "utime_ch", 8, newSViv(-1), 0);
hv_store(h, "stime_ch", 8, newSViv(-1), 0);
hv_store(h, "time_ch", 7, newSViv(-1), 0);
hv_store(h, "maxrss_ch", 9, newSViv(-1), 0);
hv_store(h, "ixrss_ch", 8, newSViv(-1), 0);
hv_store(h, "idrss_ch", 8, newSViv(-1), 0);
hv_store(h, "isrss_ch", 8, newSViv(-1), 0);
hv_store(h, "minflt_ch", 9, newSViv(-1), 0);
hv_store(h, "majflt_ch", 9, newSViv(-1), 0);
hv_store(h, "nswap_ch", 8, newSViv(-1), 0);
hv_store(h, "inblock_ch", 10, newSViv(-1), 0);
hv_store(h, "oublock_ch", 10, newSViv(-1), 0);
hv_store(h, "msgsnd_ch", 9, newSViv(-1), 0);
hv_store(h, "msgrcv_ch", 9, newSViv(-1), 0);
hv_store(h, "nsignals_ch", 11, newSViv(-1), 0);
hv_store(h, "nvcsw_ch", 8, newSViv(-1), 0);
hv_store(h, "nivcsw_ch", 9, newSViv(-1), 0);
#else
hv_store(h, "emul", 4, newSVpv(kp->ki_emul, 0), 0);
hv_store(h, "jid", 3, newSViv(kp->ki_jid), 0);
hv_store(h, "numthreads", 10, newSViv(kp->ki_numthreads), 0);
rp = &kp->ki_rusage_ch;
hv_store(h, "utime_ch", 8, newSVnv(TIME_FRAC(rp->ru_utime)), 0);
hv_store(h, "stime_ch", 8, newSVnv(TIME_FRAC(rp->ru_stime)), 0);
hv_store(h, "time_ch", 7, newSVnv(
TIME_FRAC(rp->ru_utime)+TIME_FRAC(rp->ru_stime)), 0);
hv_store(h, "maxrss_ch", 9, newSVnv(rp->ru_maxrss), 0);
hv_store(h, "ixrss_ch", 8, newSVnv(rp->ru_ixrss), 0);
hv_store(h, "idrss_ch", 8, newSVnv(rp->ru_idrss), 0);
hv_store(h, "isrss_ch", 8, newSVnv(rp->ru_isrss), 0);
hv_store(h, "minflt_ch", 9, newSVnv(rp->ru_minflt), 0);
hv_store(h, "majflt_ch", 9, newSVnv(rp->ru_majflt), 0);
hv_store(h, "nswap_ch", 8, newSVnv(rp->ru_nswap), 0);
hv_store(h, "inblock_ch", 10, newSVnv(rp->ru_inblock), 0);
hv_store(h, "oublock_ch", 10, newSVnv(rp->ru_oublock), 0);
hv_store(h, "msgsnd_ch", 9, newSVnv(rp->ru_msgsnd), 0);
hv_store(h, "msgrcv_ch", 9, newSVnv(rp->ru_msgrcv), 0);
hv_store(h, "nsignals_ch", 11, newSViv(rp->ru_nsignals), 0);
hv_store(h, "nvcsw_ch", 8, newSViv(rp->ru_nvcsw), 0);
hv_store(h, "nivcsw_ch", 9, newSViv(rp->ru_nivcsw), 0);
#endif
return h;
}
#ifndef PERL_UNUSED_VAR
# define PERL_UNUSED_VAR(var) if (0) var = var
#endif
#line 473 "Process.c"
XS(XS_BSD__Process_max_kernel_groups); /* prototype to pass
-Wmissing-prototypes */
XS(XS_BSD__Process_max_kernel_groups)
{
#ifdef dVAR
dVAR; dXSARGS;
#else
dXSARGS;
#endif
if (items != 0)
Perl_croak(aTHX_ "Usage: %s(%s)", "BSD::Process::max_kernel_groups", "");
PERL_UNUSED_VAR(cv); /* -W */
{
short RETVAL;
dXSTARG;
#line 466 "Process.xs"
#if __FreeBSD_version < 500000
RETVAL = 0;
#else
RETVAL = KI_NGROUPS;
#endif
#line 495 "Process.c"
XSprePUSH; PUSHi((IV)RETVAL);
}
XSRETURN(1);
}
XS(XS_BSD__Process__info); /* prototype to pass -Wmissing-prototypes */
XS(XS_BSD__Process__info)
{
#ifdef dVAR
dVAR; dXSARGS;
#else
dXSARGS;
#endif
if (items != 2)
Perl_croak(aTHX_ "Usage: %s(%s)", "BSD::Process::_info", "pid, resolve");
PERL_UNUSED_VAR(cv); /* -W */
{
#line 477 "Process.xs"
/* TODO: int pid should be pid_t pid */
size_t len;
struct kinfo_proc ki;
HV *h;
#line 520 "Process.c"
SV * RETVAL;
int pid = (int)SvIV(ST(0));
int resolve = (int)SvIV(ST(1));
#line 483 "Process.xs"
/* use the sysctl approach instead of using a kernel
* descriptor, makes for a bit less housekeeping.
*/
if (proc_info_mib[0] == -1) {
len = sizeof(proc_info_mib)/sizeof(proc_info_mib[0]);
if (sysctlnametomib("kern.proc.pid", proc_info_mib, &len) == -1) {
warn( "kern.proc.pid is corrupt\n");
XSRETURN_UNDEF;
}
}
proc_info_mib[3] = pid;
len = sizeof(ki);
if (sysctl(proc_info_mib,
sizeof(proc_info_mib)/sizeof(proc_info_mib[0]), &ki, &len, NULL, 0) == -1) {
/* process identified by pid has probably exited */
XSRETURN_UNDEF;
}
h = _procinfo( &ki, resolve );
RETVAL = newRV((SV *)h);
#line 544 "Process.c"
ST(0) = RETVAL;
sv_2mortal(ST(0));
}
XSRETURN(1);
}
XS(XS_BSD__Process__list); /* prototype to pass -Wmissing-prototypes */
XS(XS_BSD__Process__list)
{
#ifdef dVAR
dVAR; dXSARGS;
#else
dXSARGS;
#endif
if (items != 2)
Perl_croak(aTHX_ "Usage: %s(%s)", "BSD::Process::_list", "request,
param");
PERL_UNUSED_VAR(cv); /* -W */
PERL_UNUSED_VAR(ax); /* -Wall */
SP -= items;
{
#line 508 "Process.xs"
#ifdef dXSTARG
dXSTARG;
#else
dTARGET;
#endif
struct kinfo_proc *kip;
kvm_t *kd;
int nr;
char errbuf[_POSIX2_LINE_MAX];
const char *nlistf, *memf;
#line 577 "Process.c"
int request = (int)SvIV(ST(0));
int param = (int)SvIV(ST(1));
#line 519 "Process.xs"
nlistf = memf = PATH_DEV_NULL;
kd = kvm_openfiles(nlistf, memf, NULL, O_RDONLY, errbuf);
kip = _proc_request(kd, request, param, &nr);
if (kip) {
int p;
for (p = 0; p < nr; ++kip, ++p) {
#if PERL_API_VERSION == 5 && PERL_VERSION == 6
EXTEND(SP,1);
XPUSHi(kip->PID_FIELD);
#else
mPUSHi(kip->PID_FIELD);
#endif
}
kvm_close(kd);
}
else {
warn("kvm error in list(): %s\n", kvm_geterr(kd));
XSRETURN_UNDEF;
}
XSRETURN(nr);
#line 601 "Process.c"
PUTBACK;
return;
}
}
XS(XS_BSD__Process__all); /* prototype to pass -Wmissing-prototypes */
XS(XS_BSD__Process__all)
{
#ifdef dVAR
dVAR; dXSARGS;
#else
dXSARGS;
#endif
if (items != 3)
Perl_croak(aTHX_ "Usage: %s(%s)", "BSD::Process::_all", "resolve,
request, param");
PERL_UNUSED_VAR(cv); /* -W */
{
#line 543 "Process.xs"
struct kinfo_proc *kip;
kvm_t *kd;
int nr;
char errbuf[_POSIX2_LINE_MAX];
char pidbuf[16];
const char *nlistf, *memf;
HV *h;
HV *package;
HV *out;
int p;
#line 632 "Process.c"
HV * RETVAL;
int resolve = (int)SvIV(ST(0));
int request = (int)SvIV(ST(1));
int param = (int)SvIV(ST(2));
#line 555 "Process.xs"
nlistf = memf = PATH_DEV_NULL;
kd = kvm_openfiles(nlistf, memf, NULL, O_RDONLY, errbuf);
kip = _proc_request(kd, request, param, &nr);
if (!kip) {
warn("kvm error in all(): %s\n", kvm_geterr(kd));
XSRETURN_UNDEF;
}
out = (HV *)sv_2mortal((SV *)newHV());
package = gv_stashpv("BSD::Process", 0);
RETVAL = out;
for (p = 0; p < nr; ++kip, ++p) {
h = _procinfo( kip, resolve );
hv_store(h, "_resolve", 8, newSViv(resolve), 0);
#if __FreeBSD_version < 500000
hv_store(h, "_pid", 4, newSViv(kip->kp_proc.p_pid), 0);
sprintf( pidbuf, "%d", kip->kp_proc.p_pid );
#else
hv_store(h, "_pid", 4, newSViv(kip->ki_pid), 0);
sprintf( pidbuf, "%d", kip->ki_pid );
#endif
hv_store(out, pidbuf, strlen(pidbuf),
sv_bless(newRV((SV *)h), package), 0);
}
kvm_close(kd);
#line 666 "Process.c"
ST(0) = newRV((SV*)RETVAL);
sv_2mortal(ST(0));
}
XSRETURN(1);
}
#ifdef __cplusplus
extern "C"
#endif
XS(boot_BSD__Process); /* prototype to pass -Wmissing-prototypes */
XS(boot_BSD__Process)
{
#ifdef dVAR
dVAR; dXSARGS;
#else
dXSARGS;
#endif
char* file = __FILE__;
PERL_UNUSED_VAR(cv); /* -W */
PERL_UNUSED_VAR(items); /* -W */
XS_VERSION_BOOTCHECK ;
newXSproto("BSD::Process::max_kernel_groups",
XS_BSD__Process_max_kernel_groups, file, "");
newXSproto("BSD::Process::_info", XS_BSD__Process__info, file, "$$");
newXSproto("BSD::Process::_list", XS_BSD__Process__list, file, "$$");
newXSproto("BSD::Process::_all", XS_BSD__Process__all, file, "$$$");
if (PL_unitcheckav)
call_list(PL_scopestack_ix, PL_unitcheckav);
XSRETURN_YES;
}
--
Slaven Rezic - slaven <at> rezic <dot> de
tktimex - time recording tool
http://sourceforge.net/projects/ptktools/
