void cli_style_option::do_show_intensity (struct ui_file *file, int from_tty, struct cmd_list_element *cmd, const char *value) { const char *name = (const char *) get_cmd_context (cmd); fprintf_filtered (file, _("The \"%s\" display intensity is: %s\n"), name, value); }
static void pascm_show_func (struct ui_file *file, int from_tty, struct cmd_list_element *c, const char *value) { param_smob *p_smob = (param_smob *) get_cmd_context (c); SCM value_scm, self, result, exception; char *msg; struct cleanup *cleanups; gdb_assert (gdbscm_is_procedure (p_smob->show_func)); value_scm = gdbscm_scm_from_host_string (value, strlen (value)); if (gdbscm_is_exception (value_scm)) { error (_("Error converting parameter value \"%s\" to Scheme string."), value); } self = p_smob->containing_scm; result = gdbscm_safe_call_2 (p_smob->show_func, self, value_scm, gdbscm_user_error_p); if (gdbscm_is_exception (result)) { pascm_signal_setshow_error (result, _("Error occurred showing parameter.")); } msg = gdbscm_scm_to_host_string (result, NULL, &exception); if (msg == NULL) { gdbscm_print_gdb_exception (SCM_BOOL_F, exception); error (_("Error converting show text to host string.")); } cleanups = make_cleanup (xfree, msg); fprintf_filtered (file, "%s\n", msg); do_cleanups (cleanups); }
static void cmdscm_function (struct cmd_list_element *command, char *args, int from_tty) { command_smob *c_smob/*obj*/ = (command_smob *) get_cmd_context (command); SCM arg_scm, tty_scm, result; gdb_assert (c_smob != NULL); if (args == NULL) args = ""; arg_scm = gdbscm_scm_from_string (args, strlen (args), host_charset (), 1); if (gdbscm_is_exception (arg_scm)) error (_("Could not convert arguments to Scheme string.")); tty_scm = scm_from_bool (from_tty); result = gdbscm_safe_call_3 (c_smob->invoke, c_smob->containing_scm, arg_scm, tty_scm, gdbscm_user_error_p); if (gdbscm_is_exception (result)) { /* Don't print the stack if this was an error signalled by the command itself. */ if (gdbscm_user_error_p (gdbscm_exception_key (result))) { char *msg = gdbscm_exception_message_to_string (result); make_cleanup (xfree, msg); error ("%s", msg); } else { gdbscm_print_gdb_exception (SCM_BOOL_F, result); error (_("Error occurred in Scheme-implemented GDB command.")); } } }
static void pascm_set_func (const char *args, int from_tty, struct cmd_list_element *c) { param_smob *p_smob = (param_smob *) get_cmd_context (c); SCM self, result, exception; char *msg; struct cleanup *cleanups; gdb_assert (gdbscm_is_procedure (p_smob->set_func)); self = p_smob->containing_scm; result = gdbscm_safe_call_1 (p_smob->set_func, self, gdbscm_user_error_p); if (gdbscm_is_exception (result)) { pascm_signal_setshow_error (result, _("Error occurred setting parameter.")); } if (!scm_is_string (result)) error (_("Result of %s set-func is not a string."), p_smob->name); msg = gdbscm_scm_to_host_string (result, NULL, &exception); if (msg == NULL) { gdbscm_print_gdb_exception (SCM_BOOL_F, exception); error (_("Error converting show text to host string.")); } cleanups = make_cleanup (xfree, msg); /* GDB is usually silent when a parameter is set. */ if (*msg != '\0') fprintf_filtered (gdb_stdout, "%s\n", msg); do_cleanups (cleanups); }
/* FIXME: needs comment: */ static void call_dump_func(struct cmd_list_element *c, const char *args, int from_tty) { struct dump_context *d = (struct dump_context *)get_cmd_context(c); d->func(args, d->mode); }