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

dropping the idea of hawk::reset() and changing it to hawk::array() and hawk::map()

Browse Source
This commit is contained in:
hyung-hwan 2020-04-23 07:25:33 +00:00
parent 260ab078f8
commit 11371cc073
1 changed files with 17 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

57
hawk/lib/mod-hawk.c
View File

@ -213,45 +213,26 @@ static int fnc_gc_set_threshold (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi)
/* -------------------------------------------------------------------------- */ /* -------------------------------------------------------------------------- */
#define RESET_TO_NIL (0) static int fnc_array (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi)
#define RESET_TO_ZERO (1)
#define RESET_TO_ARRAY (2)
#define RESET_TO_MAP (3)
static int fnc_reset (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi)
{ {
hawk_val_t* tmp; hawk_val_t* tmp;
hawk_int_t type;
int x;
if (hawk_rtx_valtoint(rtx, hawk_rtx_getarg(rtx, 1), &type) <= -1) type = RESET_TO_NIL; tmp = hawk_rtx_makearrayval(rtx);
switch (type)
{
case RESET_TO_ZERO:
tmp = hawk_rtx_makeintval(rtx, 0);
break;
case RESET_TO_ARRAY:
tmp = hawk_rtx_makearrayval(rtx);
break;
case RESET_TO_MAP:
tmp = hawk_rtx_makemapval(rtx);
break;
case RESET_TO_NIL:
default:
tmp = hawk_rtx_makenilval(rtx);
break;
}
if (HAWK_UNLIKELY(!tmp)) return -1; /* hard failure */ if (HAWK_UNLIKELY(!tmp)) return -1; /* hard failure */
hawk_rtx_refupval (rtx, tmp); /* TODO: take arguments and put them to the map */
x = hawk_rtx_setrefval(rtx, (hawk_val_ref_t*)hawk_rtx_getarg(rtx, 0), tmp); hawk_rtx_setretval (rtx, tmp);
hawk_rtx_refdownval (rtx, tmp); return 0;
if (HAWK_UNLIKELY(x <= -1)) return -1; /* hard failure */ }
static int fnc_map (hawk_rtx_t* rtx, const hawk_fnc_info_t* fi)
{
hawk_val_t* tmp;
tmp = hawk_rtx_makemapval(rtx);
if (HAWK_UNLIKELY(!tmp)) return -1; /* hard failure */
/* TODO: take arguments and put them to the map */
hawk_rtx_setretval (rtx, tmp); hawk_rtx_setretval (rtx, tmp);
return 0; return 0;
} }
@ -277,23 +258,19 @@ struct inttab_t
static fnctab_t fnctab[] = static fnctab_t fnctab[] =
{ {
/* keep this table sorted for binary search in query(). */ /* keep this table sorted for binary search in query(). */
{ HAWK_T("array"), { { 0, A_MAX }, fnc_array, 0 } },
{ HAWK_T("call"), { { 1, A_MAX, HAWK_T("vR") }, fnc_call, 0 } }, { HAWK_T("call"), { { 1, A_MAX, HAWK_T("vR") }, fnc_call, 0 } },
{ HAWK_T("function_exists"), { { 1, 1, HAWK_NULL }, fnc_function_exists, 0 } }, { HAWK_T("function_exists"), { { 1, 1, HAWK_NULL }, fnc_function_exists, 0 } },
{ HAWK_T("gc"), { { 0, 1, HAWK_NULL }, fnc_gc, 0 } }, { HAWK_T("gc"), { { 0, 1, HAWK_NULL }, fnc_gc, 0 } },
{ HAWK_T("gc_get_threshold"), { { 1, 1, HAWK_NULL }, fnc_gc_get_threshold, 0 } }, { HAWK_T("gc_get_threshold"), { { 1, 1, HAWK_NULL }, fnc_gc_get_threshold, 0 } },
{ HAWK_T("gc_set_threshold"), { { 2, 2, HAWK_NULL }, fnc_gc_set_threshold, 0 } }, { HAWK_T("gc_set_threshold"), { { 2, 2, HAWK_NULL }, fnc_gc_set_threshold, 0 } },
{ HAWK_T("reset"), { { 2, 2, HAWK_T("rv") }, fnc_reset, 0 } } { HAWK_T("map"), { { 0, A_MAX }, fnc_map, 0 } }
}; };
static inttab_t inttab[] = static inttab_t inttab[] =
{ {
/* keep this table sorted for binary search in query(). */ /* keep this table sorted for binary search in query(). */
{ HAWK_T("GC_NUM_GENS"), { HAWK_GC_NUM_GENS } }, { HAWK_T("GC_NUM_GENS"), { HAWK_GC_NUM_GENS } }
{ HAWK_T("RESET_TO_ARRAY"), { RESET_TO_ARRAY } },
{ HAWK_T("RESET_TO_MAP"), { RESET_TO_MAP } },
{ HAWK_T("RESET_TO_NIL"), { RESET_TO_NIL } },
{ HAWK_T("RESET_TO_ZERO"), { RESET_TO_ZERO } }
}; };
static int query (hawk_mod_t* mod, hawk_t* hawk, const hawk_ooch_t* name, hawk_mod_sym_t* sym) static int query (hawk_mod_t* mod, hawk_t* hawk, const hawk_ooch_t* name, hawk_mod_sym_t* sym)