Changeset 2752 in Sophya for trunk/SophyaLib/TArray/tarray.cc

Timestamp:

May 23, 2005, 6:18:17 PM (20 years ago)

Author:

ansari

Message:

1/ Suppression du constructeur de copie avec specification d'organisation memoire (MemoryMapping) pour TMatrix<T> et TVector<T>
2/ Amelioration de l'impression des TArray/TMatrix avec la specification setw(largeur)
3/ Correction petit bug dans la lecture fichiers ASCII argument non transmis ds utilarr.cc

Reza 23 Mai 2005

File:

• trunk/SophyaLib/TArray/tarray.cc (modified) (4 diffs)

trunk/SophyaLib/TArray/tarray.cc

@@ -7 +7 @@
 #include <stdlib.h>
 #include <math.h>
+#include <iomanip>
+
 #include "pexceptions.h"
 #include "tarray.h"
@@ -1303 +1305 @@
   if (maxprt < 0)  maxprt = max_nprt_;
   sa_size_t npr = 0;
+  // keep stream's io flags 
+  ios_base::fmtflags ioflg = os.flags();
+  os << right ;
+  
   Show(os, si);
   if (ndim_ < 1) return;
+
+  // Calcul de la largeur d'impression pour chaque element
+  int fprtw = os.precision()+7;
+  int prtw = 5;
+
+  if ( (typeid(T) == typeid( int_4 )) || (typeid(T) == typeid( uint_4 )) ) prtw = 8;
+  else if ( (typeid(T) == typeid( int_8 )) || (typeid(T) == typeid( uint_8 )) ) prtw = 11;
+  else if ( typeid(T) == typeid( r_4 ) ) prtw = fprtw;
+  else if ( typeid(T) == typeid( r_8 ) ) prtw = fprtw;
+  else if ( typeid(T) == typeid(complex<r_4>) ) prtw = fprtw;
+  else if ( typeid(T) == typeid(complex<r_8>) ) prtw = fprtw;
+
+
   sa_size_t k0,k1,k2,k3,k4;
   for(k4=0; k4<size_[4]; k4++) {
@@ -1320 +1339 @@
           for(k0=0; k0<size_[0]; k0++) {
             if(k0 > 0) os << " ";  
-            os << Elem(k0, k1, k2, k3, k4);     npr++;
+            os << setw(prtw) << Elem(k0, k1, k2, k3, k4);     npr++;
             if (npr >= (sa_size_t) maxprt) {
               if (npr < totsize_)  os << "\n     .... " << endl; return;
@@ -1331 +1350 @@
   }
   os <<  endl;
+  os.flags(ioflg);  // reset stream io flags
 }