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

Added dic.put

Browse Source
This commit is contained in:
hyung-hwan 2018-02-17 17:01:48 +00:00
parent 21cddab62f
commit 1ed8f3f655
1 changed files with 29 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

31
mod/dic.c
View File

@ -54,6 +54,33 @@ static hcl_pfrc_t pf_dic_get (hcl_t* hcl, hcl_ooi_t nargs)
} }
static hcl_pfrc_t pf_dic_put (hcl_t* hcl, hcl_ooi_t nargs)
{
hcl_oop_t dic;
hcl_oop_t key, val;
hcl_oop_cons_t pair;
dic = HCL_STACK_GETARG(hcl, nargs, 0);
key = HCL_STACK_GETARG(hcl, nargs, 1);
val = HCL_STACK_GETARG(hcl, nargs, 2);
if (!HCL_IS_DIC(hcl,dic))
{
hcl_seterrbfmt (hcl, HCL_EINVAL, "parameter not an dictionary - %O", dic);
return HCL_PF_FAILURE;
}
pair = hcl_putatdic(hcl, (hcl_oop_dic_t)dic, key, val);
if (!pair)
{
HCL_STACK_SETRETTOERRNUM (hcl, nargs);
return HCL_PF_SUCCESS;
}
HCL_STACK_SETRET (hcl, nargs, HCL_CONS_CDR(pair));
return HCL_PF_SUCCESS;
}
static int walker (hcl_t* hcl, hcl_oop_dic_t dic, hcl_oop_cons_t pair, void* ctx) static int walker (hcl_t* hcl, hcl_oop_dic_t dic, hcl_oop_cons_t pair, void* ctx)
{ {
@ -84,8 +111,8 @@ static hcl_pfrc_t pf_dic_walk (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfinfo_t pfinfos[] = static hcl_pfinfo_t pfinfos[] =
{ {
{ { 'g','e','t','\0' }, 0, { pf_dic_get, 2, 2 } }, { { 'g','e','t','\0' }, 0, { pf_dic_get, 2, 2 } },
/* { { 'm','a','k','e','\0' }, 0, { pf_dic_make, 1, 1 } }, /* { { 'm','a','k','e','\0' }, 0, { pf_dic_make, 1, 1 } }, */
{ { 'p','u','t','\0' }, 0, { pf_dic_put, 3, 3 } },*/ { { 'p','u','t','\0' }, 0, { pf_dic_put, 3, 3 } },
{ { 'w','a','l','k','\0' }, 0, { pf_dic_walk, 2, 2 } }, { { 'w','a','l','k','\0' }, 0, { pf_dic_walk, 2, 2 } },
}; };