M2/VALUE: reader
This commit is contained in:
parent
20b861ac89
commit
88fbcb5ff7
15
src/reader.c
15
src/reader.c
|
@ -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;
|
||||||
|
|
Loading…
Reference in New Issue