xfree (string);
return SCM_EOL;
}
gdb_argv c_argv (string);
for (char *arg : c_argv)
result = scm_cons (gdbscm_scm_from_c_string (arg), result);
xfree (string);
return scm_reverse_x (result, SCM_EOL);
}
/* Initialize the Scheme charset interface to GDB. */
static const scheme_function string_functions[] =
{
{ "string->argv", 1, 0, 0, as_a_scm_t_subr (gdbscm_string_to_argv),
"\
Convert a string to a list of strings split up according to\n\
gdb's argv parsing rules." },
END_FUNCTIONS
};
void
gdbscm_initialize_strings (void)
{
gdbscm_define_functions (string_functions, 1);
}
result = EXT_LANG_RC_OK;
done:
if (gdbscm_is_exception (exception))
ppscm_print_exception_unless_memory_error (exception, stream);
do_cleanups (cleanups);
return result;
}
/* Initialize the Scheme pretty-printer code. */
static const scheme_function pretty_printer_functions[] =
{
{ "make-pretty-printer", 2, 0, 0,
as_a_scm_t_subr (gdbscm_make_pretty_printer),
"\
Create a <gdb:pretty-printer> object.\n\
\n\
Arguments: name lookup\n\
name: a string naming the matcher\n\
lookup: a procedure:\n\
(pretty-printer <gdb:value>) -> <gdb:pretty-printer-worker> | #f." },
{ "pretty-printer?", 1, 0, 0, as_a_scm_t_subr (gdbscm_pretty_printer_p),
"\
Return #t if the object is a <gdb:pretty-printer> object." },
{ "pretty-printer-enabled?", 1, 0, 0,
as_a_scm_t_subr (gdbscm_pretty_printer_enabled_p),
"\
gdbscm_out_of_range_error (FUNC_NAME, SCM_ARG2, size,
out_of_range_buf_size);
}
iomem = (ioscm_memory_port *) SCM_STREAM (port);
ioscm_reinit_memory_port (port, iomem->read_buf_size, scm_to_uint (size),
FUNC_NAME);
return SCM_UNSPECIFIED;
}
/* Initialize gdb ports. */
static const scheme_function port_functions[] =
{
{ "input-port", 0, 0, 0, as_a_scm_t_subr (gdbscm_input_port),
"\
Return gdb's input port." },
{ "output-port", 0, 0, 0, as_a_scm_t_subr (gdbscm_output_port),
"\
Return gdb's output port." },
{ "error-port", 0, 0, 0, as_a_scm_t_subr (gdbscm_error_port),
"\
Return gdb's error port." },
{ "stdio-port?", 1, 0, 0, as_a_scm_t_subr (gdbscm_stdio_port_p),
"\
Return #t if the object is a gdb:stdio-port." },
