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,87 @@
+// 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: G4FastSimulationMessenger.cc,v 2.3 1998/10/13 09:54:40 mora Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+
+#include "G4FastSimulationMessenger.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithAString.hh"
+#include "G4UIcmdWithoutParameter.hh"
+
+#include "G4ios.hh"
+
+G4FastSimulationMessenger::
+G4FastSimulationMessenger(G4GlobalFastSimulationManager* theGFSM)
+  : fGlobalFastSimulationManager(theGFSM)
+{
+  fFSDirectory = new G4UIdirectory("/param/");
+  fFSDirectory->SetGuidance("Fast Simulation print/control commands.");
+
+  fListEnvelopesCmd = 
+    new G4UIcmdWithAString("/param/listEnvelopes", this);
+  fListEnvelopesCmd->SetParameterName("ParticleName",true);
+  fListEnvelopesCmd->SetDefaultValue("all");
+  fListEnvelopesCmd->SetGuidance("List all the envelope names for a given Particle");
+  fListEnvelopesCmd->SetGuidance("(or for all particles if without parameters).");
+  fListEnvelopesCmd->AvailableForStates(PreInit,Idle);
+  
+  fListModelsCmd = 
+    new G4UIcmdWithAString("/param/listModels", this);
+  fListModelsCmd->SetParameterName("EnvelopeName",true);
+  fListModelsCmd->SetDefaultValue("all");
+  fListModelsCmd->SetGuidance("List all the Model names for a given Envelope");
+  fListModelsCmd->SetGuidance("(or for all envelopes if without parameters).");
+  fListModelsCmd->AvailableForStates(PreInit,Idle);
+  
+  fListIsApplicableCmd =
+    new G4UIcmdWithAString("/param/listIsApplicable", this);
+  fListIsApplicableCmd->SetParameterName("ModelName",true);
+  fListIsApplicableCmd->SetDefaultValue("all");
+  fListIsApplicableCmd->SetGuidance("List all the Particle names a given Model is applicable");
+  fListIsApplicableCmd->SetGuidance("(or for all Models if without parameters).");
+
+  fActivateModel =
+    new G4UIcmdWithAString("/param/ActivateModel", this);
+  fActivateModel->SetParameterName("ModelName",false);
+  fActivateModel->SetGuidance("Activate a given Model.");
+
+  fInActivateModel =
+    new G4UIcmdWithAString("/param/InActivateModel", this);
+  fInActivateModel->SetParameterName("ModelName",false);
+  fInActivateModel->SetGuidance("InActivate a given Model.");
+}
+
+G4FastSimulationMessenger::~G4FastSimulationMessenger()
+{
+  delete fListIsApplicableCmd;
+  delete fActivateModel;
+  delete fInActivateModel;
+  delete fListModelsCmd;
+  delete fListEnvelopesCmd;
+  delete fFSDirectory;
+}
+
+void G4FastSimulationMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
+{
+  if( command == fListEnvelopesCmd)
+    if(newValue == "all") 
+      fGlobalFastSimulationManager->ListEnvelopes();
+    else 
+      fGlobalFastSimulationManager->
+	ListEnvelopes(G4ParticleTable::GetParticleTable()->
+		      FindParticle(newValue));
+  if( command == fListModelsCmd)
+    fGlobalFastSimulationManager->ListEnvelopes(newValue, MODELS); 
+  if( command == fListIsApplicableCmd)
+    fGlobalFastSimulationManager->ListEnvelopes(newValue, ISAPPLICABLE);
+  if( command == fActivateModel)
+    fGlobalFastSimulationManager->ActivateFastSimulationModel(newValue);
+  if( command == fInActivateModel)
+    fGlobalFastSimulationManager->InActivateFastSimulationModel(newValue);
+}