| 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 // ClassName: G4FTFTuningsMessenger
28 // Author: Alberto Ribon
29 // Date: August 2022
30 //--------------------------------------------
31
32 #include "G4FTFTuningsMessenger.hh"
33 #include "G4UIcommand.hh"
34 #include "G4UIcmdWithAnInteger.hh"
35 #include "G4UIcmdWithAString.hh"
36 #include "G4FTFTunings.hh"
37
38
39 G4FTFTuningsMessenger::G4FTFTuningsMessenger()
40 // These two commands select an alternative
41 // either via its integer index
42 theFTFTuneIndexCmd = new G4UIcmdWithAnIntege
43 theFTFTuneIndexCmd->SetGuidance( "Select one
44 theFTFTuneIndexCmd->SetParameterName( "index
45 theFTFTuneIndexCmd->SetDefaultValue( 0 );
46 theFTFTuneIndexCmd->SetRange( "indexFTFTune>
47 theFTFTuneIndexCmd->AvailableForStates( G4St
48 // or via its string name
49 theFTFTuneNameCmd = new G4UIcmdWithAString(
50 theFTFTuneNameCmd->SetGuidance( "Select one
51 theFTFTuneNameCmd->SetGuidance( " (default)
52 theFTFTuneNameCmd->SetParameterName( "nameFT
53 theFTFTuneNameCmd->SetDefaultValue( "default
54 theFTFTuneNameCmd->AvailableForStates( G4Sta
55 }
56
57
58 G4FTFTuningsMessenger::~G4FTFTuningsMessenger(
59 delete theFTFTuneIndexCmd;
60 delete theFTFTuneNameCmd;
61 }
62
63
64 void G4FTFTuningsMessenger::SetNewValue( G4UIc
65 if ( command == theFTFTuneIndexCmd || comm
66 G4int index = -999;
67 if ( command == theFTFTuneIndexCmd ) {
68 G4int value = theFTFTuneIndexCmd->GetNew
69 if ( value >= 0 && value < G4FTFTuning
70 index = value;
71 } else {
72 G4ExceptionDescription ed;
73 ed << "The FTF tune index=" << value <
74 command->CommandFailed( ed );
75 }
76 } else {
77 for ( G4int i = 0; i < G4FTFTunings::sNu
78 if ( newValues == G4FTFTunings::Instan
79 index = i;
80 break;
81 }
82 }
83 if ( index < 0 ) {
84 G4ExceptionDescription ed;
85 ed << "The FTF tune name=" << newValue
86 command->CommandFailed( ed );
87 }
88 }
89 if ( index >= 0 ) {
90 // Tune applicability state: 0 means swi
91 G4FTFTunings::Instance()->SetTuneApplica
92 }
93 }
94 }
95