void proxy_create(Channel * c1, Channel * c2) {
TCFSuspendGroup * spg = suspend_group_alloc();
Proxy * proxy = loc_alloc_zero(2 * sizeof *proxy);
int i;
static int instance;
assert(c1->hello_received);
proxy[0].c = c1;
proxy[0].proto = protocol_alloc();
proxy[0].other = 1;
proxy[0].state = ProxyStateConnected;
proxy[0].instance = instance;
proxy[1].c = c2;
proxy[1].proto = protocol_alloc();
proxy[1].other = -1;
proxy[1].state = ProxyStateInitial;
proxy[1].instance = instance++;
trace(LOG_PROXY, "Proxy created, host services:");
for (i = 0; i < c1->peer_service_cnt; i++) {
trace(LOG_PROXY, " %s", c1->peer_service_list[i]);
protocol_get_service(proxy[1].proto, c1->peer_service_list[i]);
}
notify_channel_closed(c1);
protocol_release(c1->client_data);
c1->client_data = NULL;
c1->hello_received = 1;
c1->connecting = proxy_connecting;
c1->connected = proxy_connected;
c1->receive = proxy_receive;
c1->disconnected = proxy_disconnected;
c1->client_data = proxy;
set_default_message_handler(proxy[0].proto, proxy_default_message_handler);
c2->connecting = proxy_connecting;
c2->connected = proxy_connected;
c2->receive = proxy_receive;
c2->disconnected = proxy_disconnected;
c2->client_data = proxy + 1;
set_default_message_handler(proxy[1].proto, proxy_default_message_handler);
channel_set_suspend_group(c1, spg);
channel_set_suspend_group(c2, spg);
channel_start(c2);
}
static void channel_new_connection(ChannelServer * serv, Channel * c) {
c->protocol = protocol_alloc();
c->connecting = channel_server_connecting;
c->connected = channel_server_connected;
c->disconnected = channel_server_disconnected;
channel_start(c);
}
static int lua_protocol_alloc(lua_State *L)
{
struct protocol_extra *pe;
assert(L == luastate);
if(lua_gettop(L) != 0) {
luaL_error(L, "wrong number or type of arguments");
}
trace(LOG_LUA, "lua_protocol_alloc");
pe = (struct protocol_extra *)lua_newuserdata(L, sizeof *pe);
memset(pe, 0, sizeof *pe);
pe->L = L;
pe->p = protocol_alloc();
luaL_getmetatable(L, "tcf_protocol");
lua_setmetatable(L, -2);
return 1;
}
int tcf_client(void) {
#else
int main(int argc, char ** argv) {
#endif
int c;
int ind;
int keep_alive = 0;
int mode = 1; /* interactive */
const char * host_name = "localhost";
const char * command = NULL;
const char * log_name = "-";
const char * script_name = NULL;
log_mode = 0;
ini_mdep();
ini_trace();
ini_events_queue();
ini_asyncreq();
#if defined(_WRS_KERNEL)
progname = "tcf";
open_log_file("-");
#else
progname = argv[0];
/* Parse arguments */
for (ind = 1; ind < argc; ind++) {
const char * s = argv[ind];
if (*s != '-') {
break;
}
s++;
while ((c = *s++) != '\0') {
switch (c) {
case 'd':
keep_alive = 1;
break;
case 'l':
case 'L':
case 'S':
case 'h':
case 'c':
#if ENABLE_Plugins
case 'P':
#endif
if (*s == '\0') {
if (++ind >= argc) {
fprintf(stderr, "%s: error: no argument given to option '%c'\n", progname, c);
exit(1);
}
s = argv[ind];
}
switch (c) {
case 'l':
log_mode = strtol(s, 0, 0);
break;
case 'L':
log_name = s;
break;
case 'S':
script_name = s;
mode = 0;
break;
case 'h':
host_name = s;
break;
case 'c':
/* TODO: allow multiple -c options */
command = s;
mode = 2;
break;
#if ENABLE_Plugins
case 'P':
plugins_path = s;
break;
#endif
default:
fprintf(stderr, "%s: error: illegal option '%c'\n", progname, c);
exit(1);
}
s = "";
break;
default:
fprintf(stderr, "%s: error: illegal option '%c'\n", progname, c);
exit(1);
}
}
}
if (script_name != NULL && command != NULL) {
fprintf(stderr, "%s: error: illegal option -S and -c are mutually exclusive\n", progname);
exit(1);
}
open_log_file(log_name);
#endif
discovery_start();
proto = protocol_alloc();
#if ENABLE_Cmdline
if (script_name != NULL) open_script_file(script_name);
if (command != NULL) set_single_command(keep_alive, host_name, command);
ini_cmdline_handler(mode, proto);
#else
if (script_name != NULL) fprintf(stderr, "Warning: This version does not support script file as input.\n");
#endif
#if ENABLE_Plugins
plugins_load(proto, NULL);
#endif
/* Process events - must run on the initial thread since ptrace()
* returns ECHILD otherwise, thinking we are not the owner. */
run_event_loop();
return 0;
}
int tcf(void) {
#else
int main(int argc, char ** argv) {
int c;
int ind;
int daemon = 0;
const char * log_name = NULL;
const char * log_level = NULL;
#endif
int interactive = 0;
int print_server_properties = 0;
const char * url = DEFAULT_SERVER_URL;
Protocol * proto;
TCFBroadcastGroup * bcg;
ini_mdep();
ini_trace();
ini_events_queue();
ini_asyncreq();
#if defined(_WRS_KERNEL)
progname = "tcf";
open_log_file("-");
log_mode = 0;
#else
progname = argv[0];
/* Parse arguments */
for (ind = 1; ind < argc; ind++) {
const char * s = argv[ind];
if (*s != '-') {
break;
}
s++;
while ((c = *s++) != '\0') {
switch (c) {
case 'i':
interactive = 1;
break;
case 't':
#if ENABLE_RCBP_TEST
test_proc();
#endif
exit(0);
break;
case 'd':
daemon = 1;
break;
case 'c':
generate_ssl_certificate();
exit(0);
break;
case 'S':
print_server_properties = 1;
break;
case 'h':
show_help();
exit(0);
case 'I':
case 'l':
case 'L':
case 's':
#if ENABLE_Plugins
case 'P':
#endif
if (*s == '\0') {
if (++ind >= argc) {
fprintf(stderr, "%s: error: no argument given to option '%c'\n", progname, c);
exit(1);
}
s = argv[ind];
}
switch (c) {
case 'I':
idle_timeout = strtol(s, 0, 0);
break;
case 'l':
log_level = s;
parse_trace_mode(log_level, &log_mode);
break;
case 'L':
log_name = s;
break;
case 's':
url = s;
break;
#if ENABLE_Plugins
case 'P':
plugins_path = s;
break;
#endif
}
s = "";
break;
default:
fprintf(stderr, "%s: error: illegal option '%c'\n", progname, c);
show_help();
exit(1);
}
}
}
if (daemon && log_name != NULL && strcmp (log_name, LOG_NAME_STDERR) != 0) {
fprintf(stderr, "%s: error: can only log to stderr when in daemon "
"mode.\n", progname);
exit (1);
}
if (daemon) become_daemon();
open_log_file(log_name);
#endif
bcg = broadcast_group_alloc();
proto = protocol_alloc();
/* The static services must be initialised before the plugins */
#if ENABLE_Cmdline
if (interactive) ini_cmdline_handler(interactive, proto);
#else
if (interactive) fprintf(stderr, "Warning: This version does not support interactive mode.\n");
#endif
ini_services(proto, bcg);
#if !defined(_WRS_KERNEL)
/* Reparse log level in case initialization cause additional
* levels to be registered */
if (log_level != NULL && parse_trace_mode(log_level, &log_mode) != 0) {
fprintf(stderr, "Cannot parse log level: %s\n", log_level);
exit(1);
}
#endif
if (ini_server(url, proto, bcg) < 0) {
fprintf(stderr, "Cannot create TCF server: %s\n", errno_to_str(errno));
exit(1);
}
discovery_start();
if (print_server_properties) {
ChannelServer * s;
char * server_properties;
assert(!list_is_empty(&channel_server_root));
s = servlink2channelserverp(channel_server_root.next);
server_properties = channel_peer_to_json(s->ps);
printf("Server-Properties: %s\n", server_properties);
fflush(stdout);
trace(LOG_ALWAYS, "Server-Properties: %s", server_properties);
loc_free(server_properties);
}
#if ENABLE_SignalHandlers
signal(SIGABRT, signal_handler);
signal(SIGILL, signal_handler);
signal(SIGINT, signal_handler);
signal(SIGTERM, signal_handler);
#if defined(_WIN32)
SetConsoleCtrlHandler((PHANDLER_ROUTINE)CtrlHandler, TRUE);
AddVectoredExceptionHandler(1, VectoredExceptionHandler);
#endif
#endif /* ENABLE_SignalHandlers */
if (idle_timeout != 0) {
add_channel_close_listener(channel_closed);
check_idle_timeout(NULL);
}
/* Process events - must run on the initial thread since ptrace()
* returns ECHILD otherwise, thinking we are not the owner. */
run_event_loop();
#if ENABLE_Plugins
plugins_destroy();
#endif /* ENABLE_Plugins */
return 0;
}
int tcf(void) {
#else
int main(int argc, char ** argv) {
int c;
int ind;
int daemon = 0;
const char * log_name = NULL;
const char * log_level = NULL;
#endif
int interactive = 0;
int print_server_properties = 0;
const char * url = DEFAULT_SERVER_URL;
Protocol * proto;
TCFBroadcastGroup * bcg;
PRE_INIT_HOOK;
ini_mdep();
ini_trace();
ini_events_queue();
ini_asyncreq();
PRE_THREADING_HOOK;
#if defined(_WRS_KERNEL)
progname = "tcf";
open_log_file("-");
log_mode = 0;
#else
progname = argv[0];
/* Parse arguments */
for (ind = 1; ind < argc; ind++) {
char * s = argv[ind];
if (*s++ != '-') break;
while (s && (c = *s++) != '\0') {
switch (c) {
case 'i':
interactive = 1;
break;
case 't':
#if ENABLE_RCBP_TEST
test_proc();
#endif
exit(0);
break;
case 'd':
#if defined(_WIN32) || defined(__CYGWIN__)
/* For Windows the only way to detach a process is to
* create a new process, so we patch the -d option to
* -D for the second time we get invoked so we don't
* keep on creating new processes forever. */
s[-1] = 'D';
daemon = 2;
break;
case 'D':
#endif
daemon = 1;
break;
case 'c':
generate_ssl_certificate();
exit(0);
break;
case 'S':
print_server_properties = 1;
break;
case 'h':
show_help();
exit(0);
case 'I':
#if ENABLE_Trace
case 'l':
#endif
case 'L':
case 's':
case 'g':
#if ENABLE_Plugins
case 'P':
#endif
if (*s == '\0') {
if (++ind >= argc) {
fprintf(stderr, "%s: error: no argument given to option '%c'\n", progname, c);
exit(1);
}
s = argv[ind];
}
switch (c) {
case 'I':
idle_timeout = strtol(s, 0, 0);
break;
#if ENABLE_Trace
case 'l':
log_level = s;
parse_trace_mode(log_level, &log_mode);
break;
#endif
case 'L':
log_name = s;
break;
case 's':
url = s;
break;
#if ENABLE_DebugContext
case 'g':
if (ini_gdb_rsp(s) < 0) {
fprintf(stderr, "Cannot create GDB server: %s\n", errno_to_str(errno));
exit(1);
}
break;
#endif
#if ENABLE_Plugins
case 'P':
plugins_path = s;
break;
#endif
}
s = NULL;
break;
default:
ILLEGAL_OPTION_HOOK;
fprintf(stderr, "%s: error: illegal option '%c'\n", progname, c);
show_help();
exit(1);
}
}
}
POST_OPTION_HOOK;
if (daemon) {
#if defined(_WIN32) || defined(__CYGWIN__)
become_daemon(daemon > 1 ? argv : NULL);
#else
become_daemon();
#endif
}
open_log_file(log_name);
#endif
bcg = broadcast_group_alloc();
proto = protocol_alloc();
/* The static services must be initialised before the plugins */
#if ENABLE_Cmdline
if (interactive) ini_cmdline_handler(interactive, proto);
#else
if (interactive) fprintf(stderr, "Warning: This version does not support interactive mode.\n");
#endif
ini_services(proto, bcg);
#if !defined(_WRS_KERNEL)
/* Reparse log level in case initialization cause additional
* levels to be registered */
if (log_level != NULL && parse_trace_mode(log_level, &log_mode) != 0) {
fprintf(stderr, "Cannot parse log level: %s\n", log_level);
exit(1);
}
#endif
if (ini_server(url, proto, bcg) < 0) {
fprintf(stderr, "Cannot create TCF server: %s\n", errno_to_str(errno));
exit(1);
}
discovery_start();
if (print_server_properties) {
ChannelServer * s;
char * server_properties;
assert(!list_is_empty(&channel_server_root));
s = servlink2channelserverp(channel_server_root.next);
server_properties = channel_peer_to_json(s->ps);
printf("Server-Properties: %s\n", server_properties);
fflush(stdout);
trace(LOG_ALWAYS, "Server-Properties: %s", server_properties);
loc_free(server_properties);
}
PRE_DAEMON_HOOK;
#if !defined(_WRS_KERNEL)
if (daemon)
close_out_and_err();
#endif
#if ENABLE_SignalHandlers
signal(SIGABRT, signal_handler);
signal(SIGILL, signal_handler);
signal(SIGINT, signal_handler);
signal(SIGTERM, signal_handler);
#if defined(_WIN32) || defined(__CYGWIN__)
SetConsoleCtrlHandler((PHANDLER_ROUTINE)CtrlHandler, TRUE);
AddVectoredExceptionHandler(1, VectoredExceptionHandler);
#endif
#endif /* ENABLE_SignalHandlers */
if (idle_timeout != 0) {
add_channel_close_listener(channel_closed);
check_idle_timeout(NULL);
}
/* Process events - must run on the initial thread since ptrace()
* returns ECHILD otherwise, thinking we are not the owner. */
run_event_loop();
#if ENABLE_Plugins
plugins_destroy();
#endif /* ENABLE_Plugins */
return 0;
}
