Import Geant4 0.0.0 source tree

2016-06-01 15:25:35 +02:00
parent 54d6b71f95
commit b97f8d0df7
3237 changed files with 807095 additions and 0 deletions
@@ -0,0 +1,135 @@
+// This code implementation is the intellectual property of
+// the RD44 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.
+//
+// $Id: G4UIcmdWith3VectorAndUnit.cc,v 2.1 1998/07/12 02:59:43 urbi Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+//
+
+#include "G4UIcmdWith3VectorAndUnit.hh"
+#ifdef WIN32
+#  include <Strstrea.h>
+#else
+#  include <strstream.h>
+#endif
+
+G4UIcmdWith3VectorAndUnit::G4UIcmdWith3VectorAndUnit
+(const char * theCommandPath,G4UImessenger * theMessenger)
+:G4UIcommand(theCommandPath,theMessenger)
+{
+  G4UIparameter * dblParamX = new G4UIparameter('d');
+  SetParameter(dblParamX);
+  G4UIparameter * dblParamY = new G4UIparameter('d');
+  SetParameter(dblParamY);
+  G4UIparameter * dblParamZ = new G4UIparameter('d');
+  SetParameter(dblParamZ);
+  G4UIparameter * untParam = new G4UIparameter('s');
+  SetParameter(untParam);
+  untParam->SetParameterName("Unit");
+}
+
+G4ThreeVector G4UIcmdWith3VectorAndUnit::GetNew3VectorValue(G4String paramString)
+{
+  G4double vx;
+  G4double vy;
+  G4double vz;
+  char unts[30];
+  const char* t = paramString;
+  istrstream is((char*)t);
+  is >> vx >> vy >> vz >> unts;
+  G4String unt = unts;
+  G4double uv = ValueOf(unt);
+  return G4ThreeVector(vx*uv,vy*uv,vz*uv);
+}
+
+G4ThreeVector G4UIcmdWith3VectorAndUnit::GetNew3VectorRawValue(G4String paramString)
+{
+  G4double vx;
+  G4double vy;
+  G4double vz;
+  char unts[30];
+  const char* t = paramString;
+  istrstream is((char*)t);
+  is >> vx >> vy >> vz >> unts;
+  return G4ThreeVector(vx,vy,vz);
+}
+
+G4double G4UIcmdWith3VectorAndUnit::GetNewUnitValue(G4String paramString)
+{
+  G4double vx;
+  G4double vy;
+  G4double vz;
+  char unts[30];
+  const char* t = paramString;
+  istrstream is((char*)t);
+  is >> vx >> vy >> vz >> unts;
+  G4String unt = unts;
+  return ValueOf(unt);
+}
+
+G4String G4UIcmdWith3VectorAndUnit::ConvertToString
+(G4ThreeVector vec,const char * unitName)
+{
+  G4String unt = unitName;
+  G4double uv = ValueOf(unitName);
+  
+  char st[100];
+  ostrstream os(st,100);
+  os << vec.x()/uv << " " << vec.y()/uv << " " << vec.z()/uv
+     << " " << unitName << '\0';
+  G4String vl = st;
+  return vl;
+}
+
+void G4UIcmdWith3VectorAndUnit::SetParameterName
+(const char * theNameX,const char * theNameY,const char * theNameZ,
+G4bool omittable,G4bool currentAsDefault)
+{
+  G4UIparameter * theParamX = GetParameter(0);
+  theParamX->SetParameterName(theNameX);
+  theParamX->SetOmittable(omittable);
+  theParamX->SetCurrentAsDefault(currentAsDefault);
+  G4UIparameter * theParamY = GetParameter(1);
+  theParamY->SetParameterName(theNameY);
+  theParamY->SetOmittable(omittable);
+  theParamY->SetCurrentAsDefault(currentAsDefault);
+  G4UIparameter * theParamZ = GetParameter(2);
+  theParamZ->SetParameterName(theNameZ);
+  theParamZ->SetOmittable(omittable);
+  theParamZ->SetCurrentAsDefault(currentAsDefault);
+}
+
+void G4UIcmdWith3VectorAndUnit::SetDefaultValue(G4ThreeVector vec)
+{
+  G4UIparameter * theParamX = GetParameter(0);
+  theParamX->SetDefaultValue(vec.x());
+  G4UIparameter * theParamY = GetParameter(1);
+  theParamY->SetDefaultValue(vec.y());
+  G4UIparameter * theParamZ = GetParameter(2);
+  theParamZ->SetDefaultValue(vec.z());
+}
+
+void G4UIcmdWith3VectorAndUnit::SetUnitCategory(const char * unitCategory)
+{
+  SetUnitCandidates(UnitsList(unitCategory));
+}
+
+void G4UIcmdWith3VectorAndUnit::SetUnitCandidates(const char * candidateList)
+{
+  G4UIparameter * untParam = GetParameter(3);
+  G4String canList = candidateList;
+  untParam->SetParameterCandidates(canList);
+}
+
+void G4UIcmdWith3VectorAndUnit::SetDefaultUnit(const char * defUnit)
+{
+  G4UIparameter * untParam = GetParameter(3);
+  untParam->SetOmittable(true);
+  untParam->SetDefaultValue(defUnit);
+  SetUnitCategory(CategoryOf(defUnit));
+}
+