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

Hex scalars as part of strings

Browse source
This commit is contained in:
Justin Ethier 2017-08-14 22:10:46 +00:00
parent 35cb42fb99
commit 56fcf3bb5b
1 changed files with 9 additions and 8 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

17
runtime.c
View file

@ -5796,28 +5796,29 @@ void _read_string(void *data, object cont, port_type *p)
_read_add_to_tok_buf(p, '\t');
break;
case 'x': {
char buf[128];
char buf[32];
int i = 0;
while (i < 127){
while (i < 31){
if (p->mem_buf_len == 0 || p->mem_buf_len == p->buf_idx) {
int rv = read_from_port(p);
if (!rv) {
break;
}
}
if (p->mem_buf[p->buf_idx] == ';') break;
if (p->mem_buf[p->buf_idx] == ';'){
p->buf_idx++;
break;
}
buf[i] = p->mem_buf[p->buf_idx];
p->buf_idx++;
p->col_num++;
i++;
}
buf[i] = '\0';
// TODO: convert hex and return_closcall1(data, cont,
{
make_string(str, buf);
// TODO: (integer->char (string->number (list->string buf) 16)))))
// Cyc_string2number2_(data, cont, 2, buf, obj_int2obj(16));
return_closcall1(data, cont, boolean_f); // TODO: just a placeholder!
int result = (int)strtol(buf, NULL, 16);
//return_closcall1(data, cont, obj_char2obj(result));
p->tok_buf[p->tok_end++] = (char)result;
}
break;
}