Changeset 54 for trunk/libIGCM/libIGCM_debug/libIGCM_debug.ksh

Timestamp:

03/12/09 17:56:49 (15 years ago)

Author:

sdipsl

Message:

A few bug fixes and adaptation for ulam so that libIGCM auto-check
succeed on this machine.

File:

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

trunk/libIGCM/libIGCM_debug/libIGCM_debug.ksh

@@ -57 +57 @@
 
 # insert last argument of the Stack
-set +A IGCM_debug_Stack ${NULL_STR}
-set +A IGCM_debug_StackArgs ${NULL_STR}
+#set -A IGCM_debug_Stack ${NULL_STR}
+#set -A IGCM_debug_StackArgs ${NULL_STR}
+IGCM_debug_Stack[0]=${NULL_STR}
+IGCM_debug_StackArgs[0]=${NULL_STR}
 IGCM_debug_LenStack=0
 
@@ -157 +159 @@
           #IGCM_debug_Print 3 "Clean stack array"
           #echo
-          set -A IGCM_debug_Stack ${NULL_STR}
-          set -A IGCM_debug_StackArgs ${NULL_STR}
+          #set -A IGCM_debug_Stack ${NULL_STR}
+          #set -A IGCM_debug_StackArgs ${NULL_STR}
+          IGCM_debug_Stack[0]=${NULL_STR}
+          IGCM_debug_StackArgs[0]=${NULL_STR}
       fi
 
@@ -248 +252 @@
     shift
 
-    if set | grep $1 | sed -e "s/'//g" > /dev/null 2>&1  ; then
-        typeset list=$( set | grep $1 | sed -e "s/'//g" )
+    list=$( set | grep $1 | sed -e "s/'//g" )
+
+    if [ "X${list}" != X ]  ; then
         IGCM_debug_Print ${level} ${list}
     fi