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

change dic.get to return an error code upon search failure

Browse Source
This commit is contained in:
hyung-hwan 2018-02-17 16:45:17 +00:00
parent 093ee93a3c
commit 21cddab62f
2 changed files with 4 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
lib/hcl.h
View File

@ -1138,7 +1138,8 @@ struct hcl_t
HCL_STACK_SETTOP(hcl, (retv)); \
} while(0)
#define HCL_STACK_SETRETTORCV(hcl,nargs) (HCL_STACK_POPS(hcl, nargs))
#define HCL_STACK_SETRETTOERRNUM(hcl,nargs) HCL_STACK_SETRET(hcl, nargs, HCL_ERROR_TO_OOP(hcl->errnum))
#define HCL_STACK_SETRETTOERROR(hcl,nargs,ec) HCL_STACK_SETRET(hcl, nargs, HCL_ERROR_TO_OOP(ec))
/* =========================================================================

6
mod/dic.c
View File

@ -45,10 +45,8 @@ static hcl_pfrc_t pf_dic_get (hcl_t* hcl, hcl_ooi_t nargs)
pair = hcl_getatdic(hcl, (hcl_oop_dic_t)dic, key);
if (!pair)
{
/* TODO: arrange to return ERROR instead of returnin HCL_PF_FAILURE*/
hcl_seterrbfmt (hcl, HCL_EINVAL, "invalid key - %O", key);
return HCL_PF_FAILURE;
HCL_STACK_SETRETTOERROR (hcl, nargs, HCL_ENOENT);
return HCL_PF_SUCCESS;
}
HCL_STACK_SETRET (hcl, nargs, HCL_CONS_CDR(pair));