[Swift-commit] r5161 - SwiftApps/SwiftR/Swift/exec

[tga at ci.uchicago.edu]

Author: tga
Date: 2011-09-23 18:54:39 -0500 (Fri, 23 Sep 2011)
New Revision: 5161

Modified:
   SwiftApps/SwiftR/Swift/exec/EvalRBatchPersistent.sh
Log:
Check to see if R process running to better handle unexpected R crashes

Modified: SwiftApps/SwiftR/Swift/exec/EvalRBatchPersistent.sh
===================================================================
--- SwiftApps/SwiftR/Swift/exec/EvalRBatchPersistent.sh	2011-09-23 23:23:58 UTC (rev 5160)
+++ SwiftApps/SwiftR/Swift/exec/EvalRBatchPersistent.sh	2011-09-23 23:54:39 UTC (rev 5161)
@@ -230,7 +230,15 @@
     if [ -f $SLOTDIR/timedout ]; then
       launchRServer $SLOTDIR
       rm -f $SLOTDIR/timedout
+    else 
+        if ps -p $RPID &> /dev/null ; then
+            :
+        else
+            # process no longer running
+          launchRServer $SLOTDIR
+        fi
     fi
+
     break;
   fi
 done