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

Timestamp:

10/28/08 18:42:58 (16 years ago)

Author:

sdipsl

Message:

PB + MM : - great optimisation for libIGCM_date

• add IGCM_card_WriteArrayOption. Write an array option for a given file.card and section

File:

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

trunk/libIGCM/libIGCM_card/libIGCM_card.ksh

@@ -167 +167 @@
 #D-#==================================================================
 #D-function IGCM_card_WriteOption
-#D-* Purpose: Write an option from a given file.card and section
+#D-* Purpose: Write an option in a given file.card and section
 #D-* Usage: IGCM_card_WriteOption file.card section newvalue
 #D-* Examples: IGCM_card_WriteOption file.card Recipes Red 150
@@ -181 +181 @@
         typeset tmpfile=tmpfile_$$
         ( awk -f ${libIGCM}/libIGCM_card/IGCM_card_WriteOption.awk -- "$@" 2> /dev/null ) > ${tmpfile}
+        cp $1 $1.bak
         mv ${tmpfile} $1
     else
@@ -188 +189 @@
     fi
     IGCM_debug_PopStack "IGCM_card_WriteOption"
+}
+
+#D-#==================================================================
+#D-function IGCM_card_WriteArrayOption
+#D-* Purpose: Write an array option a given file.card and section
+#D-* Usage: IGCM_card_WriteArrayOption file.card section option newarray
+#D-* Examples: set -A MyArray -- 1 2 3
+#D-            IGCM_card_WriteArrayOption file.card Recipes List MyArray
+#D-
+function IGCM_card_WriteArrayOption
+{
+    IGCM_debug_PushStack "IGCM_card_WriteArrayOption" $@
+
+    if [ -r "$1" ] && [ -w "$1" ] ; then
+        typeset tmpfile=tmpfile_$$
+        if [ X"${4}" != X"" ]; then
+            tab=$4
+            IGCM_card_WriteOption $1 $2 $3 '('$( eval echo \${${tab}[@]} | sed -e 's/ /,/g' )')'
+        else
+            IGCM_card_WriteOption $1 $2 $3 '()'
+        fi
+    else
+        echo "--Error--> IGCM_card_WriteArrayOption $@"
+        echo "           $1 is not readable or not writable"
+        IGCM_debug_Exit "IGCM_card_WriteArrayOption"
+    fi
+    IGCM_debug_PopStack "IGCM_card_WriteArrayOption"
 }