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

Timestamp:

Jul 2, 2006, 7:20:56 PM (19 years ago)

Author:

ansari

Message:

1/ Ajout methode Services2NObjMgr::DisplayPoints3DW() et commande plot3dw
2/ Ajout et utilisation methode de verification de nom NamedObjMgr::CheckName()
3/ Changement methode NObjMgrAdapter::GetInfoString() et son utilisation
a travers la methdoe PIACmd::GetVarApp() pour acces de type $objname
4/ Ajout methode NObjMgrAdapter::PerformOperation() , implemente pour
adaptateur TMatrix<T> et TArray<T> pour extraction de ligne/colonne
(des matrices) et plan (slice) des TArray pour Rank()>3 Et mise en place
de la commande objaoper pour appel a PerformOperation()
5/ Petites corrections pour ntline2var vec2var

Reza 2 Juillet 2006

File:

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

trunk/SophyaPI/PIext/nomtmatvecadapter.cc

@@ -17 +17 @@
 #include "fioarr.h"
 
+#include "nobjmgr.h"
 
 //----------------------------------------------------------------
@@ -71 +72 @@
 }
 
+/* --Methode-- */
+template <class T> 
+string NOMAdapter_TMatrix<T>::GetInfoString(vector<string>& opts)
+{
+  if (opts.size() == 0) return mMtx->InfoString();
+  else {
+    if (opts[0] == "rank") return string("2");
+    else if (opts[0] == "sizes") {
+      char buff[64];
+      TVector<T>* v = dynamic_cast<TVector<T> *>(mMtx);
+      if (v != NULL) sprintf(buff, "%ld", (long)mMtx->Size());
+      else sprintf(buff, "%ld %ld", (long)mMtx->NRows(), (long)mMtx->NCols()); 
+      return string(buff);
+    }
+    else if ((opts[0] == "size") || (opts[0] == "nelts")) {
+      char buff[32];
+      sprintf(buff, "%ld", (long)mMtx->Size()); 
+      return string(buff);
+    }
+    else if (opts[0] == "sum") {
+      MuTyV mtv(mMtx->Sum());
+      string s;
+      return mtv.Convert(s);
+    }
+    else return mMtx->InfoString();
+  }
+}
+
+/* --Methode-- */
+template <class T> 
+int NOMAdapter_TMatrix<T>::PerformOperation(vector<string>& opts)
+{
+  bool ok = false;
+  if (opts.size() >= 2) {
+    int_4 kk = atoi(opts[1].c_str());
+    TVector<T> * vrc = new TVector<T>;
+    char buff[40];
+    if ((opts[0] == "row") || (opts[0] == "line")) { 
+      vrc->Share(mMtx->Row((sa_size_t)kk));  
+      ok = true; 
+      sprintf(buff,"row_%ld",(long)kk);
+      cout << "PerformOperation(): Extracting Row(" << kk << ") from matrix" << endl;
+    }
+    else if ((opts[0] == "col") || (opts[0] == "column")) { 
+      vrc->Share(mMtx->Column((sa_size_t)kk));  
+      ok = true; 
+      sprintf(buff,"col_%ld",(long)kk);
+      cout << "PerformOperation(): Extracting Column(" << kk << ") from matrix" << endl;
+    }
+    if (ok) {
+      string nvrc;
+      if (opts.size() > 2)  nvrc = opts[2];
+      else nvrc = buff;
+      NamedObjMgr omg;
+      omg.AddObj(vrc, nvrc, true); 
+      return 0;
+    }
+  }
+  
+  cout << "NOMAdapter_TMatrix<T>::PerformOperation(): Error operation/arguments !" << endl;
+  return 1; 
+}
 
 /* --Methode-- */