#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"
#include "ppport.h"
#include <pbs_ifl.h>
#include "const-c.inc"
static char *errstr;
extern int pbs_errno;
MODULE = PBS PACKAGE = PBS
INCLUDE: const-xs.inc
char *
pbs_default(CLASS)
char *CLASS
CODE:
RETVAL = pbs_default();
if (RETVAL == NULL) {
XSRETURN_UNDEF;
}
OUTPUT:
RETVAL
char *
get_error(CLASS)
char *CLASS
CODE:
RETVAL = errstr;
OUTPUT:
RETVAL
int
_pbs_connect(CLASS, server)
char *CLASS
char *server
CODE:
RETVAL = pbs_connect(server);
OUTPUT:
RETVAL
int
_pbs_disconnect(CLASS, conn)
char *CLASS
int conn
CODE:
RETVAL = pbs_disconnect(conn);
OUTPUT:
RETVAL
SV*
_pbs_statnode(CLASS, conn, id)
char *CLASS
int conn
char *id
PREINIT:
struct batch_status *p;
CODE:
p = pbs_statnode(conn, id, NULL, NULL);
if (p == NULL) {
if (pbs_errno) {
errstr = pbs_geterrmsg(conn);
} else {
errstr = "An Error Occurred";
}
XSRETURN_UNDEF;
} else {
RETVAL = newSV(0);
RETVAL = newRV_noinc(RETVAL);
RETVAL = sv_setref_pv(RETVAL, "PBS::Status", (void *)p);
}
OUTPUT:
RETVAL
SV*
_pbs_statque(CLASS, conn, id)
char *CLASS
int conn
char *id
PREINIT:
struct batch_status *p;
CODE:
p = pbs_statque(conn, id, NULL, NULL);
if (p == NULL) {
if (pbs_errno) {
errstr = pbs_geterrmsg(conn);
} else {
errstr = "An Error Occurred";
}
XSRETURN_UNDEF;
} else {
RETVAL = newSV(0);
RETVAL = newRV_noinc(RETVAL);
RETVAL = sv_setref_pv(RETVAL, "PBS::Status", (void *)p);
}
OUTPUT:
RETVAL
SV*
_pbs_statjob(CLASS, conn, id)
char *CLASS
int conn
char *id
PREINIT:
struct batch_status *p;
CODE:
p = pbs_statjob(conn, id, NULL, NULL);
if (p == NULL) {
if (pbs_errno) {
errstr = pbs_geterrmsg(conn);
} else {
errstr = "An Error Occurred";
}
XSRETURN_UNDEF;
} else {
RETVAL = newSV(0);
RETVAL = newRV_noinc(RETVAL);
RETVAL = sv_setref_pv(RETVAL, "PBS::Status", (void *)p);
}
OUTPUT:
RETVAL
SV*
_pbs_statserver(CLASS, conn)
char *CLASS
int conn
PREINIT:
struct batch_status *p;
CODE:
p = pbs_statserver(conn, NULL, NULL);
if (p == NULL) {
if (pbs_errno) {
errstr = pbs_geterrmsg(conn);
} else {
errstr = "An Error Occurred";
}
XSRETURN_UNDEF;
} else {
RETVAL = newSV(0);
RETVAL = newRV_noinc(RETVAL);
RETVAL = sv_setref_pv(RETVAL, "PBS::Status", (void *)p);
}
OUTPUT:
RETVAL