Import Geant4 4.0.0 source tree

2016-06-08 16:18:25 +02:00
parent 36c080dca6
commit 921d3b1cda
3990 changed files with 185376 additions and 82884 deletions
@@ -21,16 +21,21 @@
 // ********************************************************************
 //
 //
-// $Id: G4UIcontrolMessenger.cc,v 1.2.4.1 2001/06/28 19:10:18 gunter Exp $
-// GEANT4 tag $Name:  $
+// $Id: G4UIcontrolMessenger.cc,v 1.8 2001/10/11 01:38:00 asaim Exp $
+// GEANT4 tag $Name: geant4-04-00 $
 //

+#include <stdlib.h>
 #include "G4UIcontrolMessenger.hh"
 #include "G4UImanager.hh"
 #include "G4UIdirectory.hh"
+#include "G4UIcommand.hh"
+#include "G4UIparameter.hh"
 #include "G4UIcmdWithAString.hh"
 #include "G4UIcmdWithAnInteger.hh"
 #include "G4UIcmdWithoutParameter.hh"
+#include "G4UIaliasList.hh"
+#include "G4StateManager.hh"
 #include "G4ios.hh"

 G4UIcontrolMessenger::G4UIcontrolMessenger()
@@ -41,7 +46,44 @@ G4UIcontrolMessenger::G4UIcontrolMessenger()
  ExecuteCommand = new G4UIcmdWithAString("/control/execute",this);
  ExecuteCommand->SetGuidance("Execute a macro file.");
  ExecuteCommand->SetParameterName("fileName",false);
+
+  loopCommand = new G4UIcommand("/control/loop",this);
+  loopCommand->SetGuidance("Execute a macro file more than once.");
+  loopCommand->SetGuidance("Loop counter can be used as an aliased variable.");
+  G4UIparameter* param1 = new G4UIparameter("macroFile",'s',false);
+  loopCommand->SetParameter(param1);
+  G4UIparameter* param2 = new G4UIparameter("counterName",'s',false);
+  loopCommand->SetParameter(param2);
+  G4UIparameter* param3 = new G4UIparameter("initialValue",'d',false);
+  loopCommand->SetParameter(param3);
+  G4UIparameter* param4 = new G4UIparameter("finalValue",'d',false);
+  loopCommand->SetParameter(param4);
+  G4UIparameter* param5 = new G4UIparameter("stepSize",'d',true);
+  param5->SetDefaultValue(1.0);
+  loopCommand->SetParameter(param5);
+
+  foreachCommand = new G4UIcommand("/control/foreach",this);
+  foreachCommand->SetGuidance("Execute a macro file more than once.");
+  foreachCommand->SetGuidance("Loop counter can be used as an aliased variable.");
+  foreachCommand->SetGuidance("Values must be separated by a space.");
+  G4UIparameter* param6 = new G4UIparameter("macroFile",'s',false);
+  foreachCommand->SetParameter(param6);
+  G4UIparameter* param7 = new G4UIparameter("counterName",'s',false);
+  foreachCommand->SetParameter(param7);
+  G4UIparameter* param8 = new G4UIparameter("valueList",'s',false);
+  foreachCommand->SetParameter(param8);
  
+  suppressAbortionCommand = new G4UIcmdWithAnInteger("/control/suppressAbortion",this);
+  suppressAbortionCommand->SetGuidance("Suppress the program abortion caused by G4Exception.");
+  suppressAbortionCommand->SetGuidance("Suppression level = 0 : no suppression");
+  suppressAbortionCommand->SetGuidance("                  = 1 : suppress during EventProc state");
+  suppressAbortionCommand->SetGuidance("                  = 2 : full suppression, i.e. no abortion by G4Exception");
+  suppressAbortionCommand->SetGuidance("When abortion is suppressed, you will get error messages issued by G4Exception,");
+  suppressAbortionCommand->SetGuidance("and there is NO guarantee for the correct result after the G4Exception error message.");
+  suppressAbortionCommand->SetParameterName("level",true);
+  suppressAbortionCommand->SetRange("level >= 0 && level <= 2");
+  suppressAbortionCommand->SetDefaultValue(0);
+
  verboseCommand = new G4UIcmdWithAnInteger("/control/verbose",this);
  verboseCommand->SetGuidance("Applied command will also be shown on screen.");
  verboseCommand->SetGuidance("This command is useful with MACRO file.");
@@ -62,21 +104,57 @@ G4UIcontrolMessenger::G4UIcontrolMessenger()
    = new G4UIcmdWithoutParameter("/control/stopSavingHistory",this);
  stopStoreHistoryCommand->SetGuidance("Stop saving history file.");

