From ed3ef33944c39d9a3cea72b9a7cef3c20f0e3461 Mon Sep 17 00:00:00 2001 From: Doug Evans Date: Sun, 9 Feb 2014 19:40:01 -0800 Subject: Add Guile as an extension language. * NEWS: Mention Guile scripting. * Makefile.in (SUBDIR_GUILE_OBS): New variable. (SUBDIR_GUILE_SRCS, SUBDIR_GUILE_DEPS): New variables (SUBDIR_GUILE_LDFLAGS, SUBDIR_GUILE_CFLAGS): New variables. (INTERNAL_CPPFLAGS): Add GUILE_CPPFLAGS. (CLIBS): Add GUILE_LIBS. (install-guile): New rule. (guile.o): New rule. (scm-arch.o, scm-auto-load.o, scm-block.o): New rules. (scm-breakpoint.o, scm-disasm.o, scm-exception.o): New rules. (scm-frame.o, scm-iterator.o, scm-lazy-string.o): New rules. (scm-math.o, scm-objfile.o, scm-ports.o): New rules. (scm-pretty-print.o, scm-safe-call.o, scm-gsmob.o): New rules. (scm-string.o, scm-symbol.o, scm-symtab.o): New rules. (scm-type.o, scm-utils.o, scm-value.o): New rules. * configure.ac: New option --with-guile. * configure: Regenerate. * config.in: Regenerate. * auto-load.c: Remove #include "python/python.h". Add #include "gdb/section-scripts.h". (source_section_scripts): Handle Guile scripts. (_initialize_auto_load): Add name of Guile objfile script to scripts-directory help text. * breakpoint.c (condition_command): Tweak comment to include Scheme. * breakpoint.h (gdbscm_breakpoint_object): Add forward decl. (struct breakpoint): New member scm_bp_object. * defs.h (enum command_control_type): New value guile_control. * cli/cli-cmds.c: Remove #include "python/python.h". Add #include "extension.h". (show_user): Update comment. (_initialize_cli_cmds): Update help text for "show user". Update help text for max-user-call-depth. * cli/cli-script.c: Remove #include "python/python.h". Add #include "extension.h". (multi_line_command_p): Add guile_control. (print_command_lines): Handle guile_control. (execute_control_command, recurse_read_control_structure): Ditto. (process_next_line): Recognize "guile" commands. * disasm.c (gdb_disassemble_info): Make non-static. * disasm.h: #include "dis-asm.h". (struct gdbarch): Add forward decl. (gdb_disassemble_info): Declare. * extension.c: #include "guile/guile.h". (extension_languages): Add guile. (get_ext_lang_defn): Handle EXT_LANG_GDB. * extension.h (enum extension_language): New value EXT_LANG_GUILE. * gdbtypes.c (get_unsigned_type_max): New function. (get_signed_type_minmax): New function. * gdbtypes.h (get_unsigned_type_max): Declare. (get_signed_type_minmax): Declare. * guile/README: New file. * guile/guile-internal.h: New file. * guile/guile.c: New file. * guile/guile.h: New file. * guile/scm-arch.c: New file. * guile/scm-auto-load.c: New file. * guile/scm-block.c: New file. * guile/scm-breakpoint.c: New file. * guile/scm-disasm.c: New file. * guile/scm-exception.c: New file. * guile/scm-frame.c: New file. * guile/scm-gsmob.c: New file. * guile/scm-iterator.c: New file. * guile/scm-lazy-string.c: New file. * guile/scm-math.c: New file. * guile/scm-objfile.c: New file. * guile/scm-ports.c: New file. * guile/scm-pretty-print.c: New file. * guile/scm-safe-call.c: New file. * guile/scm-string.c: New file. * guile/scm-symbol.c: New file. * guile/scm-symtab.c: New file. * guile/scm-type.c: New file. * guile/scm-utils.c: New file. * guile/scm-value.c: New file. * guile/lib/gdb.scm: New file. * guile/lib/gdb/boot.scm: New file. * guile/lib/gdb/experimental.scm: New file. * guile/lib/gdb/init.scm: New file. * guile/lib/gdb/iterator.scm: New file. * guile/lib/gdb/printing.scm: New file. * guile/lib/gdb/types.scm: New file. * data-directory/Makefile.in (GUILE_SRCDIR): New variable. (VPATH): Add $(GUILE_SRCDIR). (GUILE_DIR): New variable. (GUILE_INSTALL_DIR, GUILE_FILES): New variables. (all): Add stamp-guile dependency. (stamp-guile): New rule. (clean-guile, install-guile, uninstall-guile): New rules. (install-only): Add install-guile dependency. (uninstall): Add uninstall-guile dependency. (clean): Add clean-guile dependency. doc/ * Makefile.in (GDB_DOC_FILES): Add guile.texi. * gdb.texinfo (Auto-loading): Add set/show auto-load guile-scripts. (Extending GDB): New menu entries Guile, Multiple Extension Languages. (Guile docs): Include guile.texi. (objfile-gdbdotext file): Add objfile-gdb.scm. (dotdebug_gdb_scripts section): Mention Guile scripts. (Multiple Extension Languages): New node. * guile.texi: New file. testsuite/ * configure.ac (AC_OUTPUT): Add gdb.guile. * configure: Regenerate. * lib/gdb-guile.exp: New file. * lib/gdb.exp (get_target_charset): New function. * gdb.base/help.exp: Update expected output from "apropos apropos". * gdb.guile/Makefile.in: New file. * gdb.guile/guile.exp: New file. * gdb.guile/scm-arch.c: New file. * gdb.guile/scm-arch.exp: New file. * gdb.guile/scm-block.c: New file. * gdb.guile/scm-block.exp: New file. * gdb.guile/scm-breakpoint.c: New file. * gdb.guile/scm-breakpoint.exp: New file. * gdb.guile/scm-disasm.c: New file. * gdb.guile/scm-disasm.exp: New file. * gdb.guile/scm-equal.c: New file. * gdb.guile/scm-equal.exp: New file. * gdb.guile/scm-error.exp: New file. * gdb.guile/scm-error.scm: New file. * gdb.guile/scm-frame-args.c: New file. * gdb.guile/scm-frame-args.exp: New file. * gdb.guile/scm-frame-args.scm: New file. * gdb.guile/scm-frame-inline.c: New file. * gdb.guile/scm-frame-inline.exp: New file. * gdb.guile/scm-frame.c: New file. * gdb.guile/scm-frame.exp: New file. * gdb.guile/scm-generics.exp: New file. * gdb.guile/scm-gsmob.exp: New file. * gdb.guile/scm-iterator.c: New file. * gdb.guile/scm-iterator.exp: New file. * gdb.guile/scm-math.c: New file. * gdb.guile/scm-math.exp: New file. * gdb.guile/scm-objfile-script-gdb.in: New file. * gdb.guile/scm-objfile-script.c: New file. * gdb.guile/scm-objfile-script.exp: New file. * gdb.guile/scm-objfile.c: New file. * gdb.guile/scm-objfile.exp: New file. * gdb.guile/scm-ports.exp: New file. * gdb.guile/scm-pretty-print.c: New file. * gdb.guile/scm-pretty-print.exp: New file. * gdb.guile/scm-pretty-print.scm: New file. * gdb.guile/scm-section-script.c: New file. * gdb.guile/scm-section-script.exp: New file. * gdb.guile/scm-section-script.scm: New file. * gdb.guile/scm-symbol.c: New file. * gdb.guile/scm-symbol.exp: New file. * gdb.guile/scm-symtab-2.c: New file. * gdb.guile/scm-symtab.c: New file. * gdb.guile/scm-symtab.exp: New file. * gdb.guile/scm-type.c: New file. * gdb.guile/scm-type.exp: New file. * gdb.guile/scm-value-cc.cc: New file. * gdb.guile/scm-value-cc.exp: New file. * gdb.guile/scm-value.c: New file. * gdb.guile/scm-value.exp: New file. * gdb.guile/source2.scm: New file. * gdb.guile/types-module.cc: New file. * gdb.guile/types-module.exp: New file. --- gdb/guile/scm-string.c | 246 +++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 246 insertions(+) create mode 100644 gdb/guile/scm-string.c (limited to 'gdb/guile/scm-string.c') diff --git a/gdb/guile/scm-string.c b/gdb/guile/scm-string.c new file mode 100644 index 0000000..87ecabf --- /dev/null +++ b/gdb/guile/scm-string.c @@ -0,0 +1,246 @@ +/* GDB/Scheme charset interface. + + Copyright (C) 2014 Free Software Foundation, Inc. + + This file is part of GDB. + + This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 3 of the License, or + (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details. + + You should have received a copy of the GNU General Public License + along with this program. If not, see . */ + +/* See README file in this directory for implementation notes, coding + conventions, et.al. */ + +#include "defs.h" +#include +#include "charset.h" +#include "guile-internal.h" + +/* Convert a C (latin1) string to an SCM string. + "latin1" is chosen because Guile won't throw an exception. */ + +SCM +gdbscm_scm_from_c_string (const char *string) +{ + return scm_from_latin1_string (string); +} + +/* Convert an SCM string to a C (latin1) string. + "latin1" is chosen because Guile won't throw an exception. + Space for the result is allocated with malloc, caller must free. + It is an error to call this if STRING is not a string. */ + +char * +gdbscm_scm_to_c_string (SCM string) +{ + return scm_to_latin1_string (string); +} + +/* Use printf to construct a Scheme string. */ + +SCM +gdbscm_scm_from_printf (const char *format, ...) +{ + va_list args; + char *string; + SCM result; + + va_start (args, format); + string = xstrvprintf (format, args); + va_end (args); + result = scm_from_latin1_string (string); + xfree (string); + + return result; +} + +/* Struct to pass data from gdbscm_scm_to_string to + gdbscm_call_scm_to_stringn. */ + +struct scm_to_stringn_data +{ + SCM string; + size_t *lenp; + const char *charset; + int conversion_kind; + char *result; +}; + +/* Helper for gdbscm_scm_to_string to call scm_to_stringn + from within scm_c_catch. */ + +static SCM +gdbscm_call_scm_to_stringn (void *datap) +{ + struct scm_to_stringn_data *data = datap; + + data->result = scm_to_stringn (data->string, data->lenp, data->charset, + data->conversion_kind); + return SCM_BOOL_F; +} + +/* Convert an SCM string to a string in charset CHARSET. + This function is guaranteed to not throw an exception. + If STRICT is non-zero, and there's a conversion error, then a + object is stored in *EXCEPT_SCMP, and NULL is returned. + If STRICT is zero, then escape sequences are used for characters that + can't be converted, and EXCEPT_SCMP may be passed as NULL. + Space for the result is allocated with malloc, caller must free. + It is an error to call this if STRING is not a string. */ + +char * +gdbscm_scm_to_string (SCM string, size_t *lenp, + const char *charset, int strict, SCM *except_scmp) +{ + struct scm_to_stringn_data data; + SCM scm_result; + + data.string = string; + data.lenp = lenp; + data.charset = charset; + data.conversion_kind = (strict + ? SCM_FAILED_CONVERSION_ERROR + : SCM_FAILED_CONVERSION_ESCAPE_SEQUENCE); + data.result = NULL; + + scm_result = gdbscm_call_guile (gdbscm_call_scm_to_stringn, &data, NULL); + + if (gdbscm_is_false (scm_result)) + { + gdb_assert (data.result != NULL); + return data.result; + } + gdb_assert (gdbscm_is_exception (scm_result)); + *except_scmp = scm_result; + return NULL; +} + +/* Struct to pass data from gdbscm_scm_from_string to + gdbscm_call_scm_from_stringn. */ + +struct scm_from_stringn_data +{ + const char *string; + size_t len; + const char *charset; + int conversion_kind; + SCM result; +}; + +/* Helper for gdbscm_scm_from_string to call scm_from_stringn + from within scm_c_catch. */ + +static SCM +gdbscm_call_scm_from_stringn (void *datap) +{ + struct scm_from_stringn_data *data = datap; + + data->result = scm_from_stringn (data->string, data->len, data->charset, + data->conversion_kind); + return SCM_BOOL_F; +} + +/* Convert STRING to a Scheme string in charset CHARSET. + This function is guaranteed to not throw an exception. + If STRICT is non-zero, and there's a conversion error, then a + object is returned. + If STRICT is zero, then question marks are used for characters that + can't be converted (limitation of underlying Guile conversion support). */ + +SCM +gdbscm_scm_from_string (const char *string, size_t len, + const char *charset, int strict) +{ + struct scm_from_stringn_data data; + SCM scm_result; + + data.string = string; + data.len = len; + data.charset = charset; + /* The use of SCM_FAILED_CONVERSION_QUESTION_MARK is specified by Guile. */ + data.conversion_kind = (strict + ? SCM_FAILED_CONVERSION_ERROR + : SCM_FAILED_CONVERSION_QUESTION_MARK); + data.result = SCM_UNDEFINED; + + scm_result = gdbscm_call_guile (gdbscm_call_scm_from_stringn, &data, NULL); + + if (gdbscm_is_false (scm_result)) + { + gdb_assert (!SCM_UNBNDP (data.result)); + return data.result; + } + gdb_assert (gdbscm_is_exception (scm_result)); + return scm_result; +} + +/* Convert an SCM string to a target string. + This function will thrown a conversion error if there's a problem. + Space for the result is allocated with malloc, caller must free. + It is an error to call this if STRING is not a string. */ + +char * +gdbscm_scm_to_target_string_unsafe (SCM string, size_t *lenp, + struct gdbarch *gdbarch) +{ + return scm_to_stringn (string, lenp, target_charset (gdbarch), + SCM_FAILED_CONVERSION_ERROR); +} + +/* (string->argv string) -> list + Return list of strings split up according to GDB's argv parsing rules. + This is useful when writing GDB commands in Scheme. */ + +static SCM +gdbscm_string_to_argv (SCM string_scm) +{ + char *string; + char **c_argv; + int i; + SCM result = SCM_EOL; + + gdbscm_parse_function_args (FUNC_NAME, SCM_ARG1, NULL, "s", + string_scm, &string); + + if (string == NULL || *string == '\0') + { + xfree (string); + return SCM_EOL; + } + + c_argv = gdb_buildargv (string); + for (i = 0; c_argv[i] != NULL; ++i) + result = scm_cons (gdbscm_scm_from_c_string (c_argv[i]), result); + + freeargv (c_argv); + 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, 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); +} -- cgit v1.1