This commit is contained in:
parent
aaa6e35787
commit
632fbfdba2
6
lang.txt
6
lang.txt
@ -26,6 +26,12 @@
|
|||||||
#b[ ] byte array??
|
#b[ ] byte array??
|
||||||
#[ ] normal array?
|
#[ ] normal array?
|
||||||
|
|
||||||
|
allow b'X' or 'X' in byte array in #b[] notation?
|
||||||
|
|
||||||
|
signal handling
|
||||||
|
|
||||||
|
full oop
|
||||||
|
|
||||||
make basic branded types to an object if possible.
|
make basic branded types to an object if possible.
|
||||||
for example (#[10 20]:at 1)
|
for example (#[10 20]:at 1)
|
||||||
|
|
||||||
|
23
lib/read.c
23
lib/read.c
@ -2172,6 +2172,29 @@ not_consumed:
|
|||||||
return 0;
|
return 0;
|
||||||
}
|
}
|
||||||
|
|
||||||
|
static int flx_hmarked_b (hcl_t* hcl, hcl_ooci_t c)
|
||||||
|
{
|
||||||
|
#if 0
|
||||||
|
hcl_flx_hb_t* hb = FLX_HB(hcl);
|
||||||
|
|
||||||
|
if (c == '[')
|
||||||
|
{
|
||||||
|
}
|
||||||
|
else
|
||||||
|
{
|
||||||
|
init_flx_hn (FLX_HN(hcl), HCL_TOK_RADNUMLIT, HCL_SYNERR_NUMLIT, 2);
|
||||||
|
FEED_CONTINUE (hcl, HCL_FLX_HMARKED_NUMBER);
|
||||||
|
goto not_consumed;
|
||||||
|
}
|
||||||
|
#endif
|
||||||
|
|
||||||
|
consumed:
|
||||||
|
return 1;
|
||||||
|
|
||||||
|
not_consumed:
|
||||||
|
return 0;
|
||||||
|
}
|
||||||
|
|
||||||
static int flx_hmarked_number (hcl_t* hcl, hcl_ooci_t c)
|
static int flx_hmarked_number (hcl_t* hcl, hcl_ooci_t c)
|
||||||
{
|
{
|
||||||
hcl_flx_hn_t* rn = FLX_HN(hcl);
|
hcl_flx_hn_t* rn = FLX_HN(hcl);
|
||||||
|
Loading…
Reference in New Issue
Block a user