tcl_server.c File Reference

Include dependency graph for tcl_server.c:

Go to the source code of this file.

Data Structures
struct	tcl_connection

Macros
#define	ESTR   "line too long\n"
#define	TCL_LINE_INITIAL   (4*1024)
#define	TCL_LINE_MAX   (4*1024*1024)
#define	TCL_SERVER_VERSION   "TCL Server 0.1"

Functions
	COMMAND_HANDLER (handle_tcl_notifications_command)
	COMMAND_HANDLER (handle_tcl_port_command)
	COMMAND_HANDLER (handle_tcl_trace_command)
static int	tcl_closed (struct connection *connection)
int	tcl_init (void)
static int	tcl_input (struct connection *connection)
static int	tcl_new_connection (struct connection *connection)
static int	tcl_output (struct connection *connection, const void *buf, ssize_t len)
int	tcl_register_commands (struct command_context *cmd_ctx)
void	tcl_service_free (void)
static int	tcl_target_callback_event_handler (struct target *target, enum target_event event, void *priv)
static int	tcl_target_callback_reset_handler (struct target *target, enum target_reset_mode reset_mode, void *priv)
static int	tcl_target_callback_trace_handler (struct target *target, size_t len, uint8_t *data, void *priv)

Variables
static const struct command_registration	tcl_command_handlers []
static char *	tcl_port
static const struct service_driver	tcl_service_driver
static const struct command_registration	tcl_subcommand_handlers []

Macro Definition Documentation

ESTR

#define ESTR   "line too long\n"

TCL_LINE_INITIAL

#define TCL_LINE_INITIAL   (4*1024)

Definition at line 17 of file tcl_server.c.

TCL_LINE_MAX

#define TCL_LINE_MAX   (4*1024*1024)

Definition at line 18 of file tcl_server.c.

TCL_SERVER_VERSION

#define TCL_SERVER_VERSION   "TCL Server 0.1"

Definition at line 16 of file tcl_server.c.

Function Documentation

COMMAND_HANDLER() [1/3]

COMMAND_HANDLER

(

handle_tcl_notifications_command

)

Definition at line 292 of file tcl_server.c.

References CALL_COMMAND_HANDLER, CMD_CTX, CMD_NAME, ERROR_COMMAND_SYNTAX_ERROR, LOG_ERROR, service::name, NULL, connection::priv, connection::service, and tcl_connection::tc_notify.

COMMAND_HANDLER() [2/3]

COMMAND_HANDLER

(

handle_tcl_port_command

)

Definition at line 287 of file tcl_server.c.

References CALL_COMMAND_HANDLER, and tcl_port.

COMMAND_HANDLER() [3/3]

COMMAND_HANDLER

(

handle_tcl_trace_command

)

Definition at line 309 of file tcl_server.c.

References CALL_COMMAND_HANDLER, CMD_CTX, CMD_NAME, ERROR_COMMAND_SYNTAX_ERROR, LOG_ERROR, service::name, NULL, connection::priv, connection::service, and tcl_connection::tc_trace.

tcl_closed()

static int tcl_closed ( struct connection *  connection )

static

Definition at line 249 of file tcl_server.c.

References ERROR_OK, NULL, connection::priv, target_unregister_event_callback(), target_unregister_reset_callback(), target_unregister_trace_callback(), tcl_connection::tc_line, tcl_target_callback_event_handler(), tcl_target_callback_reset_handler(), and tcl_target_callback_trace_handler().

tcl_init()

int tcl_init

(

void

)

Definition at line 277 of file tcl_server.c.

References add_service(), CONNECTION_LIMIT_UNLIMITED, ERROR_OK, LOG_INFO, NULL, tcl_port, and tcl_service_driver.

Referenced by server_init().

tcl_input()

static int tcl_input ( struct connection *  connection )

static

Definition at line 163 of file tcl_server.c.

References connection::cmd_ctx, command_run_line(), connection_read(), ERROR_CONNECTION_REJECTED, ERROR_OK, ERROR_SERVER_REMOTE_CLOSED, ESTR, command_context::interp, LOG_ERROR, connection::priv, rlen, TCL_LINE_MAX, and tcl_output().

tcl_new_connection()

static int tcl_new_connection ( struct connection *  connection )

static

Definition at line 132 of file tcl_server.c.

