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,59 @@
+// 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: G4WoMessenger.cc,v 2.3 1998/07/12 03:42:52 urbi Exp $
+// GEANT4 tag $Name: geant4-00 $
+//
+#ifdef G4UI_BUILD_WO_SESSION
+
+#include "G4WoMessenger.hh"
+#include "G4UIdirectory.hh"
+#include "G4UIcmdWithoutParameter.hh"
+#include "G4UIcmdWithAString.hh"
+
+#include <Wo.h>
+
+G4WoMessenger::G4WoMessenger(OShell a_shell)
+:shell(NULL)
+,WoDirectory(NULL)
+,sendExitCmd(NULL)
+,oshCmd(NULL)
+{
+  shell                   = a_shell;
+
+  WoDirectory = new G4UIdirectory("/Wo/");
+  WoDirectory->SetGuidance  ("Wo control commands.");
+
+  sendExitCmd = new G4UIcmdWithoutParameter("/Wo/sendExit",this);
+  sendExitCmd->SetGuidance  ("Exit Wo event event loop..");
+
+  oshCmd = new G4UIcmdWithAString("/Wo/osh",this);
+  oshCmd->SetGuidance ("osh interpreter.");
+  oshCmd->SetParameterName("Command",true);
+  oshCmd->SetDefaultValue ("");
+}
+G4WoMessenger::~G4WoMessenger() {
+  if(oshCmd!=NULL)      delete oshCmd;
+  if(sendExitCmd!=NULL) delete sendExitCmd;
+  if(WoDirectory!=NULL) delete WoDirectory;
+}
+
+void G4WoMessenger::SetNewValue(G4UIcommand * command,G4String newValues)
+{
+  if(command==oshCmd)  {
+    OShellExecute (shell,(char*)newValues.data());
+  } else if(command==sendExitCmd)  {
+    WoSendExit ();
+  }
+}
+G4String G4WoMessenger::GetCurrentValue(G4UIcommand * command)
+{
+  G4String cv;
+  return cv;
+}
+
+#endif