| 367 | } |
| 368 | |
| 369 | bool hc_read_expr(const char **in, |
| 370 | struct hc_list *out, |
| 371 | struct hc_sloc *sloc) { |
| 372 | const char c = **in; |
| 373 | |
| 374 | switch (c) { |
| 375 | case '(': |
| 376 | hc_read_call(in, out, sloc); |
| 377 | return true; |
| 378 | default: |
| 379 | if (isalpha(c)) { |
| 380 | hc_read_id(in, out, sloc); |
| 381 | return true; |
| 382 | } |
| 383 | |
| 384 | break; |
| 385 | } |
| 386 | |
| 387 | return false; |
| 388 | } |
| 389 | |
| 390 | void hc_read_id(const char **in, |
| 391 | struct hc_list *out, |