Changeset 773 in Sophya for trunk/SophyaLib

Timestamp:

Mar 10, 2000, 4:23:01 PM (26 years ago)

Author:

ansari

Message:

Ajout de l'argument bool zero ds NDataBlock<T>::Alloc()
Fonction pour construire un message d'exception avec num de ligne et
nom de fichier ds pexceptions.h .cc

Reza 10/3/2000

Location:

trunk/SophyaLib/BaseTools

Files:

• ndatablock.cc (modified) (5 diffs)
• ndatablock.h (modified) (1 diff)
• pexceptions.cc (modified) (1 diff)
• pexceptions.h (modified) (1 diff)
• smathconst.h (modified) (1 diff)

trunk/SophyaLib/BaseTools/ndatablock.cc

@@ -30 +30 @@
 #endif
 
-Alloc(n);
+Alloc(n, NULL, NULL, true);   // allocation et mise a zero
 }
 
@@ -96 +96 @@
 
 template <class T>
-void NDataBlock<T>::Alloc(size_t n,T* data,Bridge* br)
+void NDataBlock<T>::Alloc(size_t n,T* data,Bridge* br,bool zero)
 // Allocation d'un NOUVEL espace de stoquage de "n" donnees
-// Si data==NULL : allocation de l'espace memoire (remplit de zeros)
+// Si data==NULL : allocation de l'espace memoire 
+//    si zero == true , l'espace est remplis de zeros
 //    data!=NULL : partage des donnees avec l'adresse data
 // Si br==NULL   : les donnees nous appartiennent
@@ -173 +174 @@
 mSRef->nref = 1;
 if(data) mSRef->data = data;
-else {mSRef->data = new T[n]; memset(mSRef->data,0,n*sizeof(T));}
+else {mSRef->data = new T[n]; if (zero) memset(mSRef->data,0,n*sizeof(T));}
 mSRef->bridge = br;
 
@@ -201 +202 @@
 if(&a==NULL) throw(NullPtrError("NDataBlock::Clone  &a==NULL\n"));
 if(!a.mSRef || a.mSz==0) throw(SzMismatchError("NDataBlock::Clone a.mSz==0\n"));
-Alloc(a.mSz);
+Alloc(a.mSz, NULL, NULL, false);  // pas de mise a zero 
 memcpy(Data(),a.Data(),mSz*sizeof(T));
 }
@@ -288 +289 @@
 if(data==NULL) throw(NullPtrError("NDataBlock::FillFrom  data==NULL\n"));
 if(n==0) throw(ParmError("NDataBlock::FillFrom  n<=0\n"));
-if(mSRef==NULL) Alloc(n);
+if(mSRef==NULL) Alloc(n, NULL, NULL, false);  // Pas de mise a zero
 if(mSz<n) n = mSz;
 memcpy(Data(),data,n*sizeof(T));

trunk/SophyaLib/BaseTools/ndatablock.h

@@ -109 +109 @@
   typedef struct {size_t nref; T* data; Bridge* bridge; } NDREF;
 
-  void Alloc(size_t n,T* data=NULL,Bridge* br=NULL);
+  void Alloc(size_t n,T* data=NULL,Bridge* br=NULL, bool zero=true);
   void Delete(void);
 

trunk/SophyaLib/BaseTools/pexceptions.cc

@@ -22 +22 @@
 }
 
+string BuildLongExceptionMessage(const char * s, const char *file, int line)
+{
+  char buff[32];
+  sprintf(buff," Line=%d", line);
+  string rs=s;
+  rs += " File="; rs += file; rs += buff;
+  return(rs);
+}
+
 #endif

trunk/SophyaLib/BaseTools/pexceptions.h

@@ -8 +8 @@
 using namespace std;
 
+// Petit utilitaire pour accoler numero de ligne et nom de fichier aux messages
+// d'exception
+#define PExcLongMessage(a) BuildLongExceptionMessage(a,__FILE__,__LINE__)
+
 namespace SOPHYA {
+
+  // Utiliatire pour accoler un nom de fichier et numero de ligne au message
+  string BuildLongExceptionMessage(const char * s, const char *file, int line);
 
   // Ancestor for PError and PException

trunk/SophyaLib/BaseTools/smathconst.h

@@ -4 +4 @@
 
 #include "machdefs.h"
+#include <values.h>
 
 /* EA conflit entre les diverses copies de nbmath.h, nbconst.h... A nettoyer... */