33 char *s = scm_to_latin1_string (
string);
46 return scm_from_latin1_string (
string);
57 return scm_to_latin1_string (
string);
69 va_start (args, format);
72 result = scm_from_latin1_string (
string);
121 const char *
charset,
int strict, SCM *except_scmp)
130 ? SCM_FAILED_CONVERSION_ERROR
131 : SCM_FAILED_CONVERSION_ESCAPE_SEQUENCE);
142 *except_scmp = scm_result;
181 const char *
charset,
int strict)
191 ? SCM_FAILED_CONVERSION_ERROR
192 : SCM_FAILED_CONVERSION_QUESTION_MARK);
193 data.
result = SCM_UNDEFINED;
249 string_scm, &
string);
251 if (
string == NULL || *
string ==
'\0')
258 for (i = 0; c_argv[i] != NULL; ++i)
264 return scm_reverse_x (result, SCM_EOL);
273 Convert a string to a list of strings split up according to\n\
274 gdb's argv parsing rules." },
char * gdbscm_scm_to_host_string(SCM string, size_t *lenp, SCM *except_scmp)
void gdbscm_define_functions(const scheme_function *, int is_public)
char * xstrvprintf(const char *format, va_list ap)
static SCM gdbscm_string_to_argv(SCM string_scm)
int gdbscm_scm_string_to_int(SCM string)
int gdbscm_is_exception(SCM scm)
char * gdbscm_scm_to_c_string(SCM string)
#define gdbscm_is_false(scm)
SCM gdbscm_scm_from_string(const char *string, size_t len, const char *charset, int strict)
char * gdbscm_scm_to_string(SCM string, size_t *lenp, const char *charset, int strict, SCM *except_scmp)
SCM gdbscm_call_guile(SCM(*func)(void *), void *data, excp_matcher_func *ok_excps)
void gdbscm_initialize_strings(void)
char ** gdb_buildargv(const char *s)
void gdbscm_parse_function_args(const char *function_name, int beginning_arg_pos, const SCM *keywords, const char *format,...)
static SCM gdbscm_call_scm_to_stringn(void *datap)
SCM gdbscm_scm_from_c_string(const char *string)
const char * host_charset(void)
SCM gdbscm_scm_from_host_string(const char *string, size_t len)
static SCM gdbscm_call_scm_from_stringn(void *datap)
SCM gdbscm_scm_from_printf(const char *format,...)
const ULONGEST const LONGEST len