source: trunk/examples/advanced/radiation_monitor/generalPurpose/include/RadmonMessengersSupport.hh@ 1282

Last change on this file since 1282 was 807, checked in by garnier, 17 years ago

update
File size: 6.8 KB
Line 
1//
2// ********************************************************************
3// * License and Disclaimer *
4// * *
5// * The Geant4 software is copyright of the Copyright Holders of *
6// * the Geant4 Collaboration. It is provided under the terms and *
7// * conditions of the Geant4 Software License, included in the file *
8// * LICENSE and available at http://cern.ch/geant4/license . These *
9// * include a list of copyright holders. *
10// * *
11// * Neither the authors of this software system, nor their employing *
12// * institutes,nor the agencies providing financial support for this *
13// * work make any representation or warranty, express or implied, *
14// * regarding this software system or assume any liability for its *
15// * use. Please see the license in the file LICENSE and URL above *
16// * for the full disclaimer and the limitation of liability. *
17// * *
18// * This code implementation is the result of the scientific and *
19// * technical work of the GEANT4 collaboration. *
20// * By using, copying, modifying or distributing the software (or *
21// * any work based on the software) you agree to acknowledge its *
22// * use in resulting scientific publications, and indicate your *
23// * acceptance of all terms of the Geant4 Software license. *
24// ********************************************************************
25//
26//
27// File name: RadmonMessengersSupport.hh
28// Creation date: Sep 2005
29// Main author: Riccardo Capra <capra@ge.infn.it>
30//
31// Id: $Id: RadmonMessengersSupport.hh,v 1.3 2006/06/29 16:14:27 gunter Exp $
32// Tag: $Name: $
33//
34// Description: Define macros useful to maintain the code of messengers
35//
36
37#ifndef RADMONMESSENGERSSUPPORT_HH
38 #define RADMONMESSENGERSSUPPORT_HH
39
40 #include "G4UIcommand.hh"
41
42 #define RADMON_DECLARE_COMMAND(command) private: \
43 void On ## command (const G4String & value); \
44 G4UIcommand * cmd ## command
45
46 #define RADMON_INITIALIZE_COMMAND(command) cmd ## command (0)
47
48 #define _CREATE_COMMAND(command, guidance) cmd ## command = new G4UIcommand(COMMANDS_PATH #command , this); \
49 \
50 if (! cmd ## command ) \
51 { \
52 G4cout << "RadmonDetectorMessenger::RadmonDetectorMessenger: Command \"" #command "\" not allocated."<< G4endl; \
53 return; \
54 } \
55 \
56 cmd ## command ->SetGuidance(guidance)
57
58 #define _ADD_ARG(command, argName) cmd ## command ->SetParameter(new G4UIparameter(argName, 's', false))
59
60 #define RADMON_CREATE_COMMAND_0ARGS(command, guidance) \
61 _CREATE_COMMAND(command, guidance);
62
63 #define RADMON_CREATE_COMMAND_1ARG(command, guidance, argName0) \
64 RADMON_CREATE_COMMAND_0ARGS(command, guidance); \
65 _ADD_ARG(command, argName0)
66
67 #define RADMON_CREATE_COMMAND_2ARGS(command, guidance, argName0, argName1) \
68 RADMON_CREATE_COMMAND_1ARG(command, guidance, argName0); \
69 _ADD_ARG(command, argName1)
70
71 #define RADMON_CREATE_COMMAND_3ARGS(command, guidance, argName0, argName1, argName2) \
72 RADMON_CREATE_COMMAND_2ARGS(command, guidance, argName0, argName1); \
73 _ADD_ARG(command, argName2)
74
75 #define RADMON_CREATE_COMMAND_4ARGS(command, guidance, argName0, argName1, argName2, argName3) \
76 RADMON_CREATE_COMMAND_3ARGS(command, guidance, argName0, argName1, argName2); \
77 _ADD_ARG(command, argName3)
78
79 #define RADMON_CREATE_COMMAND_5ARGS(command, guidance, argName0, argName1, argName2, argName3, argName4) \
80 RADMON_CREATE_COMMAND_4ARGS(command, guidance, argName0, argName1, argName2, argName3); \
81 _ADD_ARG(command, argName4)
82
83 #define RADMON_CREATE_COMMAND_6ARGS(command, guidance, argName0, argName1, argName2, argName3, argName4, argName5) \
84 RADMON_CREATE_COMMAND_5ARGS(command, guidance, argName0, argName1, argName2, argName3, argName4); \
85 _ADD_ARG(command, argName5)
86
87 #define RADMON_DESTROY_COMMAND(command) if ( cmd ## command ) \
88 delete cmd ## command;
89
90 #define RADMON_BEGIN_LIST_SET_COMMANDS if (!command) \
91 G4cout << "RadmonDetectorMessenger::SetNewValue: command==0." << G4endl; \
92 else
93
94 #define RADMON_SET_COMMAND(name) if ( cmd ## name == command) \
95 On ## name (newValue); \
96 else
97
98 #define RADMON_END_LIST_SET_COMMANDS G4cout << "RadmonDetectorMessenger::SetNewValue: Command \"" << command->GetCommandPath() << "\" not supported." << G4endl;
99#endif /* RADMONMESSENGERSSUPPORT_HH */
Note: See TracBrowser for help on using the repository browser.