Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

WIP - obj_obj2char fixes

Browse source
This commit is contained in:
Justin Ethier 2017-10-30 13:17:37 +00:00
parent 0bcce5038e
commit 3783da2674
2 changed files with 19 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
include/cyclone/types.h
View file

@ -494,12 +494,12 @@ typedef uint32_t char_type;
/**
* Convert from an object to a char.
*/
#define obj_obj2char(x) (char)((long)(x)>>2)
#define obj_obj2char(x) (char_type)((uintmax_t)(x)>>2)
/**
* Convert from a char to an object.
*/
#define obj_char2obj(c) ((void *)((((unsigned long)c)<<2) | 2))
#define obj_char2obj(c) ((void *)((((uintmax_t)c)<<2) | 2))
/**
* Is the given object a value type?

23
runtime.c
View file

@ -804,7 +804,10 @@ object Cyc_display(void *data, object x, FILE * port)
return quote_void;
}
if (obj_is_char(x)) {
fprintf(port, "%c", obj_obj2char(x));
char cbuf[5];
char_type unbox = obj_obj2char(x);
Cyc_utf8_encode_char(cbuf, 5, unbox);
fprintf(port, "%s", cbuf);
return quote_void;
}
if (obj_is_int(x)) {
@ -984,7 +987,7 @@ static object _Cyc_write(void *data, object x, FILE * port)
return quote_void;
}
if (obj_is_char(x)) {
char c = obj_obj2char(x);
char_type c = obj_obj2char(x);
switch (c) {
case 0: fprintf(port, "#\\null"); break;
case 7: fprintf(port, "#\\alarm"); break;
@ -995,11 +998,13 @@ static object _Cyc_write(void *data, object x, FILE * port)
case 27: fprintf(port, "#\\escape"); break;
case 32: fprintf(port, "#\\space"); break;
case 127: fprintf(port, "#\\delete"); break;
default:
fprintf(port, "#\\%c", obj_obj2char(x));
default: {
char cbuf[5];
Cyc_utf8_encode_char(cbuf, 5, c);
fprintf(port, "#\\%s", cbuf);
break;
}
}
//fprintf(port, "#\\%c", obj_obj2char(x));
return quote_void;
}
if (obj_is_int(x)) {
@ -1097,7 +1102,10 @@ object Cyc_write_char(void *data, object c, object port)
if (obj_is_char(c)) {
FILE *fp = ((port_type *) port)->fp;
if (fp){
fprintf(fp, "%c", obj_obj2char(c));
char cbuf[5];
char_type unbox = obj_obj2char(c);
Cyc_utf8_encode_char(cbuf, 5, unbox);
fprintf(fp, "%s", cbuf);
}
} else {
Cyc_rt_raise2(data, "Argument is not a character", c);
@ -2119,6 +2127,7 @@ object Cyc_string_set(void *data, object str, object k, object chr)
// Take fast path if all chars are just 1 byte
if (string_num_cp(str) == string_len(str)) {
// TODO: not good enough, chr could be multi-byte
raw[idx] = obj_obj2char(chr);
} else {
fprintf(stderr, "DEBUG %s, num_cp = %d, len = %d\n", raw, string_num_cp(str), len);
@ -6323,6 +6332,8 @@ object Cyc_io_read_line(void *data, object cont, object port)
errno = 0;
if (fgets(buf, 1023, stream) != NULL) {
// TODO: not good enough for UTF-8, what if we stopped reading in the middle of a code point?
// should reserve 3 extra bytes and, if last code point is not complete, read one byte at a
// time until it has been read
Cyc_utf8_count_code_points_and_bytes((uint8_t *)buf, &num_cp, &len);
{
// Remove any trailing CR / newline chars