view release on metacpan or  search on metacpan

SysInfo.xs  view on Meta::CPAN

#include <OS.h>

MODULE = Haiku::SysInfo PACKAGE = Haiku::SysInfo

PROTOTYPES: DISABLE

void
_sysinfo()
  PREINIT:
    system_info si;
  PPCODE:
    get_system_info(&si);
    EXTEND(SP, 15);
    PUSHs(sv_2mortal(newSViv(si.id[0])));
    PUSHs(sv_2mortal(newSViv(si.id[1])));
    PUSHs(sv_2mortal(newSVnv(si.boot_time)));
    PUSHs(sv_2mortal(newSViv(si.cpu_count)));
    PUSHs(sv_2mortal(newSViv(si.cpu_type)));
    PUSHs(sv_2mortal(newSViv(si.cpu_revision)));
    PUSHs(sv_2mortal(newSVnv(si.cpu_clock_speed)));
    PUSHs(sv_2mortal(newSVnv(si.bus_clock_speed)));