VMS-Monitor

 view release on metacpan or  search on metacpan

Monitor.xs  view on Meta::CPAN

  int disk_optcnt;
  int disk_qcount;
};

struct proc_info {
  int proc_ipid;
  int proc_uic;
  short int proc_state;
  char proc_pri;
  int proc_lname[4];
  int proc_gpgcnt;
  int proc_ppgcnt;
  int proc_sts;
  int proc_diocnt;
  int proc_pageflts;
  int proc_cputim;
  int proc_biocnt;
  int proc_epid;
  int proc_efwm;
  int proc_rbstran;
};

Monitor.xs  view on Meta::CPAN

            hv_store(TempHV, "STATE", 5,
                     newSViv(ReturnProcInfo[i].proc_state), 0);
            hv_store(TempHV, "PRI", 3,
                     newSViv(ReturnProcInfo[i].proc_pri), 0);

            memcpy(TempName, ReturnProcInfo[i].proc_lname, 16);
            hv_store(TempHV, "NAME", 4,
                     newSVpv(&TempName[1], TempName[0]), 0);

            hv_store(TempHV, "GPGCNT", 6,
                     newSViv(ReturnProcInfo[i].proc_gpgcnt), 0);
            hv_store(TempHV, "PPGCNT", 6,
                     newSViv(ReturnProcInfo[i].proc_ppgcnt), 0);
            hv_store(TempHV, "STS", 3,
                     newSViv(ReturnProcInfo[i].proc_sts), 0);
            hv_store(TempHV, "DIOCNT", 6,
                     newSViv(ReturnProcInfo[i].proc_diocnt), 0);
            hv_store(TempHV, "PAGEFLTS", 8,
                     newSViv(ReturnProcInfo[i].proc_pageflts), 0);
            hv_store(TempHV, "CPUTIM", 6,
                     newSViv(ReturnProcInfo[i].proc_cputim), 0);



( run in 1.158 second using v1.01-cache-2.11-cpan-df04353d9ac )