Changeset 24 for trunk/pbs_drmaa/submit.c

Timestamp:

10/09/11 16:15:37 (13 years ago)

Author:

mmamonski

Message:

lost commit :/ thx Dominique

File:

• trunk/pbs_drmaa/submit.c (modified) (3 diffs)

trunk/pbs_drmaa/submit.c

@@ -462 +462 @@
         const fsd_template_t *jt = self->job_template;
         const char *const *env_v;
+        const char *jt_wd;
+        char *wd;
+        char *env_c = NULL;
+        int ii = 0, len = 0;
 
         env_v = jt->get_v_attr( jt, DRMAA_V_ENV);
+        jt_wd    = jt->get_attr( jt, DRMAA_WD );
+        
+        if (!jt_wd)
+        {
+                wd = fsd_getcwd();
+        }
+        else
+        {
+                wd = fsd_strdup(jt_wd);
+        }
 
         if (env_v)
         {
-                char *env_c = NULL;
-                int ii = 0, len = 0;
-
                 ii = 0;
                 while (env_v[ii]) {
@@ -475 +486 @@
                         ii++;
                 }
-
-                fsd_calloc(env_c, len + 1, char);
-                env_c[0] = '\0';
-
+        }
+        
+        len+= strlen("PBS_O_WORKDIR=") + strlen(wd);
+
+        fsd_calloc(env_c, len + 1, char);
+        env_c[0] = '\0';
+
+        if (env_v)
+        {
                 ii = 0;
                 while (env_v[ii]) {
@@ -486 +502 @@
                 }
 
-                env_c[strlen(env_c) -1 ] = '\0'; /*remove the last ',' */
-
-                self->pbs_job_attributes->set_attr(self->pbs_job_attributes, "Variable_List", env_c);
-
-                fsd_free(env_c);
         }
+        
+        strcat(env_c, "PBS_O_WORKDIR=");
+        strcat(env_c, wd);
+
+        self->pbs_job_attributes->set_attr(self->pbs_job_attributes, "Variable_List", env_c);
+
+        fsd_free(env_c);
+        fsd_free(wd);
 }