using namespace std;
-#include "config.hh"
-
#include "dimensions.hh"
#include "direction.hh"
#include "file-path.hh"
if (be_verbose_global)
progress_indication ("[" + s);
- int n = size;
- char *str = gulp_file (s, &n);
- string result (str, n);
- delete[] str;
+ vector<char> chars = gulp_file (s, size);
+ string result (&chars[0], chars.size ());
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 *
scm_to_double (scm_cdr (s)));
}
+SCM
+ly_offsets2scm (vector<Offset> os)
+{
+ SCM l = SCM_EOL;
+ SCM *tail = &l;
+ for (vsize i = 0; i < os.size (); i++)
+ {
+ *tail = scm_cons (ly_offset2scm (os[i]), SCM_EOL);
+ tail = SCM_CDRLOC(*tail);
+ }
+ return l;
+}
+
+vector<Offset>
+ly_scm2offsets (SCM s)
+{
+ vector<Offset> os;
+ for (; scm_is_pair (s); s = scm_cdr (s))
+ os.push_back (ly_scm2offset (scm_car (s)));
+ return os;
+}
+
SCM
ly_deep_copy (SCM src)
{
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;
}
+