| 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 // G4tgrParameterMgr implementation
27 //
28 // Author: P.Arce, CIEMAT (November 2007)
29 // -------------------------------------------
30
31 #include "G4tgrParameterMgr.hh"
32 #include "G4tgrUtils.hh"
33 #include "G4tgrMaterialFactory.hh"
34 #include "G4tgrRotationMatrixFactory.hh"
35 #include "G4tgrFileReader.hh"
36 #include "G4tgrMessenger.hh"
37 #include "G4UIcommand.hh"
38
39 G4ThreadLocal G4tgrParameterMgr* G4tgrParamete
40
41 // -------------------------------------------
42 G4tgrParameterMgr::G4tgrParameterMgr()
43 {
44 }
45
46 // -------------------------------------------
47 G4tgrParameterMgr::~G4tgrParameterMgr()
48 {
49 delete theInstance;
50 }
51
52 // -------------------------------------------
53 G4tgrParameterMgr* G4tgrParameterMgr::GetInsta
54 {
55 if(theInstance == nullptr)
56 {
57 theInstance = new G4tgrParameterMgr;
58 }
59 return theInstance;
60 }
61
62 // -------------------------------------------
63 void G4tgrParameterMgr::AddParameterNumber(con
64 G4b
65 {
66 CheckIfNewParameter(wl, mustBeNew);
67
68 //----- Convert third argument to double, bu
69 // for later use in CLHEP evaluator
70 G4float val = G4tgrUtils::GetDou
71 theParameterList[wl[1]] = G4UIcommand::Conve
72
73 #ifdef G4VERBOSE
74 if(G4tgrMessenger::GetVerboseLevel() >= 2)
75 {
76 G4cout << " G4tgrParameterMgr::AddParamete
77 << " parameter added " << wl[1] <<
78 << G4endl;
79 }
80 #endif
81 }
82
83 // -------------------------------------------
84 void G4tgrParameterMgr::AddParameterString(con
85 G4b
86 {
87 CheckIfNewParameter(wl, mustBeNew);
88
89 //----- Store parameter as string
90 theParameterList[wl[1]] = wl[2];
91
92 #ifdef G4VERBOSE
93 if(G4tgrMessenger::GetVerboseLevel() >= 2)
94 {
95 G4cout << " G4tgrParameterMgr::AddParamete
96 << " parameter added " << wl[1] <<
97 << G4endl;
98 }
99 #endif
100 }
101
102 // -------------------------------------------
103 void G4tgrParameterMgr::CheckIfNewParameter(co
104 G4
105 {
106 //---------- Find first if it exists already
107 G4bool existsAlready;
108 G4mapss::const_iterator sdite = theParameter
109 if(sdite == theParameterList.cend())
110 {
111 existsAlready = false;
112 }
113 else
114 {
115 existsAlready = true;
116 }
117
118 if(existsAlready)
119 {
120 if(mustBeNew)
121 {
122 G4String ErrMessage = "Parameter already
123 G4Exception("G4tgrParameterMgr::CheckPar
124 FatalException, ErrMessage);
125 }
126 else
127 {
128 G4String WarMessage = "Parameter already
129 G4Exception("G4tgrParameterMgr::CheckPar
130 JustWarning, WarMessage);
131 }
132 }
133
134 //---------- Check for miminum number of wor
135 G4tgrUtils::CheckWLsize(wl, 3, WLSIZE_EQ, "P
136 }
137
138 // -------------------------------------------
139 G4String G4tgrParameterMgr::FindParameter(cons
140 {
141 G4String par = "";
142
143 G4mapss::const_iterator sdite = theParameter
144 if(sdite == theParameterList.cend())
145 {
146 if(exists)
147 {
148 DumpList();
149 G4String ErrMessage = "Parameter not fou
150 G4Exception("G4tgrParameterMgr::FindPara
151 FatalException, ErrMessage);
152 }
153 }
154 else
155 {
156 exists = 1;
157 par = ((*sdite).second);
158 #ifdef G4VERBOSE
159 if(G4tgrMessenger::GetVerboseLevel() >= 3)
160 {
161 G4cout << " G4tgrParameterMgr::FindParam
162 << " parameter found " << name <<
163 }
164 #endif
165 }
166
167 return par;
168 }
169
170 // -------------------------------------------
171 void G4tgrParameterMgr::DumpList()
172 {
173 //---------- Dump number of objects of each
174 G4cout << " @@@@@@@@@@@@@@@@@@ Dumping param
175 for(auto cite = theParameterList.cbegin();
176 cite != theParameterList.cend(); ++
177 {
178 G4cout << (*cite).first << " = " << (*cite
179 }
180 }
181