IBM-LoadLeveler
view release on metacpan or search on metacpan
DataAccess.xsh view on Meta::CPAN
number
err
RETVAL
void *
ll_get_data(object,Specification)
LL_element *object
int Specification
PROTOTYPE: $$
PPCODE:
{
RETVAL=(void *)targ; /* bogus but spresses any unused variable error messages */
/*fprintf(stderr,"\nSPECIFICATION = %d\n",Specification);*/
switch (defs[Specification])
{
case LL_NONE:
XSRETURN_UNDEF;
break;
case LL_CHAR_STAR_STAR:
{
#if LLVER < 3050000
void *
ll_get_jobs()
PPCODE:
{
LL_get_jobs_info info;
int rc;
AV *jobs;
int i;
RETVAL=(void *)targ; /* bogus but spresses any unused variable error messages */
rc=ll_get_jobs(&info);
if (rc != 0 )
XSRETURN_IV(rc);
av_push(jobs,newRV((SV *)job));
}
XPUSHs(sv_2mortal(newRV((SV *)jobs)));
ll_free_jobs(&info);
}
}
void *
ll_get_nodes()
PPCODE:
{
LL_get_nodes_info info;
int rc;
AV *nodes;
int i;
RETVAL=(void *)targ; /* bogus but spresses any unused variable error messages */
rc=ll_get_nodes(&info);
if (rc != 0 )
XSRETURN_IV(rc);
Reservation.xsh view on Meta::CPAN
ll_make_reservation(start_time,duration,data_type,data,options,users,groups,group,...)
char *start_time
int duration
int data_type
SV *data
int options
char **users
char **groups
char *group
PPCODE:
{
LL_element *errObj = NULL;
LL_reservation_param param;
LL_reservation_param *p_param = ¶m;
int rc;
#if LLVER >= 3050000
/* Handle new parameters */
char *expiration;
SV *recurrence;
void *
llsubmit(job_cmd_file, monitor_program,monitor_arg)
char *job_cmd_file
char *monitor_program
char *monitor_arg
PPCODE:
{
LL_job job_info;
int rc;
int i;
AV *steps;
RETVAL=(void *)targ; /* bogus but supresses any unused variable error messages */
rc=llsubmit(job_cmd_file,monitor_program,monitor_arg,&job_info,LL_JOB_VERSION);
if ( rc != 0 )
XSRETURN_UNDEF;
( run in 0.644 second using v1.01-cache-2.11-cpan-5511b514fd6 )