| Geant4 Cross Reference |
1 // 1
2 // *******************************************
3 // * License and Disclaimer
4 // *
5 // * The Geant4 software is copyright of th
6 // * the Geant4 Collaboration. It is provided
7 // * conditions of the Geant4 Software License
8 // * LICENSE and available at http://cern.ch/
9 // * include a list of copyright holders.
10 // *
11 // * Neither the authors of this software syst
12 // * institutes,nor the agencies providing fin
13 // * work make any representation or warran
14 // * regarding this software system or assum
15 // * use. Please see the license in the file
16 // * for the full disclaimer and the limitatio
17 // *
18 // * This code implementation is the result
19 // * technical work of the GEANT4 collaboratio
20 // * By using, copying, modifying or distri
21 // * any work based on the software) you ag
22 // * use in resulting scientific publicati
23 // * acceptance of all terms of the Geant4 Sof
24 // *******************************************
25 //
26 //
27 /// \file field/field04/src/F04RunActionMessen
28 /// \brief Implementation of the F04RunActionM
29 //
30
31 #include "F04RunActionMessenger.hh"
32
33 #include "F04RunAction.hh"
34
35 #include "G4UIcmdWithABool.hh"
36 #include "G4UIcmdWithAString.hh"
37 #include "G4UIcmdWithAnInteger.hh"
38 #include "G4UIdirectory.hh"
39 #include "Randomize.hh"
40 #include "globals.hh"
41
42 //....oooOO0OOooo........oooOO0OOooo........oo
43
44 F04RunActionMessenger::F04RunActionMessenger(F
45 {
46 fRndmDir = new G4UIdirectory("/rndm/");
47 fRndmDir->SetGuidance("Rndm status control."
48
49 fRndmSaveCmd = new G4UIcmdWithAnInteger("/rn
50 fRndmSaveCmd->SetGuidance("set frequency to
51 fRndmSaveCmd->SetGuidance("freq = 0 not save
52 fRndmSaveCmd->SetGuidance("freq > 0 saved on
53 fRndmSaveCmd->SetGuidance("freq = 1 saved on
54 fRndmSaveCmd->SetGuidance("freq = 2 saved on
55 fRndmSaveCmd->SetParameterName("frequency",
56 fRndmSaveCmd->SetRange("frequency>=0 && freq
57 fRndmSaveCmd->AvailableForStates(G4State_Pre
58
59 fRndmReadCmd = new G4UIcmdWithAString("/rndm
60 fRndmReadCmd->SetGuidance("get rndm status f
61 fRndmReadCmd->SetParameterName("fileName", t
62 fRndmReadCmd->SetDefaultValue("beginOfRun.rn
63 fRndmReadCmd->AvailableForStates(G4State_Pre
64
65 fSetAutoSeedCmd = new G4UIcmdWithABool("/rnd
66 fSetAutoSeedCmd->SetGuidance("Switch on/off
67 fSetAutoSeedCmd->SetGuidance(" true: run see
68 fSetAutoSeedCmd->SetGuidance("false: use com
69 fSetAutoSeedCmd->SetGuidance("Default = fals
70 fSetAutoSeedCmd->SetParameterName("autoSeed"
71 fSetAutoSeedCmd->AvailableForStates(G4State_
72 }
73
74 //....oooOO0OOooo........oooOO0OOooo........oo
75
76 F04RunActionMessenger::~F04RunActionMessenger(
77 {
78 delete fRndmDir;
79 delete fRndmSaveCmd;
80 delete fRndmReadCmd;
81 delete fSetAutoSeedCmd;
82 }
83
84 //....oooOO0OOooo........oooOO0OOooo........oo
85
86 void F04RunActionMessenger::SetNewValue(G4UIco
87 {
88 if (command == fRndmSaveCmd) fRunAction->Set
89
90 if (command == fRndmReadCmd) {
91 G4cout << "\n---> rndm status restored fro
92 G4Random::restoreEngineStatus(newValue);
93 G4Random::showEngineStatus();
94 }
95
96 if (command == fSetAutoSeedCmd)
97 fRunAction->SetAutoSeed(fSetAutoSeedCmd->G
98 }
99