Compare commits
No commits in common. "46b847aff9c0ef04deff9cb3b397d3223227d7b5" and "f92678d3f5c8892cf0c603533fb9b3976325d622" have entirely different histories.
46b847aff9
...
f92678d3f5
21
.gitignore
vendored
21
.gitignore
vendored
@ -7,7 +7,6 @@
|
||||
# Icon must end with two \r
|
||||
Icon
|
||||
|
||||
|
||||
# Thumbnails
|
||||
._*
|
||||
|
||||
@ -38,23 +37,3 @@ Temporary Items
|
||||
# Local History for Visual Studio Code
|
||||
.history/
|
||||
|
||||
# local files
|
||||
|
||||
spool/qmaster/jobs
|
||||
spool/qmaster/job_scripts
|
||||
spool/qmaster/messages*
|
||||
spool/qmaster/qmaster.pid
|
||||
spool/qmaster/heartbeat
|
||||
spool/qmaster/arseqnum
|
||||
spool/qmaster/advance_reservations
|
||||
spool/qmaster/jobseqnum
|
||||
spool/qmaster/zombies
|
||||
spool/gaia
|
||||
spool/minos11
|
||||
spool/minos12
|
||||
spool/minos13
|
||||
spool/minos14
|
||||
spool/minos15
|
||||
spool/minos26
|
||||
spool/minos27
|
||||
spool/qmaster/users
|
||||
|
@ -1,3 +1,3 @@
|
||||
# gridengine
|
||||
|
||||
Scripts and configuration files to manage the gridengine software running int the Geophysics cluster.
|
||||
Scripts to manage the gridengine software
|
@ -1,5 +1,5 @@
|
||||
#!/usr/bin/ksh
|
||||
|
||||
# $Id: suspend.sh 365 2013-11-18 09:58:17Z kasper $
|
||||
# This script should be added as the SUSPEND_METHOD in the
|
||||
# queue definition with a $job_pid, $job_id, and $job_owner arguments.
|
||||
# e.g. script.sh $job_pid $job_id $job_owner
|
@ -1,5 +1,5 @@
|
||||
#!/usr/bin/ksh
|
||||
# $Id: SGETerm.sh 364 2013-11-18 09:55:05Z kasper $
|
||||
# $Id: term.sh 364 2013-11-18 09:55:05Z kasper $
|
||||
# This script should be added as the TERMINATE_METHOD in the
|
||||
# queue definition with $job_pid, $job_id, $job_owner, and interval arguments.
|
||||
# e.g. script.sh $job_pid $job_id $job_owner 90
|
@ -1,211 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include <unistd.h>
|
||||
#include <string.h>
|
||||
|
||||
#include "drmaa.h"
|
||||
|
||||
#define JOB_CHUNK 8
|
||||
#define NBULKS 3
|
||||
|
||||
static drmaa_job_template_t *create_job_template(const char *job_path, int seconds, int as_bulk_job);
|
||||
|
||||
int main(int argc, char *argv[])
|
||||
{
|
||||
char diagnosis[DRMAA_ERROR_STRING_BUFFER];
|
||||
const char *all_jobids[NBULKS*JOB_CHUNK + JOB_CHUNK+1];
|
||||
char jobid[100];
|
||||
int drmaa_errno, i, pos = 0;
|
||||
const char *job_path;
|
||||
drmaa_job_template_t *jt;
|
||||
|
||||
if (argc<2) {
|
||||
fprintf(stderr, "usage: example <path-to-job>\n");
|
||||
return 1;
|
||||
}
|
||||
job_path = argv[1];
|
||||
|
||||
if (drmaa_init(NULL, diagnosis, sizeof(diagnosis)-1) != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf(stderr, "drmaa_init() failed: %s\n", diagnosis);
|
||||
return 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* submit some bulk jobs
|
||||
*/
|
||||
if (!(jt = create_job_template(job_path, 5, 1))) {
|
||||
fprintf(stderr, "create_job_template() failed\n");
|
||||
return 1;
|
||||
}
|
||||
for (i=0; i<NBULKS; i++) {
|
||||
drmaa_job_ids_t *jobids;
|
||||
int j;
|
||||
|
||||
while ((drmaa_errno=drmaa_run_bulk_jobs(&jobids, jt, 1, JOB_CHUNK, 1, diagnosis,
|
||||
sizeof(diagnosis)-1))==DRMAA_ERRNO_DRM_COMMUNICATION_FAILURE) {
|
||||
fprintf(stderr, "drmaa_run_bulk_jobs() failed - retry: %s %s\n", diagnosis, drmaa_strerror(drmaa_errno));
|
||||
sleep(1);
|
||||
}
|
||||
if (drmaa_errno != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf(stderr, "drmaa_run_bulk_jobs() failed: %s %s\n", diagnosis, drmaa_strerror(drmaa_errno));
|
||||
return 1;
|
||||
}
|
||||
|
||||
printf("submitted bulk job with jobids:\n");
|
||||
for (j=0; j<JOB_CHUNK; j++) {
|
||||
drmaa_get_next_job_id(jobids, jobid, sizeof(jobid)-1);
|
||||
all_jobids[pos++] = strdup(jobid);
|
||||
printf("\t \"%s\"\n", jobid);
|
||||
}
|
||||
drmaa_release_job_ids(jobids);
|
||||
}
|
||||
drmaa_delete_job_template(jt, NULL, 0);
|
||||
|
||||
/*
|
||||
* submit some sequential jobs
|
||||
*/
|
||||
if (!(jt = create_job_template(job_path, 5, 0))) {
|
||||
fprintf(stderr, "create_sleeper_job_template() failed\n");
|
||||
return 1;
|
||||
}
|
||||
for (i=0; i<JOB_CHUNK; i++) {
|
||||
while ((drmaa_errno=drmaa_run_job(jobid, sizeof(jobid)-1, jt, diagnosis,
|
||||
sizeof(diagnosis)-1)) == DRMAA_ERRNO_DRM_COMMUNICATION_FAILURE) {
|
||||
fprintf(stderr, "drmaa_run_job() failed - retry: %s\n", diagnosis);
|
||||
sleep(1);
|
||||
}
|
||||
if (drmaa_errno != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf(stderr, "drmaa_run_job() failed: %s\n", diagnosis);
|
||||
return 1;
|
||||
}
|
||||
printf("\t \"%s\"\n", jobid);
|
||||
all_jobids[pos++] = strdup(jobid);
|
||||
}
|
||||
|
||||
/* set string array end mark */
|
||||
all_jobids[pos] = NULL;
|
||||
|
||||
drmaa_delete_job_template(jt, NULL, 0);
|
||||
|
||||
/*
|
||||
* synchronize with all jobs
|
||||
*/
|
||||
drmaa_errno = drmaa_synchronize(all_jobids, DRMAA_TIMEOUT_WAIT_FOREVER, 0, diagnosis, sizeof(diagnosis)-1);
|
||||
if (drmaa_errno != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf(stderr, "drmaa_synchronize(DRMAA_JOB_IDS_SESSION_ALL, dispose) failed: %s\n", diagnosis);
|
||||
return 1;
|
||||
}
|
||||
printf("synchronized with all jobs\n");
|
||||
|
||||
/*
|
||||
* wait all those jobs
|
||||
*/
|
||||
for (pos=0; pos<NBULKS*JOB_CHUNK + JOB_CHUNK; pos++) {
|
||||
int stat;
|
||||
int aborted, exited, exit_status, signaled;
|
||||
|
||||
drmaa_errno = drmaa_wait(all_jobids[pos], jobid, sizeof(jobid)-1,
|
||||
&stat, DRMAA_TIMEOUT_WAIT_FOREVER, NULL, diagnosis, sizeof(diagnosis)-1);
|
||||
|
||||
if (drmaa_errno != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf(stderr, "drmaa_wait(%s) failed: %s\n", all_jobids[pos], diagnosis);
|
||||
return 1;
|
||||
}
|
||||
|
||||
/*
|
||||
* report how job finished
|
||||
*/
|
||||
drmaa_wifaborted(&aborted, stat, NULL, 0);
|
||||
if (aborted)
|
||||
printf("job \"%s\" never ran\n", all_jobids[pos]);
|
||||
else {
|
||||
drmaa_wifexited(&exited, stat, NULL, 0);
|
||||
if (exited) {
|
||||
drmaa_wexitstatus(&exit_status, stat, NULL, 0);
|
||||
printf("job \"%s\" finished regularly with exit status %d\n",
|
||||
all_jobids[pos], exit_status);
|
||||
} else {
|
||||
drmaa_wifsignaled(&signaled, stat, NULL, 0);
|
||||
if (signaled) {
|
||||
char termsig[DRMAA_SIGNAL_BUFFER+1];
|
||||
drmaa_wtermsig(termsig, DRMAA_SIGNAL_BUFFER, stat, NULL, 0);
|
||||
printf("job \"%s\" finished due to signal %s\n",
|
||||
all_jobids[pos], termsig);
|
||||
} else
|
||||
printf("job \"%s\" finished with unclear conditions\n",
|
||||
all_jobids[pos]);
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
if (drmaa_exit(diagnosis, sizeof(diagnosis)-1) != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf(stderr, "drmaa_exit() failed: %s\n", diagnosis);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
||||
|
||||
|
||||
static drmaa_job_template_t *create_job_template(const char *job_path, int seconds, int as_bulk_job)
|
||||
{
|
||||
const char *job_argv[2];
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
char buffer[100];
|
||||
|
||||
if (drmaa_allocate_job_template(&jt, NULL, 0)!=DRMAA_ERRNO_SUCCESS)
|
||||
return NULL;
|
||||
|
||||
/* run in users home directory */
|
||||
drmaa_set_attribute(jt, DRMAA_WD, DRMAA_PLACEHOLDER_HD, NULL, 0);
|
||||
|
||||
/* the job to be run */
|
||||
drmaa_set_attribute(jt, DRMAA_REMOTE_COMMAND, job_path, NULL, 0);
|
||||
|
||||
/* the job's arguments */
|
||||
sprintf(buffer, "%d", seconds);
|
||||
job_argv[0] = buffer;
|
||||
job_argv[1] = NULL;
|
||||
drmaa_set_vector_attribute(jt, DRMAA_V_ARGV, job_argv, NULL, 0);
|
||||
|
||||
/* join output/error file */
|
||||
drmaa_set_attribute(jt, DRMAA_JOIN_FILES, "y", NULL, 0);
|
||||
|
||||
/* path for output */
|
||||
if (!as_bulk_job)
|
||||
drmaa_set_attribute(jt, DRMAA_OUTPUT_PATH, ":"DRMAA_PLACEHOLDER_HD"/DRMAA_JOB", NULL, 0);
|
||||
else
|
||||
drmaa_set_attribute(jt, DRMAA_OUTPUT_PATH, ":"DRMAA_PLACEHOLDER_HD"/DRMAA_JOB."DRMAA_PLACEHOLDER_INCR, NULL, 0);
|
||||
|
||||
return jt;
|
||||
}
|
@ -1,56 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
printf ("DRMAA library was started successfully\n");
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,81 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
char contact[DRMAA_CONTACT_BUFFER];
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
printf ("DRMAA library was started successfully\n");
|
||||
|
||||
errnum = drmaa_get_contact (contact, DRMAA_CONTACT_BUFFER, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the contact string: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_init (contact, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not reinitialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
printf ("DRMAA library was restarted successfully\n");
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,100 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"5", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
|
||||
errnum = drmaa_run_job (jobid, DRMAA_JOBNAME_BUFFER, jt, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Your job has been submitted with id %s\n", jobid);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,105 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"5", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
drmaa_job_ids_t *ids = NULL;
|
||||
|
||||
errnum = drmaa_run_bulk_jobs (&ids, jt, 1, 30, 2, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
|
||||
while (drmaa_get_next_job_id (ids, jobid, DRMAA_JOBNAME_BUFFER) == DRMAA_ERRNO_SUCCESS) {
|
||||
printf ("A job task has been submitted with id %s\n", jobid);
|
||||
}
|
||||
}
|
||||
|
||||
drmaa_release_job_ids (ids);
|
||||
}
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,156 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"5", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
char jobid_out[DRMAA_JOBNAME_BUFFER];
|
||||
int status = 0;
|
||||
drmaa_attr_values_t *rusage = NULL;
|
||||
|
||||
errnum = drmaa_run_job (jobid, DRMAA_JOBNAME_BUFFER, jt, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Your job has been submitted with id %s\n", jobid);
|
||||
|
||||
errnum = drmaa_wait (jobid, jobid_out, DRMAA_JOBNAME_BUFFER, &status,
|
||||
DRMAA_TIMEOUT_WAIT_FOREVER, &rusage, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not wait for job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
char usage[DRMAA_ERROR_STRING_BUFFER];
|
||||
int aborted = 0;
|
||||
|
||||
drmaa_wifaborted(&aborted, status, NULL, 0);
|
||||
|
||||
if (aborted == 1) {
|
||||
printf("Job %s never ran\n", jobid);
|
||||
}
|
||||
else {
|
||||
int exited = 0;
|
||||
|
||||
drmaa_wifexited(&exited, status, NULL, 0);
|
||||
|
||||
if (exited == 1) {
|
||||
int exit_status = 0;
|
||||
|
||||
drmaa_wexitstatus(&exit_status, status, NULL, 0);
|
||||
printf("Job %s finished regularly with exit status %d\n", jobid, exit_status);
|
||||
}
|
||||
else {
|
||||
int signaled = 0;
|
||||
|
||||
drmaa_wifsignaled(&signaled, status, NULL, 0);
|
||||
|
||||
if (signaled == 1) {
|
||||
char termsig[DRMAA_SIGNAL_BUFFER+1];
|
||||
|
||||
drmaa_wtermsig(termsig, DRMAA_SIGNAL_BUFFER, status, NULL, 0);
|
||||
printf("Job %s finished due to signal %s\n", jobid, termsig);
|
||||
}
|
||||
else {
|
||||
printf("Job %s finished with unclear conditions\n", jobid);
|
||||
}
|
||||
} /* else */
|
||||
} /* else */
|
||||
|
||||
printf ("Job Usage:\n");
|
||||
|
||||
while (drmaa_get_next_attr_value (rusage, usage, DRMAA_ERROR_STRING_BUFFER) == DRMAA_ERRNO_SUCCESS) {
|
||||
printf (" %s\n", usage);
|
||||
}
|
||||
|
||||
drmaa_release_attr_values (rusage);
|
||||
} /* else */
|
||||
} /* else */
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,116 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"5", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
drmaa_job_ids_t *ids = NULL;
|
||||
|
||||
errnum = drmaa_run_bulk_jobs (&ids, jt, 1, 30, 2, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
const char *jobids[2] = {DRMAA_JOB_IDS_SESSION_ALL, NULL};
|
||||
|
||||
while (drmaa_get_next_job_id (ids, jobid, DRMAA_JOBNAME_BUFFER) == DRMAA_ERRNO_SUCCESS) {
|
||||
printf ("A job task has been submitted with id %s\n", jobid);
|
||||
}
|
||||
|
||||
errnum = drmaa_synchronize (jobids, DRMAA_TIMEOUT_WAIT_FOREVER,
|
||||
1, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not wait for jobs: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("All job tasks have finished.\n");
|
||||
}
|
||||
} /* else */
|
||||
|
||||
drmaa_release_job_ids (ids);
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,182 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"5", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
drmaa_job_ids_t *ids = NULL;
|
||||
int start = 1;
|
||||
int end = 30;
|
||||
int step = 2;
|
||||
|
||||
errnum = drmaa_run_bulk_jobs (&ids, jt, start, end, step, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
const char *jobids[2] = {DRMAA_JOB_IDS_SESSION_ALL, NULL};
|
||||
|
||||
while (drmaa_get_next_job_id (ids, jobid, DRMAA_JOBNAME_BUFFER)
|
||||
== DRMAA_ERRNO_SUCCESS) {
|
||||
printf ("A job task has been submitted with id %s\n", jobid);
|
||||
}
|
||||
|
||||
errnum = drmaa_synchronize (jobids, DRMAA_TIMEOUT_WAIT_FOREVER,
|
||||
0, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not wait for jobs: %s\n", error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
int status = 0;
|
||||
drmaa_attr_values_t *rusage = NULL;
|
||||
int count = 0;
|
||||
|
||||
for (count = start; count < end; count += step) {
|
||||
errnum = drmaa_wait (DRMAA_JOB_IDS_SESSION_ANY, jobid,
|
||||
DRMAA_JOBNAME_BUFFER, &status,
|
||||
DRMAA_TIMEOUT_WAIT_FOREVER, &rusage,
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not wait for job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
char usage[DRMAA_ERROR_STRING_BUFFER];
|
||||
int aborted = 0;
|
||||
|
||||
drmaa_wifaborted(&aborted, status, NULL, 0);
|
||||
|
||||
if (aborted == 1) {
|
||||
printf("Job %s never ran\n", jobid);
|
||||
}
|
||||
else {
|
||||
int exited = 0;
|
||||
|
||||
drmaa_wifexited(&exited, status, NULL, 0);
|
||||
|
||||
if (exited == 1) {
|
||||
int exit_status = 0;
|
||||
|
||||
drmaa_wexitstatus(&exit_status, status, NULL, 0);
|
||||
printf("Job %s finished regularly with exit status %d\n",
|
||||
jobid, exit_status);
|
||||
}
|
||||
else {
|
||||
int signaled = 0;
|
||||
|
||||
drmaa_wifsignaled(&signaled, status, NULL, 0);
|
||||
|
||||
if (signaled == 1) {
|
||||
char termsig[DRMAA_SIGNAL_BUFFER+1];
|
||||
|
||||
drmaa_wtermsig(termsig, DRMAA_SIGNAL_BUFFER, status, NULL, 0);
|
||||
printf("Job %s finished due to signal %s\n", jobid, termsig);
|
||||
}
|
||||
else {
|
||||
printf("Job %s finished with unclear conditions\n", jobid);
|
||||
}
|
||||
} /* else */
|
||||
} /* else */
|
||||
|
||||
printf ("Job Usage:\n");
|
||||
|
||||
while (drmaa_get_next_attr_value (rusage, usage, DRMAA_ERROR_STRING_BUFFER)
|
||||
== DRMAA_ERRNO_SUCCESS) {
|
||||
printf (" %s\n", usage);
|
||||
}
|
||||
|
||||
drmaa_release_attr_values (rusage);
|
||||
} /* else */
|
||||
} /* for */
|
||||
} /* else */
|
||||
} /* else */
|
||||
|
||||
drmaa_release_job_ids (ids);
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,110 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"60", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
|
||||
errnum = drmaa_run_job (jobid, DRMAA_JOBNAME_BUFFER, jt, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Your job has been submitted with id %s\n", jobid);
|
||||
|
||||
errnum = drmaa_control (jobid, DRMAA_CONTROL_TERMINATE, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Your job has been deleted\n");
|
||||
}
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,149 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include <unistd.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
drmaa_job_template_t *jt = NULL;
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_allocate_job_template (&jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not create job template: %s\n", error);
|
||||
}
|
||||
else {
|
||||
errnum = drmaa_set_attribute (jt, DRMAA_REMOTE_COMMAND, "sleeper.sh",
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
const char *args[2] = {"60", NULL};
|
||||
|
||||
errnum = drmaa_set_vector_attribute (jt, DRMAA_V_ARGV, args, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
}
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not set attribute \"%s\": %s\n",
|
||||
DRMAA_REMOTE_COMMAND, error);
|
||||
}
|
||||
else {
|
||||
char jobid[DRMAA_JOBNAME_BUFFER];
|
||||
|
||||
errnum = drmaa_run_job (jobid, DRMAA_JOBNAME_BUFFER, jt, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not submit job: %s\n", error);
|
||||
}
|
||||
else {
|
||||
int status = 0;
|
||||
|
||||
printf ("Your job has been submitted with id %s\n", jobid);
|
||||
|
||||
sleep (20);
|
||||
|
||||
errnum = drmaa_job_ps (jobid, &status, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get job' status: %s\n", error);
|
||||
}
|
||||
else {
|
||||
switch (status) {
|
||||
case DRMAA_PS_UNDETERMINED:
|
||||
printf ("Job status cannot be determined\n");
|
||||
break;
|
||||
case DRMAA_PS_QUEUED_ACTIVE:
|
||||
printf ("Job is queued and active\n");
|
||||
break;
|
||||
case DRMAA_PS_SYSTEM_ON_HOLD:
|
||||
printf ("Job is queued and in system hold\n");
|
||||
break;
|
||||
case DRMAA_PS_USER_ON_HOLD:
|
||||
printf ("Job is queued and in user hold\n");
|
||||
break;
|
||||
case DRMAA_PS_USER_SYSTEM_ON_HOLD:
|
||||
printf ("Job is queued and in user and system hold\n");
|
||||
break;
|
||||
case DRMAA_PS_RUNNING:
|
||||
printf ("Job is running\n");
|
||||
break;
|
||||
case DRMAA_PS_SYSTEM_SUSPENDED:
|
||||
printf ("Job is system suspended\n");
|
||||
break;
|
||||
case DRMAA_PS_USER_SUSPENDED:
|
||||
printf ("Job is user suspended\n");
|
||||
break;
|
||||
case DRMAA_PS_USER_SYSTEM_SUSPENDED:
|
||||
printf ("Job is user and system suspended\n");
|
||||
break;
|
||||
case DRMAA_PS_DONE:
|
||||
printf ("Job finished normally\n");
|
||||
break;
|
||||
case DRMAA_PS_FAILED:
|
||||
printf ("Job finished, but failed\n");
|
||||
break;
|
||||
} /* switch */
|
||||
} /* else */
|
||||
} /* else */
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_delete_job_template (jt, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not delete job template: %s\n", error);
|
||||
}
|
||||
} /* else */
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,128 +0,0 @@
|
||||
/*___INFO__MARK_BEGIN__*/
|
||||
/*************************************************************************
|
||||
*
|
||||
* The Contents of this file are made available subject to the terms of
|
||||
* the Sun Industry Standards Source License Version 1.2
|
||||
*
|
||||
* Sun Microsystems Inc., March, 2001
|
||||
*
|
||||
*
|
||||
* Sun Industry Standards Source License Version 1.2
|
||||
* =================================================
|
||||
* The contents of this file are subject to the Sun Industry Standards
|
||||
* Source License Version 1.2 (the "License"); You may not use this file
|
||||
* except in compliance with the License. You may obtain a copy of the
|
||||
* License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
*
|
||||
* Software provided under this License is provided on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
* See the License for the specific provisions governing your rights and
|
||||
* obligations concerning the Software.
|
||||
*
|
||||
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
*
|
||||
* Copyright: 2001 by Sun Microsystems, Inc.
|
||||
*
|
||||
* All Rights Reserved.
|
||||
*
|
||||
************************************************************************/
|
||||
/*___INFO__MARK_END__*/
|
||||
#include <stdio.h>
|
||||
#include "drmaa.h"
|
||||
|
||||
int main (int argc, char **argv) {
|
||||
char error[DRMAA_ERROR_STRING_BUFFER];
|
||||
int errnum = 0;
|
||||
char contact[DRMAA_CONTACT_BUFFER];
|
||||
char drm_system[DRMAA_DRM_SYSTEM_BUFFER];
|
||||
char drmaa_impl[DRMAA_DRM_SYSTEM_BUFFER];
|
||||
unsigned int major = 0;
|
||||
unsigned int minor = 0;
|
||||
|
||||
errnum = drmaa_get_contact (contact, DRMAA_CONTACT_BUFFER, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the contact string list: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Supported contact strings: \"%s\"\n", contact);
|
||||
}
|
||||
|
||||
errnum = drmaa_get_DRM_system (drm_system, DRMAA_DRM_SYSTEM_BUFFER, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the DRM system list: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Supported DRM systems: \"%s\"\n", drm_system);
|
||||
}
|
||||
|
||||
errnum = drmaa_get_DRMAA_implementation (drmaa_impl, DRMAA_DRM_SYSTEM_BUFFER,
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the DRMAA implementation list: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Supported DRMAA implementations: \"%s\"\n", drmaa_impl);
|
||||
}
|
||||
|
||||
errnum = drmaa_init (NULL, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not initialize the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
errnum = drmaa_get_contact (contact, DRMAA_CONTACT_BUFFER, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the contact string: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Connected contact string: \"%s\"\n", contact);
|
||||
}
|
||||
|
||||
errnum = drmaa_get_DRM_system (drm_system, DRMAA_CONTACT_BUFFER, error,
|
||||
DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the DRM system: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Connected DRM system: \"%s\"\n", drm_system);
|
||||
}
|
||||
|
||||
errnum = drmaa_get_DRMAA_implementation (drmaa_impl, DRMAA_DRM_SYSTEM_BUFFER,
|
||||
error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the DRMAA implementation list: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Supported DRMAA implementations: \"%s\"\n", drmaa_impl);
|
||||
}
|
||||
|
||||
errnum = drmaa_version (&major, &minor, error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not get the DRMAA version: %s\n", error);
|
||||
}
|
||||
else {
|
||||
printf ("Using DRMAA version %d.%d\n", major, minor);
|
||||
}
|
||||
|
||||
errnum = drmaa_exit (error, DRMAA_ERROR_STRING_BUFFER);
|
||||
|
||||
if (errnum != DRMAA_ERRNO_SUCCESS) {
|
||||
fprintf (stderr, "Could not shut down the DRMAA library: %s\n", error);
|
||||
return 1;
|
||||
}
|
||||
|
||||
return 0;
|
||||
}
|
@ -1,77 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
|
||||
require 'drmaa'
|
||||
|
||||
class Sleeper < DRMAA::JobTemplate
|
||||
def initialize
|
||||
super
|
||||
self.command = "/bin/sleep"
|
||||
self.arg = ["1"]
|
||||
self.stdout = ":/dev/null"
|
||||
self.join = true
|
||||
end
|
||||
end
|
||||
|
||||
# Two array jobs are submitted. The second array task remains in
|
||||
# hold until the predecessor task was run. Demonstrate possible
|
||||
# use of hold/release.
|
||||
|
||||
NTASKS = 30
|
||||
session = DRMAA::Session.new
|
||||
|
||||
jt = Sleeper.new
|
||||
pre = session.run_bulk(jt, 1, NTASKS, 1)
|
||||
suc = session.run_bulk(jt, 1, NTASKS, 1)
|
||||
|
||||
h = Hash.new
|
||||
for i in 0 .. NTASKS-1 do
|
||||
h[pre[i]] = suc[i]
|
||||
end
|
||||
|
||||
session.wait_each{ |info|
|
||||
job = info.job
|
||||
if h.has_key?(job)
|
||||
session.release(h[job])
|
||||
end
|
||||
|
||||
if info.wifexited?
|
||||
puts job + " returned with " + info.wexitstatus.to_s
|
||||
# info.rusage.each { |u| puts "usage " + u }
|
||||
elsif info.wifaborted?
|
||||
puts job + " aborted"
|
||||
elsif info.wifsignaled?
|
||||
puts job + " died from " + info.wtermsig
|
||||
end
|
||||
}
|
||||
|
||||
exit 0
|
@ -1,49 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
|
||||
require 'drmaa'
|
||||
|
||||
version = DRMAA.version
|
||||
drm = DRMAA.drm_system
|
||||
impl = DRMAA.drmaa_implementation
|
||||
contact = DRMAA.contact
|
||||
puts "DRMAA: #{drm} version #{version} impl #{impl} contact #{contact}"
|
||||
|
||||
session = DRMAA::Session.new
|
||||
|
||||
puts "supported DRMAA job template attributes:"
|
||||
attrs = DRMAA.attributes.each { |n| puts " #{n}" }
|
||||
puts "supported DRMAA job template vector attributes:"
|
||||
attrs = DRMAA.vector_attributes.each { |n| puts " #{n}" }
|
||||
|
||||
|
||||
exit 0
|
@ -1,70 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
|
||||
require 'drmaa'
|
||||
|
||||
class Sleeper < DRMAA::JobTemplate
|
||||
def initialize
|
||||
super
|
||||
self.command = "/bin/sleep"
|
||||
self.arg = ["1"]
|
||||
self.stdout = ":/dev/null"
|
||||
self.join = true
|
||||
end
|
||||
end
|
||||
|
||||
version = DRMAA.version
|
||||
drm = DRMAA.drm_system
|
||||
impl = DRMAA.drmaa_implementation
|
||||
contact = DRMAA.contact
|
||||
puts "DRMAA #{drm} v #{version} impl #{impl} contact #{contact}"
|
||||
|
||||
session = DRMAA::Session.new
|
||||
|
||||
t = Sleeper.new
|
||||
|
||||
jobid = session.run(t)
|
||||
puts "job: " + jobid
|
||||
|
||||
session.run_bulk(t, 1, 20).each { |job|
|
||||
puts "job: " + job
|
||||
}
|
||||
|
||||
session.wait_each{ |info|
|
||||
if ! info.wifexited?
|
||||
puts "failed: " + info.job
|
||||
else
|
||||
puts info.job + " returned with " + info.wexitstatus.to_s
|
||||
end
|
||||
}
|
||||
|
||||
exit 0
|
@ -1,39 +0,0 @@
|
||||
== Workflow interpreter and processor
|
||||
|
||||
flow.rb is a utility for running job workflows in
|
||||
DRMAA-compliant DRM systems. Workflows are specified in
|
||||
flowfiles that allow expression of
|
||||
|
||||
* concurrent and sequential execution of sub-flows
|
||||
* multiple runs of sub-flows with varying parameter sets
|
||||
* actual jobs are defined in terms of DRMAA attributes
|
||||
|
||||
in addition any subflow or sets of subflows can be run
|
||||
as used with make(1) by specifying it as target.
|
||||
|
||||
=== Job defaults
|
||||
|
||||
To minimize the extent of attributes necessarily
|
||||
specified in flowfiles, flow.rb provides defaults for
|
||||
jobs' command path, stdout/stdin path, current working
|
||||
directory and job name.
|
||||
|
||||
=== Workflow verification
|
||||
|
||||
The -verify option can be used to print dependencies and
|
||||
job attributes for diagnosis purposes. To ensure each
|
||||
workflow job can be run, a number of verifications is
|
||||
performed before the first job gets submitted.
|
||||
|
||||
=== Job streaming
|
||||
|
||||
Large workflows are automatically run in job streaming mode
|
||||
upon DRM saturation and a job maximum can be set in .flowrc.rb
|
||||
to place an upper limit of jobs be kept concurrently in the
|
||||
DRM for each workflow.
|
||||
|
||||
=== Pre-submission plug-in
|
||||
|
||||
Enforcement of site-specific policies can easily be
|
||||
achieved through pre-submission procedures that allow
|
||||
any job attribute to be modified freely.
|
@ -1,911 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
# TODO:
|
||||
# - provide means to restart entire flows with failed flowjobs be rerun only
|
||||
# - support bulk jobs
|
||||
# - allow DRMAA user hold be used despite user hold be used by flow itself
|
||||
#########################################################################
|
||||
|
||||
require 'drmaa'
|
||||
|
||||
|
||||
# ------------------------------------------------------------------------------------------
|
||||
# Exceptions thrown during parsing stage
|
||||
|
||||
class ParsingFunction < ArgumentError ; end
|
||||
class ParsingFormat < ArgumentError ; end
|
||||
|
||||
|
||||
# ------------------------------------------------------------------------------------------
|
||||
# The FlowFunction classes represent the entities found in the flowfile.
|
||||
|
||||
class FlowFunction
|
||||
end
|
||||
class JobsInParallel < FlowFunction
|
||||
attr_accessor :par
|
||||
def make(key, vars, depend, depth, select)
|
||||
do_it = select_func?(key, vars, select)
|
||||
|
||||
all_jobs = Array.new
|
||||
@par.each { |sub|
|
||||
name = sub[0]
|
||||
if do_it
|
||||
flowprint(depth, "PARALLEL: " + name)
|
||||
end
|
||||
new_vars = sub[1]
|
||||
sub_vars = vars.dup
|
||||
if ! new_vars.nil?
|
||||
new_vars.each_pair { |var,val| sub_vars[var] = val }
|
||||
end
|
||||
j = $flowfunction[name]
|
||||
if j.nil?
|
||||
raise ParsingFunction.new("#{key}(): flow function \"#{name}\" does not exit")
|
||||
end
|
||||
if do_it
|
||||
jobs = j.make(name, sub_vars, depend, depth+1, nil)
|
||||
else
|
||||
jobs = j.make(name, sub_vars, depend, depth+1, select)
|
||||
end
|
||||
if ! jobs.nil?
|
||||
all_jobs += jobs
|
||||
end
|
||||
}
|
||||
if all_jobs.size != 0
|
||||
return all_jobs
|
||||
else
|
||||
return nil
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
class JobsInSequence < FlowFunction
|
||||
attr_accessor :seq
|
||||
def make(key, vars, depend, depth, select)
|
||||
do_it = select_func?(key, vars, select)
|
||||
first = true
|
||||
@seq.each { |sub|
|
||||
name = sub[0]
|
||||
flowprint(depth, "SEQUENTIAL: " + name) if do_it
|
||||
new_vars = sub[1]
|
||||
sub_vars = vars.dup
|
||||
if ! new_vars.nil?
|
||||
new_vars.each_pair { |var,val| sub_vars[var] = val }
|
||||
end
|
||||
j = $flowfunction[name]
|
||||
if j.nil?
|
||||
raise ParsingFunction.new("#{key}: flow function \"#{name}\" does not exit")
|
||||
end
|
||||
if do_it
|
||||
depend = j.make(name, sub_vars, depend, depth+1, nil)
|
||||
else
|
||||
depend = j.make(name, sub_vars, depend, depth+1, select)
|
||||
end
|
||||
}
|
||||
return depend
|
||||
end
|
||||
end
|
||||
|
||||
class RunnableJob < FlowFunction
|
||||
attr_accessor :attrs, :njobs
|
||||
def initialize
|
||||
@njobs = 0
|
||||
end
|
||||
|
||||
def make(key, vars, depend, depth, select)
|
||||
@njobs += 1
|
||||
job_key = key + "#" + @njobs.to_s
|
||||
|
||||
do_it = select_func?(key, vars, select)
|
||||
|
||||
fj_attrs = Array.new
|
||||
@attrs.each_pair { |name,t|
|
||||
value = substitute(t, vars)
|
||||
fj_attrs.push([ name, value ])
|
||||
}
|
||||
if depend.nil?
|
||||
f = FlowJob.new(nil, fj_attrs)
|
||||
flowprint(depth, job_key + "(" + comma_vars(vars) + ")") if do_it
|
||||
else
|
||||
f = FlowJob.new(depend.dup, fj_attrs)
|
||||
flowprint(depth, job_key + "(" + comma_vars(vars) + ") waiting for " + comma_jobs(f.depend, ", ")) if do_it
|
||||
end
|
||||
fj_attrs.each { |a| flowprint(depth+1, a[0] + "=\"" + a[1] + "\"") } if do_it
|
||||
f.presubproc(job_key)
|
||||
f.verify(job_key)
|
||||
|
||||
if ! do_it
|
||||
$not_selected += 1
|
||||
return [ ]
|
||||
end
|
||||
|
||||
$flowjob[job_key] = f
|
||||
return [ job_key ]
|
||||
end
|
||||
end
|
||||
|
||||
def flowprint(depth, s)
|
||||
return if ! $parse_only
|
||||
(depth*3).times { putc " " } ; puts s
|
||||
end
|
||||
|
||||
def comma_vars(vars)
|
||||
s = ""
|
||||
first = true
|
||||
vars.each_pair { |var,val|
|
||||
if first == false
|
||||
s += ", "
|
||||
else
|
||||
first = false
|
||||
end
|
||||
s += var + "=" + val
|
||||
}
|
||||
return s
|
||||
end
|
||||
|
||||
def comma_jobs(jobs, sep = ",")
|
||||
s = ""
|
||||
first = true
|
||||
jobs.each { |job|
|
||||
if first == false
|
||||
s += sep
|
||||
else
|
||||
first = false
|
||||
end
|
||||
s += job
|
||||
}
|
||||
return s
|
||||
end
|
||||
|
||||
def substitute(s, vars)
|
||||
vars.each_pair { |var,val|
|
||||
s = s.sub(var, val)
|
||||
}
|
||||
return s
|
||||
end
|
||||
|
||||
# parses name1=value1,... into a Hash
|
||||
# used both for params and attrs
|
||||
def var_list(str)
|
||||
vars = Hash.new
|
||||
if ! str.nil?
|
||||
str.strip.scan(/[^,][^,]*/) { |vardef|
|
||||
n = vardef.strip.scan(/[^=][^=]*/)
|
||||
vars[n[0].strip] = n[1].strip
|
||||
}
|
||||
end
|
||||
return vars
|
||||
end
|
||||
|
||||
# decide if a paricular flow call was selected as target
|
||||
def select_func?(k1, vrs1, select)
|
||||
return true if select.nil?
|
||||
|
||||
k2 = select[0]
|
||||
vrs2 = select[1]
|
||||
if k1 != k2 or vrs1.size < vrs2.size
|
||||
return false
|
||||
end
|
||||
|
||||
vrs2.each_pair { |k,v|
|
||||
if ! vrs1.has_key?(k) or vrs1[k] != v
|
||||
return false
|
||||
end
|
||||
}
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
# return name of first function
|
||||
def parse_flow(file)
|
||||
all = nil
|
||||
begin
|
||||
IO::foreach(file) { |line|
|
||||
case line
|
||||
when /^#/
|
||||
next
|
||||
else
|
||||
# crack line
|
||||
function = line.sub(/[ ]*=.*$/, "").strip
|
||||
val = line.sub(/^[^=]*=/, "").strip
|
||||
if all.nil?
|
||||
all = function
|
||||
end
|
||||
|
||||
# runnable job
|
||||
if ! val.index("{").nil?
|
||||
r = RunnableJob.new
|
||||
jobdef = val.scan(/[^{}][^{}]*/)[0].strip
|
||||
r.attrs = var_list(jobdef)
|
||||
$flowfunction[function] = r
|
||||
|
||||
# jobs in parallel
|
||||
elsif ! val.index("&").nil?
|
||||
p = JobsInParallel.new
|
||||
p.par = Array.new
|
||||
val.scan(/[^&][^&]*/) { |sub| p.par << parse_flowcall(sub) }
|
||||
$flowfunction[function] = p
|
||||
|
||||
# jobs in sequence
|
||||
elsif ! val.index("|").nil?
|
||||
s = JobsInSequence.new
|
||||
s.seq = Array.new
|
||||
val.scan(/[^|][^|]*/) { |sub| s.seq << parse_flowcall(sub) }
|
||||
$flowfunction[function] = s
|
||||
|
||||
else
|
||||
# parsing code possibly is not yet good enoug -- sorryh
|
||||
raise ParsingFormat.new("flow file may not have empty lines")
|
||||
end
|
||||
end
|
||||
}
|
||||
end
|
||||
return all
|
||||
end
|
||||
|
||||
def parse_flowcall(s)
|
||||
jobdef = s.strip.scan(/[^()][^()]*/)
|
||||
key = jobdef[0].strip
|
||||
vars = var_list(jobdef[1])
|
||||
return [ key, vars ]
|
||||
end
|
||||
|
||||
|
||||
# ------------------------------------------------------------------------------------------
|
||||
# At end of parsing stage there is one FlowJob for each job to be run.
|
||||
# The FlowJob also keeps state information, dependency information and
|
||||
# job finish information.
|
||||
|
||||
class FlowJob
|
||||
# configuration
|
||||
attr_accessor :attrs, :depend
|
||||
# state information
|
||||
attr_accessor :jobid, :info
|
||||
def initialize(depend, attrs)
|
||||
@depend = depend
|
||||
@attrs = attrs
|
||||
end
|
||||
# -- verification
|
||||
def verify(key)
|
||||
cmd = false
|
||||
@attrs.each { |a|
|
||||
name = a[0]
|
||||
value = a[1]
|
||||
if value.index('$')
|
||||
raise ParsingFunction.new("#{key}: #{name}=#{value} contains \"$\"")
|
||||
end
|
||||
case name
|
||||
when "cmd"
|
||||
if value.index('/') == 0
|
||||
if ! File.executable?(value)
|
||||
raise ParsingFunction.new("#{key}: cmd=#{value} must be executable")
|
||||
end
|
||||
else
|
||||
if executable_cmd(value).nil?
|
||||
raise ParsingFunction.new("#{key}: could't find cmd=#{value} in CMDPATH")
|
||||
end
|
||||
end
|
||||
cmd = true
|
||||
when "join", "nomail"
|
||||
true_or_false?(key, name, value)
|
||||
when "args", "name", "nat", "cat", "wd", "in", "out", "err", "join", "trans", "mail"
|
||||
else
|
||||
# bug: must use DRMAA.get_attribute_names() to detect use of invalid attributes
|
||||
raise ParsingFunction.new("#{key}: unknown attribute \"#{name}\"")
|
||||
end
|
||||
}
|
||||
if !cmd
|
||||
raise ParsingFunction.new("#{key}: missing mandatory attribute \"cmd\"")
|
||||
end
|
||||
end
|
||||
def presubproc(job_key)
|
||||
if defined? FlowRC.presubmit_proc
|
||||
FlowRC.presubmit_proc(job_key, @attrs)
|
||||
end
|
||||
end
|
||||
def executable_cmd(cmd)
|
||||
path = nil
|
||||
$CMDPATH.each { |p|
|
||||
if File.executable?(p + "/" + cmd)
|
||||
path = p + "/" + cmd
|
||||
break
|
||||
end
|
||||
}
|
||||
return path
|
||||
end
|
||||
def true_or_false?(key, name, value)
|
||||
case value
|
||||
when "0", "false", "no", "n"
|
||||
return false
|
||||
when "1", "true", "yes", "y"
|
||||
return true
|
||||
else
|
||||
raise ParsingFunction.new("#{key}: \"#{name}=#{value}\" is neither \"true\" nor \"false\"")
|
||||
end
|
||||
end
|
||||
|
||||
def submit(key, predecessors)
|
||||
if $MAX_JOBS != 0 and $jobs_in_drm == $MAX_JOBS
|
||||
return false
|
||||
end
|
||||
jt = DRMAA::JobTemplate.new
|
||||
|
||||
# job defaults
|
||||
jt.name = key # flow job name
|
||||
if $flowdir.nil?
|
||||
jt.wd = $wd
|
||||
jt.stdout = ":/dev/null"
|
||||
jt.join = true
|
||||
else
|
||||
jt.wd = $flowdir
|
||||
jt.stdout = ":#{$flowdir}/#{key}.o"
|
||||
jt.stderr = ":#{$flowdir}/#{key}.e"
|
||||
jt.join = false
|
||||
end
|
||||
|
||||
native = nil
|
||||
|
||||
attrs.each { |a|
|
||||
name = a[0]
|
||||
value = a[1]
|
||||
case name
|
||||
when "cmd"
|
||||
if value.index("/") == 0
|
||||
jt.command = value
|
||||
else
|
||||
jt.command = executable_cmd(value)
|
||||
end
|
||||
when "args"
|
||||
jt.arg = value.split(" ")
|
||||
when "env"
|
||||
jt.env = value.split(",")
|
||||
when "name"
|
||||
jt.name = value
|
||||
when "nat"
|
||||
native = value
|
||||
when "cat"
|
||||
jt.category = value
|
||||
when "hold"
|
||||
# careful! hold is used by flow itself
|
||||
# jt.hold = true_or_false?(key, name, value)
|
||||
when "wd"
|
||||
jt.wd = value
|
||||
when "in"
|
||||
jt.stdin = value
|
||||
when "out"
|
||||
jt.stdout = value
|
||||
when "err"
|
||||
jt.stderr = value
|
||||
when "join"
|
||||
jt.join = true_or_false?(key, name, value)
|
||||
when "trans"
|
||||
jt.transfer = value
|
||||
|
||||
when "mail"
|
||||
jt.mail = value.split(",")
|
||||
when "nomail"
|
||||
jt.block_mail = true_or_false?(key, name, value)
|
||||
end
|
||||
}
|
||||
|
||||
if ! predecessors.nil?
|
||||
if $drm_depend
|
||||
if native.nil?
|
||||
jt.native = "-hold_jid " + predecessors
|
||||
else
|
||||
jt.native = native + " -hold_jid " + predecessors
|
||||
end
|
||||
else
|
||||
jt.hold = true
|
||||
jt.native = native unless native.nil?
|
||||
end
|
||||
else
|
||||
jt.native = native unless native.nil?
|
||||
end
|
||||
|
||||
begin
|
||||
jobid = $session.run(jt)
|
||||
$already_submitted += 1
|
||||
$last_submission = Time.now
|
||||
@jobid = jobid
|
||||
if ! predecessors.nil?
|
||||
puts "#{key} " + jobid + " submitted depending on " + predecessors
|
||||
else
|
||||
puts "#{key} " + jobid + " submitted"
|
||||
end
|
||||
rescue DRMAA::DRMAATryLater
|
||||
STDERR.puts "... try later (#{key})"
|
||||
return false
|
||||
end
|
||||
$jobs_in_drm += 1
|
||||
return true
|
||||
end
|
||||
|
||||
# true, if all predecessors done
|
||||
def is_due?
|
||||
return true if @depend.nil?
|
||||
|
||||
self.depend.each { |key|
|
||||
info = $flowjob[key].info
|
||||
if info.nil?
|
||||
return false # not yet finished
|
||||
end
|
||||
if ! info.wifexited? or info.wexitstatus != 0
|
||||
return false # failed
|
||||
end
|
||||
}
|
||||
|
||||
return true
|
||||
end
|
||||
|
||||
def can_submit
|
||||
# now --> [0, jobids]
|
||||
# later --> [1, nil]
|
||||
# never --> [2, nil]
|
||||
r = 0
|
||||
jobids = nil
|
||||
self.depend.each { |key|
|
||||
node = $flowjob[key]
|
||||
|
||||
info = node.info
|
||||
if ! info.nil?
|
||||
if !info.wifexited? or info.wexitstatus != 0
|
||||
return [ 2, nil] # failed
|
||||
else
|
||||
next # done
|
||||
end
|
||||
end
|
||||
|
||||
jobid = node.jobid
|
||||
if jobid.nil?
|
||||
r = 1 # predecessor not yet submitted
|
||||
else
|
||||
# collect jobids
|
||||
if jobids.nil?
|
||||
jobids = jobid
|
||||
else
|
||||
jobids += "," + jobid
|
||||
end
|
||||
end
|
||||
}
|
||||
if r == 1
|
||||
return [1,nil]
|
||||
else
|
||||
return [0,jobids]
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
# ------------------------------------------------------------------------------------------
|
||||
# The functions below are used by main to run the workflow and cause
|
||||
# successor jobs be submitted/released once they are due.
|
||||
|
||||
# Workflow optimization requires job be submitted in order
|
||||
# pass (1): jobs without predecessors or with all predecessors run
|
||||
# pass (2): jobs whose predecessors are submitted
|
||||
# aims is as broad as possible flow submission.
|
||||
def submit_jobs(flush)
|
||||
|
||||
if $flowjob.size == $already_submitted or $terminate_session
|
||||
# STDERR.puts "all jobs submitted"
|
||||
return true # all submitted
|
||||
end
|
||||
|
||||
if ! flush
|
||||
if $last_submission != 0 and (Time.now - $last_submission) < $STREAMING_RETRY
|
||||
# puts "... retry not yet reached"
|
||||
return false # retry not yet reached
|
||||
end
|
||||
end
|
||||
|
||||
# STDERR.puts "1st pass"
|
||||
$flowjob.each_pair { |key,fj|
|
||||
next if ! fj.jobid.nil? # already submitted
|
||||
next if ! fj.info.nil? # already finished
|
||||
|
||||
# all predecessors done
|
||||
next if ! fj.is_due?
|
||||
|
||||
if ! fj.submit(key, nil)
|
||||
return false # try again
|
||||
end
|
||||
|
||||
if $terminate_program
|
||||
exit 1
|
||||
elsif $terminate_session
|
||||
terminate()
|
||||
return true
|
||||
end
|
||||
}
|
||||
|
||||
begin
|
||||
# STDERR.puts "2nd pass"
|
||||
all_submitted = true
|
||||
|
||||
$flowjob.each_pair { |key,fj|
|
||||
next if ! fj.jobid.nil? # already submitted
|
||||
next if ! fj.info.nil? # already finished
|
||||
|
||||
# analyze predecessors
|
||||
status = fj.can_submit()
|
||||
if status[0] != 0
|
||||
all_submitted = false if status[0] == 1
|
||||
next
|
||||
end
|
||||
predecessors = status[1]
|
||||
|
||||
if ! fj.submit(key, predecessors)
|
||||
return false # try again
|
||||
end
|
||||
|
||||
if $terminate_program
|
||||
exit 1
|
||||
elsif $terminate_session
|
||||
terminate()
|
||||
return true
|
||||
end
|
||||
}
|
||||
end until all_submitted
|
||||
|
||||
return true # all submitted
|
||||
end
|
||||
|
||||
def reap_jobs
|
||||
|
||||
$session.wait_each(1) { |info|
|
||||
|
||||
# delete workflow upon user interrupt
|
||||
if $terminate_program
|
||||
exit 1
|
||||
elsif $terminate_session
|
||||
terminate()
|
||||
end
|
||||
|
||||
# nothing happend
|
||||
if info.nil?
|
||||
submit_jobs(false)
|
||||
next
|
||||
end
|
||||
$jobs_in_drm -= 1
|
||||
|
||||
# interpret job finish information
|
||||
if info.wifaborted?
|
||||
failed = true
|
||||
happend = "aborted"
|
||||
caused = "terminated"
|
||||
elsif info.wifsignaled?
|
||||
failed = true
|
||||
happend = "died from " + info.wtermsig
|
||||
happend += " (core dump)" if info.wcoredump?
|
||||
caused = "terminated"
|
||||
elsif info.wifexited?
|
||||
exit_status = info.wexitstatus
|
||||
if exit_status != 0
|
||||
failed = true
|
||||
happend = "exited with " + exit_status.to_s
|
||||
caused = "terminated"
|
||||
else
|
||||
failed = false
|
||||
happend = "done"
|
||||
caused = "released"
|
||||
end
|
||||
end
|
||||
|
||||
# search flow job
|
||||
job_key = nil
|
||||
fjob = nil
|
||||
$flowjob.each_pair { |k,v|
|
||||
if v.jobid.nil?
|
||||
next
|
||||
end
|
||||
if v.jobid == info.job
|
||||
job_key = k
|
||||
fjob = v
|
||||
break
|
||||
end
|
||||
}
|
||||
if fjob.nil?
|
||||
puts "missing flow job for finished job " + info.job
|
||||
exit 1
|
||||
end
|
||||
|
||||
# mark flow job as done
|
||||
fjob.info = info
|
||||
fjob.jobid = nil
|
||||
|
||||
trigger = Array.new
|
||||
if ! $terminate_session
|
||||
# drive conclusions
|
||||
$flowjob.each_pair { |k,v|
|
||||
# finished and non-blocked ones: skip
|
||||
next if ! v.info.nil? or v.depend.nil? or v.jobid.nil?
|
||||
# dependend to others: skip
|
||||
next if ! v.depend.include?(job_key)
|
||||
|
||||
if failed
|
||||
begin
|
||||
$session.terminate(v.jobid)
|
||||
rescue DRMAA::DRMAAInvalidJobError
|
||||
end
|
||||
trigger << v.jobid
|
||||
else
|
||||
do_rls = true
|
||||
v.depend.each { |k|
|
||||
do_rls = false if $flowjob[k].info.nil?
|
||||
}
|
||||
if do_rls and ! $drm_depend
|
||||
$session.release(v.jobid)
|
||||
trigger << v.jobid
|
||||
end
|
||||
end
|
||||
}
|
||||
end
|
||||
|
||||
# report what happend
|
||||
if trigger.size == 0
|
||||
puts "#{job_key} #{info.job} " + happend
|
||||
else
|
||||
puts "#{job_key} #{info.job} " + happend + " " + caused + " " + comma_jobs(trigger, ", ")
|
||||
end
|
||||
|
||||
submit_jobs(false)
|
||||
}
|
||||
end
|
||||
|
||||
# show final statistics
|
||||
def final_report
|
||||
nfailed = 0
|
||||
nrun = 0
|
||||
nnotrun = 0
|
||||
|
||||
rusage = Hash.new
|
||||
$flowjob.each_pair { |k,v|
|
||||
if v.info.nil?
|
||||
nnotrun += 1
|
||||
next
|
||||
end
|
||||
if ! v.info.wifexited? or v.info.wexitstatus != 0
|
||||
nfailed += 1
|
||||
else
|
||||
nrun += 1
|
||||
end
|
||||
usage = v.info.rusage
|
||||
next if usage.nil?
|
||||
usage.each_pair { |name,value|
|
||||
if $USAGE_REPORT.include?(name)
|
||||
if ! rusage.has_key?(name)
|
||||
rusage[name] = value.to_f
|
||||
else
|
||||
rusage[name] += value.to_f
|
||||
end
|
||||
end
|
||||
}
|
||||
}
|
||||
puts "# ---- final report"
|
||||
rusage.each_pair { |name,value|
|
||||
printf("usage: #{name} = %-7.2f\n", value)
|
||||
}
|
||||
puts "run: #{nrun} failed: #{nfailed} notrun: #{nnotrun}"
|
||||
end
|
||||
|
||||
def terminate
|
||||
if ! $did_terminate
|
||||
STDERR.puts "Terminate!"
|
||||
$session.terminate
|
||||
$did_terminate = true
|
||||
end
|
||||
end
|
||||
|
||||
def handle_signal
|
||||
if ! $terminate_session
|
||||
$terminate_session = true
|
||||
elsif ! $terminate_program
|
||||
$terminate_program = true
|
||||
end
|
||||
end
|
||||
|
||||
def usage(ret)
|
||||
if ret == 0
|
||||
out = STDOUT
|
||||
else
|
||||
out = STDERR
|
||||
end
|
||||
out.puts "usage: flow.rb [options] workflow.ff [start]"
|
||||
out.puts " options: -verify only parse and verify the flow"
|
||||
out.puts " -dd use DRM dependencies"
|
||||
out.puts " -flowdir <path> flowdir is used as defaults"
|
||||
out.puts " start: <flowcall> --> TEST or TEST($arch=solaris)"
|
||||
exit ret
|
||||
end
|
||||
|
||||
# ------------------------------------------------------------------------------------------
|
||||
# main
|
||||
|
||||
# use defaults
|
||||
# (1) from ./.flowrc.rb
|
||||
# (2) from $HOME/.flowrc.rb
|
||||
# (3) or built-in ones
|
||||
|
||||
read_rc_file = false
|
||||
if FileTest.exist?('.flowrc.rb')
|
||||
require '.flowrc'
|
||||
read_rc_file = true
|
||||
elsif FileTest.exist?(ENV["HOME"] + "/.flowrc.rb")
|
||||
require ENV["HOME"] + "/.flowrc.rb"
|
||||
read_rc_file = true
|
||||
end
|
||||
|
||||
if ! read_rc_file
|
||||
$CMDPATH = Dir::getwd()
|
||||
$STREAMING_RETRY = 5
|
||||
$USAGE_REPORT = [ ]
|
||||
$MAX_JOBS = 0
|
||||
else
|
||||
$CMDPATH = FlowRC::CMDPATH
|
||||
$STREAMING_RETRY = FlowRC::STREAMING_RETRY
|
||||
$USAGE_REPORT = FlowRC::USAGE_REPORT
|
||||
$MAX_JOBS = FlowRC::MAX_JOBS
|
||||
end
|
||||
|
||||
# The flowdir is used in a number of cases to have reasonable
|
||||
# defaults. Thus it makes some difference if flowdir was
|
||||
# specified or not:
|
||||
#
|
||||
# wd (drmaa_wd)
|
||||
# The flowdir is used as jobs' default working directory.
|
||||
# Without flowdir the current working directory is simply
|
||||
# used. Though each jobs' working directory can also be
|
||||
# specified within the flowfile, but if they have to that
|
||||
# would make them harder to read by humans.
|
||||
#
|
||||
# out/err/join (drmaa- stdout_path/stderr_path/join)
|
||||
# Without flowdir "/dev/null" is used as default for 'out'
|
||||
# and 'join' is true. Reason is there were no better
|
||||
# default to store job output/error files than the
|
||||
# current working directory, but if that were used
|
||||
# it might incidentally happen that masses of job
|
||||
# output files are dumped in some directory. If flowdir
|
||||
# was specified at command line it is used as default
|
||||
# for storing job output and error separately in
|
||||
# $flowdir/<flowjobname>.o and $flowdir/<flowjobname>.o.
|
||||
#
|
||||
# cmd (drmaa_remote_command)
|
||||
# args (drmaa_argv)
|
||||
# env (drmaa_env)
|
||||
|
||||
|
||||
$parse_only = false
|
||||
$drm_depend = false
|
||||
$flowdir = nil
|
||||
|
||||
# command line parsing
|
||||
while ARGV.length >= 2 do
|
||||
case ARGV[0]
|
||||
when "-verify"
|
||||
$parse_only = true
|
||||
ARGV.shift
|
||||
when "-dd"
|
||||
$drm_depend = true
|
||||
ARGV.shift
|
||||
when "-flowdir"
|
||||
ARGV.shift
|
||||
usage(1) if $flowdir or ARGV.length < 2
|
||||
$flowdir = ARGV[0]
|
||||
ARGV.shift
|
||||
when "-h", "-help"
|
||||
usage 0
|
||||
else
|
||||
break
|
||||
end
|
||||
end
|
||||
if ARGV.length >= 1
|
||||
flowfile=ARGV.shift
|
||||
if ! FileTest.readable?(flowfile)
|
||||
STDERR.puts flowfile + " does not exit"
|
||||
exit 1
|
||||
end
|
||||
else
|
||||
usage(1)
|
||||
end
|
||||
if ARGV.length == 1
|
||||
target = parse_flowcall(ARGV.shift)
|
||||
end
|
||||
usage(1) unless ARGV.length == 0
|
||||
|
||||
# flow parsing and verification
|
||||
begin
|
||||
$wd = Dir::getwd
|
||||
|
||||
$flowfunction = Hash.new
|
||||
all = parse_flow(flowfile)
|
||||
j = $flowfunction[all]
|
||||
|
||||
$flowjob = Hash.new
|
||||
$not_selected = 0
|
||||
target = parse_flowcall(all) if target.nil?
|
||||
j.make(all, vars = Hash.new, nil, 0, target)
|
||||
if $flowjob.size == 0
|
||||
raise ParsingFormat.new("flow start \"#{target[0]}\" does not exist in #{flowfile}")
|
||||
end
|
||||
puts "---+ doing #{$flowjob.size} of #{$flowjob.size+$not_selected} jobs with #{target[0]} as flow target"
|
||||
|
||||
STDOUT.flush
|
||||
exit 0 if $parse_only
|
||||
rescue ParsingFunction => msg
|
||||
STDERR.puts "Error in " + msg
|
||||
exit 1
|
||||
rescue ParsingFormat => msg
|
||||
STDERR.puts "Format error: " + msg
|
||||
exit 1
|
||||
end
|
||||
|
||||
# run the workflow
|
||||
t1 = Time.now
|
||||
begin
|
||||
$terminate_session = $terminate_program = false
|
||||
trap("INT") { handle_signal }
|
||||
trap("TERM") { handle_signal }
|
||||
|
||||
$session = DRMAA::Session.new
|
||||
# puts "# ----- submitting jobs"
|
||||
$already_submitted = $last_submission = 0
|
||||
$jobs_in_drm = 0
|
||||
|
||||
# May not stop reaping before all jobs
|
||||
# are submitted in case of streaming.
|
||||
first = true
|
||||
begin
|
||||
all_reaped = false
|
||||
all_submitted = submit_jobs(true)
|
||||
if first
|
||||
# puts "# ----- reaping jobs"
|
||||
first = false
|
||||
else
|
||||
if all_submitted
|
||||
all_reaped = true
|
||||
else
|
||||
sleep $STREAMING_RETRY
|
||||
end
|
||||
end
|
||||
reap_jobs()
|
||||
end until all_reaped
|
||||
|
||||
rescue DRMAA::DRMAAException => msg
|
||||
puts msg
|
||||
exit 1
|
||||
end
|
||||
|
||||
final_report()
|
||||
|
||||
t2 = Time.now
|
||||
printf("total: %7.1f seconds\n", t2-t1)
|
||||
exit 0
|
@ -1,46 +0,0 @@
|
||||
== Sample flowfiles
|
||||
|
||||
The samples comprise four different flowfiles
|
||||
|
||||
* tiny.ff (one single job)
|
||||
* small.ff (29 jobs)
|
||||
* large.ff (780 jobs)
|
||||
* huge.ff (>40000 jobs)
|
||||
|
||||
== Sample jobs
|
||||
|
||||
The flow require a number of job scripts
|
||||
|
||||
* do_make
|
||||
* do_test
|
||||
* do_inst
|
||||
* do_uninst
|
||||
* do_final
|
||||
* do_report
|
||||
|
||||
each of which simply does a sleep.
|
||||
|
||||
== Pre-submission procedure
|
||||
|
||||
In addition a sample .flowrc.rb file can be found. Besides
|
||||
a couple of parameters it contains a pre-submission procedure.
|
||||
|
||||
== Assumptions according the DRM setup
|
||||
|
||||
Note: For running the flows it is necessary to configure
|
||||
the DRM in a way that
|
||||
|
||||
-q gridware.q
|
||||
-q irix.q
|
||||
-q solaris.q
|
||||
-q linux.q
|
||||
-q darwin.q
|
||||
|
||||
and
|
||||
|
||||
-P fast (.flowrc.rb)
|
||||
|
||||
can be passed as "nat" (i.e. "drmaa_native_specification").
|
||||
|
||||
Yet as a matter of course the set-up requirements easily can
|
||||
be changed, if the sample files are modified accordingly.
|
@ -1,8 +0,0 @@
|
||||
#!/bin/sh
|
||||
me=`basename $0`
|
||||
echo "# -- args $* -- #"
|
||||
echo "# -- starting $me -- #"
|
||||
sleep 1
|
||||
ret=$?
|
||||
echo "# -- finished $me -- #"
|
||||
exit $ret
|
@ -1,8 +0,0 @@
|
||||
#!/bin/sh
|
||||
me=`basename $0`
|
||||
echo "# -- args $* -- #"
|
||||
echo "# -- starting $me -- #"
|
||||
sleep $1
|
||||
ret=$?
|
||||
echo "# -- finished $me -- #"
|
||||
exit $ret
|
@ -1,8 +0,0 @@
|
||||
#!/bin/sh
|
||||
me=`basename $0`
|
||||
echo "# -- args $* -- #"
|
||||
echo "# -- starting $me -- #"
|
||||
sleep 1
|
||||
ret=$?
|
||||
echo "# -- finished $me -- #"
|
||||
exit $ret
|
@ -1,8 +0,0 @@
|
||||
#!/bin/sh
|
||||
me=`basename $0`
|
||||
echo "# -- args $* -- #"
|
||||
echo "# -- starting $me -- #"
|
||||
sleep 1
|
||||
ret=$?
|
||||
echo "# -- finished $me -- #"
|
||||
exit $ret
|
@ -1,8 +0,0 @@
|
||||
#!/bin/sh
|
||||
me=`basename $0`
|
||||
echo "# -- args $* -- #"
|
||||
echo "# -- starting $me -- #"
|
||||
sleep 1
|
||||
ret=$?
|
||||
echo "# -- finished $me -- #"
|
||||
exit $ret
|
@ -1,8 +0,0 @@
|
||||
#!/bin/sh
|
||||
me=`basename $0`
|
||||
echo "# -- args $* -- #"
|
||||
echo "# -- starting $me -- #"
|
||||
sleep $1
|
||||
ret=$?
|
||||
echo "# -- finished $me -- #"
|
||||
exit $ret
|
@ -1,36 +0,0 @@
|
||||
# ------------------------------------------------------------------------------------------
|
||||
ALL = ALLFLOWS | REPORT
|
||||
ALLFLOWS = FLOW($arch=solaris) & FLOW($arch=linux) & FLOW($arch=irix) & FLOW($arch=darwin)
|
||||
FLOW = BUILD | INST | TESTS | FINAL
|
||||
# ------------------------------------------------------------------------------------------
|
||||
BUILD = { cmd=do_make, nat=-q $arch.q, args= 5 }
|
||||
INST = { cmd=do_inst, nat=-q gridware.q, args=4 -local -bin $arch, name=I$arch }
|
||||
TESTS = SEVEN & SEVEN & SEVEN & SEVEN
|
||||
SEVEN = DAY($day=mon) & DAY($day=tue) & DAY($day=wed) & DAY($day=thu) & DAY($day=fri) & DAY($day=sat) & DAY($day=sun)
|
||||
DAY = T & T & T & T
|
||||
T = S1 & S2 & S3 & S4 & S1 & S2 & S3 & S4
|
||||
S1 = TT1 | TT2 | TT3
|
||||
S2 = TT1 | TT2 | TT3
|
||||
S3 = TT1 | TT2 | TT3
|
||||
S4 = TT1 | TT2 | TT3
|
||||
TT1 = T1 & T2 & T3 & T4
|
||||
TT2 = T1 & T2 & T3 & T4
|
||||
TT3 = T1 & T2 & T3 & T4
|
||||
TT4 = T1 & T2 & T3 & T4
|
||||
TT5 = T1 & T2 & T3 & T4
|
||||
T1 = { cmd=do_test, nat= -q $arch.q, args=1, args=$day }
|
||||
T2 = { cmd=do_test, nat= -q $arch.q, args=2, args=$day }
|
||||
T3 = { cmd=do_test, nat= -q $arch.q, args=3, args=$day }
|
||||
T4 = { cmd=do_test, nat= -q $arch.q, args=4, args=$day }
|
||||
FINAL = { cmd=do_final, nat=-q $arch.q, name=FIN$arch }
|
||||
# ------------------------------------------------------------------------------------------
|
||||
REPORT = LANG($whom=engineering) & LANG($whom=markting) & LANG($whom=sales)
|
||||
LANG = RR1($lang=ger) & RR2($lang=eng) & RR3($lang=jap)
|
||||
RR1 = R1($size=1G) | R2($size=2G) | R3($size=4G)
|
||||
RR2 = R1($size=1G) | R2($size=2G) | R3($size=4G)
|
||||
RR3 = R1($size=1G) | R2($size=2G) | R3($size=4G)
|
||||
R1 = R($format=html) & R($format=wiki) & R($format=pdf) & R($format=soffice )
|
||||
R2 = R($format=html) & R($format=wiki) & R($format=pdf) & R($format=soffice )
|
||||
R3 = R($format=html) & R($format=wiki) & R($format=pdf) & R($format=soffice )
|
||||
R = { cmd=do_report, nat=-q gridware.q, args=$lang $size $format }
|
||||
# ------------------------------------------------------------------------------------------
|
@ -1,21 +0,0 @@
|
||||
# ------------------------------------------------------------------------------------------
|
||||
ALL = FLOW($arch=solaris) & FLOW($arch=linux) & FLOW($arch=irix) & FLOW($arch=darwin)
|
||||
FLOW = BUILD | INST | TESTS | FINAL
|
||||
TESTS = T & T & T & T
|
||||
T = S1 & S2 & S3 & S4
|
||||
S1 = TT1 | TT2 | TT3
|
||||
S2 = TT1 | TT2 | TT3
|
||||
S3 = TT1 | TT2 | TT3
|
||||
S4 = TT1 | TT2 | TT3
|
||||
TT1 = T1 & T2 & T3 & T4
|
||||
TT2 = T1 & T2 & T3 & T4
|
||||
TT3 = T1 & T2 & T3 & T4
|
||||
# ------------------------------------------------------------------------------------------
|
||||
BUILD = { cmd=do_make, nat=-q $arch.q, args=5 }
|
||||
INST = { cmd=do_inst, nat = -q gridware.q, args=1 -local -bin $arch, name=I$arch }
|
||||
FINAL = { cmd=do_final, name=FIN$arch, args=1 }
|
||||
T1 = { cmd=do_test, nat= -q $arch.q, args=1 }
|
||||
T2 = { cmd=do_test, nat= -q $arch.q, args=2 }
|
||||
T3 = { cmd=do_test, nat= -q $arch.q, args=3 }
|
||||
T4 = { cmd=do_test, nat= -q $arch.q, args=4 }
|
||||
# ------------------------------------------------------------------------------------------
|
@ -1,15 +0,0 @@
|
||||
# ------------------------------------------------------------------------------------------
|
||||
ALL = ALLFLOWS | REPORT
|
||||
# ------------------------------------------------------------------------------------------
|
||||
ALLFLOWS = FLOW($arch=darwin) & FLOW($arch=linux) & FLOW($arch=irix) & FLOW($arch=solaris)
|
||||
FLOW = BUILD | INST | TESTS | FINAL
|
||||
TESTS = T1 & T2 & T3 & T4
|
||||
# ------------------------------------------------------------------------------------------
|
||||
BUILD = { cmd=do_make, nat=-q $arch.q, args=5 }
|
||||
INST = { cmd=do_inst, nat=-q gridware.q, args=1 -local -bin $arch, name=I$arch }
|
||||
FINAL = { cmd=do_uninst, nat=-q $arch.q, args=1, name=FIN$arch }
|
||||
T1 = { cmd=do_test, nat = -q $arch.q, args = 1 }
|
||||
T2 = { cmd=do_test, nat = -q $arch.q, args = 2 }
|
||||
T3 = { cmd=do_test, nat = -q $arch.q, args = 3 }
|
||||
T4 = { cmd=do_test, nat = -q $arch.q, args = 4 }
|
||||
REPORT = { cmd=do_report }
|
@ -1 +0,0 @@
|
||||
TEST = {cmd=do_test, args=-w 15}
|
@ -1,66 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
|
||||
require 'drmaa'
|
||||
|
||||
if ARGV.length < 1
|
||||
puts "usage: sig.rb <job-path> <args>"
|
||||
exit 1
|
||||
end
|
||||
|
||||
s = DRMAA::Session.new
|
||||
|
||||
t = DRMAA::JobTemplate.new
|
||||
t.command = ARGV[0]
|
||||
ARGV.shift
|
||||
t.arg = ARGV
|
||||
t.stdout = ":/dev/null"
|
||||
t.join = true
|
||||
|
||||
job = s.run(t)
|
||||
|
||||
puts "job: " + job
|
||||
|
||||
info = s.wait(job)
|
||||
|
||||
if info.wifexited?
|
||||
puts info.job + " returned with " + info.wexitstatus.to_s
|
||||
elsif info.wifsignaled?
|
||||
if info.wcoredump?
|
||||
puts info.job + " returned died from " + info.wtermsig.to_s + " (core dumped)"
|
||||
else
|
||||
puts info.job + " returned died from " + info.wtermsig.to_s
|
||||
end
|
||||
elsif info.wifaborted?
|
||||
puts "aborted: " + info.job
|
||||
end
|
||||
info.rusage.each_pair { |name,value| puts "usage " + name + " " + value }
|
@ -1,99 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
|
||||
|
||||
require 'drmaa'
|
||||
|
||||
class Sleeper < DRMAA::JobTemplate
|
||||
def initialize
|
||||
super
|
||||
self.command = "/bin/sleep"
|
||||
self.arg = ["1"]
|
||||
self.stdout = ":/dev/null"
|
||||
self.join = true
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
$terminate_session = $terminate_program = false
|
||||
def handle_signal
|
||||
if ! $terminate_session
|
||||
$terminate_session = true
|
||||
elsif ! $terminate_program
|
||||
$terminate_program = true
|
||||
end
|
||||
end
|
||||
trap("INT") { handle_signal }
|
||||
trap("TERM") { handle_signal }
|
||||
|
||||
session = DRMAA::Session.new
|
||||
|
||||
# causes DRMAA::Session:run() and DRMAA::Session:run_bulk()
|
||||
# to sleep and retry in case of DRMAA::DRMAATryAgain.
|
||||
# That way we implement job streaming.
|
||||
session.retry = 5
|
||||
|
||||
t = Sleeper.new
|
||||
|
||||
jobs = Array.new
|
||||
for i in 1 .. 20 do
|
||||
job = session.run(t)
|
||||
puts "job: " + job
|
||||
jobs << job
|
||||
break if $terminate_session
|
||||
end
|
||||
for i in 1 .. 10
|
||||
bulk = session.run_bulk(t, 1, 2)
|
||||
bulk.each { |job| puts "job: " + job }
|
||||
jobs += bulk
|
||||
break if $terminate_session
|
||||
end
|
||||
|
||||
while jobs.size > 0 do
|
||||
info = session.wait_any(1)
|
||||
if ! info.nil?
|
||||
if ! info.wifexited?
|
||||
puts "failed: " + info.job
|
||||
else
|
||||
puts info.job + " returned with " + info.wexitstatus.to_s
|
||||
end
|
||||
jobs.delete(info.job)
|
||||
else
|
||||
if $terminate_program
|
||||
jobs.clear
|
||||
elsif $terminate_session
|
||||
session.terminate
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
exit 0
|
@ -1,9 +0,0 @@
|
||||
#!/bin/sh
|
||||
./example.rb && ./array.rb && ./sig.rb /bin/sleep 1 && ./stream_and_trap.rb && ./threads.rb && ./attributes.rb
|
||||
ret=$?
|
||||
if [ $ret -ne 0 ]; then
|
||||
echo "##### failed #####"
|
||||
else
|
||||
echo "##### success #####"
|
||||
fi
|
||||
exit $ret
|
@ -1,80 +0,0 @@
|
||||
#!/usr/bin/ruby
|
||||
|
||||
#########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2006
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2006 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
#########################################################################
|
||||
|
||||
require 'drmaa'
|
||||
require 'thread'
|
||||
|
||||
class Sleeper < DRMAA::JobTemplate
|
||||
def initialize
|
||||
super
|
||||
self.command = "/bin/sleep"
|
||||
self.arg = ["1"]
|
||||
self.stdout = ":/dev/null"
|
||||
self.join = true
|
||||
end
|
||||
end
|
||||
|
||||
# Submit a bunch of jobs from a number of threads
|
||||
# and wait for them in main thread.
|
||||
#
|
||||
# Note: Ruby threads are not identical with operating
|
||||
# system threads.
|
||||
|
||||
version = DRMAA.version
|
||||
drm = DRMAA.drm_system
|
||||
puts "DRMAA #{drm} v #{version}"
|
||||
|
||||
session = DRMAA::Session.new
|
||||
t = Sleeper.new
|
||||
|
||||
i = 0
|
||||
while i<4 do
|
||||
Thread.start do
|
||||
j = 0
|
||||
while j<20 do
|
||||
puts "job: " + session.run(t)
|
||||
j += 1
|
||||
end
|
||||
end
|
||||
i += 1
|
||||
end
|
||||
|
||||
session.wait_each{ |info|
|
||||
job = info.job
|
||||
if ! info.wifexited?
|
||||
puts "failed: " + info.job
|
||||
else
|
||||
puts info.job + " returned with " + info.wexitstatus.to_s
|
||||
end
|
||||
}
|
||||
|
||||
exit 0
|
@ -1,106 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
#
|
||||
# This sample consists of three scripts belonging toghether
|
||||
#
|
||||
# array_submitter.sh
|
||||
# step_A_array_submitter.sh
|
||||
# step_B_array_submitter.sh
|
||||
#
|
||||
# The number <n> passed as an argument to the interactively started
|
||||
# array_submitter.sh is used to specify the the size of the two array
|
||||
# jobs step_A_array_submitter.sh/step_B_array_submitter.sh which are
|
||||
# submitted. Each single job of array job B is not scheduled before
|
||||
# array job A has not passed the section where qalter is used to release
|
||||
# the succesor task. Refer to qsub(1) for more information about array
|
||||
# jobs.
|
||||
#
|
||||
# This is a typical scenario in DCC industry where schemes like this
|
||||
# are used to control sequence of large rendering jobs.
|
||||
# Note that it is necessary that all hosts where A jobs are started
|
||||
# must be submit hosts to allow the qalter happen.
|
||||
#
|
||||
|
||||
#$ -S /bin/sh
|
||||
|
||||
if [ x$SGE_ROOT = x ]; then
|
||||
SGE_ROOT=/usr/SGE
|
||||
fi
|
||||
if [ ! -d $SGE_ROOT ]; then
|
||||
echo "error: SGE_ROOT directory $SGE_ROOT does not exist"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
ARC=`$SGE_ROOT/util/arch`
|
||||
|
||||
QSUB=$SGE_ROOT/bin/$ARC/qsub
|
||||
QALTER=$SGE_ROOT/bin/$ARC/qalter
|
||||
|
||||
if [ ! -x $QSUB ]; then
|
||||
echo "error: cannot execute qsub command under $QSUB"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
if [ ! -x $QALTER ]; then
|
||||
echo "error: cannot execute qalter command under $QALTER"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
tasks=0
|
||||
|
||||
while [ "$1" != "" ]; do
|
||||
case "$1" in
|
||||
[0-9]*)
|
||||
tasks=$1
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
if [ $tasks = 0 ]; then
|
||||
echo "usage: array_submitter.sh <number_of_tasks>"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
# submit step A jobarray
|
||||
jobid_a=`$QSUB -t 1-$tasks -r y -N StepA $SGE_ROOT/examples/jobs/step_A_array_submitter.sh | cut -f3 -d" "|cut -f1 -d.`
|
||||
echo "submission result: jobid_a = $jobid_a"
|
||||
|
||||
# submit step B jobarray with hold state
|
||||
jobid_b=`$QSUB -t 1-$tasks -h -r y -N StepB $SGE_ROOT/examples/jobs/step_B_array_submitter.sh | cut -f3 -d" "|cut -f1 -d.`
|
||||
echo "submission result: jobid_b = $jobid_b"
|
||||
|
||||
# put jobid of step B into context of step A
|
||||
$QALTER -ac succ=$jobid_b $jobid_a
|
@ -1,36 +0,0 @@
|
||||
#!/bin/sh
|
||||
#$ -S /bin/sh
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
echo ------------------------------------
|
||||
env
|
||||
echo ------------------------------------
|
@ -1,77 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
QSUB=$SGE_ROOT/bin/$ARC/qsub
|
||||
name_base=Net
|
||||
hold=""
|
||||
jobs=5
|
||||
|
||||
while [ "$1" != "" ]; do
|
||||
case "$1" in
|
||||
-N)
|
||||
shift
|
||||
name_base=$1
|
||||
shift
|
||||
;;
|
||||
-h)
|
||||
hold=-h
|
||||
shift
|
||||
;;
|
||||
[0-9]*)
|
||||
jobs=$1
|
||||
shift
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
echo "going to submit $jobs jobs"
|
||||
|
||||
jobid=0
|
||||
REQUEST=""
|
||||
|
||||
i=1
|
||||
while [ $i -le $jobs ]; do
|
||||
if [ $i -ne 1 ]; then
|
||||
opt="-hold_jid $jobid"
|
||||
fi
|
||||
|
||||
jobid=`$QSUB $REQUEST -r y -N $name_base$i $hold $opt $SGE_ROOT/examples/jobs/sleeper.sh 10 | cut -f3 -d" "`
|
||||
if [ $i -ne 1 ]; then
|
||||
echo submitted job \#$i name = $name_base$i with jobid $jobid and $opt
|
||||
else
|
||||
echo submitted job \#$i name = $name_base$i with jobid $jobid
|
||||
fi
|
||||
i=`expr $i + 1`
|
||||
done
|
@ -1 +0,0 @@
|
||||
../../local/examples/jobs/matlab_script.sh
|
81
examples/jobs/matlab_script.sh
Executable file
81
examples/jobs/matlab_script.sh
Executable file
@ -0,0 +1,81 @@
|
||||
#!/bin/bash
|
||||
|
||||
#############################################################
|
||||
# This example produces a very simple plot and #
|
||||
# saves it as Matlab figure file and as PNG file #
|
||||
#############################################################
|
||||
|
||||
#############################################################
|
||||
# set qsub options #
|
||||
#############################################################
|
||||
# run in low.q
|
||||
#$ -l low
|
||||
|
||||
# request enough memory
|
||||
#$ -l h_vmem=8G,memory=8G,h_stack=8M
|
||||
|
||||
# request 1 matlab license.
|
||||
#$ -l matlab=1
|
||||
|
||||
# Name the job 'Matlab'
|
||||
#$ -N Matlab
|
||||
|
||||
# send e-mail after job has finished
|
||||
# use the -M option to define your e-mail address
|
||||
# #$ -M meine-email@example.org
|
||||
#$ -m e
|
||||
|
||||
# join stdout and stderr in one file
|
||||
#$ -j y
|
||||
|
||||
#############################################################
|
||||
# output hostname and date (comment out if not needed) #
|
||||
#############################################################
|
||||
echo "Runnning Matlab on host " `hostname`
|
||||
echo "Starting Matlab at " `date`
|
||||
|
||||
#############################################################
|
||||
# launch matlab #
|
||||
#############################################################
|
||||
|
||||
# run non-interactive Matlab session
|
||||
# use no display (-nodisplay)
|
||||
# don't show splash screen at startup (-nosplash)
|
||||
# don't start the matlab desktop (-nodesktop)
|
||||
# use software opengl (-softwareopengl)
|
||||
# only use single threaded computations (limit to use of 1 core, -singleCompThread)
|
||||
# execute all matlab commands between '<< END' and matching 'END'
|
||||
|
||||
# Don't forget to add 'exit' and 'END' after replacing
|
||||
# the commands with your own!
|
||||
|
||||
/opt/matlab/bin/matlab -nodisplay -nosplash -nodesktop -softwareopengl -singleCompThread << END
|
||||
|
||||
% get environment variable JOB_ID
|
||||
jobid=str2num(getenv('JOB_ID'));
|
||||
if isempty(jobid)
|
||||
jobid = 0;
|
||||
end
|
||||
|
||||
% create filenames for the figure
|
||||
filename=sprintf('matlab_figure_%d', jobid);
|
||||
|
||||
% create new empty figure and save figure handle
|
||||
fh = figure();
|
||||
|
||||
% draw plot
|
||||
plot(-pi:0.01:pi, sin(-pi:0.01:pi));
|
||||
|
||||
% save figure as matlab figure and PNG
|
||||
saveas(fh, filename, 'fig');
|
||||
saveas(fh, filename, 'png');
|
||||
|
||||
% EXIT MATLAB
|
||||
exit;
|
||||
|
||||
END
|
||||
|
||||
#############################################################
|
||||
# output date (comment out if not needed) #
|
||||
#############################################################
|
||||
echo "Matlab finnished at " `date`
|
@ -1,107 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
#
|
||||
# This is a sample script to demonstrate use of job dependencies. The
|
||||
# sample submits one job for each node in the pascal triangle:
|
||||
#
|
||||
# 1 depth 1
|
||||
# / \
|
||||
# 1 1 depth 2
|
||||
# / \ / \
|
||||
# 1 2 1 depth 3
|
||||
# / \ / \ / \
|
||||
# 1 3 3 1 depth 4
|
||||
#
|
||||
# : : : :
|
||||
#
|
||||
# Data exchange between jobs is done via files in jobnet_dir.
|
||||
#
|
||||
# Usage: pascal.sh <depth of pascal triangle>
|
||||
|
||||
jobnet_dir=$HOME/pascal_jobnet
|
||||
|
||||
if [ $# -ne 1 ]; then
|
||||
echo "usage: pascal.sh <depth of pascal triangle>" >&2
|
||||
exit 1
|
||||
fi
|
||||
n=$1
|
||||
i=1
|
||||
|
||||
mkdir $jobnet_dir
|
||||
rm $jobnet_dir/*
|
||||
|
||||
while [ $i -le $n ]; do
|
||||
j=1
|
||||
while [ $j -le $i ]; do
|
||||
prev_line=`expr $i - 1`
|
||||
|
||||
# specify own jobname
|
||||
submit_args="-N P${i}_${j}"
|
||||
|
||||
if [ $j -gt 1 -a $j -lt $i ]; then
|
||||
depend1=P${prev_line}_`expr ${j} - 1`
|
||||
depend2=P${prev_line}_${j}
|
||||
depend="$depend1 $depend2"
|
||||
submit_args="$submit_args -hold_jid $depend1,$depend2"
|
||||
elif [ $j -gt 1 ]; then
|
||||
depend=P${prev_line}_`expr ${j} - 1`
|
||||
submit_args="$submit_args -hold_jid $depend"
|
||||
elif [ $j -lt $i ]; then
|
||||
depend=P${prev_line}_${j}
|
||||
submit_args="$submit_args -hold_jid $depend"
|
||||
fi
|
||||
|
||||
echo "qsub -j y -o $jobnet_dir $submit_args -- $jobnet_dir $depend"
|
||||
qsub -r y -j y -o $jobnet_dir $submit_args -- $jobnet_dir $depend << EOF
|
||||
#!/bin/sh
|
||||
#$ -S /bin/sh
|
||||
result=0
|
||||
jobnet_dir=\$1
|
||||
shift
|
||||
while [ \$# -gt 0 ]; do
|
||||
depend=\$1
|
||||
shift
|
||||
to_add=\`cat \$jobnet_dir/DATA_\$depend\`
|
||||
result=\`expr \$result + \$to_add\`
|
||||
echo "\$REQUEST: adding \$to_add found in \$jobnet_dir/DATA_\$depend results in \$result"
|
||||
done
|
||||
if [ \$result = 0 ]; then
|
||||
result=1
|
||||
fi
|
||||
echo \$result > \$jobnet_dir/DATA_\$REQUEST
|
||||
EOF
|
||||
j=`expr $j + 1`
|
||||
done
|
||||
i=`expr $i + 1`
|
||||
done
|
@ -1 +0,0 @@
|
||||
../../local/examples/jobs/periodic_sleeper.sh
|
75
examples/jobs/periodic_sleeper.sh
Executable file
75
examples/jobs/periodic_sleeper.sh
Executable file
@ -0,0 +1,75 @@
|
||||
#!/bin/bash
|
||||
# This job script takes a nap for 10 seconds (or paramter $2) every 30 minutes (or paramter $1)
|
||||
|
||||
# SGE options
|
||||
#$ -N PSleeper
|
||||
#$ -l scf=1M,mem=100M,h_vmem=100M
|
||||
#$ -q normal.q
|
||||
#$ -cwd
|
||||
|
||||
# process args
|
||||
case "$1" in
|
||||
-h)
|
||||
echo "usage: $0 [-h | [-d] [T] [nap]]"
|
||||
echo "periodically take a nap"
|
||||
echo ""
|
||||
echo "-h print this help and exit"
|
||||
echo "-d print debug info"
|
||||
echo "T take a nap every T minutes (default: 30)"
|
||||
echo "nap take a nap for nap seconds (default: 10)"
|
||||
exit 1
|
||||
;;
|
||||
*)
|
||||
debug=0
|
||||
terse="-terse"
|
||||
debug_flag=""
|
||||
do_echo=0
|
||||
T=30
|
||||
nap=10
|
||||
while (( "$#" )); do
|
||||
case "$1" in
|
||||
-d)
|
||||
debug=1
|
||||
terse=""
|
||||
debug_flag="-d"
|
||||
do_echo=1
|
||||
;;
|
||||
*)
|
||||
T=${1:-30}
|
||||
nap=${2:-10}
|
||||
break
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
# set other variables
|
||||
next=$(date -d "${T} minutes" +%Y%m%d%H%M)
|
||||
script=/opt/SGE/examples/jobs/periodic_sleeper.sh
|
||||
|
||||
# output some informations
|
||||
if [ ${debug} -eq 1 ]; then
|
||||
echo "T = ${T}, nap=${nap}"
|
||||
echo "next run at ${next} (YYYYMMDDhhmm)"
|
||||
echo "debug_flag = ${debug_flag}, do_echo = ${do_echo}"
|
||||
echo ""
|
||||
fi
|
||||
|
||||
# commands to run in Grid Engine
|
||||
/opt/SGE/examples/jobs/sleeper.sh ${nap} ${do_echo}
|
||||
|
||||
# re-submit script to execute in T minutes
|
||||
jobid=$(qsub ${terse} -a ${next} ${script} ${debug_flag} ${T} ${nap})
|
||||
exit_code=$?
|
||||
if [ ${debug} -eq 1 ]; then
|
||||
echo "${jobid}"
|
||||
fi
|
||||
if [ ${exit_code} -ne 0 ]; then
|
||||
if [ ${debug} -eq 1 ]; then
|
||||
echo "${jobid}"
|
||||
echo "Ups, something went wrong, check output!"
|
||||
fi
|
||||
exit ${exit_code}
|
||||
fi
|
@ -1,79 +0,0 @@
|
||||
#!/bin/sh
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
#
|
||||
#
|
||||
|
||||
# -------------------------------------------
|
||||
# -- use Bourne shell --
|
||||
#$ -S /bin/sh
|
||||
# -- our name --
|
||||
#$ -N PMiniWorm
|
||||
# -------------------------------------------
|
||||
# -- send mail if the job exits abnormally --
|
||||
#$ -m a
|
||||
# -------------------------------------------
|
||||
# -- What to redirect to where --
|
||||
#$ -e /dev/null
|
||||
#$ -o /dev/null
|
||||
|
||||
QSUB=$SGE_ROOT/bin/$ARC/qsub
|
||||
SLEEP=120
|
||||
|
||||
echo using $QSUB as qsub command
|
||||
|
||||
if [ "$1" = "" ]; then
|
||||
arg=1
|
||||
else
|
||||
arg=`expr $1 + 1`
|
||||
fi
|
||||
NAME=W$arch$arg
|
||||
|
||||
# started by SGE or manually
|
||||
if [ "$JOB_ID" = "" ]; then
|
||||
echo "submitting $NAME"
|
||||
else
|
||||
sleep $SLEEP
|
||||
fi
|
||||
|
||||
# first try
|
||||
# cmd="$QSUB -N $NAME -l arch=$arch $SGE_ROOT/examples/jobs/pminiworm.sh $arg"
|
||||
cmd="$QSUB -N $NAME $SGE_ROOT/examples/jobs/pminiworm.sh $arg"
|
||||
$cmd
|
||||
|
||||
# repeat until success
|
||||
while [ "x$?" != "x0" ]; do
|
||||
echo "pminiworm.sh: qsub failed - retrying .." >&2
|
||||
sleep $SLEEP
|
||||
$cmd
|
||||
done
|
@ -1,47 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
# This is a simple example of a SGE batch script
|
||||
|
||||
# request Bourne shell as shell for job
|
||||
#$ -S /bin/sh
|
||||
|
||||
#
|
||||
# print date and time
|
||||
date
|
||||
# Sleep for 20 seconds
|
||||
sleep 20
|
||||
# print date and time again
|
||||
date
|
@ -1 +0,0 @@
|
||||
../../local/examples/jobs/simple_conda_test.sh
|
37
examples/jobs/simple_conda_test.sh
Executable file
37
examples/jobs/simple_conda_test.sh
Executable file
@ -0,0 +1,37 @@
|
||||
#! /bin/bash
|
||||
|
||||
#############################################################
|
||||
# This example show a list of availabel conda environments #
|
||||
#############################################################
|
||||
|
||||
#############################################################
|
||||
# set qsub options #
|
||||
#############################################################
|
||||
# run in low.q
|
||||
#$ -l low
|
||||
|
||||
# request enough memory
|
||||
# #$ -l h_vmem=8G,memory=8G,h_stack=8M
|
||||
|
||||
# Name the job 'Conda-Test'
|
||||
#$ -N Conda-Test
|
||||
|
||||
#############################################################
|
||||
# initialize conda #
|
||||
#############################################################
|
||||
__conda_setup="$('/opt/anaconda3/bin/conda' 'shell.bash' 'hook' 2> /dev/null)"
|
||||
if [ $? -eq 0 ]; then
|
||||
eval "$__conda_setup"
|
||||
else
|
||||
if [ -f "/opt/anaconda3/etc/profile.d/conda.sh" ]; then
|
||||
. "/opt/anaconda3/etc/profile.d/conda.sh"
|
||||
else
|
||||
export PATH="/opt/anaconda3/bin:$PATH"
|
||||
fi
|
||||
fi
|
||||
unset __conda_setup
|
||||
|
||||
#############################################################
|
||||
# show conda environments #
|
||||
#############################################################
|
||||
conda env list
|
@ -1,63 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
#
|
||||
# Usage: sleeper.sh [time [do_echo]]
|
||||
# default for time is 60 seconds
|
||||
# default for do_echo is 1 (=true)
|
||||
#
|
||||
|
||||
# -- our name ---
|
||||
#$ -N Sleeper
|
||||
#$ -S /bin/sh
|
||||
|
||||
|
||||
time=60
|
||||
do_echo=1
|
||||
if [ $# -ge 1 ]; then
|
||||
time=$1
|
||||
fi
|
||||
if [ $# -ge 2 ]; then
|
||||
do_echo=$2
|
||||
fi
|
||||
|
||||
if [ $do_echo -ne 0 ]; then
|
||||
/bin/echo Here I am: `hostname`. Sleeping now at: `date`
|
||||
fi
|
||||
|
||||
sleep $time
|
||||
|
||||
if [ $do_echo -ne 0 ]; then
|
||||
echo Now it is: `date`
|
||||
fi
|
@ -1,187 +0,0 @@
|
||||
#!/bin/sh
|
||||
#$ -S /bin/sh
|
||||
#$ -pe make 1
|
||||
#$ -N SSession
|
||||
#$ -v PATH
|
||||
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2009 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
|
||||
ARCH=`$SGE_ROOT/util/arch`
|
||||
ECHO="$SGE_ROOT/utilbin/$ARCH/echo_raw -e"
|
||||
|
||||
ssession_logging_enabled="false" # is logging enabled?
|
||||
ssession_logfile="/tmp/ssession.log" # logfile
|
||||
tfile="taskfile.txt" # default taskfile name if not other specified
|
||||
mfile="" # makefile name
|
||||
isource="tfile" # type of onput "tfile" or "mfile"
|
||||
|
||||
ssession_show_usage()
|
||||
{
|
||||
echo "usage: ssession [ taskfile | -mf makefile ]"
|
||||
echo
|
||||
echo " If there is neither a taskfile nor a makefile specified then"
|
||||
echo " this script assumes that there is taskfile named taskfile.txt"
|
||||
echo " in the current working directory."
|
||||
echo
|
||||
echo " taskfile - taskfile containing the tasks to be executed in the session"
|
||||
echo " makefile - makefile containing the tasks an depedency definition"
|
||||
}
|
||||
|
||||
# add start rule to makefile
|
||||
ssession_makefile_add_all()
|
||||
{
|
||||
taskfile=$1
|
||||
makefile=$2
|
||||
|
||||
start="all:"
|
||||
line_i=1
|
||||
max=`wc -l $taskfile|cut -c 1-8`
|
||||
while [ $line_i -le $max ]; do
|
||||
line=`head -$line_i $taskfile | tail -1`
|
||||
|
||||
start=`echo $start task${line_i}`
|
||||
line_i=`expr $line_i + 1`
|
||||
done
|
||||
|
||||
echo $start >>$makefile
|
||||
echo "" >>$makefile
|
||||
|
||||
unset makefile
|
||||
unset start
|
||||
unset line_i
|
||||
}
|
||||
|
||||
# add one rule for each task in taskfile
|
||||
ssession_makefile_add_task()
|
||||
{
|
||||
taskfile=$1
|
||||
makefile=$2
|
||||
|
||||
line_i=1
|
||||
max_lines=`wc -l $taskfile|cut -c 1-8`
|
||||
while [ $line_i -le $max_lines ]; do
|
||||
command=`head -$line_i $taskfile | tail -1`
|
||||
|
||||
echo "task${line_i}:" >>$makefile
|
||||
$ECHO "\t${command}" >>$makefile
|
||||
echo "" >>$makefile
|
||||
line_i=`expr $line_i + 1`
|
||||
done
|
||||
|
||||
unset max_lines
|
||||
unset taskfile
|
||||
unset makefile
|
||||
unset line_i
|
||||
}
|
||||
|
||||
# create the makefile
|
||||
ssession_makefile_create()
|
||||
{
|
||||
makefile=$1
|
||||
|
||||
if [ -f $makefile ]; then
|
||||
rm -f $makefile
|
||||
echo rm
|
||||
fi
|
||||
touch $makefile
|
||||
|
||||
unset makefile
|
||||
}
|
||||
|
||||
# destroy the taskfile
|
||||
ssession_makefile_destroy()
|
||||
{
|
||||
makefile=$1
|
||||
|
||||
# rm -f $makefile
|
||||
unset makefile
|
||||
}
|
||||
|
||||
# start a qmake job that executes tasks in taskfile
|
||||
ssession_start_qmake()
|
||||
{
|
||||
makefile=$1
|
||||
|
||||
qmake -inherit -- -f $makefile
|
||||
}
|
||||
|
||||
ssession_log()
|
||||
{
|
||||
if [ $ssession_logging_enabled = true ]; then
|
||||
echo "$@" >>$ssession_logfile
|
||||
fi
|
||||
}
|
||||
|
||||
if [ $# = 1 ]; then
|
||||
if [ -f "$1" ]; then
|
||||
tfile="$1"
|
||||
else
|
||||
ssession_show_usage
|
||||
exit
|
||||
fi
|
||||
elif [ $# = 2 ]; then
|
||||
if [ "$1" = "-mf" ]; then
|
||||
mfile="$2"
|
||||
isource="mfile"
|
||||
else
|
||||
ssession_show_usage
|
||||
exit
|
||||
fi
|
||||
else
|
||||
tfile="taskfile.txt"
|
||||
fi
|
||||
|
||||
if [ "$mfile" = "" ]; then
|
||||
if [ -d "$TMPDIR" ]; then
|
||||
mfile="${TMPDIR}/Makefile.$$"
|
||||
else
|
||||
mfile="/tmp/Makefile.$$"
|
||||
fi
|
||||
fi
|
||||
|
||||
if [ "$isource" = "tfile" ]; then
|
||||
ssession_log "Using taskfile \"$tfile\""
|
||||
ssession_log "Creating makefile \"$mfile\""
|
||||
|
||||
ssession_makefile_create $mfile
|
||||
ssession_makefile_add_all $tfile $mfile
|
||||
ssession_makefile_add_task $tfile $mfile
|
||||
ssession_start_qmake $mfile
|
||||
ssession_makefile_destroy $mfile
|
||||
else
|
||||
ssession_log "Using makefile \"$mfile\""
|
||||
|
||||
ssession_start_qmake $mfile
|
||||
fi
|
||||
|
@ -1,47 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
# request "/bin/sh" as shell for job
|
||||
#$ -S /bin/sh
|
||||
|
||||
QSTAT=$SGE_ROOT/bin/$ARC/qstat
|
||||
QALTER=$SGE_ROOT/bin/$ARC/qalter
|
||||
|
||||
# find out successor jobid
|
||||
# must be set by submission script
|
||||
successor=`$QSTAT -j $JOB_ID | grep context |cut -f2 -d=`
|
||||
|
||||
# release appropriate succesor task
|
||||
$QALTER -h U $successor.$SGE_TASK_ID
|
@ -1,39 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
#
|
||||
#___INFO__MARK_BEGIN__
|
||||
##########################################################################
|
||||
#
|
||||
# The Contents of this file are made available subject to the terms of
|
||||
# the Sun Industry Standards Source License Version 1.2
|
||||
#
|
||||
# Sun Microsystems Inc., March, 2001
|
||||
#
|
||||
#
|
||||
# Sun Industry Standards Source License Version 1.2
|
||||
# =================================================
|
||||
# The contents of this file are subject to the Sun Industry Standards
|
||||
# Source License Version 1.2 (the "License"); You may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of the
|
||||
# License at http://gridengine.sunsource.net/Gridengine_SISSL_license.html
|
||||
#
|
||||
# Software provided under this License is provided on an "AS IS" basis,
|
||||
# WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
||||
# WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
||||
# MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
||||
# See the License for the specific provisions governing your rights and
|
||||
# obligations concerning the Software.
|
||||
#
|
||||
# The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
||||
#
|
||||
# Copyright: 2001 by Sun Microsystems, Inc.
|
||||
#
|
||||
# All Rights Reserved.
|
||||
#
|
||||
##########################################################################
|
||||
#___INFO__MARK_END__
|
||||
|
||||
# request "/bin/sh" as shell for job
|
||||
#$ -S /bin/sh
|
||||
|
||||
echo $JOB_ID.$SGE_TASK_ID
|
@ -1 +0,0 @@
|
||||
/rscratch/minos19/flex_grid_cache
|
@ -1,33 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<qlicserverConfig>
|
||||
<parameters type="overwrite">
|
||||
<param name="lmutil">/opt/SGE/flex-grid/scripts/abaqus_lmutil</param>
|
||||
<!-- <param name="LM_LICENSE_FILE">27000@abaqus-lizenz.rz.ruhr-uni-bochum.de</param> -->
|
||||
<param name="LM_LICENSE_FILE">27000@vmrz0300.vm.ruhr-uni-bochum.de</param>
|
||||
<param name="dir">/opt/SGE/flex-grid/cache</param>
|
||||
<param name="output">qlicserver_abaqus.xml</param>
|
||||
</parameters>
|
||||
<!--
|
||||
| Map resource names (complexes) to values (features)
|
||||
| served by the license manager(s).
|
||||
| Resources without a "served" attribute are considered internal
|
||||
| Resources with type "track" are reported but not managed
|
||||
| The urgency is how much extra weight to give to particular resources.
|
||||
| If a 'slot' is weighted with 1000, we can give an extra 10% to
|
||||
| a few resources. [Format: INTEGER]
|
||||
|
|
||||
| The resource 'limit' specifies an upper limit to prevent applications
|
||||
| from flooding the cluster and/or prevent jobs from consuming all the
|
||||
| available licenses. A negative limit is subtracted from the total
|
||||
| to obtain the limit. [Format: INTEGER]
|
||||
|
|
||||
| Derived resources are combined from sub-elements and inherit the
|
||||
| limits from their sub-elements.
|
||||
|
|
||||
| Resources that are not served and not derived are internal resources
|
||||
+ -->
|
||||
<resources type="overwrite">
|
||||
<resource name="abaqus" served="abaqus" limit="30" type="job"/>
|
||||
<resource name="cae" served="cae" limit="2" type="job"/>
|
||||
</resources>
|
||||
</qlicserverConfig>
|
@ -1,31 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<qlicserverConfig>
|
||||
<parameters type="overwrite">
|
||||
<param name="lmutil">/opt/matlab/etc/glnxa64/lmutil</param>
|
||||
<param name="LM_LICENSE_FILE">/opt/SGE/flex-grid/licenses/comsol.lic</param>
|
||||
<param name="dir">/opt/SGE/flex-grid/cache</param>
|
||||
<param name="output">qlicserver_comsol.xml</param>
|
||||
</parameters>
|
||||
<!--
|
||||
| Map resource names (complexes) to values (features)
|
||||
| served by the license manager(s).
|
||||
| Resources without a "served" attribute are considered internal
|
||||
| Resources with type "track" are reported but not managed
|
||||
| The urgency is how much extra weight to give to particular resources.
|
||||
| If a 'slot' is weighted with 1000, we can give an extra 10% to
|
||||
| a few resources. [Format: INTEGER]
|
||||
|
|
||||
| The resource 'limit' specifies an upper limit to prevent applications
|
||||
| from flooding the cluster and/or prevent jobs from consuming all the
|
||||
| available licenses. A negative limit is subtracted from the total
|
||||
| to obtain the limit. [Format: INTEGER]
|
||||
|
|
||||
| Derived resources are combined from sub-elements and inherit the
|
||||
| limits from their sub-elements.
|
||||
|
|
||||
| Resources that are not served and not derived are internal resources
|
||||
+ -->
|
||||
<resources type="overwrite">
|
||||
<resource name="comsol" served="COMSOL" type="job"/>
|
||||
</resources>
|
||||
</qlicserverConfig>
|
@ -1,36 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<qlicserverConfig>
|
||||
<parameters type="overwrite">
|
||||
<param name="lmutil">/opt/matlab/etc/glnxa64/lmutil</param>
|
||||
<param name="LM_LICENSE_FILE">/opt/SGE/flex-grid/licenses/multiphysics.lic</param>
|
||||
<param name="dir">/opt/SGE/flex-grid/cache</param>
|
||||
<param name="output">qlicserver_local.xml</param>
|
||||
<param name="qhost">qhost.xml</param>
|
||||
<param name="qstat">qstat.xml</param>
|
||||
</parameters>
|
||||
<!--
|
||||
| Map resource names (complexes) to values (features)
|
||||
| served by the license manager(s).
|
||||
| Resources without a "served" attribute are considered internal
|
||||
| Resources with type "track" are reported but not managed
|
||||
| The urgency is how much extra weight to give to particular resources.
|
||||
| If a 'slot' is weighted with 1000, we can give an extra 10% to
|
||||
| a few resources. [Format: INTEGER]
|
||||
|
|
||||
| The resource 'limit' specifies an upper limit to prevent applications
|
||||
| from flooding the cluster and/or prevent jobs from consuming all the
|
||||
| available licenses. A negative limit is subtracted from the total
|
||||
| to obtain the limit. [Format: INTEGER]
|
||||
|
|
||||
| Derived resources are combined from sub-elements and inherit the
|
||||
| limits from their sub-elements.
|
||||
|
|
||||
| Resources that are not served and not derived are internal resources
|
||||
resource name="hyper" served="GridWorks" type="job"
|
||||
<resource name="matlab" served="MATLAB" type="job" limit="-2"/>
|
||||
<resource name="signal_toolbox" served="Signal_Toolbox" type="job" limit="-2"/>
|
||||
+ -->
|
||||
<resources type="overwrite">
|
||||
<resource name="femlab" served="COMSOL" type="track"/>
|
||||
</resources>
|
||||
</qlicserverConfig>
|
@ -1,32 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<qlicserverConfig>
|
||||
<parameters type="overwrite">
|
||||
<param name="lmutil">/opt/matlab/etc/glnxa64/lmutil</param>
|
||||
<param name="LM_LICENSE_FILE">/opt/SGE/flex-grid/licenses/matlab.lic</param>
|
||||
<param name="dir">/opt/SGE/flex-grid/cache</param>
|
||||
<param name="output">qlicserver_matlab.xml</param>
|
||||
</parameters>
|
||||
<!--
|
||||
| Map resource names (complexes) to values (features)
|
||||
| served by the license manager(s).
|
||||
| Resources without a "served" attribute are considered internal
|
||||
| Resources with type "track" are reported but not managed
|
||||
| The urgency is how much extra weight to give to particular resources.
|
||||
| If a 'slot' is weighted with 1000, we can give an extra 10% to
|
||||
| a few resources. [Format: INTEGER]
|
||||
|
|
||||
| The resource 'limit' specifies an upper limit to prevent applications
|
||||
| from flooding the cluster and/or prevent jobs from consuming all the
|
||||
| available licenses. A negative limit is subtracted from the total
|
||||
| to obtain the limit. [Format: INTEGER]
|
||||
|
|
||||
| Derived resources are combined from sub-elements and inherit the
|
||||
| limits from their sub-elements.
|
||||
|
|
||||
| Resources that are not served and not derived are internal resources
|
||||
+ -->
|
||||
<resources type="overwrite">
|
||||
<resource name="matlab" served="MATLAB" type="job" limit="100"/>
|
||||
<resource name="mcc" served="Compiler" type="job" limit="100"/>
|
||||
</resources>
|
||||
</qlicserverConfig>
|
@ -1,31 +0,0 @@
|
||||
<?xml version="1.0"?>
|
||||
<qlicserverConfig>
|
||||
<parameters type="overwrite">
|
||||
<param name="lmutil">/opt/matlab/etc/glnxa64/lmutil</param>
|
||||
<param name="LM_LICENSE_FILE">/opt/SGE/flex-grid/licenses/matlab.lic</param>
|
||||
<param name="dir">/opt/SGE/flex-grid/cache</param>
|
||||
<param name="output">qlicserver_trelis.xml</param>
|
||||
</parameters>
|
||||
<!--
|
||||
| Map resource names (complexes) to values (features)
|
||||
| served by the license manager(s).
|
||||
| Resources without a "served" attribute are considered internal
|
||||
| Resources with type "track" are reported but not managed
|
||||
| The urgency is how much extra weight to give to particular resources.
|
||||
| If a 'slot' is weighted with 1000, we can give an extra 10% to
|
||||
| a few resources. [Format: INTEGER]
|
||||
|
|
||||
| The resource 'limit' specifies an upper limit to prevent applications
|
||||
| from flooding the cluster and/or prevent jobs from consuming all the
|
||||
| available licenses. A negative limit is subtracted from the total
|
||||
| to obtain the limit. [Format: INTEGER]
|
||||
|
|
||||
| Derived resources are combined from sub-elements and inherit the
|
||||
| limits from their sub-elements.
|
||||
|
|
||||
| Resources that are not served and not derived are internal resources
|
||||
+ -->
|
||||
<resources type="overwrite">
|
||||
<resource name="trelis" served="TRELIS" type="job"/>
|
||||
</resources>
|
||||
</qlicserverConfig>
|
@ -1 +0,0 @@
|
||||
/opt/comsol53a/multiphysics/license/license.dat
|
@ -1,2 +0,0 @@
|
||||
SERVER kamikaze 80b660b0 7788
|
||||
USE_SERVER
|
@ -1,2 +0,0 @@
|
||||
SERVER kamikaze 80b660b0 28518
|
||||
USE_SERVER
|
@ -1 +0,0 @@
|
||||
/opt/matlab/licenses/01network.lic
|
@ -1,2 +0,0 @@
|
||||
SERVER phaidra.geophysik.ruhr-uni-bochum.de 00163ef90680 1718
|
||||
USE_SERVER
|
@ -1,221 +0,0 @@
|
||||
#!/bin/sh
|
||||
#
|
||||
# Snapshot of the current GridEngine configuration using git for the
|
||||
# backend storage and tracking mechanism.
|
||||
#
|
||||
# Should normally be called via a cronjob.
|
||||
#
|
||||
# Following Edward Dale's idea:
|
||||
# http://scompt.com/blog/archives/2009/10/13/versioned-grid-engine-configuration
|
||||
# but using git for the backend
|
||||
#
|
||||
# initialize:
|
||||
#
|
||||
# git --git-dir=$GIT_DIR init --bare --shared=world
|
||||
#
|
||||
# Note: we use Perl for inplace editing since some versions of sed have
|
||||
# problems with this task.
|
||||
################################################################################
|
||||
################################################################################
|
||||
# CUSTOMIZE THESE SETTINGS TO MATCH YOUR REQUIREMENTS:
|
||||
|
||||
SGE_ROOT=/opt/grid
|
||||
SGE_CELL=default
|
||||
GIT_DIR=/data/cfd/share/git-repo/gridengine-config.git
|
||||
|
||||
#
|
||||
# END OF CUSTOMIZE SETTINGS
|
||||
################################################################################
|
||||
################################################################################
|
||||
Script=${0##.*/}
|
||||
saveScript="$SGE_ROOT/util/upgrade_modules/save_sge_config.sh"
|
||||
export SGE_ROOT SGE_CELL GIT_DIR
|
||||
|
||||
for i in git perl
|
||||
do
|
||||
type $i >/dev/null 2>&1 || {
|
||||
echo "Error: $Script - no '$i' found"
|
||||
exit 1
|
||||
}
|
||||
done
|
||||
|
||||
#------------------------------------------------------------------------------
|
||||
usage() {
|
||||
while [ "$#" -ge 1 ]; do echo "$1"; shift; done
|
||||
cat<<USAGE
|
||||
|
||||
usage: ${0##*/} [OPTION | GIT_COMMAND]
|
||||
options:
|
||||
-help display this usage
|
||||
init initialize git repo in $GIT_DIR
|
||||
|
||||
pass-through git commands:
|
||||
log ls-files
|
||||
show whatchanged
|
||||
|
||||
Snapshot of the current GridEngine configuration using git for the
|
||||
backend storage and tracking mechanism.
|
||||
|
||||
* git repository stored here:
|
||||
$GIT_DIR
|
||||
|
||||
copyright (c) 2009-10 <Mark.Olesen@faurecia.com>
|
||||
|
||||
USAGE
|
||||
exit 1
|
||||
}
|
||||
#------------------------------------------------------------------------------
|
||||
# parse options
|
||||
while [ "$#" -gt 0 ]
|
||||
do
|
||||
case "$1" in
|
||||
( help | -h | -help )
|
||||
usage
|
||||
;;
|
||||
( init )
|
||||
shift
|
||||
if [ -d "$GIT_DIR" ]
|
||||
then
|
||||
echo "Error: $Script - $GIT_DIR already exists"
|
||||
exit 1
|
||||
else
|
||||
git --git-dir=$GIT_DIR init --bare --shared=world $@
|
||||
rc=$?
|
||||
|
||||
# add a description for gitweb
|
||||
i="$GIT_DIR/description"
|
||||
if [ -f "$i" -a -w "$i" ]
|
||||
then
|
||||
echo "snapshot of the current GridEngine configuration" > $i
|
||||
fi
|
||||
fi
|
||||
exit $rc
|
||||
;;
|
||||
( log | ls-files | show | whatchanged )
|
||||
git --git-dir=$GIT_DIR $@
|
||||
exit $?
|
||||
;;
|
||||
(*)
|
||||
usage "unknown option/argument: '$*'"
|
||||
;;
|
||||
esac
|
||||
done
|
||||
|
||||
|
||||
|
||||
[ -d "$GIT_DIR" ] || {
|
||||
echo "git repo: $GIT_DIR does not exist"
|
||||
exit 1
|
||||
}
|
||||
|
||||
|
||||
i="$SGE_ROOT/$SGE_CELL/common/settings.sh"
|
||||
if [ -f "$i" -a -r "$i" ]
|
||||
then
|
||||
. "$i"
|
||||
else
|
||||
echo "cannot read $i"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
[ -f "$saveScript" -a -r "$saveScript" ] || {
|
||||
echo "cannot read $i"
|
||||
exit 1
|
||||
}
|
||||
|
||||
# Create a fresh empty directory
|
||||
# cannot use --tmpdir on older systems
|
||||
tmpDir=$(mktemp -d "/tmp/sgeSaveConfig.XXXXXXXXXX")
|
||||
trap "rm -rf $tmpDir 2>/dev/null; exit 0" EXIT TERM INT
|
||||
|
||||
[ -d "$tmpDir" ] || {
|
||||
echo "Error: temp dir '$tmpDir' does not exist"
|
||||
exit 1
|
||||
}
|
||||
|
||||
$saveScript $tmpDir
|
||||
|
||||
#------------------------------------------------------------------------------
|
||||
# cleanup
|
||||
#
|
||||
(
|
||||
cd $tmpDir || exit 1
|
||||
|
||||
# all operations are now in the current directory
|
||||
GIT_WORK_TREE=.
|
||||
export GIT_WORK_TREE
|
||||
|
||||
# minor error checking that the save script worked
|
||||
if [ -f backup_date -a -r backup_date ]
|
||||
then
|
||||
msg=$(cat backup_date)
|
||||
else
|
||||
echo "cannot read backup_date - $saveScript might have failed"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
|
||||
# ignore accounting (too big)
|
||||
rm -f cell/accounting
|
||||
|
||||
# ignore current users
|
||||
rm -f users/*
|
||||
|
||||
# ignore current load_values for exec hosts
|
||||
perl -i -ne '/^load_values/ or print' execution/*
|
||||
|
||||
# assign (consumable) complex_values to zero - otherwise we indirectly
|
||||
# track the external license usage when qlicserver is being used
|
||||
# also sort the complexes to avoid spurious changes
|
||||
perl -i -p -e 'if (/^complex_values/) { chomp; ' \
|
||||
-e 's/=\d+/=0/g; s/^(complex\S+\s+)//; ' \
|
||||
-e '$_ = $1 . join("," => sort split /,/) . "\n" }' \
|
||||
execution/global
|
||||
|
||||
#
|
||||
# determine if the configuration changed
|
||||
#
|
||||
# this is fairly roundabout until we find a better way
|
||||
needsCommit=false
|
||||
|
||||
if [ -n "$(git ls-files -d)" ] # files deleted?
|
||||
then
|
||||
needsCommit=true
|
||||
elif [ -n "$(git ls-files -o)" ] # files added?
|
||||
then
|
||||
needsCommit=true
|
||||
else
|
||||
# files modified?
|
||||
# do it the long way to ensure we also get staged modifications
|
||||
set -- $(git status | perl -ne 's/^#\s+modified:// and print')
|
||||
|
||||
# changes in backup_date, jobseqnum etc alone are not enough
|
||||
# to warrant a commit
|
||||
while [ "$#" -ge 1 ]
|
||||
do
|
||||
case $1 in
|
||||
( arseqnum | backup_date | jobseqnum )
|
||||
shift
|
||||
;;
|
||||
(*)
|
||||
needsCommit=true
|
||||
break
|
||||
;;
|
||||
esac
|
||||
done
|
||||
fi
|
||||
|
||||
if [ "$needsCommit" = true ]
|
||||
then
|
||||
# register all new files
|
||||
git add .
|
||||
|
||||
# commit everything
|
||||
git commit -a -m "$msg"
|
||||
else
|
||||
echo "no changes to be committed $msg"
|
||||
fi
|
||||
)
|
||||
|
||||
exit 0
|
||||
#------------------------------------------------------------------------------
|
@ -1,5 +0,0 @@
|
||||
#!/bin/sh
|
||||
# $Id: abaqus_lmutil 180 2010-09-17 15:46:41Z kasper $
|
||||
|
||||
/opt/abaqus/Commands/abaqus licensing lmstat -a -f abaqus -S ABAQUSLM
|
||||
/opt/abaqus/Commands/abaqus licensing lmstat -a -f cae -S ABAQUSLM
|
@ -1,124 +0,0 @@
|
||||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
use Getopt::Std qw( getopts );
|
||||
use Time::Local qw( timelocal );
|
||||
|
||||
my ($releaseDate) = qw( 2009-10-02 );
|
||||
|
||||
( my $Script = $0 ) =~ s{^.*/}{};
|
||||
# -------------------------------------------------------------------------
|
||||
sub usage {
|
||||
$! = 0; # clean exit
|
||||
warn "@_\n" if @_;
|
||||
die <<"USAGE";
|
||||
usage:
|
||||
$Script [OPTION] file1 [ .. fileN ]
|
||||
|
||||
with options:
|
||||
-b YYYY[-MM[-DD]]
|
||||
begin date for accounting (job end_time > DATE 2 A.M.)
|
||||
-e YYYY[-MM[-DD]]
|
||||
end date for accounting (job end_time <= DATE 2 A.M.)
|
||||
-h usage
|
||||
|
||||
Extract portions of the GridEngine accounting(5) file according to the
|
||||
job end_time. For example,
|
||||
$Script -b 2008-01-01 -e 2009 ...
|
||||
extracts the accounting for jobs that finished running in 2008.
|
||||
|
||||
The value of 2 A.M. avoids problems that daylight savings time might
|
||||
otherwise cause.
|
||||
|
||||
version ($releaseDate)
|
||||
copyright (c) 2009 <Mark.Olesen\@faurecia.com>
|
||||
|
||||
Licensed and distributed under the Creative Commons
|
||||
Attribution-NonCommercial-ShareAlike 3.0 License.
|
||||
http://creativecommons.org/licenses/by-nc-sa/3.0
|
||||
USAGE
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------------
|
||||
my %opt;
|
||||
getopts( "hb:e:", \%opt ) or usage();
|
||||
usage() if $opt{h};
|
||||
|
||||
@ARGV or usage();
|
||||
|
||||
for (@ARGV) {
|
||||
-f $_ or die "no file '$_'\n";
|
||||
|
||||
## handle compressed files transparently
|
||||
if (/\.bz2$/) {
|
||||
$_ = qq{bzip2 -dc "$_"|};
|
||||
}
|
||||
elsif (/\.gz$/) {
|
||||
$_ = qq{gzip -dc "$_"|};
|
||||
}
|
||||
}
|
||||
|
||||
for (qw( b e )) {
|
||||
if ( $opt{$_} ||= 0 ) {
|
||||
my ( $yy, $mm, $dd );
|
||||
|
||||
if ( $opt{$_} =~ /^(\d{2,4})-(\d{1,2})-(\d{1,2})$/ ) {
|
||||
## YYYY-MM-DD
|
||||
( $yy, $mm, $dd ) = ( $1, $2, $3 );
|
||||
}
|
||||
elsif ( $opt{$_} =~ /^(\d{2,4})-(\d{1,2})$/ ) {
|
||||
## YYYY-MM
|
||||
( $yy, $mm ) = ( $1, $2 );
|
||||
}
|
||||
elsif ( $opt{$_} =~ /^(\d{2,4})$/ ) {
|
||||
## YYYY
|
||||
($yy) = ($1);
|
||||
}
|
||||
else {
|
||||
usage("invalid date format: '$opt{$_}'");
|
||||
}
|
||||
|
||||
# treat missing month/day as '1'
|
||||
$mm ||= 1;
|
||||
$dd ||= 1;
|
||||
|
||||
# convert from YYYY-MM-DD to epoch,
|
||||
# start at 2am - avoid problems with daylight savings time
|
||||
$opt{$_} = timelocal( 0, 0, 2, $dd, $mm - 1, $yy ); # month (0..11)
|
||||
}
|
||||
}
|
||||
|
||||
$opt{b} or $opt{e} or usage("must specify at least one of -b or -e");
|
||||
|
||||
if ( $opt{e} and $opt{b} >= $opt{e} ) {
|
||||
usage("-b DATE must less than -e DATE");
|
||||
}
|
||||
|
||||
my $fileCount;
|
||||
while (<>) {
|
||||
if (/^\s*#/) {
|
||||
## pass-thru comments, but only for the first file
|
||||
print unless $fileCount;
|
||||
next;
|
||||
}
|
||||
|
||||
my ($endtime) = ( split /:/ )[10];
|
||||
|
||||
# only allow things that ran (endtime non-zero)
|
||||
# and that are within the filter limits
|
||||
if ( $endtime
|
||||
and ( $opt{b} ? ( $endtime > $opt{b} ) : 'okay' )
|
||||
and ( $opt{e} ? ( $endtime <= $opt{e} ) : 'okay' ) )
|
||||
{
|
||||
print;
|
||||
}
|
||||
}
|
||||
continue {
|
||||
$fileCount++ if eof;
|
||||
}
|
||||
|
||||
__END__
|
||||
|
||||
FORMAT - see accounting(5)
|
||||
08 submission_time
|
||||
09 start_time
|
||||
10 end_time
|
@ -1,517 +0,0 @@
|
||||
#!/usr/bin/perl -w
|
||||
use strict;
|
||||
use Getopt::Std qw( getopts );
|
||||
use POSIX qw( );
|
||||
|
||||
( my $Script = $0 ) =~ s{^.*/}{};
|
||||
|
||||
my $time = time;
|
||||
my $date = POSIX::strftime( "%F %T", localtime $time );
|
||||
|
||||
$ENV{SGE_ROOT} or die "Error $Script: \$SGE_ROOT is not set\n";
|
||||
$ENV{SGE_CELL} ||= "default"; # sge_cell
|
||||
|
||||
my ($siteLocation) = join "/" => ( $ENV{SGE_ROOT}, $ENV{SGE_CELL}, "site" );
|
||||
|
||||
my $config = {
|
||||
-site => ( $siteLocation || '' ),
|
||||
-cache => ( $siteLocation || '' ) . "/cache/" . "qlicserver.xml",
|
||||
-limits => ( $siteLocation || '' ) . "/" . "qlicserver.limits",
|
||||
};
|
||||
|
||||
# ------------------------------------------------------------------------
|
||||
# utils
|
||||
|
||||
#
|
||||
# calculate age from an epoch value
|
||||
#
|
||||
sub age {
|
||||
my ( $a, $b ) = @_;
|
||||
my $diff = ( $a - $b );
|
||||
|
||||
my $sign = '';
|
||||
if ( $diff < 0 ) { # handle negatives
|
||||
$sign = '-';
|
||||
$diff = abs($diff);
|
||||
}
|
||||
|
||||
sprintf "$sign%d:%02d:%02d", # format into hh:mm:ss
|
||||
( int $diff / 3_600 ), # hh
|
||||
( ( int $diff / 60 ) % 60 ), # mm
|
||||
( $diff % 60 ); # ss
|
||||
}
|
||||
|
||||
#
|
||||
# change hash references to a comma-delimited string of key=value entries
|
||||
#
|
||||
sub hashRefToString {
|
||||
map {
|
||||
my $ref = $_;
|
||||
ref $ref ? map { "$_=$ref->{$_}" } sort keys %$ref : ()
|
||||
} @_;
|
||||
}
|
||||
|
||||
#
|
||||
# extract attrib="value" ... attrib="value"
|
||||
#
|
||||
sub parseXMLattrib {
|
||||
my $str = shift || '';
|
||||
my %attr;
|
||||
|
||||
while ($str =~ s{^\s*(\w+)=\"([^\"]*)\"}{}s
|
||||
or $str =~ s{^\s*(\w+)=\'([^\']*)\'}{}s )
|
||||
{
|
||||
$attr{$1} = $2;
|
||||
}
|
||||
|
||||
%attr;
|
||||
}
|
||||
|
||||
# ------------------------------------------------------------------------
|
||||
# processing of qlicserver.xml output
|
||||
#
|
||||
package qlicCache;
|
||||
|
||||
sub new {
|
||||
my $caller = shift;
|
||||
my $file = shift;
|
||||
|
||||
my $self = bless {
|
||||
( map { $_ => {} } qw( -rc ) ),
|
||||
( map { $_ => '' } qw( -date -host -age ) )
|
||||
}, $caller;
|
||||
|
||||
-f $file or return $self;
|
||||
|
||||
local $_ = do { local ( @ARGV, $/ ) = $file; <>; };
|
||||
|
||||
# strip out all xml comments
|
||||
s{<!--.*?-->\s*}{}sg;
|
||||
|
||||
# get the header section
|
||||
s{^(.+?)</query>}{}s or return;
|
||||
my $header = $1;
|
||||
|
||||
for ($header) {
|
||||
if (m{<host (?:\s+([^<>]*))? > \s*(.+?)\s* </host>}sx) {
|
||||
my ( $attr, $content ) = ( $1, $2 );
|
||||
$self->{-host} = $content;
|
||||
}
|
||||
if (m{<time (?:\s+([^<>]*))? > \s*(.+?)\s* </time>}sx) {
|
||||
my ( $attr, $content ) = ( $1, $2 );
|
||||
my %attr = main::parseXMLattrib($attr);
|
||||
|
||||
$self->{-age} = main::age( $time, $attr{epoch} ) if $attr{epoch};
|
||||
$self->{-date} = $content;
|
||||
}
|
||||
}
|
||||
|
||||
# only retain the <resources> contents
|
||||
s{^.*?<resources>}{}s and s{</resources>.*$}{}s or return;
|
||||
|
||||
## process <resource .../>
|
||||
while (s{<resource (?:\s+([^/<>]*))? />}{}sx) {
|
||||
my ($attr) = ($1);
|
||||
my %attr = main::parseXMLattrib($attr);
|
||||
my $name = delete $attr{name};
|
||||
|
||||
if ( defined $name ) {
|
||||
for ( keys %attr ) {
|
||||
$self->{-rc}{$name}{$_} = $attr{$_} || 0;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
## process <resource ...> CONTENT </resource>
|
||||
while (s{<resource (?:\s+([^<>]*))? > \s* (.*?) \s* </resource>}{}sx) {
|
||||
my ( $attr, $content ) = ( $1, $2 );
|
||||
my %attr = main::parseXMLattrib($attr);
|
||||
my $name = delete $attr{name};
|
||||
|
||||
if ( defined $name ) {
|
||||
for ( keys %attr ) {
|
||||
$self->{-rc}{$name}{$_} = $attr{$_} || 0;
|
||||
}
|
||||
}
|
||||
|
||||
## process <user ...> COUNT </user>
|
||||
while ( $content =~ s{<user (?:\s+([^<>]*))? >\s*(\d+)\s*</user>}{}sx )
|
||||
{
|
||||
my ( $attr, $count ) = ( $1, $2 );
|
||||
my %attr = main::parseXMLattrib($attr);
|
||||
my $user = delete $attr{name};
|
||||
my $host = delete $attr{host};
|
||||
|
||||
if ( defined $user ) {
|
||||
if ( defined $host ) {
|
||||
$self->{-rc}{$name}{-where}{"$user\@$host"} = $count;
|
||||
}
|
||||
else {
|
||||
## tag waiting with '[]'
|
||||
$self->{-rc}{$name}{-where}{$user} = "[$count]";
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub query {
|
||||
my $self = shift;
|
||||
%{ $self->{-rc} };
|
||||
}
|
||||
|
||||
sub dump {
|
||||
use Data::Dumper;
|
||||
print Dumper( $_[0] );
|
||||
}
|
||||
|
||||
sub available {
|
||||
my $self = shift;
|
||||
sort keys %{ $self->{-rc} };
|
||||
}
|
||||
|
||||
# ------------------------------------------------------------------------
|
||||
# processing of qlicserver.limits FILE or DIRECTORY
|
||||
#
|
||||
package qlicLimits;
|
||||
|
||||
sub new {
|
||||
my $caller = shift;
|
||||
my $diskValues = shift;
|
||||
|
||||
my $self = bless {}, $caller;
|
||||
|
||||
my $fileString;
|
||||
if ( defined $diskValues and -f $diskValues ) {
|
||||
$fileString = do {
|
||||
local ( *FILE, $/ );
|
||||
|
||||
if ( open FILE, $diskValues ) {
|
||||
<FILE>;
|
||||
}
|
||||
else {
|
||||
undef;
|
||||
}
|
||||
};
|
||||
}
|
||||
elsif ( defined $diskValues and -d $diskValues ) {
|
||||
local *DIR;
|
||||
my $dir = $diskValues;
|
||||
if ( opendir DIR, $dir ) {
|
||||
my @files = grep { -f "$dir/$_" and -r _ } readdir DIR;
|
||||
for my $name (@files) {
|
||||
my $limit;
|
||||
|
||||
# use the last value
|
||||
if ( open FILE, "$dir/$name" ) {
|
||||
$limit = ( map { /^\s*(-?\d+)\s*$/ } <FILE> )[-1];
|
||||
}
|
||||
defined $limit or $limit = "NONE";
|
||||
$self->{$name} = $limit;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
for ($fileString) {
|
||||
defined or next;
|
||||
|
||||
# strip out all comments
|
||||
s{<!--.*?-->\s*}{}sg;
|
||||
|
||||
## process <resource .../> and <resource ...></resource>
|
||||
while (s{<resource (?:\s+([^/<>]*))? />}{}sx
|
||||
or s{<resource (?:\s+([^/<>]*))? >\s*</resource>}{}sx )
|
||||
{
|
||||
my %attr = main::parseXMLattrib($1);
|
||||
my $name = delete $attr{name};
|
||||
my $limit = delete $attr{limit};
|
||||
if ( defined $name and defined $limit ) {
|
||||
$self->{$name} = $limit;
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
return $self;
|
||||
}
|
||||
|
||||
sub change {
|
||||
my $caller = shift;
|
||||
my $diskValues = shift;
|
||||
my @args = @_;
|
||||
|
||||
@args or return;
|
||||
|
||||
my ( %pending, %adjusted );
|
||||
|
||||
for (@args) {
|
||||
s{,}{ }g; # comma -> space-delimited
|
||||
|
||||
my %h = map { /^(.+?)=(.*)$/ } split;
|
||||
for ( keys %h ) {
|
||||
defined $h{$_} and length $h{$_} or $h{$_} = "NONE";
|
||||
$pending{$_} = $h{$_};
|
||||
}
|
||||
}
|
||||
|
||||
keys %pending or return;
|
||||
|
||||
my $user = getpwuid $<;
|
||||
if ( defined $diskValues and -d $diskValues ) {
|
||||
local *DIR;
|
||||
my $dir = $diskValues;
|
||||
if ( opendir DIR, $dir ) {
|
||||
my @files = grep { -f "$dir/$_" and -w _ } readdir DIR;
|
||||
|
||||
for my $name (@files) {
|
||||
if ( exists $pending{$name} ) {
|
||||
local *FILE;
|
||||
if ( open FILE, ">", "$dir/$name" ) {
|
||||
print FILE "# adjusted by $user $date\n",
|
||||
"$pending{$name}\n";
|
||||
$adjusted{$name} = delete $pending{$name};
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
for ( [ "adjusted" => \%adjusted ], [ "not adjusted" => \%pending ], ) {
|
||||
my ( $label, $href ) = @$_;
|
||||
keys %$href or next;
|
||||
print "$label: ",
|
||||
join( "," => map { qq{$_=$href->{$_}} } sort keys %$href ), "\n";
|
||||
}
|
||||
}
|
||||
|
||||
sub output {
|
||||
my $self = shift;
|
||||
|
||||
my @list = map { qq{$_=$self->{$_}} } sort keys %$self;
|
||||
|
||||
print "limits: ";
|
||||
if (@list) {
|
||||
print join( "," => @list ), "\n";
|
||||
}
|
||||
else {
|
||||
print "NONE\n";
|
||||
}
|
||||
}
|
||||
|
||||
# ------------------------------------------------------------------------
|
||||
# main
|
||||
#
|
||||
|
||||
package main;
|
||||
import qlicCache;
|
||||
|
||||
# ------------------------------------------------------------------------
|
||||
sub usage {
|
||||
$! = 0; # clean exit
|
||||
warn "@_\n" if @_;
|
||||
die <<"USAGE";
|
||||
usage:
|
||||
$Script [OPTION]
|
||||
$Script [OPTION] resource=limit .. resource=limit
|
||||
|
||||
with options:
|
||||
-c FILE alternative location for the license cache
|
||||
-C FILE alternative location for the license limit
|
||||
-d dump cache file as raw xml
|
||||
-D dump license cache in perl format
|
||||
-f display free licenses only
|
||||
-l list license limit
|
||||
-q display free licenses via qhost query
|
||||
-u license usage via 'lacct'
|
||||
-U license usage per user via 'lacct -u'
|
||||
-w show who/where ('[]' indicates waiting jobs)
|
||||
-h this help
|
||||
|
||||
* extract / display information for the GridEngine license cache
|
||||
$config->{-cache}
|
||||
|
||||
* adjust / display information for the license limits
|
||||
$config->{-limits}
|
||||
|
||||
copyright (c) 2003-10 <Mark.Olesen\@faurecia.com>
|
||||
|
||||
Licensed and distributed under the Creative Commons
|
||||
Attribution-NonCommercial-ShareAlike 3.0 License.
|
||||
http://creativecommons.org/licenses/by-nc-sa/3.0
|
||||
USAGE
|
||||
}
|
||||
|
||||
# -------------------------------------------------------------------------
|
||||
my %opt;
|
||||
getopts( 'hc:C:DdflqUuw', \%opt ) or usage();
|
||||
$opt{h} and usage();
|
||||
|
||||
if ( $opt{U} ) {
|
||||
## user-based usage from accounting
|
||||
my @query = ( "lacct", "-u" );
|
||||
exec @query;
|
||||
exit 2;
|
||||
}
|
||||
elsif ( $opt{u} ) {
|
||||
## usage from accounting
|
||||
my @query = ( "lacct", $opt{w} ? "-w" : () );
|
||||
exec @query;
|
||||
exit 2;
|
||||
}
|
||||
|
||||
if ( $opt{d} ) {
|
||||
my $file = $opt{c} || $config->{-cache};
|
||||
|
||||
if ( not -f $file and $file !~ m{/} ) {
|
||||
$file = "$config->{-site}/$file";
|
||||
}
|
||||
|
||||
-f $file or exit 1;
|
||||
|
||||
local $_ = do { local ( @ARGV, $/ ) = $file; <>; };
|
||||
|
||||
# do a basic check for well-formed xml
|
||||
# this might not be the case if there is a race condition
|
||||
# and the file has not been fully written
|
||||
|
||||
# check for '<?xml version="1.0"?><someTag ...' at the start
|
||||
# and '</someTag>' at the end
|
||||
my ($tag) = m{^<\?xml (?:\s+[^<>]*?)? \?>\s*\<(\w+)}sx;
|
||||
unless ( $tag and m{</\Q$tag\E>\s*$} ) {
|
||||
sleep 2; ## wait and try again
|
||||
$_ = do { local ( @ARGV, $/ ) = $file; <>; };
|
||||
}
|
||||
|
||||
$_ ||= ''; ## avoid uninitialized
|
||||
|
||||
print;
|
||||
exit;
|
||||
}
|
||||
|
||||
if ( $opt{q} ) {
|
||||
my %free =
|
||||
map { /^\s+gc:(\S+?)=(\d\S*)\s*$/ }
|
||||
grep { /^global/ ... /^\S/ } qx{qhost -F};
|
||||
|
||||
$_ += 0 for values %free;
|
||||
|
||||
for ( sort keys %free ) {
|
||||
my $intval = $free{$_} + 0; # normalize as integers
|
||||
print "$_=$intval\n";
|
||||
}
|
||||
exit;
|
||||
}
|
||||
|
||||
if ( $opt{l} ) {
|
||||
qlicLimits->new( $opt{C} || $config->{-limits} )->output();
|
||||
exit;
|
||||
}
|
||||
|
||||
if (@ARGV) {
|
||||
qlicLimits->change( $opt{C} || $config->{-limits}, @ARGV );
|
||||
exit;
|
||||
}
|
||||
|
||||
my $info = qlicCache->new( $opt{c} || $config->{-cache} );
|
||||
$info->dump() if $opt{D};
|
||||
|
||||
my %resources = $info->query();
|
||||
|
||||
#
|
||||
# display free licenses
|
||||
#
|
||||
if ( $opt{f} ) {
|
||||
for my $resource ( sort keys %resources ) {
|
||||
my $count = $resources{$resource} || {};
|
||||
my $free = $count->{free} || 0;
|
||||
print "$resource=$free\n" if $free;
|
||||
}
|
||||
|
||||
exit;
|
||||
}
|
||||
|
||||
#
|
||||
# display who/where
|
||||
#
|
||||
if ( $opt{w} ) {
|
||||
my ($len) = sort { $b <=> $a } map { length } keys %resources;
|
||||
$len += 2;
|
||||
|
||||
my $fmt = "%-${len}s";
|
||||
my $indent = sprintf "\n$fmt", '';
|
||||
|
||||
for my $resource ( sort keys %resources ) {
|
||||
my $count = $resources{$resource} || {};
|
||||
my @list = hashRefToString( $count->{-where} );
|
||||
if (@list) {
|
||||
printf $fmt, $resource;
|
||||
print join( $indent => @list ), "\n";
|
||||
}
|
||||
}
|
||||
|
||||
exit;
|
||||
}
|
||||
|
||||
#
|
||||
# define table output format
|
||||
#
|
||||
my @outputList;
|
||||
|
||||
format =
|
||||
# name total limit extern intern wait free
|
||||
@<<<<<<<<<<< @>>>>> @>>>>> @>>>>> @>>>>> @>>>> @>>>>
|
||||
@outputList
|
||||
.
|
||||
|
||||
#
|
||||
# display table header
|
||||
# --------------------
|
||||
{
|
||||
my @info = qw( host age );
|
||||
my ($len) = sort { $b <=> $a } map { length } @info;
|
||||
|
||||
print map {
|
||||
my $k = sprintf "%-${len}s", $_;
|
||||
my $v = $info->{"-$_"};
|
||||
$v ? "$k = $v\n" : ();
|
||||
} @info;
|
||||
|
||||
print "\n";
|
||||
|
||||
@outputList = qw( resource total limit extern intern wait free );
|
||||
|
||||
write;
|
||||
s/./-/g for @outputList;
|
||||
write;
|
||||
}
|
||||
|
||||
#
|
||||
# display table body
|
||||
# ------------------
|
||||
for my $resource ( sort keys %resources ) {
|
||||
my $count = $resources{$resource} || {};
|
||||
@outputList =
|
||||
( $resource, @{$count}{qw( total limit extern intern waiting free )} );
|
||||
|
||||
my $type = $resources{$resource}{type} || 0;
|
||||
|
||||
# no total?
|
||||
$_ ||= "?" for $outputList[1];
|
||||
|
||||
if ( $type eq "intern" ) {
|
||||
$_ = "*" for $outputList[3];
|
||||
}
|
||||
elsif ( $type eq "track" ) {
|
||||
$_ = "*" for $outputList[4];
|
||||
}
|
||||
|
||||
# easy to read representation for zero
|
||||
for (@outputList) {
|
||||
defined $_ or $_ = '.';
|
||||
}
|
||||
|
||||
write;
|
||||
}
|
||||
|
||||
# ------------------------------------------------------------------------
|
File diff suppressed because it is too large
Load Diff
@ -1,325 +0,0 @@
|
||||
#!/bin/bash
|
||||
# $Id: qloadsensor 180 2010-09-17 15:46:41Z kasper $
|
||||
#
|
||||
# qloadsensor:
|
||||
# load sensor for particular file systems and floating licenses
|
||||
#
|
||||
# NB:
|
||||
# 1) add the new complexes (via qconf -mc) for the following:
|
||||
# * complex configurations managed in the shell script
|
||||
# eg, 'perl -x qloadsensor'
|
||||
# * complex consumables managed global
|
||||
# eg, 'qlicserver -c'
|
||||
# 2) initialize the global complex consumables to be managed
|
||||
# eg, 'qlicserver -C'
|
||||
#
|
||||
# copyright (c) 2003-10 <Mark.Olesen@faurecia.com>
|
||||
#
|
||||
# Licensed and distributed under the Creative Commons
|
||||
# Attribution-NonCommercial-ShareAlike 3.0 License.
|
||||
# http://creativecommons.org/licenses/by-nc-sa/3.0
|
||||
# -----------------------------------------------------------------------------
|
||||
|
||||
#
|
||||
# impose default GridEngine environment + ascertain the binary architecture
|
||||
#
|
||||
# you likely don't need to adjust these values, since the loadsensor is called
|
||||
# from sge_execd, which in turn is started from /etc/init.d/n1ge and
|
||||
# these variables should be correctly exported there
|
||||
#
|
||||
[ -d "$SGE_ROOT" ] || { echo "Error: SGE_ROOT=$SGE_ROOT not found"; exit 1; }
|
||||
: ${SGE_CELL:=default}
|
||||
: ${SGE_ARCH:=`$SGE_ROOT/util/arch`}
|
||||
|
||||
export SGE_ROOT SGE_CELL SGE_ARCH
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# this script should run as the 'admin_user' registered in 'bootstrap'
|
||||
#
|
||||
if [ "$UID" -eq 0 ]
|
||||
then
|
||||
admin_user=$(sed -ne 's/^admin_user *//p' $SGE_ROOT/$SGE_CELL/common/bootstrap)
|
||||
: ${admin_user:=root}
|
||||
if [ $admin_user != root -a $(echo $admin_user | tr "A-Z" "a-z") != none ]
|
||||
then
|
||||
exec $SGE_ROOT/utilbin/$SGE_ARCH/adminrun $admin_user $0
|
||||
fi
|
||||
fi
|
||||
|
||||
# <settings>
|
||||
# ========================================================================
|
||||
# now that we are the admin_user, we can source our standard settings
|
||||
# - customize *all* settings there (eg, license server settings)
|
||||
# - ENSURE THAT '$SGE_site' IS DEFINED !!!
|
||||
#
|
||||
for i in $SGE_ROOT/$SGE_CELL/site/environ; do [ -f $i ] && . $i; done
|
||||
|
||||
# define (unique) cluster name if not already defined
|
||||
if [ -z "$SGE_CLUSTER_NAME" -a -r "$SGE_ROOT/$SGE_CELL/common/cluster_name" ]
|
||||
then
|
||||
SGE_CLUSTER_NAME=$(cat $SGE_ROOT/$SGE_CELL/common/cluster_name 2>/dev/null)
|
||||
fi
|
||||
: ${SGE_CLUSTER_NAME:=default}
|
||||
export SGE_CLUSTER_NAME
|
||||
|
||||
SGE_site="$SGE_ROOT/flex-grid/site"
|
||||
|
||||
#
|
||||
# ========================================================================
|
||||
# </settings>
|
||||
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
# CUSTOMIZE THESE SETTINGS - iff. required
|
||||
|
||||
qlicserver="$SGE_site/qlicserver config=$SGE_site/../config/local_licenses.conf dir=$SGE_ROOT/flex-grid/cache output=$SGE_ROOT/flex-grid/cache/qlicserver.xml qhost=qhost.xml qstat=qstat.xml"
|
||||
diskmon="$SGE_site/diskmon.pl"
|
||||
|
||||
# END OF CUSTOMIZE SETTINGS
|
||||
###############################################################################
|
||||
###############################################################################
|
||||
|
||||
#
|
||||
# the real (not compiled in) architecture
|
||||
#
|
||||
os_arch=`$SGE_ROOT/util/arch`
|
||||
SGE_utilbin=$SGE_ROOT/utilbin/$os_arch
|
||||
|
||||
#
|
||||
# set some constants
|
||||
#
|
||||
HOST=$($SGE_utilbin/gethostname -aname)
|
||||
UQHOST=$(echo $HOST | cut -f1 -d.)
|
||||
SGE_qmaster=unknown; export SGE_qmaster
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# act_qmaster
|
||||
#
|
||||
# extract the unqualified host name from the "act_qmaster" file
|
||||
# return this value or 'unknown' on failure
|
||||
#
|
||||
act_qmaster()
|
||||
{
|
||||
tmp=$(cat $SGE_common/act_qmaster 2>/dev/null)
|
||||
echo ${tmp:-unknown}
|
||||
}
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# df_info
|
||||
#
|
||||
# echo the $1_{total,used,free} space on filesystem $2
|
||||
#
|
||||
# gridengine uses the suffixes
|
||||
# 'k' => blocksize 1000
|
||||
# 'K' => blocksize 1024
|
||||
#
|
||||
# return 0 if 'df' fails
|
||||
df_info()
|
||||
{
|
||||
# 1:tag 2:mount 3:filesys 4:total 5:Used 6:Avail 7:Used% 8:Mount
|
||||
[ -d "$2" ] && set -- $1 $2 $( df -k -P $2 2>/dev/null | tail -1 )
|
||||
|
||||
#!# we could add the following check:
|
||||
#!# [ "$2" != "$8" ] && set -- $1 $2; # mount point mismatch?
|
||||
|
||||
[ "$#" -ge 6 ] || set -- $1 $2 filesystem 0 0 0
|
||||
|
||||
echo "$UQHOST:$1_total:$4K"
|
||||
echo "$UQHOST:$1_used:$5K"
|
||||
|
||||
#if [ -w "$2" ]
|
||||
#then
|
||||
echo "$UQHOST:$1_free:$6K"
|
||||
#else
|
||||
# echo "$UQHOST:$1_free:0"
|
||||
#fi
|
||||
}
|
||||
|
||||
# invariant values
|
||||
if [ -e "/proc/cpuinfo" ]
|
||||
then
|
||||
# mips=$(awk '{if (/mips/) printf "%.0f\n", $NF}' /proc/cpuinfo | tail -1)
|
||||
mips=$(awk 'BEGIN {mips=0} /mips/ {if ($NF > mips) mips=$NF }; END {print mips}' /proc/cpuinfo)
|
||||
else
|
||||
mips=0
|
||||
fi
|
||||
|
||||
unset os_name
|
||||
# extract lsb_release
|
||||
if [ -e "/usr/bin/lsb_release" ]
|
||||
then
|
||||
os_name=$(/usr/bin/lsb_release -ircs | xargs echo | sed 's/ /_/g')
|
||||
else
|
||||
os_name='unkown'
|
||||
fi
|
||||
: ${os_name:=NONE}
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# host_info
|
||||
#
|
||||
# report host specific information about filesystems, logins,
|
||||
# special hardware extensions, etc.
|
||||
#
|
||||
host_info()
|
||||
{
|
||||
echo "$UQHOST:arch:$os_arch"
|
||||
echo "$UQHOST:os:$os_name"
|
||||
# df_info tmp /tmp
|
||||
df_info scratch /scratch
|
||||
echo "$UQHOST:mips:$mips"
|
||||
}
|
||||
|
||||
# -----------------------------------------------------------------------------
|
||||
# iidle_info()
|
||||
# report a machine's idle time
|
||||
#
|
||||
# parse the contents from /proc/interrupts, which looks like the following:
|
||||
#
|
||||
# CPU0
|
||||
# 0: 23024789 XT-PIC timer
|
||||
# 1: 13 XT-PIC keyboard
|
||||
# 2: 0 XT-PIC cascade
|
||||
# 5: 0 XT-PIC usb-uhci
|
||||
# 8: 2 XT-PIC rtc
|
||||
# 9: 0 XT-PIC acpi
|
||||
# 10: 0 XT-PIC ehci-hcd, usb-uhci
|
||||
# 11: 16687253 XT-PIC eth0, usb-uhci, Intel 82801DB-ICH4, nvidia
|
||||
# 12: 20 XT-PIC PS/2 Mouse
|
||||
# 14: 77178 XT-PIC ide0
|
||||
# 15: 2 XT-PIC ide1
|
||||
# NMI: 0
|
||||
# LOC: 0
|
||||
# ERR: 0
|
||||
# MIS: 0
|
||||
#
|
||||
# or,
|
||||
#
|
||||
# CPU0 CPU1
|
||||
# 0: 12820049 12818168 IO-APIC-edge timer
|
||||
# 1: 42889 43309 IO-APIC-edge keyboard
|
||||
# 2: 0 0 XT-PIC cascade
|
||||
# 8: 2 0 IO-APIC-edge rtc
|
||||
# 9: 0 0 IO-APIC-edge acpi
|
||||
# 12: 287235 296531 IO-APIC-edge PS/2 Mouse
|
||||
# 14: 47423 40923 IO-APIC-edge ide0
|
||||
# 15: 2 3 IO-APIC-edge ide1
|
||||
# 16: 7733868 7737081 IO-APIC-level nvidia
|
||||
# 17: 159 156 IO-APIC-level Intel ICH 82801AA
|
||||
# 19: 2155710 2159943 IO-APIC-level e100, usb-uhci
|
||||
# NMI: 0 0
|
||||
# LOC: 25641034 25641033
|
||||
# ERR: 0
|
||||
# MIS: 0
|
||||
#
|
||||
# Thus, we need the [-1, 1..$ncpu] fields for the following sources:
|
||||
# keyboard, Mouse, serial
|
||||
#
|
||||
# NB: adding 'usb-uhci' gives problems, since this is sometimes
|
||||
# attached to the ethernet card
|
||||
#
|
||||
# set the variable 'iidle' to the idle time (seconds) since the last call
|
||||
#
|
||||
last="0 -1";
|
||||
iidle_info()
|
||||
{
|
||||
set -- $(
|
||||
perl -e '
|
||||
my @last = @ARGV;
|
||||
@ARGV = "/proc/interrupts";
|
||||
$_ = <>;
|
||||
|
||||
my $ncpu = s/\s*CPU\d+//g || 0;
|
||||
my ( $iidle, $int, $now ) = ( 0, 0, time );
|
||||
|
||||
$int += $_
|
||||
for
|
||||
map { /\s+(keyboard|Mouse|serial)$/ ? (split)[ 1 .. $ncpu ] : (); }
|
||||
<>;
|
||||
|
||||
if ( $int == $last[-1] ) { # no interactivity since last round
|
||||
$iidle = ( $now - $last[0] );
|
||||
}
|
||||
else {
|
||||
@last = ( $now, $int );
|
||||
}
|
||||
|
||||
print "$iidle @last\n";
|
||||
' $last
|
||||
);
|
||||
|
||||
echo "$UQHOST:iidle:$1";
|
||||
|
||||
shift; last="$@"; # save for later
|
||||
}
|
||||
# -----------------------------------------------------------------------------
|
||||
#
|
||||
# The execd running on the qmaster queries the license server
|
||||
# The contents of 'act_qmaster' should suffice to migrate the load sensor
|
||||
# for a controlled migration.
|
||||
#
|
||||
|
||||
while :
|
||||
do
|
||||
read input || exit 1 # wait for input
|
||||
[ "$input" = quit ] && exit 0
|
||||
|
||||
echo begin # begin load report
|
||||
host_info # host information
|
||||
iidle_info # machine's idle time
|
||||
echo end # end load report
|
||||
|
||||
# let the license query run between load reports
|
||||
# SGE_qmaster=`act_qmaster` # refresh the name of the qmaster
|
||||
# if [ "$HOST" = "$SGE_qmaster" ]
|
||||
if [ "$HOST" = "minos19" ]
|
||||
then
|
||||
# $qlicserver 2>> qloadsensor.err
|
||||
$SGE_ROOT/flex-grid/site/qlicserver config=$SGE_ROOT/flex-grid/config/local_licenses.conf output=$SGE_ROOT/flex-grid/cache/qlicserver_local.xml
|
||||
$SGE_ROOT/flex-grid/site/qlicserver config=$SGE_ROOT/flex-grid/config/abaqus_licenses.conf timeout=60 output=$SGE_ROOT/flex-grid/cache/qlicserver_abaqus.xml
|
||||
# $SGE_ROOT/flex-grid/site/qlicserver config=/opt/SGE/flex-grid/config/trelis_licenses.conf timeout=60 output=$SGE_ROOT/flex-grid/cache/qlicserver_trelis.xml
|
||||
$SGE_ROOT/flex-grid/site/qlicserver config=/opt/SGE/flex-grid/config/comsol_licenses.conf timeout=60 output=$SGE_ROOT/flex-grid/cache/qlicserver_comsol.xml
|
||||
$SGE_ROOT/flex-grid/site/qlicserver config=$SGE_ROOT/flex-grid/config/matlab_licenses.conf timeout=60 output=$SGE_ROOT/flex-grid/cache/qlicserver_matlab.xml
|
||||
lockfile $SGE_ROOT/flex-grid/cache/qlicserver.xml.lock
|
||||
# (sed '/<\/resources>/,$ d' $SGE_ROOT/flex-grid/cache/qlicserver_abaqus.xml ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_trelis.xml | grep -v qlicserver | grep -v resources ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_local.xml | grep -v qlicserver | grep -v resources ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_matlab.xml;) > $SGE_ROOT/flex-grid/cache/qlicserver.xml
|
||||
# (sed '/<\/resources>/,$ d' $SGE_ROOT/flex-grid/cache/qlicserver_abaqus.xml ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_local.xml | grep -v qlicserver | grep -v resources ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_matlab.xml;) > $SGE_ROOT/flex-grid/cache/qlicserver.xml
|
||||
(sed '/<\/resources>/,$ d' $SGE_ROOT/flex-grid/cache/qlicserver_abaqus.xml ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_local.xml | grep -v qlicserver | grep -v resources; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_comsol.xml | grep -v qlicserver | grep -v resources ; sed '1,/<resources>/d' $SGE_ROOT/flex-grid/cache/qlicserver_matlab.xml;) > $SGE_ROOT/flex-grid/cache/qlicserver.xml
|
||||
rm -f $SGE_ROOT/flex-grid/cache/qlicserver.xml.lock
|
||||
# $diskmon -m 2>> qloadsensor.err
|
||||
# force rescheduling of express jobs
|
||||
# $SGE_site/qxprs >/dev/null 2>&1
|
||||
# else
|
||||
# $diskmon 2>> qloadsensor.err
|
||||
fi
|
||||
done
|
||||
exit 0 # we never get here, but just in case
|
||||
|
||||
#------------------------------------------------------------------------------
|
||||
# feed via 'perl -x' to extract the 'host' complex configuration
|
||||
|
||||
#!/usr/bin/perl -w
|
||||
print <DATA>
|
||||
__DATA__
|
||||
#
|
||||
# host complex configuration
|
||||
#
|
||||
#name shortcut type relop requestable consumable default urgency
|
||||
#---------------------------------------------------------------------------
|
||||
tmp_total tmpt MEMORY <= YES NO 0 0
|
||||
tmp_used tmpu MEMORY >= NO NO 0 0
|
||||
tmp_free tmpf MEMORY <= YES NO 0 0
|
||||
iidle iidle INT <= YES NO 0 0
|
||||
mips mips INT <= YES NO 0 0
|
||||
os os RESTRING == YES NO NONE 0
|
||||
abaqus abaqus DOUBLE <= YES YES 0 0
|
||||
cae cae DOUBLE <= YES YES 0 0
|
||||
comsol comsol DOUBLE <= YES YES 0 0
|
||||
hyper hyper DOUBLE <= YES YES 0 0
|
||||
ifort ifort DOUBLE <= YES YES 0 0
|
||||
matlab matlab DOUBLE <= YES YES 0 0
|
||||
mcc mcc DOUBLE <= YES YES 0 0
|
||||
multiphysics multiphysics DOUBLE <= YES YES 0 0
|
||||
trelis trelis DOUBLE <= YES YES 0 0
|
||||
scratch_free scratch_free MEMORY <= YES YES 0 0
|
||||
scratch_total scratch_total MEMORY <= YES NO 0 0
|
||||
scratch_used scratch_used MEMORY >= NO NO 0 0
|
||||
# -----------------------------------------------------------------------------
|
@ -1,30 +0,0 @@
|
||||
#!/usr/bin/ksh
|
||||
|
||||
# This script should be added as the TERMINATE_METHOD in the
|
||||
# queue definition with $job_pid, $job_id, $job_owner, and interval arguments.
|
||||
# e.g. script.sh $job_pid $job_id $job_owner 90
|
||||
|
||||
if [ -z "$4" ]
|
||||
then
|
||||
echo "Usage: $0 \$job_pid \$job_id \$job_owner interval"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
#echo "Term script Running on $(hostname): $USER $1 $2 $3 $4" >> ~$3/qdel_log.log
|
||||
#echo $(pgrep -g $1) >> ~$3/qdel_log.log
|
||||
|
||||
for sig in INT TERM KILL
|
||||
do
|
||||
stat=$(pgrep -g $1 -u $3)
|
||||
if [ ! -z "${stat}" ]
|
||||
then
|
||||
#echo "Sending SIG${sig} to $1" >> ~$3/qdel_log.log
|
||||
/usr/bin/pkill --signal ${sig} -g $1
|
||||
sleep $4
|
||||
else
|
||||
break
|
||||
fi
|
||||
done
|
||||
|
||||
#uncomment the following for debugging
|
||||
#echo "Job $2 killed." >> ~$3/qdel_log.log
|
@ -1,81 +0,0 @@
|
||||
#!/bin/bash
|
||||
|
||||
#############################################################
|
||||
# This example produces a very simple plot and #
|
||||
# saves it as Matlab figure file and as PNG file #
|
||||
#############################################################
|
||||
|
||||
#############################################################
|
||||
# set qsub options #
|
||||
#############################################################
|
||||
# run in low.q
|
||||
#$ -l low
|
||||
|
||||
# request enough memory
|
||||
#$ -l h_vmem=8G,memory=8G,h_stack=8M
|
||||
|
||||
# request 1 matlab license.
|
||||
#$ -l matlab=1
|
||||
|
||||
# Name the job 'Matlab'
|
||||
#$ -N Matlab
|
||||
|
||||
# send e-mail after job has finished
|
||||
# use the -M option to define your e-mail address
|
||||
# #$ -M meine-email@example.org
|
||||
#$ -m e
|
||||
|
||||
# join stdout and stderr in one file
|
||||
#$ -j y
|
||||
|
||||
#############################################################
|
||||
# output hostname and date (comment out if not needed) #
|
||||
#############################################################
|
||||
echo "Runnning Matlab on host " `hostname`
|
||||
echo "Starting Matlab at " `date`
|
||||
|
||||
#############################################################
|
||||
# launch matlab #
|
||||
#############################################################
|
||||
|
||||
# run non-interactive Matlab session
|
||||
# use no display (-nodisplay)
|
||||
# don't show splash screen at startup (-nosplash)
|
||||
# don't start the matlab desktop (-nodesktop)
|
||||
# use software opengl (-softwareopengl)
|
||||
# only use single threaded computations (limit to use of 1 core, -singleCompThread)
|
||||
# execute all matlab commands between '<< END' and matching 'END'
|
||||
|
||||
# Don't forget to add 'exit' and 'END' after replacing
|
||||
# the commands with your own!
|
||||
|
||||
/opt/matlab/bin/matlab -nodisplay -nosplash -nodesktop -softwareopengl -singleCompThread << END
|
||||
|
||||
% get environment variable JOB_ID
|
||||
jobid=str2num(getenv('JOB_ID'));
|
||||
if isempty(jobid)
|
||||
jobid = 0;
|
||||
end
|
||||
|
||||
% create filenames for the figure
|
||||
filename=sprintf('matlab_figure_%d', jobid);
|
||||
|
||||
% create new empty figure and save figure handle
|
||||
fh = figure();
|
||||
|
||||
% draw plot
|
||||
plot(-pi:0.01:pi, sin(-pi:0.01:pi));
|
||||
|
||||
% save figure as matlab figure and PNG
|
||||
saveas(fh, filename, 'fig');
|
||||
saveas(fh, filename, 'png');
|
||||
|
||||
% EXIT MATLAB
|
||||
exit;
|
||||
|
||||
END
|
||||
|
||||
#############################################################
|
||||
# output date (comment out if not needed) #
|
||||
#############################################################
|
||||
echo "Matlab finnished at " `date`
|
@ -1,75 +0,0 @@
|
||||
#!/bin/bash
|
||||
# This job script takes a nap for 10 seconds (or paramter $2) every 30 minutes (or paramter $1)
|
||||
|
||||
# SGE options
|
||||
#$ -N PSleeper
|
||||
#$ -l scf=1M,mem=100M,h_vmem=100M
|
||||
#$ -q normal.q
|
||||
#$ -cwd
|
||||
|
||||
# process args
|
||||
case "$1" in
|
||||
-h)
|
||||
echo "usage: $0 [-h | [-d] [T] [nap]]"
|
||||
echo "periodically take a nap"
|
||||
echo ""
|
||||
echo "-h print this help and exit"
|
||||
echo "-d print debug info"
|
||||
echo "T take a nap every T minutes (default: 30)"
|
||||
echo "nap take a nap for nap seconds (default: 10)"
|
||||
exit 1
|
||||
;;
|
||||
*)
|
||||
debug=0
|
||||
terse="-terse"
|
||||
debug_flag=""
|
||||
do_echo=0
|
||||
T=30
|
||||
nap=10
|
||||
while (( "$#" )); do
|
||||
case "$1" in
|
||||
-d)
|
||||
debug=1
|
||||
terse=""
|
||||
debug_flag="-d"
|
||||
do_echo=1
|
||||
;;
|
||||
*)
|
||||
T=${1:-30}
|
||||
nap=${2:-10}
|
||||
break
|
||||
;;
|
||||
esac
|
||||
shift
|
||||
done
|
||||
;;
|
||||
esac
|
||||
|
||||
# set other variables
|
||||
next=$(date -d "${T} minutes" +%Y%m%d%H%M)
|
||||
script=$0
|
||||
|
||||
# output some informations
|
||||
if [ ${debug} -eq 1 ]; then
|
||||
echo "T = ${T}, nap=${nap}"
|
||||
echo "next run at ${next} (YYYYMMDDhhmm)"
|
||||
echo "debug_flag = ${debug_flag}, do_echo = ${do_echo}"
|
||||
echo ""
|
||||
fi
|
||||
|
||||
# commands to run in Grid Engine
|
||||
${script} ${nap} ${do_echo}
|
||||
|
||||
# re-submit script to execute in T minutes
|
||||
jobid=$(qsub ${terse} -a ${next} ${script} ${debug_flag} ${T} ${nap})
|
||||
exit_code=$?
|
||||
if [ ${debug} -eq 1 ]; then
|
||||
echo "${jobid}"
|
||||
fi
|
||||
if [ ${exit_code} -ne 0 ]; then
|
||||
if [ ${debug} -eq 1 ]; then
|
||||
echo "${jobid}"
|
||||
echo "Ups, something went wrong, check output!"
|
||||
fi
|
||||
exit ${exit_code}
|
||||
fi
|
@ -1,45 +0,0 @@
|
||||
#! /bin/bash
|
||||
|
||||
#############################################################
|
||||
# This example show a list of availabel conda environments #
|
||||
#############################################################
|
||||
|
||||
#############################################################
|
||||
# set qsub options #
|
||||
#############################################################
|
||||
# run in low.q
|
||||
#$ -l low
|
||||
|
||||
# request enough memory
|
||||
# #$ -l h_vmem=8G,memory=8G,h_stack=8M
|
||||
|
||||
# Name the job 'Conda-Test'
|
||||
#$ -N Conda-Test
|
||||
|
||||
# send e-mail after job has finished
|
||||
# use the -M option to define your e-mail address
|
||||
# #$ -M my-email@example.org
|
||||
#$ -m e
|
||||
|
||||
# join stdout and stderr in one file
|
||||
#$ -j y
|
||||
|
||||
#############################################################
|
||||
# initialize conda #
|
||||
#############################################################
|
||||
__conda_setup="$('/opt/anaconda3/bin/conda' 'shell.bash' 'hook' 2> /dev/null)"
|
||||
if [ $? -eq 0 ]; then
|
||||
eval "$__conda_setup"
|
||||
else
|
||||
if [ -f "/opt/anaconda3/etc/profile.d/conda.sh" ]; then
|
||||
. "/opt/anaconda3/etc/profile.d/conda.sh"
|
||||
else
|
||||
export PATH="/opt/anaconda3/bin:$PATH"
|
||||
fi
|
||||
fi
|
||||
unset __conda_setup
|
||||
|
||||
#############################################################
|
||||
# show conda environments #
|
||||
#############################################################
|
||||
conda env list
|
@ -1 +0,0 @@
|
||||
/bin/true
|
@ -1 +0,0 @@
|
||||
/bin/true
|
@ -1 +0,0 @@
|
||||
/bin/true
|
@ -1,25 +0,0 @@
|
||||
#!/usr/bin/ksh
|
||||
# $Id: SGESuspend.sh 365 2013-11-18 09:58:17Z kasper $
|
||||
# This script should be added as the SUSPEND_METHOD in the
|
||||
# queue definition with a $job_pid, $job_id, and $job_owner arguments.
|
||||
# e.g. script.sh $job_pid $job_id $job_owner
|
||||
|
||||
if [ -z "$3" ]
|
||||
then
|
||||
echo "Usage: $0 \$job_pid \$job_id \$job_owner"
|
||||
exit 1
|
||||
fi
|
||||
|
||||
stat=`pgrep -g $1`
|
||||
if [ ! -z "$stat" ]
|
||||
then
|
||||
#echo "Sending $sig to $1" >> ~$3/qdel_log.log
|
||||
/usr/bin/pkill --signal SIGTSTP -g $1
|
||||
else
|
||||
echo "Process $1 not found for job $2" >> ~$3/qdel_log.log
|
||||
echo "Unable to suspend." >> ~$3/qdel_log.log
|
||||
exit 1
|
||||
fi
|
||||
|
||||
#uncomment the following for debugging
|
||||
#echo "Suspending Job $2 " >> ~$3/qdel_log.log
|
@ -1,11 +0,0 @@
|
||||
#! /bin/bash
|
||||
# $Id: epilog 181 2010-09-17 15:55:28Z kasper $
|
||||
|
||||
## Delete the STDOUT and STDERR files (.o and .e) if they are empty
|
||||
## ( we do not want to delete non-empty files, they may contain useful
|
||||
## troubleshooting or debug information ... )
|
||||
##
|
||||
[ -r $SGE_STDOUT_PATH -a -f $SGE_STDOUT_PATH ] && [ ! -s $SGE_STDOUT_PATH ] && rm -f $SGE_STDOUT_PATH
|
||||
[ -r $SGE_STDERR_PATH -a -f $SGE_STDERR_PATH ] && [ ! -s $SGE_STDERR_PATH ] && rm -f $SGE_STDERR_PATH
|
||||
|
||||
exit 0
|
@ -1 +0,0 @@
|
||||
/bin/true
|
@ -1 +0,0 @@
|
||||
/bin/true
|
@ -1 +0,0 @@
|
||||
/bin/true
|
@ -1,5 +0,0 @@
|
||||
#!/bin/sh
|
||||
# $Id: qlogin_wrapper 175 2010-09-15 15:34:28Z kasper $
|
||||
HOST=$1
|
||||
PORT=$2
|
||||
/usr/bin/ssh -XAq -p $PORT $USER@$HOST
|
@ -1 +0,0 @@
|
||||
geophysik
|
@ -1,56 +0,0 @@
|
||||
# Version: 8.1.9
|
||||
#
|
||||
# DO NOT MODIFY THIS FILE MANUALLY!
|
||||
#
|
||||
conf_name global
|
||||
conf_version 43
|
||||
execd_spool_dir /data/gridengine/spool
|
||||
mailer /usr/bin/mail
|
||||
xterm /usr/bin/xterm
|
||||
load_sensor /data/gridengine/flex-grid/site/qloadsensor
|
||||
prolog NONE
|
||||
epilog NONE
|
||||
shell_start_mode posix_compliant
|
||||
login_shells sh,bash,ksh,csh,tcsh
|
||||
min_uid 1000
|
||||
min_gid 1000
|
||||
user_lists none
|
||||
xuser_lists none
|
||||
projects none
|
||||
xprojects none
|
||||
enforce_project false
|
||||
enforce_user auto
|
||||
load_report_time 00:00:40
|
||||
max_unheard 00:05:00
|
||||
reschedule_unknown 00:00:00
|
||||
loglevel log_warning
|
||||
administrator_mail kasper.fischer@ruhr-uni-bochum.de
|
||||
set_token_cmd none
|
||||
pag_cmd none
|
||||
token_extend_time none
|
||||
shepherd_cmd none
|
||||
qmaster_params none
|
||||
execd_params ENABLE_BINDING=true NOTIFY_KILL=SIGTERM ENABLE_ADDGRP_KILL=true H_MEMORYLOCKED=infinity
|
||||
reporting_params accounting=true reporting=false flush_time=00:00:15 joblog=false sharelog=00:00:00
|
||||
finished_jobs 100
|
||||
gid_range 20000-20999
|
||||
qlogin_command /data/gridengine/local/scripts/qlogin_wrapper
|
||||
qlogin_daemon /usr/sbin/sshd -i
|
||||
rlogin_command /usr/bin/ssh -XAtq
|
||||
rlogin_daemon /usr/sbin/sshd -i
|
||||
rsh_command /usr/bin/ssh -XAtq
|
||||
rsh_daemon /usr/sbin/sshd -i
|
||||
max_aj_instances 2000
|
||||
max_aj_tasks 75000
|
||||
max_u_jobs 0
|
||||
max_jobs 0
|
||||
max_advance_reservations 20
|
||||
auto_user_oticket 100
|
||||
auto_user_fshare 100
|
||||
auto_user_default_project none
|
||||
auto_user_delete_time infinity
|
||||
delegated_file_staging false
|
||||
reprioritize 0
|
||||
jsv_url none
|
||||
jsv_allowed_mod ac,h,i,e,o,j,M,N,p,w
|
||||
|
Some files were not shown because too many files have changed in this diff Show More
Loading…
Reference in New Issue
Block a user