Changeset 578 in Sophya for trunk/SophyaLib/BaseTools/peidainit.cc

Timestamp:

Nov 16, 1999, 2:24:45 PM (26 years ago)

Author:

ansari

Message:

fichier numero de version - Reza 16/11/99

File:

• trunk/SophyaLib/BaseTools/peidainit.cc (modified) (3 diffs)

trunk/SophyaLib/BaseTools/peidainit.cc

@@ -7 +7 @@
 #include "peidainit.h"
 #include "ndatablock.h"
+#include "sversion.h"
 
 // ---  Classe d'initialisation de PEIDA++, (PPersistMgr en particulier)
@@ -51 +52 @@
 
   // si var env PEIDA_NOPRTVER definie pas de print
-  if(!getenv("PEIDA_NOPRTVER")) PrintPeidaVersion();
+  if(!getenv("SOPHYA_NOPRTVER")) PrintPeidaVersion();
 }
 
@@ -68 +69 @@
 double PeidaInitiator::Version(bool fgprt)
 {
-if (fgprt)  PrintPeidaVersion();
-return(PeidaVersion());
+if (fgprt) {
+  char* compiler;
+  #ifdef __GNUG__
+  compiler = "gcc " __VERSION__;
+  #endif
+  #ifdef __DECCXX
+  compiler = "cxx " ;
+  #endif
+  #ifdef __aCC__
+  compiler = const_cast<char *>("HP-aCC ") ;
+  #endif
+  #ifdef __KCC__
+  compiler = const_cast<char *>("KCC ") ;
+  #endif
+  #ifdef __SGICC__
+  compiler = const_cast<char *>("SGI-CC ") ;
+  #endif
+  fprintf(stderr,"SOPHYA Version %4.1f Revision %d (%s) -- %s %s %s\n",
+          SOPHYA_VERSION, SOPHYA_REVISION, SOPHYA_TAG,
+          __DATE__, __TIME__, compiler);
+}
+return(SOPHYA_VERSION + (SOPHYA_REVISION/1000.));
 }