Changeset 223 for trunk/libIGCM/libIGCM_card

Timestamp:

02/22/10 14:52:00 (14 years ago)

Author:

mmaipsl

Message:

MM, PB : try to resolve conflict if two processes are writing on some card file.

File:

• trunk/libIGCM/libIGCM_card/libIGCM_card.ksh (modified) (1 diff)

trunk/libIGCM/libIGCM_card/libIGCM_card.ksh

@@ -190 +190 @@
         fi
         rm ${tmpfile}
+
+        # The tmpfile uses now the real path of the card to be modified, 
+        # not just a local tmpfile with PID.
+        tmpfile=$1_$$
+
+        # Watch for possible conflics : Check for other tmpfiles.
+        set -A tmpfiles -- $( ls $1_[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 wating 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
+            set -A tmpfiles -- $( ls $1_[0-9]* 2>/dev/null )
+        done
+
+        # Do the job
         ( gawk -f ${libIGCM}/libIGCM_card/IGCM_card_WriteOption.awk -- "$@" 2> /dev/null ) > ${tmpfile}
+
         cp $1 $1.bak
         mv ${tmpfile} $1
+
     else
         echo "--Error--> IGCM_card_WriteOption $@"