SysInfo.xs

   1 /* This file is part of the Linux::SysInfo Perl module.
   2  * See http://search.cpan.org/dist/Linux-SysInfo/
   3  * Vincent Pit - 2007 */
   4
   5 #include <linux/version.h> /* LINUX_VERSION_CODE, KERNEL_VERSION() */
   6 #include <sys/sysinfo.h>   /* <struct sysinfo>, sysinfo(), SI_LOAD_SHIFT */
   7
   8 #define PERL_NO_GET_CONTEXT
   9 #include "EXTERN.h"
  10 #include "perl.h"
  11 #include "XSUB.h"
  12
  13 #define __PACKAGE__ "Linux::SysInfo"
  14
  15 /* --- Extended fields ----------------------------------------------------- */
  16
  17 #if ((defined(__i386__) || defined(__x86_64__)) && (LINUX_VERSION_CODE >= KERNEL_VERSION(2, 3, 23))) || (LINUX_VERSION_CODE >= KERNEL_VERSION(2, 3, 48))
  18 # define LS_HAS_EXTENDED 1
  19 #else
  20 # define LS_HAS_EXTENDED 0
  21 #endif
  22
  23 /* --- Keys ---------------------------------------------------------------- */
  24
  25 #define LS_KEY(K)            (ls_key_##K##_sv)
  26 #if PERL_REVISION <= 4 || (PERL_REVISION == 5 && PERL_VERSION <= 6)
  27 /* newSVpvn_share doesn't exist in perl-5.6.x */
  28 # define LS_HASH(K)          (ls_key_##K##_hash)
  29 # define LS_KEY_DECLARE(K)   STATIC const char LS_KEY(K)[] = #K; \
  30                              STATIC U32 LS_HASH(K) = 0
  31 # define LS_KEY_DEFINE(K)    PERL_HASH(LS_HASH(K), LS_KEY(K), sizeof(#K)-1)
  32 # define LS_KEY_STORE(H,K,V) hv_store((H), LS_KEY(K), sizeof(#K)-1, \
  33                                       (V), LS_HASH(K))
  34 #else
  35 # if PERL_REVISION > 5 || (PERL_REVISION == 5 && (PERL_VERSION > 9 || (PERL_VERSION == 9 && PERL_SUBVERSION >= 3)))
  36 /* From perl-5.9.3 (#24802), the key is only a SVt_PV and one can get the hash
  37  * value with the SvSHARED_HASH() macro. */
  38 #  define LS_HASH(K)         SvSHARED_HASH(LS_KEY(K))
  39 # else
  40 /* Before, the key was a SVt_PVIV and the hash was stored in the UV field. */
  41 #  define LS_HASH(K)         SvUVX(LS_KEY(K))
  42 # endif
  43 # define LS_KEY_DECLARE(K)   STATIC SV *LS_KEY(K) = NULL
  44 # define LS_KEY_DEFINE(K)    LS_KEY(K) = newSVpvn_share(#K, sizeof(#K)-1, 0)
  45 # define LS_KEY_STORE(H,K,V) hv_store_ent((H), LS_KEY(K), (V), LS_HASH(K))
  46 #endif
  47
  48 LS_KEY_DECLARE(uptime);
  49 LS_KEY_DECLARE(load1);
  50 LS_KEY_DECLARE(load5);
  51 LS_KEY_DECLARE(load15);
  52 LS_KEY_DECLARE(totalram);
  53 LS_KEY_DECLARE(freeram);
  54 LS_KEY_DECLARE(sharedram);
  55 LS_KEY_DECLARE(bufferram);
  56 LS_KEY_DECLARE(totalswap);
  57 LS_KEY_DECLARE(freeswap);
  58 LS_KEY_DECLARE(procs);
  59 #if LS_HAS_EXTENDED
  60 LS_KEY_DECLARE(totalhigh);
  61 LS_KEY_DECLARE(freehigh);
  62 LS_KEY_DECLARE(mem_unit);
  63 #endif /* LS_HAS_EXTENDED */
  64
  65 /* --- XS ------------------------------------------------------------------ */
  66
  67 MODULE = Linux::SysInfo              PACKAGE = Linux::SysInfo
  68
  69 PROTOTYPES: ENABLE
  70
  71 BOOT:
  72 {
  73  HV *stash;
  74  stash = gv_stashpv(__PACKAGE__, TRUE);
  75  newCONSTSUB(stash, "LS_HAS_EXTENDED", newSViv(LS_HAS_EXTENDED));
  76
  77  LS_KEY_DEFINE(uptime);
  78  LS_KEY_DEFINE(load1);
  79  LS_KEY_DEFINE(load5);
  80  LS_KEY_DEFINE(load15);
  81  LS_KEY_DEFINE(totalram);
  82  LS_KEY_DEFINE(freeram);
  83  LS_KEY_DEFINE(sharedram);
  84  LS_KEY_DEFINE(bufferram);
  85  LS_KEY_DEFINE(totalswap);
  86  LS_KEY_DEFINE(freeswap);
  87  LS_KEY_DEFINE(procs);
  88 #if LS_HAS_EXTENDED
  89  LS_KEY_DEFINE(totalhigh);
  90  LS_KEY_DEFINE(freehigh);
  91  LS_KEY_DEFINE(mem_unit);
  92 #endif /* LS_HAS_EXTENDED */
  93 }
  94
  95 SV *sysinfo()
  96 PREINIT:
  97  struct sysinfo si;
  98  NV l;
  99  HV *h;
 100 CODE:
 101  if (sysinfo(&si) == -1) {
 102   XSRETURN_UNDEF;
 103  }
 104
 105  h = newHV();
 106
 107  LS_KEY_STORE(h, uptime,    newSViv(si.uptime));
 108
 109  l = ((NV) si.loads[0]) / ((NV) (((U32) 1) << ((U32) SI_LOAD_SHIFT)));
 110  LS_KEY_STORE(h, load1,     newSVnv(l));
 111  l = ((NV) si.loads[1]) / ((NV) (((U32) 1) << ((U32) SI_LOAD_SHIFT)));
 112  LS_KEY_STORE(h, load5,     newSVnv(l));
 113  l = ((NV) si.loads[2]) / ((NV) (((U32) 1) << ((U32) SI_LOAD_SHIFT)));
 114  LS_KEY_STORE(h, load15,    newSVnv(l));
 115
 116  LS_KEY_STORE(h, totalram,  newSVuv(si.totalram));
 117  LS_KEY_STORE(h, freeram,   newSVuv(si.freeram));
 118  LS_KEY_STORE(h, sharedram, newSVuv(si.sharedram));
 119  LS_KEY_STORE(h, bufferram, newSVuv(si.bufferram));
 120  LS_KEY_STORE(h, totalswap, newSVuv(si.totalswap));
 121  LS_KEY_STORE(h, freeswap,  newSVuv(si.freeswap));
 122  LS_KEY_STORE(h, procs,     newSVuv(si.procs));
 123 #if LS_HAS_EXTENDED
 124  LS_KEY_STORE(h, totalhigh, newSVuv(si.totalhigh));
 125  LS_KEY_STORE(h, freehigh,  newSVuv(si.freehigh));
 126  LS_KEY_STORE(h, mem_unit,  newSVuv(si.mem_unit));
 127 #endif /* LS_HAS_EXTENDED */
 128
 129  RETVAL = newRV_noinc((SV *) h);
 130 OUTPUT:
 131  RETVAL
 132