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,56 @@
+// 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: G4DMmessenger.cc,v 2.1 1998/07/12 03:08:27 urbi Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+// ---------------------------------------------------------------------
+
+#include "G4DMmessenger.hh"
+#include "G4DigiManager.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithoutParameter.hh"
+#include "G4UIcmdWithAString.hh"
+#include "G4UIcmdWithAnInteger.hh"
+
+G4DMmessenger::G4DMmessenger(G4DigiManager* DigiManager):fDMan(DigiManager)
+{
+  digiDir = new G4UIdirectory("/digi/");
+  digiDir->SetGuidance("DigitizerModule");
+
+  listCmd = new G4UIcmdWithoutParameter("/digi/List",this);
+  listCmd->SetGuidance("List names of digitizer modules.");
+
+  digiCmd = new G4UIcmdWithAString("/digi/Digitize",this);
+  digiCmd->SetGuidance("Invoke Digitize method of a digitizer module");
+  digiCmd->SetParameterName("moduleName",false);
+
+  verboseCmd = new G4UIcmdWithAnInteger("/digi/Verbose",this);
+  verboseCmd->SetGuidance("Set the Verbose level.");
+  verboseCmd->SetParameterName("level",false);
+}
+
+G4DMmessenger::~G4DMmessenger()
+{
+  delete listCmd;
+  delete digiCmd;
+  delete verboseCmd;
+  delete digiDir;
+}
+
+void G4DMmessenger::SetNewValue(G4UIcommand * command,G4String newVal)
+{
+  if( command==listCmd )
+  { fDMan->List(); }
+  if( command==digiCmd )
+  { fDMan->Digitize(newVal); }
+  if( command==verboseCmd )
+  { fDMan->SetVerboseLevel(verboseCmd->GetNewIntValue(newVal)); }
+  return;
+}
+
+