view release on metacpan or  search on metacpan

Batch.pm  view on Meta::CPAN

  $params->historyHours;
  $params->pgSuspendIt;
  
  @info = $batch->hostinfo(\@hosts);

  @info = $batch->hostinfo_ex(\@hosts, $resreq, $options);

  $hi          = $info[0];
  $host        = $hi->host;
  $status      = $hi->hStatus;
  $sched       = $hi->busySched;
  $stop        = $hi->busyStop;

  @load        = $hi->load;
  @loadsched   = $hi->loadSched;
  @loadstop    = $hi->loadStop;
  $windows     = $hi->windows;
  $ujl         = $hi->userJobLimit;
  $maxj        = $hi->maxJobs;
  $numj        = $hi->numJobs;
  $nrun        = $hi->numRUN;
  $nssusp      = $hi->numSSUSP;

Batch.xs  view on Meta::CPAN

int
hi_hStatus(self)
	LSF_Batch_hostInfo *self;
    CODE:
	RETVAL = self->hStatus;
    OUTPUT:
	RETVAL

void
hi_busySched(self)
	LSF_Batch_hostInfo *self;
    PREINIT:
        int i;
    PPCODE:
  	for( i = 0; i < self->nIdx; i++)
          XPUSHs(sv_2mortal(newSVnv(self->busySched[i])));	
	XSRETURN(self->nIdx);

void
hi_busyStop(self)
	LSF_Batch_hostInfo *self;
    PREINIT:
	int i;
    PPCODE:
  	for( i = 0; i < self->nIdx; i++)
          XPUSHs(sv_2mortal(newSVnv(self->busyStop[i])));	
	XSRETURN(self->nIdx);
	
void
hi_load(self)
	LSF_Batch_hostInfo *self;
    PREINIT:
	int i;
    PPCODE:
	for( i = 0; i < self->nIdx; i++)
          XPUSHs(sv_2mortal(newSVnv(self->load[i])));