Geant4 Cross Reference |
1 // 1 // 2 // ******************************************* 2 // ******************************************************************** 3 // * License and Disclaimer 3 // * License and Disclaimer * 4 // * 4 // * * 5 // * The Geant4 software is copyright of th 5 // * The Geant4 software is copyright of the Copyright Holders of * 6 // * the Geant4 Collaboration. It is provided 6 // * the Geant4 Collaboration. It is provided under the terms and * 7 // * conditions of the Geant4 Software License 7 // * conditions of the Geant4 Software License, included in the file * 8 // * LICENSE and available at http://cern.ch/ 8 // * LICENSE and available at http://cern.ch/geant4/license . These * 9 // * include a list of copyright holders. 9 // * include a list of copyright holders. * 10 // * 10 // * * 11 // * Neither the authors of this software syst 11 // * Neither the authors of this software system, nor their employing * 12 // * institutes,nor the agencies providing fin 12 // * institutes,nor the agencies providing financial support for this * 13 // * work make any representation or warran 13 // * work make any representation or warranty, express or implied, * 14 // * regarding this software system or assum 14 // * regarding this software system or assume any liability for its * 15 // * use. Please see the license in the file 15 // * use. Please see the license in the file LICENSE and URL above * 16 // * for the full disclaimer and the limitatio 16 // * for the full disclaimer and the limitation of liability. * 17 // * 17 // * * 18 // * This code implementation is the result 18 // * This code implementation is the result of the scientific and * 19 // * technical work of the GEANT4 collaboratio 19 // * technical work of the GEANT4 collaboration. * 20 // * By using, copying, modifying or distri 20 // * By using, copying, modifying or distributing the software (or * 21 // * any work based on the software) you ag 21 // * any work based on the software) you agree to acknowledge its * 22 // * use in resulting scientific publicati 22 // * use in resulting scientific publications, and indicate your * 23 // * acceptance of all terms of the Geant4 Sof 23 // * acceptance of all terms of the Geant4 Software license. * 24 // ******************************************* 24 // ******************************************************************** 25 // 25 // 26 // G4ParticleMessenger class implementation 26 // G4ParticleMessenger class implementation 27 // 27 // 28 // Author: H. Kurashige, 13 June 1997 - 1st ve 28 // Author: H. Kurashige, 13 June 1997 - 1st version created 29 // ------------------------------------------- 29 // -------------------------------------------------------------------- 30 30 31 #include "G4ParticleMessenger.hh" 31 #include "G4ParticleMessenger.hh" 32 32 33 #include "G4IonTable.hh" 33 #include "G4IonTable.hh" 34 #include "G4ParticleDefinition.hh" 34 #include "G4ParticleDefinition.hh" 35 #include "G4ParticlePropertyMessenger.hh" 35 #include "G4ParticlePropertyMessenger.hh" 36 #include "G4ParticleTable.hh" 36 #include "G4ParticleTable.hh" 37 #include "G4UIcmdWithAString.hh" 37 #include "G4UIcmdWithAString.hh" 38 #include "G4UIcmdWithAnInteger.hh" 38 #include "G4UIcmdWithAnInteger.hh" 39 #include "G4UIcmdWithoutParameter.hh" 39 #include "G4UIcmdWithoutParameter.hh" 40 #include "G4UIdirectory.hh" 40 #include "G4UIdirectory.hh" 41 #include "G4UImanager.hh" 41 #include "G4UImanager.hh" 42 #include "G4ios.hh" 42 #include "G4ios.hh" 43 43 44 #include <iomanip> // Include from 'system' 44 #include <iomanip> // Include from 'system' 45 45 46 G4ParticleMessenger::G4ParticleMessenger(G4Par 46 G4ParticleMessenger::G4ParticleMessenger(G4ParticleTable* pTable) 47 { 47 { 48 // get the pointer to ParticleTable 48 // get the pointer to ParticleTable 49 if (pTable == nullptr) { 49 if (pTable == nullptr) { 50 theParticleTable = G4ParticleTable::GetPar 50 theParticleTable = G4ParticleTable::GetParticleTable(); 51 } 51 } 52 else { 52 else { 53 theParticleTable = pTable; 53 theParticleTable = pTable; 54 } 54 } 55 55 56 // Directory /particle/ 56 // Directory /particle/ 57 thisDirectory = new G4UIdirectory("/particle 57 thisDirectory = new G4UIdirectory("/particle/"); 58 thisDirectory->SetGuidance("Particle control 58 thisDirectory->SetGuidance("Particle control commands."); 59 59 60 // Command /particle/select 60 // Command /particle/select 61 selectCmd = new G4UIcmdWithAString("/particl 61 selectCmd = new G4UIcmdWithAString("/particle/select", this); 62 selectCmd->SetGuidance("Select particle "); 62 selectCmd->SetGuidance("Select particle "); 63 selectCmd->SetDefaultValue("none"); 63 selectCmd->SetDefaultValue("none"); 64 selectCmd->SetParameterName("particle name", 64 selectCmd->SetParameterName("particle name", false); 65 selectCmd->AvailableForStates(G4State_PreIni 65 selectCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 66 66 67 // Command /particle/list 67 // Command /particle/list 68 listCmd = new G4UIcmdWithAString("/particle/ 68 listCmd = new G4UIcmdWithAString("/particle/list", this); 69 listCmd->SetGuidance("List name of particles 69 listCmd->SetGuidance("List name of particles."); 70 listCmd->SetGuidance(" all(default)/lepton/b 70 listCmd->SetGuidance(" all(default)/lepton/baryon/meson/nucleus/quarks"); 71 listCmd->SetParameterName("particle type", t 71 listCmd->SetParameterName("particle type", true); 72 listCmd->SetDefaultValue("all"); 72 listCmd->SetDefaultValue("all"); 73 listCmd->SetCandidates("all lepton baryon me 73 listCmd->SetCandidates("all lepton baryon meson nucleus quarks"); 74 listCmd->AvailableForStates(G4State_PreInit, 74 listCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 75 75 76 // Command /particle/find 76 // Command /particle/find 77 findCmd = new G4UIcmdWithAnInteger("/particl 77 findCmd = new G4UIcmdWithAnInteger("/particle/find", this); 78 findCmd->SetGuidance("Find particle by encod 78 findCmd->SetGuidance("Find particle by encoding"); 79 findCmd->SetDefaultValue(0); 79 findCmd->SetDefaultValue(0); 80 findCmd->SetParameterName("encoding", false) 80 findCmd->SetParameterName("encoding", false); 81 findCmd->AvailableForStates(G4State_PreInit, 81 findCmd->AvailableForStates(G4State_PreInit, G4State_Idle); 82 82 83 // Command /particle/createAllIon 83 // Command /particle/createAllIon 84 createAllIonCmd = new G4UIcmdWithoutParamete 84 createAllIonCmd = new G4UIcmdWithoutParameter("/particle/createAllIon", this); 85 createAllIonCmd->SetGuidance("Create All ion 85 createAllIonCmd->SetGuidance("Create All ions (ground state)"); 86 createAllIonCmd->AvailableForStates(G4State_ 86 createAllIonCmd->AvailableForStates(G4State_Idle); 87 createAllIonCmd->SetToBeBroadcasted(false); 87 createAllIonCmd->SetToBeBroadcasted(false); 88 88 89 // Command /particle/createAllIsomer 89 // Command /particle/createAllIsomer 90 createAllIsomerCmd = new G4UIcmdWithoutParam 90 createAllIsomerCmd = new G4UIcmdWithoutParameter("/particle/createAllIsomer", this); 91 createAllIsomerCmd->SetGuidance("Create All 91 createAllIsomerCmd->SetGuidance("Create All isomers"); 92 createAllIsomerCmd->AvailableForStates(G4Sta 92 createAllIsomerCmd->AvailableForStates(G4State_Idle); 93 createAllIsomerCmd->SetToBeBroadcasted(false 93 createAllIsomerCmd->SetToBeBroadcasted(false); 94 94 95 // -- particle/property/Verbose --- 95 // -- particle/property/Verbose --- 96 verboseCmd = new G4UIcmdWithAnInteger("/part 96 verboseCmd = new G4UIcmdWithAnInteger("/particle/verbose", this); 97 verboseCmd->SetGuidance("Set Verbose level o 97 verboseCmd->SetGuidance("Set Verbose level of particle table."); 98 verboseCmd->SetGuidance(" 0 : Silent (defaul 98 verboseCmd->SetGuidance(" 0 : Silent (default)"); 99 verboseCmd->SetGuidance(" 1 : Display warnin 99 verboseCmd->SetGuidance(" 1 : Display warning messages"); 100 verboseCmd->SetGuidance(" 2 : Display more") 100 verboseCmd->SetGuidance(" 2 : Display more"); 101 verboseCmd->SetParameterName("verbose_level" 101 verboseCmd->SetParameterName("verbose_level", true); 102 verboseCmd->SetDefaultValue(0); 102 verboseCmd->SetDefaultValue(0); 103 verboseCmd->SetRange("verbose_level >=0"); 103 verboseCmd->SetRange("verbose_level >=0"); 104 104 105 // UI messenger for Particle Properties 105 // UI messenger for Particle Properties 106 fParticlePropertyMessenger = new G4ParticleP 106 fParticlePropertyMessenger = new G4ParticlePropertyMessenger(theParticleTable); 107 } 107 } 108 108 109 G4ParticleMessenger::~G4ParticleMessenger() 109 G4ParticleMessenger::~G4ParticleMessenger() 110 { 110 { 111 delete fParticlePropertyMessenger; 111 delete fParticlePropertyMessenger; 112 112 113 delete listCmd; 113 delete listCmd; 114 delete selectCmd; 114 delete selectCmd; 115 delete findCmd; 115 delete findCmd; 116 delete createAllIonCmd; 116 delete createAllIonCmd; 117 delete createAllIsomerCmd; 117 delete createAllIsomerCmd; 118 delete verboseCmd; 118 delete verboseCmd; 119 119 120 delete thisDirectory; 120 delete thisDirectory; 121 } 121 } 122 122 123 void G4ParticleMessenger::SetNewValue(G4UIcomm 123 void G4ParticleMessenger::SetNewValue(G4UIcommand* command, G4String newValues) 124 { 124 { 125 if (command == listCmd) { 125 if (command == listCmd) { 126 // Command /particle/List 126 // Command /particle/List 127 G4int counter = 0; 127 G4int counter = 0; 128 G4ParticleTable::G4PTblDicIterator* piter 128 G4ParticleTable::G4PTblDicIterator* piter = theParticleTable->GetIterator(); 129 piter->reset(); 129 piter->reset(); 130 130 131 while ((*piter)()) // Loop checking, 09.0 131 while ((*piter)()) // Loop checking, 09.08.2015, K.Kurashige 132 { 132 { 133 G4ParticleDefinition* particle = piter-> 133 G4ParticleDefinition* particle = piter->value(); 134 if ((newValues == "all") || (newValues = 134 if ((newValues == "all") || (newValues == particle->GetParticleType())) { 135 G4cout << std::setw(19) << particle->G 135 G4cout << std::setw(19) << particle->GetParticleName(); 136 if ((counter++) % 4 == 3) { 136 if ((counter++) % 4 == 3) { 137 G4cout << G4endl; 137 G4cout << G4endl; 138 } 138 } 139 else { 139 else { 140 G4cout << ","; 140 G4cout << ","; 141 } 141 } 142 } 142 } 143 } 143 } 144 G4cout << G4endl; 144 G4cout << G4endl; 145 if (counter == 0) { 145 if (counter == 0) { 146 G4cout << newValues << " is not found " 146 G4cout << newValues << " is not found " << G4endl; 147 } 147 } 148 148 149 // Command /particle/select 149 // Command /particle/select 150 // set candidate List 150 // set candidate List 151 G4String candidates("none"); 151 G4String candidates("none"); 152 piter->reset(); 152 piter->reset(); 153 while ((*piter)()) // Loop checking, 09.0 153 while ((*piter)()) // Loop checking, 09.08.2015, K.Kurashige 154 { 154 { 155 G4ParticleDefinition* particle = piter-> 155 G4ParticleDefinition* particle = piter->value(); 156 candidates += " " + particle->GetParticl 156 candidates += " " + particle->GetParticleName(); 157 } 157 } 158 selectCmd->SetCandidates((const char*)(can 158 selectCmd->SetCandidates((const char*)(candidates)); 159 } 159 } 160 else if (command == selectCmd) { 160 else if (command == selectCmd) { 161 // Command /particle/select 161 // Command /particle/select 162 theParticleTable->SelectParticle(newValues 162 theParticleTable->SelectParticle(newValues); 163 } 163 } 164 else if (command == findCmd) { 164 else if (command == findCmd) { 165 // Command /particle/find 165 // Command /particle/find 166 G4ParticleDefinition* tmp = theParticleTab 166 G4ParticleDefinition* tmp = theParticleTable->FindParticle(findCmd->GetNewIntValue(newValues)); 167 if (tmp == nullptr) { 167 if (tmp == nullptr) { 168 G4cout << "Unknown particle [" << newVal 168 G4cout << "Unknown particle [" << newValues << "]. Command ignored." << G4endl; 169 } 169 } 170 else { 170 else { 171 G4cout << tmp->GetParticleName() << G4en 171 G4cout << tmp->GetParticleName() << G4endl; 172 tmp->DumpTable(); 172 tmp->DumpTable(); 173 } 173 } 174 } 174 } 175 else if (command == createAllIonCmd) { 175 else if (command == createAllIonCmd) { 176 // Command /particle/createAllIon 176 // Command /particle/createAllIon 177 theParticleTable->GetIonTable()->CreateAll 177 theParticleTable->GetIonTable()->CreateAllIon(); 178 } 178 } 179 else if (command == createAllIsomerCmd) { 179 else if (command == createAllIsomerCmd) { 180 // Command /particle/createAllIsomer 180 // Command /particle/createAllIsomer 181 theParticleTable->GetIonTable()->CreateAll 181 theParticleTable->GetIonTable()->CreateAllIsomer(); 182 } 182 } 183 else if (command == verboseCmd) { 183 else if (command == verboseCmd) { 184 // Command /particle/verbose 184 // Command /particle/verbose 185 theParticleTable->SetVerboseLevel(verboseC 185 theParticleTable->SetVerboseLevel(verboseCmd->GetNewIntValue(newValues)); 186 } 186 } 187 } 187 } 188 188 189 G4String G4ParticleMessenger::GetCurrentValue( 189 G4String G4ParticleMessenger::GetCurrentValue(G4UIcommand* command) 190 { 190 { 191 if (command == selectCmd) { 191 if (command == selectCmd) { 192 // Command /particle/select 192 // Command /particle/select 193 // set candidate List 193 // set candidate List 194 G4String candidates("none"); 194 G4String candidates("none"); 195 G4ParticleTable::G4PTblDicIterator* piter 195 G4ParticleTable::G4PTblDicIterator* piter = theParticleTable->GetIterator(); 196 piter->reset(); 196 piter->reset(); 197 while ((*piter)()) // Loop checking, 09.0 197 while ((*piter)()) // Loop checking, 09.08.2015, K.Kurashige 198 { 198 { 199 G4ParticleDefinition* particle = piter-> 199 G4ParticleDefinition* particle = piter->value(); 200 candidates += " " + particle->GetParticl 200 candidates += " " + particle->GetParticleName(); 201 } 201 } 202 selectCmd->SetCandidates((const char*)(can 202 selectCmd->SetCandidates((const char*)(candidates)); 203 203 204 const G4ParticleDefinition* currentParticl << 204 static const G4String noName("none"); 205 return (currentParticle == nullptr) ? G4St << 205 // current value >> 206 if (currentParticle == nullptr) { >> 207 // no particle is selected. return null >> 208 return noName; >> 209 } >> 210 >> 211 return currentParticle->GetParticleName(); 206 } 212 } 207 if (command == verboseCmd) { 213 if (command == verboseCmd) { 208 // Command /particle/verbose 214 // Command /particle/verbose 209 return verboseCmd->ConvertToString(thePart 215 return verboseCmd->ConvertToString(theParticleTable->GetVerboseLevel()); 210 } 216 } 211 return ""; 217 return ""; 212 } 218 } 213 219