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,50 @@
+// 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: G4UnitsMessenger.cc,v 2.1 1998/11/27 06:12:55 asaim Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+// 
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+#include "G4UnitsMessenger.hh"
+
+#include "G4UnitsTable.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithoutParameter.hh"
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4UnitsMessenger::G4UnitsMessenger()
+{ 
+  UnitsTableDir = new G4UIdirectory("/units/");
+  UnitsTableDir->SetGuidance("Available units.");
+      
+  ListCmd = new G4UIcmdWithoutParameter("/units/list",this);
+  ListCmd->SetGuidance("full list of available units.");
+  ListCmd->AvailableForStates(Idle);
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+G4UnitsMessenger::~G4UnitsMessenger()
+{
+  delete ListCmd;
+  delete UnitsTableDir;
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....
+
+void G4UnitsMessenger::SetNewValue(G4UIcommand* command,G4String newValue)
+{  
+  if (command == ListCmd)
+    { G4UnitDefinition::PrintUnitsTable(); }
+}
+
+//....oooOO0OOooo........oooOO0OOooo........oooOO0OOooo........oooOO0OOooo....