Changeset 472

Timestamp:

05/31/11 12:52:07 (13 years ago)

Author:

mmaipsl

Message:

Create new function IGCM_card_CheckConflict in place of Mutex Algorithm to lock edited cards.

File:

• trunk/libIGCM/libIGCM_card/libIGCM_card.ksh (modified) (2 diffs)

trunk/libIGCM/libIGCM_card/libIGCM_card.ksh

@@ -195 +195 @@
         tmpfile=$1_mutex_$$
 
-        # Watch for possible conflics : Check for other tmpfiles.
-        unset tmpfiles
-        set +A tmpfiles -- $( ls $1_mutex_[0-9]* 2>/dev/null )
-        typeset isleep
-        ((isleep=0))
-        while [ ${#tmpfiles[@]} -gt 0 ] ; do 
-            echo "Conflict between two processes working on " $1 "!!!" ${tmpfiles[@]}
-            sleep 1
-            ((isleep=isleep+1))
-            if [ isleep -gt 20 ] ; then
-                echo "Too many loops waiting for other process working on " $1 ". We continue."
-                echo "You should see if one process of your run or post-treatment may have terminated suddenly."
-                echo "Afer, you should erase this(those) file(s) : " ${tmpfiles[@]}
-# Send a mail to USER ??
-                break ;
-            fi
-            unset tmpfiles
-            set +A tmpfiles -- $( ls $1_mutex_[0-9]* 2>/dev/null )
-        done
+        IGCM_card_CheckConflict $1
 
         # Do the job
@@ -227 +209 @@
     fi
     IGCM_debug_PopStack "IGCM_card_WriteOption"
+}
+
+function IGCM_card_CheckConflict
+{
+    IGCM_debug_PushStack "IGCM_card_CheckConflict" $@
+
+    typeset isleep tmpfiles
+
+    # Watch for possible conflics : Check for other tmpfiles.
+    set +A tmpfiles -- $( ls $1_mutex_[0-9]* 2>/dev/null )
+    ((isleep=0))
+    while [ ${#tmpfiles[@]} -gt 0 ] ; do 
+        echo "Conflict between two processes working on " $1 "!!!" ${tmpfiles[@]}
+        sleep 1
+        ((isleep=isleep+1))
+        if [ isleep -gt 20 ] ; then
+            echo "Too many loops waiting for other process working on " $1 ". We continue."
+            echo "You should see if one process of your run or post-treatment may have terminated suddenly."
+            echo "Afer, you should erase this(those) file(s) : " ${tmpfiles[@]}
+# Send a mail to USER ??
+            break ;
+        fi
+        unset tmpfiles
+        set +A tmpfiles -- $( ls $1_mutex_[0-9]* 2>/dev/null )
+    done
+
+    IGCM_debug_PopStack "IGCM_card_CheckConflict"
 }