Changeset 23 for trunk/libIGCM/libIGCM_card

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

Location:

trunk/libIGCM/libIGCM_card

Files:

• IGCM_card_Test.ksh (modified) (1 diff)
• IGCM_card_WriteOption.awk (modified) (1 diff)
• libIGCM_card.ksh (modified) (3 diffs)

trunk/libIGCM/libIGCM_card/IGCM_card_Test.ksh

@@ -82 +82 @@
 
 diff ${libIGCM}/libIGCM_card/TestFile.card NewTestFile.card
-rm -f NewTestFile.card
+rm -f NewTestFile.card NewTestFile.card.bak
 

trunk/libIGCM/libIGCM_card/IGCM_card_WriteOption.awk

@@ -102 +102 @@
 END {
 
-if (! exit_value ) {
+    if (! exit_value ) {
 
-myprint("###############################")
-myprint("section      ====> " section)
-myprint("option       ====> " option)
-myprint("value        ====> " value)
+        myprint("###############################")
+        myprint("section      ====> " section)
+        myprint("option       ====> " option)
+        myprint("value        ====> " value)
+        
+        if (section_found == 0) {
+            print "Error: Section not found", section, option
+        } else if (option_found == 0) {
+            print "Error: Option not found", section, option
+        }       
+        
+    } else {
 
-if (section_found == 0) {
-        print "Error: Section not found"
-} else if (option_found == 0) {
-        print "Error: Option not found"
-}       
+        print "Error in with IGCM_WriteOption : ", section, option
 
-}
+    }
 
 }

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"
 }