File Coverage

SysInfo.xs

Criterion	Covered	Total	%
statement	0	31	0.0
branch	0	12	0.0
condition			n/a
subroutine			n/a
pod			n/a
total	0	43	0.0

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "stdlib.h"
#include "string.h"
#include "sys/types.h"
#include "sys/sysinfo.h"
#include

double cpuPercent (){

  static unsigned long long lastTotalUser, lastTotalUserLow, lastTotalSys, lastTotalIdle;
  double percent;

  FILE* file;
  unsigned long long totalUser, totalUserLow, totalSys, totalIdle, total;

  file = fopen("/proc/stat", "r");

  if (file == NULL){
    return -1.0;
  }

  if (fscanf(file, "cpu %llu %llu %llu %llu", &totalUser, &totalUserLow,
             &totalSys, &totalIdle) != 4){
    fclose(file);
    return -1.0;
  }

  fclose(file);

  if (totalUser < lastTotalUser || totalUserLow < lastTotalUserLow ||
      totalSys < lastTotalSys || totalIdle < lastTotalIdle){
    //Overflow detection. Just skip this value.
    percent = -1.0;
  }
  else{
    total = (totalUser - lastTotalUser) + (totalUserLow - lastTotalUserLow) +
            (totalSys - lastTotalSys);
    percent = total;
    total += (totalIdle - lastTotalIdle);
    percent /= total;
    percent *= 100;
  }

  lastTotalUser = totalUser;
  lastTotalUserLow = totalUserLow;
  lastTotalSys = totalSys;
  lastTotalIdle = totalIdle;

  return percent;
}

double memPercent (){
  struct sysinfo memInfo;

  sysinfo (&memInfo);

  long long totalPhysMem = memInfo.totalram;
  totalPhysMem *= memInfo.mem_unit;

  long long physMemUsed = memInfo.totalram - memInfo.freeram;
  physMemUsed *= memInfo.mem_unit;

  long long physMemFree = totalPhysMem - physMemUsed;

  double percent = 100.0 * physMemUsed / totalPhysMem;

  return percent;
}

MODULE = RPi::SysInfo  PACKAGE = RPi::SysInfo

PROTOTYPES: DISABLE


double
cpuPercent ()

double
memPercent ()