Пример #1
0
//
// These serialize/deserialize objects to char buffers.
// Dont forget to free() the result of scm_to_byte_string()
// when finished:
//
static char *
scm_to_byte_string (SCM obj, size_t *lenp)
{
    SCM str = object_to_string (obj);

    return scm_to_locale_stringn (str, lenp);
}
Пример #2
0
/* Write data to terminal-attached printer */
SCM
gucu_mcprint (SCM data)
{
  size_t len;
  char *str = scm_to_locale_stringn (data, &len);
  int ret;
  ret = mcprint (str, len);
  if (ret == ERR)
    return SCM_BOOL_F;
  
  return scm_from_int (ret);
}
Пример #3
0
SCM executer_wrapper(SCM x)
{
    return scm_from_int(executer(scm_to_locale_stringn(x, 0)));
}
Пример #4
0
char* scm_to_locale_string (SCM obj) {
	if SCM_UNBNDP(obj) return NULL;
	return scm_to_locale_stringn(obj, NULL);
}