view release on metacpan or  search on metacpan

loadavg.xs  view on Meta::CPAN

MODULE = Linux::loadavg		PACKAGE = Linux::loadavg		

void
loadavg(...)
PROTOTYPE: ;$
PREINIT:
   double loadavg[3];
   int     rc, i;
   int     nelem;
PPCODE:
   if (items == 0) {
     nelem = 3;
   } else {
     nelem = atoi(SvPV_nolen(ST(0)));
   }
   if (nelem > 3 || nelem < 1)
      croak("invalid nelem (%d)", nelem);
   if ((rc = getloadavg(loadavg, nelem)) != nelem)
      croak("getloadavg failed (%d)", rc);
   EXTEND(SP,nelem);