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 ("]");
{
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 *
return o;
}
-string
-robust_scm2string (SCM k, string s)
-{
- if (scm_is_string (k))
- s = ly_scm2string (k);
- return s;
-}
-
int
robust_scm2int (SCM k, int o)
{
cxx_id = replace_all (cxx_id, '_', '-');
return cxx_id;
}
-