Changeset 804 in Sophya for trunk/SophyaLib/TArray/fioarr.cc

Timestamp:

Apr 3, 2000, 7:36:01 PM (25 years ago)

Author:

ansari

Message:

Amelioation / debugging de la classe TArray<T> - TVector et TMatrix

heritent maintenant de TArray<T> - Classe RCMatrix rendu prive au fichier
sopemtx.cc - linfit.cc integre a sopemtx.cc

Reza 03/04/2000

File:

• trunk/SophyaLib/TArray/fioarr.cc (modified) (10 diffs)

trunk/SophyaLib/TArray/fioarr.cc

@@ -3 +3 @@
 
 #include "pexceptions.h"
+#include "fiondblock.h"
 #include "fioarr.h"
+#include "tmatrix.h"
+#include "tvector.h"
 
 // --------------------------------------------------------
@@ -13 +16 @@
 FIO_TArray<T>::FIO_TArray()
 {
-  dobj=new TArray<T>;
-  ownobj=true;
+  dobj=NULL;
+  ownobj=false;
 }
 
@@ -20 +23 @@
 FIO_TArray<T>::FIO_TArray(string const & filename) 
 {
-  dobj=new TArray<T>;
-  ownobj=true; 
+  dobj=NULL;
+  ownobj=false;
   Read(filename);
 }
@@ -28 +31 @@
 FIO_TArray<T>::FIO_TArray(const TArray<T> & obj) 
 { 
-  dobj = new TArray<T>(obj);
+  const TVector<T> * tv = dynamic_cast<const TVector<T> *>(&obj);
+  if (tv != NULL)  dobj = new TVector<T>(*tv, true);
+  else {
+  const TMatrix<T> * tm = dynamic_cast<const TMatrix<T> *>(&obj);
+  if (tm != NULL)  dobj = new TMatrix<T>(*tm, true);
+  else dobj = new TArray<T>(obj, true);
+  }
   ownobj=true; 
 }
@@ -63 +72 @@
 void FIO_TArray<T>::ReadSelf(PInPersist& is)
 {
-// On lit les 3 premiers uint_4
-//  0: Numero de version,   : NRows,  2 : NCol
+// On lit les 5 premiers uint_4
+//  0: Numero de version,  1 : Type (Array, matrix, Vector, ...)  2 != 0 , has Info
+//          1:Type = 0 TArray , 12=(4+8) TMatrix , 48=(16+32) TVector
   uint_4 itab[5];
   is.Get(itab,5);
-  if (dobj == NULL) dobj = new TArray<T>;
+  if (dobj == NULL) {
+    if (itab[1] == 12)   dobj = new TMatrix<T>;
+    else if (itab[1] == 48)   dobj = new TVector<T>;
+    else   dobj = new TArray<T>;
+  }
 // On lit les tailles, etc ...
   is.Get(dobj->ndim_);
@@ -78 +92 @@
   is.Get(dobj->marowi_);
   is.Get(dobj->macoli_);
+  is.Get(dobj->veceli_);
 // On lit le datablock
   is >> dobj->DataBlock();
@@ -88 +103 @@
 {
   if (dobj == NULL)   return;
-//  On ecrit 4 uint_4 .... 
+//  On ecrit 5 uint_4 .... 
 //  0: Numero de version,  1 : Type (Array, matrix, Vector, ...)  2 != 0 , has Info
+//          1:Type = 0 TArray , 12=(4+8) TMatrix , 48=(16+32) TVector
+  uint_4 typa = 0;
+  TVector<T> * tv = dynamic_cast<TVector<T> *>(dobj);
+  if (tv != NULL)  typa = 48;
+  else {
+  TMatrix<T> * tm = dynamic_cast<TMatrix<T> *>(dobj);
+  if (tm != NULL)  typa = 12;
+  else  typa = 0;
+  }
+
   uint_4 itab[5];
   itab[0] = 1;  // Numero de version a 1
-  itab[1] = 0;
+  itab[1] = typa;  // Real object type
   itab[2] = (dobj->mInfo != NULL) ? 1 : 0;
   itab[3] = itab[4] = 0;
-  os.Put(itab,3);
+  os.Put(itab,5);
 // On ecrit les tailles, etc ...
   os.Put(dobj->ndim_);
@@ -106 +131 @@
   os.Put(dobj->marowi_);
   os.Put(dobj->macoli_);
+  os.Put(dobj->veceli_);
 // On ecrit le datablock
   os << dobj->DataBlock();
@@ -117 +143 @@
 #ifdef __CXX_PRAGMA_TEMPLATES__
 // Instances des delegues FileIO (PPersist)
-#pragma define_template FIO_TArray<uint_1>
+// #pragma define_template FIO_TArray<uint_1>
 #pragma define_template FIO_TArray<uint_2>
-#pragma define_template FIO_TArray<int_2>
+// #pragma define_template FIO_TArray<int_2>
 #pragma define_template FIO_TArray<int_4>
 #pragma define_template FIO_TArray<int_8>
-#pragma define_template FIO_TArray<uint_4>
-#pragma define_template FIO_TArray<uint_8>
+// #pragma define_template FIO_TArray<uint_4>
+// #pragma define_template FIO_TArray<uint_8>
 #pragma define_template FIO_TArray<r_8>
 #pragma define_template FIO_TArray<r_4>
@@ -132 +158 @@
 #if defined(ANSI_TEMPLATES) || defined(GNU_TEMPLATES)
 // Instances des delegues FileIO (PPersist)
-template class FIO_TArray<uint_1>;
+// template class FIO_TArray<uint_1>;
 template class FIO_TArray<uint_2>;
-template class FIO_TArray<int_2>;
-template class FIO_TArray<int_4>;
+// template class FIO_TArray<int_2>;
+// template class FIO_TArray<int_4>;
 template class FIO_TArray<int_8>;
-template class FIO_TArray<uint_4>;
-template class FIO_TArray<uint_8>;
+// template class FIO_TArray<uint_4>;
+// template class FIO_TArray<uint_8>;
 template class FIO_TArray<r_8>;
 template class FIO_TArray<r_4>;