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

primitive support of variadic arguments
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan
2024-05-02 22:36:50 +09:00
parent 4fbbe049ba
commit e28faca54e
9 changed files with 238 additions and 23 deletions
Download Patch File Download Diff File Expand all files Collapse all files

21
lib/tree.c
View File

@ -554,6 +554,19 @@ static int print_expr (hawk_t* hawk, hawk_nde_t* nde)
break;
}
case HAWK_NDE_XARG:
{
static hawk_ooch_t* xarg_str[] =
{
HAWK_T("@argv("),
HAWK_T("@argc("),
};
PUT_SRCSTR (hawk, xarg_str[((hawk_nde_xarg_t*)nde)->opcode % 2]);
if (((hawk_nde_xarg_t*)nde)->pos) PRINT_EXPR (hawk, ((hawk_nde_xarg_t*)nde)->pos);
PUT_SRCSTR (hawk, HAWK_T(")"));
break;
}
case HAWK_NDE_FUN:
{
PUT_SRCSTRN (hawk,
@ -1454,6 +1467,14 @@ void hawk_clrpt (hawk_t* hawk, hawk_nde_t* tree)
break;
}
case HAWK_NDE_XARG:
{
if (((hawk_nde_xarg_t*)p)->pos) /* pos is null for @argc */
hawk_clrpt (hawk, ((hawk_nde_xarg_t*)p)->pos);
hawk_freemem (hawk, p);
break;
}
case HAWK_NDE_FUN:
{
hawk_freemem (hawk, ((hawk_nde_fun_t*)p)->name.ptr);