+  aliasCommand = new G4UIcommand("/control/alias",this);
+  aliasCommand->SetGuidance("Set an alias.");
+  aliasCommand->SetGuidance("String can be aliased by this command.");
+  aliasCommand->SetGuidance("The string may contain one or more spaces,");
+  aliasCommand->SetGuidance("the string must be enclosed by double quotes (\").");
+  aliasCommand->SetGuidance("To use an alias, enclose the alias name with");
+  aliasCommand->SetGuidance("parenthis \"{\" and \"}\".");
+  G4UIparameter* aliasNameParam = new G4UIparameter("aliasName",'s',false);
+  aliasCommand->SetParameter(aliasNameParam);
+  G4UIparameter* aliasValueParam = new G4UIparameter("aliasValue",'s',false);
+  aliasCommand->SetParameter(aliasValueParam);
+
+  unaliasCommand = new G4UIcmdWithAString("/control/unalias",this);
+  unaliasCommand->SetGuidance("Remove an alias.");
+  unaliasCommand->SetParameterName("aliasName",false);
+
+  listAliasCommand = new G4UIcmdWithoutParameter("/control/listAlias",this);
+  listAliasCommand->SetGuidance("List aliases.");
+
+  shellCommand = new G4UIcmdWithAString("/control/shell",this);
+  shellCommand->SetGuidance("Execute a (Unix) SHELL command.");
+
  ManualCommand = new G4UIcmdWithAString("/control/manual",this);
  ManualCommand->SetGuidance("Display all of sub-directories and commands.");
  ManualCommand->SetGuidance("Directory path should be given by FULL-PATH.");
  ManualCommand->SetParameterName("dirPath",true);
  ManualCommand->SetDefaultValue("/");
+
+  HTMLCommand = new G4UIcmdWithAString("/control/createHTML",this);
+  HTMLCommand->SetGuidance("Generate HTML files for all of sub-directories and commands.");
+  HTMLCommand->SetGuidance("Directory path should be given by FULL-PATH.");
+  HTMLCommand->SetParameterName("dirPath",true);
+  HTMLCommand->SetDefaultValue("/");
+
 }

 G4UIcontrolMessenger::~G4UIcontrolMessenger()
 {
  delete ExecuteCommand;
+  delete suppressAbortionCommand;
  delete verboseCommand;
  delete historyCommand;
  delete stopStoreHistoryCommand;
  delete ManualCommand;
-  
+  delete aliasCommand;
+  delete unaliasCommand;
+  delete listAliasCommand;
+  delete shellCommand;
+  delete loopCommand;
+  delete foreachCommand; 
+  delete HTMLCommand;
  delete controlDirectory;
 }

@@ -88,6 +166,10 @@ void G4UIcontrolMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
  {
    UI->ExecuteMacroFile(newValue);
  }
+  if(command==suppressAbortionCommand)
+  {
+    G4StateManager::GetStateManager()->SetSuppressAbortion(suppressAbortionCommand->GetNewIntValue(newValue));
+  }
  if(command==verboseCommand)
  {
    UI->SetVerboseLevel(verboseCommand->GetNewIntValue(newValue));
@@ -104,6 +186,35 @@ void G4UIcontrolMessenger::SetNewValue(G4UIcommand * command,G4String newValue)
  {
    UI->ListCommands(newValue);
  }
+  if(command==aliasCommand)
+  {
+    UI->SetAlias(newValue);
+  }
+  if(command==unaliasCommand)
+  {
+    UI->RemoveAlias(newValue);
+  }
+  if(command==listAliasCommand)
+  {
+    UI->ListAlias();
+  }
+  if(command==shellCommand)
+  {
+    system(newValue);
+  }
+  if(command==loopCommand)
+  {
+    UI->LoopS(newValue);
+  }
+  if(command==foreachCommand)
+  {
+    UI->ForeachS(newValue);
+  }
+  if(command==HTMLCommand)
+  {
+    UI->CreateHTML(newValue);
+  }
+
 }

 G4String G4UIcontrolMessenger::GetCurrentValue(G4UIcommand * command)
@@ -115,6 +226,10 @@ G4String G4UIcontrolMessenger::GetCurrentValue(G4UIcommand * command)
  {
    currentValue = verboseCommand->ConvertToString(UI->GetVerboseLevel());
  }
+  if(command==suppressAbortionCommand)
+  {
+    currentValue = suppressAbortionCommand->ConvertToString(G4StateManager::GetStateManager()->GetSuppressAbortion());
+  }
  
  return currentValue;
 }