1 /******************************************************************************
2 * Copyright (c) 2000-2016 Ericsson Telecom AB
3 * All rights reserved. This program and the accompanying materials
4 * are made available under the terms of the Eclipse Public License v1.0
5 * which accompanies this distribution, and is available at
6 * http://www.eclipse.org/legal/epl-v10.html
18 * Szabo, Janos Zoltan – initial implementation
20 * Zalanyi, Balazs Andor
23 ******************************************************************************/
32 #include "../common/dbgnew.hh"
33 #include "../common/version_internal.h"
35 #include "Snapshot.hh"
37 #include "Module_list.hh"
39 #include "Component.hh"
48 #include "../common/license.h"
53 const char * stored_argv
= "Unidentified program";
55 //static const char segfault[] = " : Segmentation fault occurred\n";
57 void signal_handler(int signum
)
65 fprintf(stderr
,"<Unknown> %s: %s\n",stored_argv
, signum
==SIGABRT
?"Abort was called":"Segmentation fault occurred");
67 fprintf(stderr
,"%s %s: %s\n",ts
,stored_argv
,signum
==SIGABRT
?"Abort was called":"Segmentation fault occurred");
73 nptrs
= backtrace(buffer
, 100);
74 backtrace_symbols_fd(buffer
, nptrs
, STDERR_FILENO
);
78 signal(SIGABRT
, SIG_DFL
);
82 static void usage(const char* program_name
)
85 "usage: %s [-s local_addr] MC_host MC_port\n"
90 " -s local_addr: use the given source IP address for control "
92 " -l: list startable test cases and control parts\n"
93 " -v: show version and module information\n",
94 program_name
, program_name
, program_name
);
97 /** Returns whether the caller should exit immediately */
98 static boolean
process_options(int argc
, char *argv
[], int& ret_val
,
99 const char*& local_addr
, const char*& MC_host
, unsigned short& MC_port
)
101 boolean lflag
= FALSE
, sflag
= FALSE
, vflag
= FALSE
, errflag
= FALSE
;
103 int c
= getopt(argc
, argv
, "ls:v");
107 if (lflag
|| sflag
|| vflag
) errflag
= TRUE
;
111 if (lflag
|| sflag
|| vflag
) errflag
= TRUE
;
118 if (lflag
|| sflag
|| vflag
) errflag
= TRUE
;
127 if (lflag
|| vflag
) {
128 if (optind
!= argc
) errflag
= TRUE
;
130 if (optind
== argc
- 2) {
131 MC_host
= argv
[optind
++];
132 int port_num
= atoi(argv
[optind
]);
133 if (port_num
> 0 && port_num
< 65536) MC_port
= port_num
;
135 fprintf(stderr
, "Invalid MC port: %s\n", argv
[optind
]);
138 } else errflag
= TRUE
;
142 // syntax error in command line
143 if (argc
== 1) fputs("TTCN-3 Host Controller (parallel mode), version "
144 PRODUCT_NUMBER
"\n", stderr
);
146 ret_val
= EXIT_FAILURE
;
151 // create buffer for error messages
152 TTCN_Runtime::install_signal_handlers();
153 TTCN_Logger::initialize_logger();
154 Module_List::pre_init_modules();
155 Module_List::list_testcases();
157 ret_val
= EXIT_FAILURE
;
159 TTCN_Logger::terminate_logger();
163 fputs("TTCN-3 Host Controller (parallel mode)\n"
164 "Product number: " PRODUCT_NUMBER
"\n"
165 "Build date (Base Library): " __DATE__
" " __TIME__
"\n"
166 "Base Library was compiled with: " C_COMPILER_VERSION
"\n\n"
167 COPYRIGHT_STRING
"\n\n", stderr
);
169 print_license_info();
172 fputs("Module information:\n", stderr
);
173 Module_List::print_version();
176 // normal usage (HC operation)
177 fputs("TTCN-3 Host Controller (parallel mode), version " PRODUCT_NUMBER
183 if (!verify_license(&lstr
)) {
188 if (!check_feature(&lstr
, FEATURE_HC
)) {
189 fputs("The license key does not allow the starting of TTCN-3 "
190 "Host Controllers.\n", stderr
);
191 ret_val
= EXIT_FAILURE
;
195 if (ret_val
!= EXIT_SUCCESS
) return TRUE
;
200 int main(int argc
, char *argv
[])
202 stored_argv
= argv
[0];
203 struct sigaction act
;
204 act
.sa_handler
= signal_handler
;
205 sigemptyset(&act
.sa_mask
);
207 sigaction(SIGSEGV
, &act
, 0);
208 sigaction(SIGABRT
, &act
, 0);
211 debug_new_counter
.set_program_name(argv
[0]);
213 int ret_val
= EXIT_SUCCESS
;
214 const char *local_addr
= NULL
, *MC_host
= NULL
;
215 unsigned short MC_port
= 0;
218 if (process_options(argc
, argv
, ret_val
, local_addr
, MC_host
, MC_port
)) {
224 TTCN_Runtime::install_signal_handlers();
225 TTCN_Snapshot::initialize();
226 TTCN_Logger::initialize_logger();
227 TTCN_Logger::set_executable_name(argv
[0]);
228 TTCN_Logger::set_start_time();
230 // the log file will be opened immediately after processing
231 // configuration data received from the MC
234 Module_List::pre_init_modules();
235 ret_val
= TTCN_Runtime::hc_main(local_addr
, MC_host
, MC_port
);
236 if (!TTCN_Runtime::is_hc()) {
237 // this code runs on the child processes (MTC and PTCs)
238 // forget about the component names inherited from the HC
239 COMPONENT::clear_component_names();
240 // the log file is inherited from the parent process
241 // it has to be closed first
242 TTCN_Logger::close_file();
244 // the baseline of relative timestamps has to be reset
245 TTCN_Logger::set_start_time();
247 if (TTCN_Runtime::is_mtc()) ret_val
= TTCN_Runtime::mtc_main();
248 else if (TTCN_Runtime::is_ptc())
249 ret_val
= TTCN_Runtime::ptc_main();
250 else TTCN_error("Internal error: Invalid executor state after "
251 "finishing HC activities.");
253 } catch (const TC_Error
& TC_error
) {
254 ret_val
= EXIT_FAILURE
;
257 TTCN_Logger::log_str(TTCN_Logger::ERROR_UNQUALIFIED
,
258 "Fatal error. Aborting execution.");
259 ret_val
= EXIT_FAILURE
;
261 // the final cleanup tasks are common for all processes
262 TTCN_Runtime::restore_signal_handlers();
263 TTCN_Logger::close_file();
265 // close_file() must be called before the information is lost
266 // close_file() WRITES to log
267 TTCN_Logger::clear_parameters();
268 PORT::clear_parameters();
269 COMPONENT::clear_component_names();
270 TTCN_EncDec::clear_error();
272 TTCN_Logger::terminate_logger();
273 TTCN_Snapshot::terminate();
This page took 0.036634 seconds and 5 git commands to generate.