diff --git a/lib/comp.c b/lib/comp.c index 2f90ae3..4e9da49 100644 --- a/lib/comp.c +++ b/lib/comp.c @@ -4111,6 +4111,12 @@ redo: if (compile_cons_mlist_expression(hcl, oprnd, 0) <= -1) return -1; break; + case HCL_CONCODE_BLOCK: + /* TODO: not implemented yet */ + hcl_setsynerrbfmt (hcl, HCL_SYNERR_INTERN, HCL_CNODE_GET_LOC(oprnd), HCL_NULL, "internal error - block not implemented"); + return -1; + break; + case HCL_CONCODE_ARRAY: if (compile_cons_array_expression(hcl, oprnd) <= -1) return -1; break; diff --git a/lib/read.c b/lib/read.c index 7bf43f5..b1e46ee 100644 --- a/lib/read.c +++ b/lib/read.c @@ -1152,9 +1152,13 @@ static int feed_process_token (hcl_t* hcl) goto ok; + case HCL_TOK_SEMICOLON: + /* TODO: */ + goto ok; + case HCL_TOK_RPAREN: /* xlist (), qlist #() */ - case HCL_TOK_RBRACK: /* bytearray #[], array[] */ - case HCL_TOK_RBRACE: /* dictionary #{} */ + case HCL_TOK_RBRACK: /* bytearray #[], array [] */ + case HCL_TOK_RBRACE: /* dictionary #{}, block {} */ { static struct { @@ -1164,6 +1168,7 @@ static int feed_process_token (hcl_t* hcl) { { HCL_TOK_RPAREN, HCL_SYNERR_RPAREN }, /* XLIST ( ) */ { HCL_TOK_RPAREN, HCL_SYNERR_RPAREN }, /* MLIST (: ) */ + { HCL_TOK_RBRACE, HCL_SYNERR_RBRACE }, /* BLOCK { } */ { HCL_TOK_RBRACK, HCL_SYNERR_RBRACK }, /* ARRAY [ ] */ { HCL_TOK_RBRACK, HCL_SYNERR_RBRACK }, /* BYTEARRAY #[ ] */ { HCL_TOK_RBRACE, HCL_SYNERR_RBRACE }, /* DIC #{ } */