if (be_verbose_global)
progress_indication ("[" + s);
- vector<char> chars = gulp_file (s, size);
- string result (&chars[0], chars.size ());
+ int n = size;
+ char *str = gulp_file (s, &n);
+ string result (str, n);
+ delete[] str;
if (be_verbose_global)
progress_indication ("]");
return result;
}
-void
-ly_display_scm (void *s)
-{
- scm_display ((SCM)s, scm_current_output_port ());
- scm_newline (scm_current_output_port ());
-}
+extern "C" {
+ // maybe gdb 5.0 becomes quicker if it doesn't do fancy C++ typing?
+ void
+ ly_display_scm (SCM s)
+ {
+ scm_display (s, scm_current_output_port ());
+ scm_newline (scm_current_output_port ());
+ }
+};
string
ly_scm2string (SCM str)
{
assert (scm_is_string (str));
return string (scm_i_string_chars (str),
- (int) scm_i_string_length (str));
+ (int) scm_i_string_length (str));
}
char *
cxx_id = replace_all (cxx_id, '_', '-');
return cxx_id;
}
-