andrius
/
mes
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

M2/VALUE: reader

This commit is contained in:
Jan Nieuwenhuizen 2019-10-26 13:32:10 +02:00
parent 20b861ac89
commit 88fbcb5ff7
No known key found for this signature in database
GPG Key ID: F3C1A0D9C1D65273
1 changed files with 10 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/reader.c
View File

@ -37,8 +37,6 @@ read_input_file_env_ (SCM e, SCM a)
SCM SCM
read_input_file_env (SCM a) read_input_file_env (SCM a)
{ {
//R0 = a;
//return read_input_file_env_ (read_env (R0), R0);
return read_input_file_env_ (read_env (cell_nil), cell_nil); return read_input_file_env_ (read_env (cell_nil), cell_nil);
} }
@ -186,7 +184,10 @@ reader_read_list (int c, SCM a)
//return cell_nil; //return cell_nil;
SCM s = reader_read_sexp_ (c, a); SCM s = reader_read_sexp_ (c, a);
if (s == cell_dot) if (s == cell_dot)
return CAR (reader_read_list (readchar (), a)); {
s = reader_read_list (readchar (), a);
return CAR (s);
}
return cons (s, reader_read_list (readchar (), a)); return cons (s, reader_read_list (readchar (), a));
} }
@ -286,7 +287,8 @@ reader_read_character ()
} }
else if (c == 'x' && ((p >= '0' && p <= '9') || (p >= 'a' && p <= 'f') || (p >= 'F' && p <= 'F'))) else if (c == 'x' && ((p >= '0' && p <= '9') || (p >= 'a' && p <= 'f') || (p >= 'F' && p <= 'F')))
{ {
c = VALUE (reader_read_hex ()); SCM n = reader_read_hex ();
c = VALUE (n);
eputs ("reading hex c="); eputs ("reading hex c=");
eputs (itoa (c)); eputs (itoa (c));
eputs ("\n"); eputs ("\n");
@ -482,7 +484,10 @@ reader_read_string ()
// c = '\e'; // c = '\e';
c = 27; c = 27;
else if (c == 'x') else if (c == 'x')
c = VALUE (reader_read_hex ()); {
SCM n = reader_read_hex ();
c = VALUE (n);
}
} }
g_buf[i] = c; g_buf[i] = c;
i = i + 1; i = i + 1;