Changeset 1393 in Sophya

Timestamp:

Feb 12, 2001, 6:09:03 PM (25 years ago)

Author:

ansari

Message:

Ajout methodes ReSize(TArray &) - Reza 12/2/2001

Location:

trunk/SophyaLib/TArray

Files:

• tarray.cc (modified) (2 diffs)
• tarray.h (modified) (1 diff)

trunk/SophyaLib/TArray/tarray.cc

@@ -230 +230 @@
 
 
-//! Resize array
+//! Sets or changes the array size 
 /*!
   \param ndim : number of dimensions
@@ -245 +245 @@
        throw( ParmError("TArray<T>::ReSize(,siz[0]>1 && size[1]>1) for Vector" ) ); 
   }
-  string exmsg = "TArray<T>::ReSize()";
+  string exmsg = "TArray<T>::ReSize(int_4 ...)";
   if (!UpdateSizes(ndim, siz, step, 0, exmsg))  throw( ParmError(exmsg) );
   mNDBlock.ReSize(totsize_);    
+}
+
+//! Sets or changes the array size.
+/*!
+  The array size and memory layout are copied from the array \b a.
+  \param a : Array used as template for setting the size and memory layout.
+ */
+template <class T>
+void TArray<T>::ReSize(const TArray<T>& a)
+{
+  if (arrtype_ != 0) {
+    if (a.NbDimensions() != 2) 
+       throw( ParmError("TArray<T>::ReSize(a.NbDimensions()!=2,...) for Matrix" ) ); 
+    if ((arrtype_ == 2) && (a.Size(0) > 1) && (a.Size(1) > 1)) 
+       throw( ParmError("TArray<T>::ReSize(a.Size(0)>1 && a.Size(1)>1) for Vector" ) ); 
+  }
+  string exmsg = "TArray<T>::ReSize(const TArray<T>&)";
+  if (!UpdateSizes(a, exmsg))  throw( ParmError(exmsg) );
+  mNDBlock.ReSize(totsize_);      
 }
 

trunk/SophyaLib/TArray/tarray.h

@@ -55 +55 @@
   void CloneOrShare(const TArray<T>& a);
   // Share: partage les donnees de "a"
-
   void Share(const TArray<T>& a);
+
   void ReSize(int_4 ndim, sa_size_t * siz, sa_size_t step=1);
+  void ReSize(const TArray<T>& a);
+  //! a synonym (alias) for method ReSize(int_4, ...)
+  inline void SetSize(int_4 ndim, sa_size_t * siz, sa_size_t step=1)
+                { ReSize(ndim, siz, step); }
+  //! a synonym (alias) for method ReSize(const TArray<T>&)
+  inline void SetSize(const TArray<T>& a)
+                { ReSize(a); }
   void Realloc(int_4 ndim, sa_size_t * siz, sa_size_t step=1, bool force=false);