Import Geant4 5.0.0 source tree

2016-06-08 16:57:27 +02:00
parent 330b82b769
commit 37fff30d2e
5733 changed files with 263867 additions and 74574 deletions
@@ -0,0 +1,128 @@
+//
+// ********************************************************************
+// * DISCLAIMER                                                       *
+// *                                                                  *
+// * The following disclaimer summarizes all the specific disclaimers *
+// * of contributors to this software. The specific disclaimers,which *
+// * govern, are listed with their locations in:                      *
+// *   http://cern.ch/geant4/license                                  *
+// *                                                                  *
+// * Neither the authors of this software system, nor their employing *
+// * institutes,nor the agencies providing financial support for this *
+// * work  make  any representation or  warranty, express or implied, *
+// * regarding  this  software system or assume any liability for its *
+// * use.                                                             *
+// *                                                                  *
+// * This  code  implementation is the  intellectual property  of the *
+// * GEANT4 collaboration.                                            *
+// * By copying,  distributing  or modifying the Program (or any work *
+// * based  on  the Program)  you indicate  your  acceptance of  this *
+// * statement, and all its terms.                                    *
+// ********************************************************************
+//
+///////////////////////////////////////////////////////////////////////////////
+// File: CCalutils.cc
+// Description: General utilities.
+///////////////////////////////////////////////////////////////////////////////
+#include "CCalutils.hh"
+#include "G4ios.hh"
+#include "G4UnitsTable.hh"
+#include "g4std/strstream"
+
+
+G4String operator+(const G4String& str, const int i) {
+  int l = str.length() + 15; //How long can an integer be?
+  char *cname = new char[l];
+  cname[0]='\0';
+  G4std::ostrstream os(cname, l);
+  os << str << i <<'\0';
+  G4String back(cname);  
+  delete[] cname;
+  return back;
+}
+
+
+G4String operator+(const G4String& str, const double i) {
+  int l = str.length() + 15; //How long can an double be?
+  char *cname = new char[l];
+  cname[0]='\0';
+  G4std::ostrstream os(cname, l);
+  os << str << i <<'\0';
+  G4String back(cname);  
+  delete[] cname;
+  return back;
+}
+
+
+G4std::ifstream& readName(G4std::ifstream& is, G4String& name){
+  is >> name;
+  if ( name != "*ENDDO" ) {
+    while ( name.find("#.") != G4String::npos ) { // It is a comment. Skip line.
+      is.ignore(999,'\n');
+      is >> name;
+    };
+    while ( name.rfind('\"') != name.length()-1 ) {
+      G4String other;
+      is >> other;
+      name += " ";
+      name += other;
+    };
+    name = name.strip(G4String::both, '\"');
+  }  
+  return is;
+}
+
+
+G4std::ifstream& findDO(G4std::ifstream& is, const G4String& str){
+  // Loop until *DO str is found
+  G4String firstwd, dowhat;
+  dowhat = "";
+  while (dowhat != str && is) {
+    is >> firstwd;
+    while (firstwd != "*DO" && is) {
+      is.ignore(999,'\n');
+      is >> firstwd;
+    };
+    is >> dowhat;
+  };
+  is.ignore(999,'\n');
+  return is;
+}
+
+
+G4std::ostream& tab(G4std::ostream& os) {
+  os << '\t';
+  return os;
+}
+
+
+G4std::istream& jump(G4std::istream& is) {
+  char first, second;
+  is.ignore(999,'\n');
+  do {
+    is.get(first);
+    second = is.peek();
+    if (first == '#' && second =='.') {
+      is.ignore(999,'\n');
+    }
+    else if (first == '\n'); //it was already picked
+    else {
+      is.putback(first);
+      return is;
+    }
+  }
+  while (is);
+  return is;
+}
+
+
+bool openGeomFile(G4std::ifstream& is, 
+		  const G4String& pathname, const G4String& filename) {
+  G4String fullname = pathname+"/"+filename;
+  is.open( fullname.c_str() );
+  if (!is) {
+    G4cerr << "ERROR: Could not open file " << filename << G4endl;
+    return false;
+  }
+  return true;
+}