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

Timestamp:

Aug 29, 2000, 6:10:32 PM (25 years ago)

Author:

ansari

Message:

Introduction du type sa_size_t (taille des tableaux), operateur - (TArray::operator - et NegateElt()) - Reza 29/8/2000

File:

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

trunk/SophyaLib/TArray/fioarr.cc

@@ -93 +93 @@
   uint_4 itab[5];
   is.Get(itab,5);
+
+  // Checking version number
+  if (itab[0] < 2) 
+    FileFormatExc("FIO_TArray<T>::ReadSelf() - Unsupported (old V<2) version"); 
+
   if (dobj == NULL) {
     if (itab[1] == 12)   dobj = new TMatrix<T>;
@@ -99 +104 @@
   }
 // On lit les tailles, etc ...
-  is.Get(dobj->ndim_);
-  is.Get(dobj->size_, BASEARRAY_MAXNDIMS);
-  is.Get(dobj->totsize_);
-  is.Get(dobj->step_, BASEARRAY_MAXNDIMS);
-  is.Get(dobj->minstep_);
-  is.Get(dobj->moystep_);
-  is.Get(dobj->offset_);
-  is.Get(dobj->marowi_);
-  is.Get(dobj->macoli_);
-  is.Get(dobj->veceli_);
+// On ecrit les tailles, etc ...
+  int_4 tmpi4s[5];
+  is.Get(tmpi4s, 5);
+  dobj->ndim_ = tmpi4s[0];
+  dobj->marowi_ = tmpi4s[1];
+  dobj->macoli_ = tmpi4s[2];
+  dobj->veceli_ = tmpi4s[3];
+// tmpi4s[4] Reserved for future use 
+
+// Tous les sa_size_t sont ecrit/lu en int_8 afin de maintenir la compatibilite  
+// entre version du programme utilisant int_4 OU int_8 pour sa_size_t 
+  int_8 tmpi8s[BASEARRAY_MAXNDIMS];
+
+  is.Get(tmpi8s, BASEARRAY_MAXNDIMS);
+  for(int kk=0; kk<BASEARRAY_MAXNDIMS; kk++) 
+    dobj->size_[kk] = tmpi8s[kk];
+  is.Get(tmpi8s, BASEARRAY_MAXNDIMS);
+  for(int kk=0; kk<BASEARRAY_MAXNDIMS; kk++) 
+    dobj->step_[kk] = tmpi8s[kk];
+
+  is.Get(tmpi8s, 5);
+  dobj->totsize_ = tmpi8s[0];
+  dobj->offset_ = tmpi8s[1];
+  dobj->minstep_ = tmpi8s[2];
+  dobj->moystep_ = tmpi8s[3];
+// tmpi8s[4] Reserved for future use 
+
 // On lit le datablock
   is >> dobj->DataBlock();
@@ -132 +154 @@
 
   uint_4 itab[5];
-  itab[0] = 1;  // Numero de version a 1
+  itab[0] = 2;  // Numero de version a 2 depuis Aout 2000  - Reza
   itab[1] = typa;  // Real object type
   itab[2] = (dobj->mInfo != NULL) ? 1 : 0;
   itab[3] = itab[4] = 0;
   os.Put(itab,5);
+
 // On ecrit les tailles, etc ...
-  os.Put(dobj->ndim_);
-  os.Put(dobj->size_, BASEARRAY_MAXNDIMS);
-  os.Put(dobj->totsize_);
-  os.Put(dobj->step_, BASEARRAY_MAXNDIMS);
-  os.Put(dobj->minstep_);
-  os.Put(dobj->moystep_);
-  os.Put(dobj->offset_);
-  os.Put(dobj->marowi_);
-  os.Put(dobj->macoli_);
-  os.Put(dobj->veceli_);
+  int_4 tmpi4s[5];
+  //  os.Put(dobj->ndim_);
+  //  os.Put(dobj->marowi_);
+  //  os.Put(dobj->macoli_);
+  //  os.Put(dobj->veceli_);
+  tmpi4s[0] = dobj->ndim_;
+  tmpi4s[1] = dobj->marowi_;
+  tmpi4s[2] = dobj->macoli_;
+  tmpi4s[3] = dobj->veceli_;
+  tmpi4s[4] = 0;   // Reserved for future use
+  os.Put(tmpi4s, 5);
+
+// Tous les sa_size_t sont ecrit en int_8 afin de pouvoir etre ecrit/relu
+// entre version du programme utilisant int_4 OU int_8 pour sa_size_t 
+  int_8 tmpi8s[BASEARRAY_MAXNDIMS];
+
+  //  os.Put(dobj->size_, BASEARRAY_MAXNDIMS);
+  for(int kk=0; kk<BASEARRAY_MAXNDIMS; kk++) 
+    tmpi8s[kk] = dobj->size_[kk];
+  os.Put(tmpi8s, BASEARRAY_MAXNDIMS);
+  //  os.Put(dobj->step_, BASEARRAY_MAXNDIMS);
+  for(int kk=0; kk<BASEARRAY_MAXNDIMS; kk++) 
+    tmpi8s[kk] = dobj->step_[kk];
+  os.Put(tmpi8s, BASEARRAY_MAXNDIMS);
+
+  //  os.Put(dobj->totsize_);
+  //  os.Put(dobj->offset_);
+  //  os.Put(dobj->minstep_);
+  //  os.Put(dobj->moystep_);
+  tmpi8s[0] = dobj->totsize_;
+  tmpi8s[1] = dobj->offset_;
+  tmpi8s[2] = dobj->minstep_;
+  tmpi8s[3] = dobj->moystep_;
+  tmpi8s[4] = 0;  // Reserved for future use 
+  os.Put(tmpi8s, 5);
+  
 // On ecrit le datablock
   os << dobj->DataBlock();