Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-07-07 13:16:36 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Supporting unicode characters in \x string escapes.

Browse source
This commit is contained in:
Alex Shinn 2012-11-11 14:13:35 +09:00
parent 2f5f7f73c7
commit 4ffcba797c
1 changed files with 12 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

13
sexp.c
View file

@ -2115,6 +2115,9 @@ sexp sexp_flush_output_op (sexp ctx, sexp self, sexp_sint_t n, sexp out) {
#define INIT_STRING_BUFFER_SIZE 128 #define INIT_STRING_BUFFER_SIZE 128
sexp sexp_read_string (sexp ctx, sexp in, int sentinel) { sexp sexp_read_string (sexp ctx, sexp in, int sentinel) {
#if SEXP_USE_UTF8_STRINGS
int len;
#endif
int c, i=0; int c, i=0;
sexp_sint_t size=INIT_STRING_BUFFER_SIZE; sexp_sint_t size=INIT_STRING_BUFFER_SIZE;
char initbuf[INIT_STRING_BUFFER_SIZE]; char initbuf[INIT_STRING_BUFFER_SIZE];
@ -2142,6 +2145,14 @@ sexp sexp_read_string (sexp ctx, sexp in, int sentinel) {
#endif #endif
} }
c = sexp_unbox_fixnum(res); c = sexp_unbox_fixnum(res);
#if SEXP_USE_UTF8_STRINGS
if ((unsigned)c > 0x80) {
len = sexp_utf8_char_byte_count(c);
sexp_utf8_encode_char((unsigned char*)buf + i, len, c);
i += len;
continue;
}
#endif
} }
break; break;
#if SEXP_USE_ESCAPE_NEWLINE #if SEXP_USE_ESCAPE_NEWLINE
@ -2157,7 +2168,7 @@ sexp sexp_read_string (sexp ctx, sexp in, int sentinel) {
break; break;
} }
buf[i++] = c; buf[i++] = c;
if (i >= size) { /* expand buffer w/ malloc(), later free() it */ if (i+4 >= size) { /* expand buffer w/ malloc(), later free() it */
tmp = (char*) sexp_malloc(size*2); tmp = (char*) sexp_malloc(size*2);
if (!tmp) {res = sexp_global(ctx, SEXP_G_OOM_ERROR); break;} if (!tmp) {res = sexp_global(ctx, SEXP_G_OOM_ERROR); break;}
memcpy(tmp, buf, i); memcpy(tmp, buf, i);