hyung-hwan/hak
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

hmm.. just a few lines of cli mode code

Browse Source
This commit is contained in:
hyung-hwan
2018-07-30 15:37:03 +00:00
parent 58e5f94ddf
commit da36b2deab
1 changed files with 13 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
hcl/lib/read.c
View File

@ -1017,7 +1017,7 @@ retry:
/* skip spaces */ /* skip spaces */
while (is_spacechar(hcl->c->lxc.c)) while (is_spacechar(hcl->c->lxc.c))
{ {
if ((hcl->option.trait & HCL_CLI_MODE) && hcl->c->lxc.c == '\n') if ((hcl->option.trait & HCL_CLI_MODE) && hcl->c->lxc.c == '\n' && TOKEN_TYPE(hcl) != HCL_IOTOK_EOL)
{ {
SET_TOKEN_TYPE (hcl, HCL_IOTOK_EOL); SET_TOKEN_TYPE (hcl, HCL_IOTOK_EOL);
CLEAR_TOKEN_NAME (hcl); CLEAR_TOKEN_NAME (hcl);
@ -1925,9 +1925,9 @@ static int read_object (hcl_t* hcl)
GET_TOKEN (hcl); GET_TOKEN (hcl);
goto redo; goto redo;
case HCL_IOTOK_RPAREN: /* xlist (), byte array #() */ case HCL_IOTOK_RPAREN: /* xlist (), qlist #() */
case HCL_IOTOK_RBRACK: /* array #[], qlist[] */ case HCL_IOTOK_RBRACK: /* bytearray #[], array[] */
case HCL_IOTOK_RBRACE: /* dictionary #{} */ case HCL_IOTOK_RBRACE: /* dictionary {} */
{ {
static struct static struct
{ {
@ -1939,7 +1939,7 @@ static int read_object (hcl_t* hcl)
{ HCL_IOTOK_RBRACK, HCL_SYNERR_RBRACK }, /* ARRAY [] */ { HCL_IOTOK_RBRACK, HCL_SYNERR_RBRACK }, /* ARRAY [] */
{ HCL_IOTOK_RBRACK, HCL_SYNERR_RBRACK }, /* BYTEARRAY #[] */ { HCL_IOTOK_RBRACK, HCL_SYNERR_RBRACK }, /* BYTEARRAY #[] */
{ HCL_IOTOK_RBRACE, HCL_SYNERR_RBRACE }, /* DIC {} */ { HCL_IOTOK_RBRACE, HCL_SYNERR_RBRACE }, /* DIC {} */
{ HCL_IOTOK_RPAREN, HCL_SYNERR_RPAREN } /* QLIST $() */ { HCL_IOTOK_RPAREN, HCL_SYNERR_RPAREN } /* QLIST #() */
}; };
int oldflagv; int oldflagv;
@ -2229,6 +2229,7 @@ static int read_object_in_cli_mode (hcl_t* hcl)
case HCL_IOTOK_LPAREN: /* () */ case HCL_IOTOK_LPAREN: /* () */
flagv = 0; flagv = 0;
LIST_FLAG_SET_CONCODE (flagv, HCL_CONCODE_XLIST); LIST_FLAG_SET_CONCODE (flagv, HCL_CONCODE_XLIST);
SET_TOKEN_TYPE (hcl, HCL_IOTOK_EOL); /* to have get_token() to ignore immediate <EOL> after ( */
start_list: start_list:
if (level >= HCL_TYPE_MAX(int)) if (level >= HCL_TYPE_MAX(int))
{ {
@ -2270,6 +2271,12 @@ static int read_object_in_cli_mode (hcl_t* hcl)
goto done ; goto done ;
} }
case HCL_IOTOK_LBRACE:
case HCL_IOTOK_RBRACE:
case HCL_IOTOK_NUMLIT: case HCL_IOTOK_NUMLIT:
case HCL_IOTOK_RADNUMLIT: case HCL_IOTOK_RADNUMLIT:
obj = string_to_num(hcl, TOKEN_NAME(hcl), TOKEN_TYPE(hcl) == HCL_IOTOK_RADNUMLIT); obj = string_to_num(hcl, TOKEN_NAME(hcl), TOKEN_TYPE(hcl) == HCL_IOTOK_RADNUMLIT);
@ -2476,6 +2483,7 @@ int hcl_attachio (hcl_t* hcl, hcl_ioimpl_t reader, hcl_ioimpl_t printer)
/* the stream is open. set it as the current input stream */ /* the stream is open. set it as the current input stream */
hcl->c->curinp = &hcl->c->inarg; hcl->c->curinp = &hcl->c->inarg;
if (hcl->option.trait & HCL_CLI_MODE) SET_TOKEN_TYPE (hcl, HCL_IOTOK_EOL);
return 0; return 0;
oops: oops: