Changeset 1875 for XIOS/dev/dev_ym/XIOS_COUPLING/src/attribute_array.hpp

Timestamp:

05/12/20 11:52:13 (4 years ago)

Author:

ymipsl

Message:

XIOS coupling branch
Some updates.

First coupling test is beginning to work...

YM

File:

• XIOS/dev/dev_ym/XIOS_COUPLING/src/attribute_array.hpp (modified) (3 diffs)

XIOS/dev/dev_ym/XIOS_COUPLING/src/attribute_array.hpp

@@ -21 +21 @@
       {
         public :
-
-           using CArray<T_numtype,N_rank>::operator = ;
+            using CArray<T_numtype,N_rank>::operator = ;
 
             /// Constructeurs ///
@@ -65 +64 @@
             virtual void generateFortranInterfaceGetBody_(ostream& oss,const string& className) ;
             virtual void generateFortranInterfaceGetDeclaration(ostream& oss,const string& className) ;
+ 
+ static int show_TV_ttf_display_type ( const CAttributeArray<T_numtype,N_rank>* array )
+      {
+        int status ;
+        if (array->isEmpty()) 
+        {
+          status = TV_ttf_add_row("State", TV_ttf_type_ascii_string,"(empty)") ;
+          if (status != TV_ttf_ec_ok) return TV_ttf_format_raw ;
+          else return TV_ttf_format_ok_elide ;
+        }
+        else 
+        {
+          char tname[128] ;
+          char bname[128] = "value_type" ;
+#ifdef __GNUC__
+         size_t size = sizeof(bname) ;
+         abi::__cxa_demangle(typeid(T_numtype).name(), bname, &size, &status) ;
+         if (status !=0) return TV_ttf_format_raw ;
+#endif
+          int dim = array->dimensions() ;
+          if (dim==1) snprintf (tname, sizeof(tname), "%s[%d]", bname, array->extent(0));
+          if (dim==2) snprintf (tname, sizeof(tname), "%s[%d][%d]", bname, array->extent(1), array->extent(0));
+          if (dim==3) snprintf (tname, sizeof(tname), "%s[%d][%d][%d]", bname, array->extent(2), array->extent(1), array->extent(3));
+          if (dim==4) snprintf (tname, sizeof(tname), "%s[%d][%d][%d][%d]", bname, array->extent(0), array->extent(1), array->extent(2), array->extent(3));
+          if (dim==5) snprintf (tname, sizeof(tname), "%s[%d][%d][%d][%d][%d]", bname, array->extent(4), array->extent(3), array->extent(2), array->extent(1)
+                                                                                      ,array->extent(0));
+          if (dim==6) snprintf (tname, sizeof(tname), "%s[%d][%d][%d][%d][%d][%d]", bname, array->extent(5), array->extent(4), array->extent(3), array->extent(2)
+                                                                                      ,array->extent(1),array->extent(0));
+          if (dim==7) snprintf (tname, sizeof(tname), "%s[%d][%d][%d][%d][%d][%d][%d]", bname, array->extent(6), array->extent(5), array->extent(4), array->extent(3)
+                                                                                      ,array->extent(2),array->extent(1),array->extent(0));
+          status = TV_ttf_add_row("array_values", tname, array->dataFirst()) ;
+          if (status != TV_ttf_ec_ok) return TV_ttf_format_raw ;
+          else return TV_ttf_format_ok ;
+        }
+      }
+      
+            
+            static int TV_ttf_display_type ( const  CAttributeArray<T_numtype,N_rank>* array )
+           {
+             return CAttributeArray<T_numtype,N_rank>::show_TV_ttf_display_type (array) ;
+           }
 
          private :
@@ -75 +115 @@
           bool _fromBuffer(CBufferIn& buffer) ;
       }; // class CAttributeEnum
+
+
+#define macrotyperank(_TYPE_,_RANK_)\
+  template<> int CAttributeArray<_TYPE_,_RANK_>::TV_ttf_display_type(const CAttributeArray<_TYPE_,_RANK_>* array ) \
+  {\
+    return CAttributeArray<_TYPE_,_RANK_>::show_TV_ttf_display_type (array) ;\
+  }
+
+#define macrotype(_TYPE_)\
+macrotyperank(_TYPE_,1)\
+macrotyperank(_TYPE_,2)\
+macrotyperank(_TYPE_,3)\
+macrotyperank(_TYPE_,4)\
+macrotyperank(_TYPE_,5)\
+macrotyperank(_TYPE_,6)\
+macrotyperank(_TYPE_,7)
+
+macrotype(double)
+macrotype(int)
+macrotype(bool)
+macrotype(size_t)
+macrotype(float)
+macrotype(string)
+
+#undef macrotyperank
+#undef macrotype
 } // namespace xios