References connection::cmd_ctx, ERROR_CONNECTION_REJECTED, ERROR_OK, get_current_target_or_null(), command_context::output_handler_priv, connection::priv, target::state, target_register_event_callback(), target_register_reset_callback(), target_register_trace_callback(), tcl_connection::tc_laststate, tcl_connection::tc_line, tcl_connection::tc_line_size, TCL_LINE_INITIAL, tcl_target_callback_event_handler(), tcl_target_callback_reset_handler(), and tcl_target_callback_trace_handler().

tcl_output()

int tcl_output ( struct connection *  connection, const void *  buf, ssize_t  len  )

static

Definition at line 112 of file tcl_server.c.

References connection_write(), ERROR_OK, ERROR_SERVER_REMOTE_CLOSED, LOG_ERROR, connection::priv, and tcl_connection::tc_outerror.

Referenced by tcl_input(), tcl_target_callback_event_handler(), tcl_target_callback_reset_handler(), and tcl_target_callback_trace_handler().

tcl_register_commands()

int tcl_register_commands

(

struct command_context *

cmd_ctx

)

Definition at line 364 of file tcl_server.c.

References NULL, register_commands(), tcl_command_handlers, and tcl_port.

Referenced by server_register_commands().

tcl_service_free()

void tcl_service_free

(

void

)

Definition at line 370 of file tcl_server.c.

References tcl_port.

Referenced by server_free().

tcl_target_callback_event_handler()

static int tcl_target_callback_event_handler ( struct target *  target, enum target_event  event, void *  priv  )

static

Definition at line 39 of file tcl_server.c.

References ERROR_OK, priv, connection::priv, target::state, target_event_name(), target_state_name(), tcl_connection::tc_laststate, tcl_connection::tc_notify, and tcl_output().

Referenced by tcl_closed(), and tcl_new_connection().

tcl_target_callback_reset_handler()

static int tcl_target_callback_reset_handler ( struct target *  target, enum target_reset_mode  reset_mode, void *  priv  )

static

Definition at line 64 of file tcl_server.c.

References ERROR_OK, priv, connection::priv, target_reset_mode_name(), tcl_connection::tc_notify, and tcl_output().

Referenced by tcl_closed(), and tcl_new_connection().

tcl_target_callback_trace_handler()

static int tcl_target_callback_trace_handler ( struct target *  target, size_t  len, uint8_t *  data, void *  priv  )

static

Definition at line 81 of file tcl_server.c.

References ERROR_OK, hexify(), priv, connection::priv, tcl_connection::tc_trace, and tcl_output().

Referenced by tcl_closed(), and tcl_new_connection().

Variable Documentation

tcl_command_handlers

const struct command_registration tcl_command_handlers[]

static

Initial value:

= {
    {
        .name = "tcl",
        .mode = COMMAND_ANY,
        .help = "tcl command group",
        .usage = "",
        .chain = tcl_subcommand_handlers,
    },
    COMMAND_REGISTRATION_DONE
}

Definition at line 309 of file tcl_server.c.

Referenced by tcl_register_commands().

tcl_port

char* tcl_port

static

Definition at line 31 of file tcl_server.c.

Referenced by COMMAND_HANDLER(), tcl_init(), tcl_register_commands(), and tcl_service_free().

tcl_service_driver

const struct service_driver tcl_service_driver

static

Initial value:

= {
    .name = "tcl",
    .new_connection_during_keep_alive_handler = NULL,
    .new_connection_handler = tcl_new_connection,
    .input_handler = tcl_input,
    .connection_closed_handler = tcl_closed,
    .keep_client_alive_handler = NULL,
}

Definition at line 249 of file tcl_server.c.

Referenced by tcl_init().

tcl_subcommand_handlers

const struct command_registration tcl_subcommand_handlers[]

static

Initial value:

= {
    {
        .name = "port",
        .handler = handle_tcl_port_command,
        .mode = COMMAND_CONFIG,
        .help = "Specify port on which to listen "
            "for incoming Tcl syntax.  "
            "Read help on 'gdb port'.",
        .usage = "[port_num]",
    },
    {
        .name = "notifications",
        .handler = handle_tcl_notifications_command,
        .mode = COMMAND_EXEC,
        .help = "Target Notification output",
        .usage = "[on|off]",
    },
    {
        .name = "trace",
        .handler = handle_tcl_trace_command,
        .mode = COMMAND_EXEC,
        .help = "Target trace output",
        .usage = "[on|off]",
    },
    COMMAND_REGISTRATION_DONE
}

Definition at line 309 of file tcl_server.c.