view release on metacpan or  search on metacpan

bundle/Sys-CpuLoadX/contrib/CpuLoad.xs  view on Meta::CPAN

#ifdef __cplusplus
}
#endif

MODULE = Sys::CpuLoadX		PACKAGE = Sys::CpuLoadX

void
xs_getbsdload()
    PREINIT:
        double loadavg[3];
    PPCODE:
#if defined(__FreeBSD__) || defined(__OpenBSD__)
        getloadavg(loadavg, 3);
#endif
        EXTEND(SP, 3);
        PUSHs(sv_2mortal(newSVnv(loadavg[0])));
        PUSHs(sv_2mortal(newSVnv(loadavg[1])));
        PUSHs(sv_2mortal(newSVnv(loadavg[2])));

bundle/Sys-CpuLoadX/contrib/CpuUsage.xs  view on Meta::CPAN

	dTARGET;
#endif
	STRLEN		len;
        int		type;
	/* IV		iv;	Uncomment this if you need to return IVs */
	/* NV		nv;	Uncomment this if you need to return NVs */
	/* const char	*pv;	Uncomment this if you need to return PVs */
    INPUT:
	SV *		sv;
        const char *	s = SvPV(sv, len);
    PPCODE:
	type = constant(aTHX_ s, len);
      /* Return 1 or 2 items. First is error message, or undef if no error.
           Second, if present, is found value */
        switch (type) {
        case PERL_constant_NOTFOUND:
          sv =
	    sv_2mortal(newSVpvf("%s is not a valid Win32::SystemInfo::CpuUsage macro", s));
          PUSHs(sv);
          break;
        case PERL_constant_NOTDEF: