Changeset 3221 in Sophya for trunk/SophyaPI/PIext/nomtmatvecadapter.cc

Timestamp:

Apr 12, 2007, 10:00:53 PM (18 years ago)

Author:

ansari

Message:

Amelioration methode GetInfoString() pour les adaptateurs TMatrix, TArray et DataTable (acces au DVList Info() en particulier, et recuperation des lignes de DataTable), Reza 12/04/2007

File:

• trunk/SophyaPI/PIext/nomtmatvecadapter.cc (modified) (6 diffs)

trunk/SophyaPI/PIext/nomtmatvecadapter.cc

@@ -15 +15 @@
 #include "pitvmaad.h"
 
+#include "cimage.h"  // Pour la prise en charge des Image<T> (Avr 2007)
+#include "pimgadapter.h"  // Adaptateur de tableaux PIImage pour Image<T>
+
 #include "fioarr.h"
 
@@ -55 +58 @@
 TVector<T>* v = dynamic_cast<TVector<T> *>(mMtx);
 if (v != NULL) type = "TVector< ";
-
+else {
+  Image<T>* img = dynamic_cast<Image<T> *>(mMtx);
+  if (img != NULL) type = "Image< ";
+}
 // type +=  DecodeTypeIdName(typeid(T).name());
 type += DataTypeInfo<T>::getTypeName();
@@ -69 +75 @@
 TVector<T>* v = dynamic_cast<TVector<T> *>(mMtx);
 if (v != NULL) return( new TVector<T>(*v, share) );
-else return ( new TMatrix<T>(*mMtx, share) );
+else {
+  Image<T>* img = dynamic_cast<Image<T> *>(mMtx);
+  if (img != NULL) return ( new Image<T>(*img, share) );
+  else return ( new TMatrix<T>(*mMtx, share) );
+}
+
 }
 
@@ -106 +117 @@
       return mtv.Convert(s);
     }
-    else return "TMatrix.Att: rank size/nelts nrow/nrows ncol/ncols sum";
+    else if (opts[0] == "info") { // Acces aux valeurs stockes ds le DVList Info()
+      if (opts.size() < 2)  return string(""); 
+      else if (mMtx->Info().HasKey(opts[1]) == false) return string(""); 
+      else return mMtx->Info().GetS(opts[1]);
+    }
+    else return "TMatrix.Att: rank size/nelts nrow/nrows ncol/ncols sum info.varname";
   }
 }
@@ -155 +171 @@
   FIO_TArray<T> fio(v);
   fio.Write(pos, nom);
-  }
+}
 else {
-  FIO_TArray<T> fio(mMtx);
-  fio.Write(pos, nom);
-  }
+  Image<T>* img = dynamic_cast<Image<T> *>(mMtx);
+  if (img != NULL) {
+    FIO_Image<T> fio(img);
+    fio.Write(pos, nom);
+  }
+  else {
+    FIO_TArray<T> fio(mMtx);
+    fio.Write(pos, nom);
+  }
+}
+return;
 }
 
@@ -187 +211 @@
 P2DArrayAdapter* NOMAdapter_TMatrix<T>::Get2DArray(string &)
 {
-return ( new POTMatrixAdapter<T>(mMtx, false) );
-}
+Image<T>* img = dynamic_cast<Image<T> *>(mMtx);
+if (img != NULL) return ( new ImageAdapter<T>(img, false) );
+else return ( new POTMatrixAdapter<T>(mMtx, false) );
+}
+
+// ---- Specialisation pour complexes -----
+DECL_TEMP_SPEC  /* equivalent a template <> , pour SGI-CC en particulier */
+P2DArrayAdapter* NOMAdapter_TMatrix< complex<r_4> >::Get2DArray(string &)
+{
+return ( new POTMatrixAdapter< complex<r_4> >(mMtx, false) );
+}
+DECL_TEMP_SPEC  /* equivalent a template <> , pour SGI-CC en particulier */
+P2DArrayAdapter* NOMAdapter_TMatrix< complex<r_8> >::Get2DArray(string &)
+{
+return ( new POTMatrixAdapter< complex<r_8> >(mMtx, false) );
+}
+// -------------------------------------------------------------
 
 /* --Methode-- */