Changeset 268 for trunk/libIGCM/libIGCM_card/libIGCM_card.ksh

Timestamp:

05/06/10 16:19:02 (14 years ago)

Author:

mmaipsl

Message:

Replace all "set -A var -- [...]" used
for more portable "unset var" followed by "set +A var -- [...]".

File:

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

trunk/libIGCM/libIGCM_card/libIGCM_card.ksh

@@ -131 +131 @@
         # Build name of array as $1_$2_$3 (cardname_Section_Option)
         typeset name=${name1%%.*}_${2}_${3}
-        set -A ${name} -- ${NULL_STR}
+        eval unset ${name}
+        eval ${name}[0]=${NULL_STR}
         set +A ${name} -- $( gawk -f ${libIGCM}/libIGCM_card/IGCM_card_PrintOption.awk -- "$@" | gawk -- 'BEGIN {FS="[() ,]+"} {for (i=2; i <= NF-1; i++) printf("%s ",$i)}' )
     else
@@ -155 +156 @@
         # Build name of array as $1_$2 (cardname_Section)
         typeset name=${name1%%.*}_${2}
-        set -A ${name} -- ${NULL_STR}
+        eval unset ${name}
+        eval ${name}[0]=${NULL_STR}
         set +A ${name} -- $( gawk -f ${libIGCM}/libIGCM_card/IGCM_card_PrintSection.awk -- "$@" )
     else
@@ -196 +198 @@
 
         # Watch for possible conflics : Check for other tmpfiles.
-        set -A tmpfiles -- $( ls $1_[0-9]* 2>/dev/null )
+        unset tmpfiles
+        set +A tmpfiles -- $( ls $1_[0-9]* 2>/dev/null )
         typeset isleep
         ((isleep=0))
@@ -210 +213 @@
                 break ;
             fi
-            set -A tmpfiles -- $( ls $1_[0-9]* 2>/dev/null )
+            unset tmpfiles
+            set +A tmpfiles -- $( ls $1_[0-9]* 2>/dev/null )
         done