| 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 // G4ProcessTableMessenger class implementatio
27 //
28 // Author: H.Kurashige, 15 August 1998
29 // -------------------------------------------
30
31 #include "G4ProcessTableMessenger.hh"
32
33 #include "G4UImanager.hh"
34 #include "G4UIdirectory.hh"
35 #include "G4UIcmdWithoutParameter.hh"
36 #include "G4UIcmdWithAnInteger.hh"
37 #include "G4UIcmdWithAString.hh"
38
39 #include "G4VProcess.hh"
40 #include "G4ProcessManager.hh"
41 #include "G4ProcessTable.hh"
42 #include "G4ParticleTable.hh"
43
44 #include "G4ios.hh"
45 #include "G4Tokenizer.hh"
46 #include <iomanip>
47 #include <sstream>
48
49 G4ThreadLocal G4int G4ProcessTableMessenger::N
50
51 // -------------------------------------------
52 G4ProcessTableMessenger::G4ProcessTableMesseng
53 : theProcessTable(pTable)
54 {
55 // Command /particle/process
56 thisDirectory = new G4UIdirectory("/process/
57 thisDirectory->SetGuidance("Process Table co
58
59 // Command /particle/process/list
60 listCmd = new G4UIcmdWithAString("/process/l
61 listCmd->SetGuidance("List up process names"
62 listCmd->SetGuidance(" list [type] ");
63 listCmd->SetGuidance(" type: process type
64 listCmd->SetParameterName("type", true);
65 listCmd->SetDefaultValue("all");
66 SetNumberOfProcessType();
67
68 G4String candidates("all");
69 for (G4int idx = 0; idx < NumberOfProcessTyp
70 {
71 candidates += " " + G4VProcess::GetProcess
72 }
73 listCmd->SetCandidates((const char*)(candida
74
75 // Command /particle/process/verbose
76 verboseCmd = new G4UIcmdWithAnInteger("/proc
77 verboseCmd->SetGuidance("Set Verbose Level f
78 verboseCmd->SetGuidance(" verbose [level]")
79 verboseCmd->SetGuidance(" level: verbose l
80 verboseCmd->SetParameterName("verbose", true
81 verboseCmd->SetDefaultValue(1);
82 verboseCmd->SetRange("verbose >=0");
83 verboseCmd->AvailableForStates(G4State_PreIn
84
85 // Command /particle/process/setVerbose
86 procVerboseCmd = new G4UIcommand("/process/s
87 procVerboseCmd->SetGuidance("Set verbose lev
88 procVerboseCmd->SetGuidance(" setVerbose le
89 procVerboseCmd->SetGuidance(" level: verb
90 procVerboseCmd->SetGuidance(" name : proc
91 procVerboseCmd->SetGuidance(" type : proc
92 procVerboseCmd->SetGuidance(" [all] fo
93 G4UIparameter* param = new G4UIparameter("ve
94 procVerboseCmd->SetParameter(param);
95 param = new G4UIparameter("type",'s',true);
96 param->SetDefaultValue("all");
97 procVerboseCmd->SetParameter(param);
98 procVerboseCmd->AvailableForStates(G4State_I
99
100 // Command /particle/process/dump
101 dumpCmd = new G4UIcommand("/process/dump",th
102 dumpCmd->SetGuidance("Dump process informati
103 dumpCmd->SetGuidance(" dump name [particle]"
104 dumpCmd->SetGuidance(" name: process n
105 dumpCmd->SetGuidance(" particle: particle
106 param = new G4UIparameter("procName",'s',fal
107 dumpCmd->SetParameter(param);
108 param = new G4UIparameter("particle",'s',tru
109 param->SetDefaultValue("all");
110 dumpCmd->SetParameter(param);
111 dumpCmd->AvailableForStates(G4State_Init,G4S
112
113 // Command /process/activate
114 activateCmd = new G4UIcommand("/process/acti
115 activateCmd->SetGuidance("Activate processes
116 activateCmd->SetGuidance(" Activate name [p
117 activateCmd->SetGuidance(" name: proce
118 activateCmd->SetGuidance(" particle: parti
119 param = new G4UIparameter("procName",'s',fal
120 activateCmd->SetParameter(param);
121 param = new G4UIparameter("particle",'s',tru
122 param->SetDefaultValue("all");
123 activateCmd->SetParameter(param);
124 activateCmd->AvailableForStates(G4State_Idle
125
126 // Command /process/inactivate
127 inactivateCmd = new G4UIcommand("/process/in
128 inactivateCmd->SetGuidance("Inactivate proce
129 inactivateCmd->SetGuidance("Inactivate proce
130 inactivateCmd->SetGuidance(" Inactivate nam
131 inactivateCmd->SetGuidance(" name: pro
132 inactivateCmd->SetGuidance(" particle: par
133 param = new G4UIparameter("procName",'s',fal
134 inactivateCmd->SetParameter(param);
135 param = new G4UIparameter("particle",'s',tru
136 param->SetDefaultValue("all");
137 inactivateCmd->SetParameter(param);
138 inactivateCmd->AvailableForStates(G4State_Id
139 }
140
141 // -------------------------------------------
142 G4ProcessTableMessenger::~G4ProcessTableMessen
143 {
144 delete activateCmd;
145 delete inactivateCmd;
146 delete verboseCmd;
147 delete dumpCmd;
148 delete listCmd;
149 delete procVerboseCmd;
150 delete thisDirectory;
151 }
152
153 // -------------------------------------------
154 void
155 G4ProcessTableMessenger::SetNewValue(G4UIcomma
156 {
157 G4ProcessTable::G4ProcNameVector* procNameVe
158 = theProcessTable->Ge
159 G4int type = -1;
160 G4ExceptionDescription ed;
161
162 if( command == listCmd )
163 {
164 // Command /process/list
165 type = -1;
166 if (newValue == "all")
167 {
168 currentProcessTypeName = std::move(newVa
169 }
170 else
171 {
172 type = GetProcessType(newValue);
173 if (type <0)
174 {
175 G4cout << " illegal type !!! " << G4en
176 }
177 else
178 {
179 currentProcessTypeName = std::move(new
180 }
181 }
182 G4int counter = 0;
183 for (auto itr=procNameVector->cbegin(); it
184 {
185 G4ProcessVector* tmpVector = theProcessT
186 if ( (type <0) || ( ((*tmpVector)(0)->Ge
187 {
188 if ( counter%4 != 0) G4cout << ",";
189 G4cout << std::setw(19) << *itr;
190 if ((counter++)%4 == 3)
191 {
192 G4cout << G4endl;
193 }
194 }
195 delete tmpVector;
196 }
197 G4cout << G4endl;
198 }
199 else if( command==procVerboseCmd )
200 {
201 // Command /process/setVerbose
202 G4Tokenizer next( newValue );
203
204 // check 1st argument
205 G4String tmpS = G4String(next());
206 // inputstream for newValues
207 const char* temp = (const char*)(tmpS);
208 std::istringstream is((char*)temp);
209 G4int level;
210 is >>level;
211
212 // check 2nd argument
213 currentProcessTypeName = G4String(next());
214 if (currentProcessTypeName.empty()) curren
215 G4bool isProcName = false;
216 G4bool isAll = false;
217 type = -1;
218
219 if (currentProcessTypeName == "all")
220 {
221 isAll = true;
222 }
223 else
224 {
225 type = GetProcessType(currentProcessTyp
226 if (type<0)
227 {
228 isProcName = true;
229 currentProcessName = currentProcessTyp
230 currentProcessTypeName = "";
231 }
232 }
233 for (auto itr=procNameVector->cbegin(); it
234 {
235 G4ProcessVector* tmpVector = theProcessT
236 G4VProcess* p = (*tmpVector)(0);
237 if ( isAll ||
238 (!isProcName && ( p->GetProcessType
239 ( isProcName && ( p->GetProcessName
240 {
241 p->SetVerboseLevel(level);
242 }
243 delete tmpVector;
244 }
245 }
246 else if( command==verboseCmd )
247 {
248 // Command /process/verbose
249 theProcessTable->SetVerboseLevel(verboseCm
250 }
251 else
252 {
253 G4Tokenizer next( newValue );
254
255 // check 1st argument
256 currentProcessName = G4String(next());
257 G4bool isProcName = false;
258 for (auto itr=procNameVector->cbegin(); it
259 {
260 if ( (*itr) == currentProcessName )
261 {
262 isProcName = true;
263 break;
264 }
265 }
266 if (!isProcName)
267 {
268 type = GetProcessType(currentProcessNam
269 if (type <0 )
270 {
271 // no processes with specified name
272 ed << " illegal process (or type) name
273 << currentProcessName << "]";
274 command->CommandFailed(ed);
275 currentProcessName = "";
276 return;
277 }
278 }
279
280 // check 2nd argument
281 currentParticleName = G4String(next());
282 G4bool isParticleFound = false;
283 G4ParticleDefinition* currentParticle = nu
284 if ( currentParticleName == "all" )
285 {
286 isParticleFound = true;
287 }
288 else
289 {
290 isParticleFound = G4ParticleTable::GetPa
291 ->contains(currentPartic
292 if (isParticleFound)
293 {
294 currentParticle = G4ParticleTable::Get
295 ->FindParticle(current
296 }
297 }
298
299 if ( !isParticleFound )
300 {
301 // no particle with specified name
302 ed << " illegal particle name [" << curr
303 command->CommandFailed(ed);
304 currentParticleName = "";
305 return;
306 }
307
308 if( command==dumpCmd )
309 {
310 // process/dump
311 G4ProcessVector* tmpVector;
312 if (isProcName)
313 {
314 tmpVector = theProcessTable->FindProce
315 }
316 else
317 {
318 tmpVector = theProcessTable->FindProce
319 }
320 for (G4int i=0; i<(G4int)tmpVector->leng
321 {
322 theProcessTable->DumpInfo( (*tmpVector
323 }
324 delete tmpVector;
325 }
326 else if ( (command==activateCmd) || (comma
327 {
328 // process/activate , inactivate
329 G4bool fActive = (command==activateCmd);
330 if (isProcName)
331 {
332 if ( currentParticle == nullptr )
333 {
334 theProcessTable->SetProcessActivatio
335
336 }
337 else
338 {
339 theProcessTable->SetProcessActivatio
340
341
342 }
343 }
344 else
345 {
346 if ( currentParticle == nullptr )
347 {
348 theProcessTable->SetProcessActivatio
349
350 }
351 else
352 {
353 theProcessTable->SetProcessActivatio
354
355
356 }
357 }
358 G4UImanager::GetUIpointer()->ApplyComman
359 }
360 }
361 }
362
363 // -------------------------------------------
364 G4String G4ProcessTableMessenger::GetCurrentVa
365 {
366 if( command==verboseCmd )
367 {
368 // Command /process/verbose
369 return verboseCmd->ConvertToString(theProc
370 }
371 else if ( command==listCmd )
372 {
373 // Command /process/list
374 return currentProcessTypeName;
375 }
376 else
377 {
378 // Command /process/dump, activate, inac
379 return (currentProcessName + " " + curre
380 }
381
382 return "";
383 }
384
385 // -------------------------------------------
386 G4String G4ProcessTableMessenger::GetProcessTy
387 {
388 return G4VProcess::GetProcessTypeName(aType)
389 }
390
391 // -------------------------------------------
392 G4int G4ProcessTableMessenger::GetProcessType(
393 {
394 G4int type = -1;
395 for (G4int idx = 0; idx < NumberOfProcessTyp
396 {
397 if (aTypeName == G4VProcess::GetProcessTyp
398 {
399 type = idx;
400 break;
401 }
402 }
403 return type;
404 }
405
406 // -------------------------------------------
407 void G4ProcessTableMessenger::SetNumberOfProce
408 {
409 G4bool isFoundEndMark = false;
410 G4int idx;
411 for (idx = 0; idx < 1000 ; ++idx )
412 {
413 G4String typeName = G4VProcess::GetProcess
414 isFoundEndMark = G4StrUtil::contains(typeN
415 if ( isFoundEndMark ) break;
416 }
417 if ( isFoundEndMark )
418 {
419 NumberOfProcessType = idx;
420 }
421 else
422 {
423 G4Exception("G4ProcessTableMessenger::SetN
424 "ProcMan014", FatalException,
425 }
426 }
427