Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-04 11:46:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Added utf8/string stubs

Browse source
This commit is contained in:
Justin Ethier 2016-03-28 23:51:37 -04:00
parent 5f5d16a03a
commit f2f5e191bd
2 changed files with 59 additions and 0 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

2
include/cyclone/runtime.h
View file

@ -162,6 +162,8 @@ object Cyc_bytevector_append(void *data, object cont, int _argc, object bv, ...)
object Cyc_bytevector_copy(void *data, object cont, object bv, object start, object end);
object Cyc_bytevector_u8_ref(void *data, object bv, object k);
object Cyc_bytevector_u8_set(void *data, object bv, object k, object b);
object Cyc_utf82string(void *data, object cont, object bv, object start, object end);
object Cyc_string2utf8(void *data, object cont, object str, object start, object end);
object Cyc_list2vector(void *data, object cont, object l);
object Cyc_number2string(void *d, object cont, object n);
object Cyc_symbol2string(void *d, object cont, object sym) ;

57
runtime.c
View file

@ -1497,6 +1497,63 @@ object Cyc_bytevector_copy(void *data, object cont, object bv, object start, obj
return_closcall1(data, cont, &result);
}
object Cyc_utf82string(void *data, object cont, object bv, object start, object end) {
const char *buf;
int s, e;
int len;
Cyc_check_bvec(data, bv);
Cyc_check_int(data, start);
Cyc_check_int(data, end);
buf = ((bytevector)bv)->data;
s = obj_is_int(start) ? obj_obj2int(start) : integer_value(start);
e = obj_is_int(end) ? obj_obj2int(end) : integer_value(end);
if (s < 0 || s >= ((bytevector)bv)->len) {
Cyc_rt_raise2(data, "utf8->string - invalid start", start);
}
if (e < 0 || e < s || e > ((bytevector)bv)->len) {
Cyc_rt_raise2(data, "utf8->string - invalid end", end);
}
len = e - s;
{
make_string_with_len(str, &(((bytevector)bv)->data)[s], len);
return_closcall1(data, cont, &str);
}
}
object Cyc_string2utf8(void *data, object cont, object str, object start, object end) {
const char *buf;
int s, e;
int len;
make_empty_bytevector(result);
Cyc_check_str(data, str);
Cyc_check_int(data, start);
Cyc_check_int(data, end);
buf = string_str(str);
s = obj_is_int(start) ? obj_obj2int(start) : integer_value(start);
e = obj_is_int(end) ? obj_obj2int(end) : integer_value(end);
if (s < 0 || s >= string_len(str)) {
Cyc_rt_raise2(data, "string->utf8 - invalid start", start);
}
if (e < 0 || e < s || e > string_len(str)) {
Cyc_rt_raise2(data, "string->utf8 - invalid end", end);
}
len = e - s;
result.len = len;
result.data = alloca(sizeof(char) * len);
memcpy(&result.data[0], &(string_str(str))[s], len);
return_closcall1(data, cont, &result);
}
object Cyc_bytevector_u8_ref(void *data, object bv, object k) {
const char *buf;
int idx;