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

Handle the null character

Browse source
This commit is contained in:
Justin Ethier 2017-11-09 19:00:21 -05:00
parent 40b729e11b
commit a492ca379d
2 changed files with 24 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

24
runtime.c
View file

@ -1860,8 +1860,12 @@ object Cyc_list2string(void *data, object cont, object lst)
if (!obj_is_char(cbox)) {
Cyc_rt_raise2(data, "Expected character but received", cbox);
}
Cyc_utf8_encode_char(cbuf, 5, ch);
len += strlen(cbuf);
if (!ch) {
len++;
} else {
Cyc_utf8_encode_char(cbuf, 5, ch);
len += strlen(cbuf);
}
tmp = cdr(tmp);
}
@ -1871,8 +1875,12 @@ object Cyc_list2string(void *data, object cont, object lst)
while ((lst != NULL)) {
cbox = car(lst);
ch = obj_obj2char(cbox); // Already validated, can assume chars now
Cyc_utf8_encode_char(&(buf[i]), 5, ch);
i += strlen(buf+i);
if (!ch) {
i++;
} else {
Cyc_utf8_encode_char(&(buf[i]), 5, ch);
i += strlen(buf+i);
}
lst = cdr(lst);
}
buf[i] = '\0';
@ -2130,8 +2138,12 @@ object Cyc_string_set(void *data, object str, object k, object chr)
}
input_char = obj_obj2char(chr);
Cyc_utf8_encode_char(buf, 5, input_char);
buf_len = strlen(buf);
if (!input_char) {
buf_len = 1;
} else {
Cyc_utf8_encode_char(buf, 5, input_char);
buf_len = strlen(buf);
}
raw = string_str(str);
idx = unbox_number(k);

8
scheme/base.sld
View file

@ -958,8 +958,12 @@
Cyc_rt_raise2(data, \"Expected character buf received\", fill);
}
c = obj_obj2char(fill);
Cyc_utf8_encode_char(ch_buf, 5, c);
buflen = strlen(ch_buf);
if (!c) {
buflen = 1;
} else {
Cyc_utf8_encode_char(ch_buf, 5, c);
buflen = strlen(ch_buf);
}
num_cp = obj_obj2int(count);
len = num_cp * buflen;
if (len >= MAX_STACK_OBJ) {