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

changed the prototype of hcl_pfimpl_t to accept a hcl_mod_t* pointer

Browse Source
This commit is contained in:
hyung-hwan
2018-02-28 04:52:01 +00:00
parent eaf7f9243d
commit c865de4d61
10 changed files with 47 additions and 37 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
mod/arr.c
View File

@ -27,7 +27,7 @@
#include "_arr.h"
static hcl_pfrc_t pf_arr_get (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfrc_t pf_arr_get (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
hcl_oop_oop_t arr;
hcl_oop_t idx;
@ -54,7 +54,7 @@ static hcl_pfrc_t pf_arr_get (hcl_t* hcl, hcl_ooi_t nargs)
return HCL_PF_SUCCESS;
}
static hcl_pfrc_t pf_arr_put (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfrc_t pf_arr_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
hcl_oop_oop_t arr;
hcl_oop_t idx, val;
@ -83,7 +83,7 @@ static hcl_pfrc_t pf_arr_put (hcl_t* hcl, hcl_ooi_t nargs)
return HCL_PF_SUCCESS;
}
static hcl_pfrc_t pf_arr_size (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfrc_t pf_arr_size (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
hcl_oop_oop_t arr;
hcl_oop_t size;

6
mod/dic.c
View File

@ -27,7 +27,7 @@
#include "_dic.h"
static hcl_pfrc_t pf_dic_get (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfrc_t pf_dic_get (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
hcl_oop_t dic;
hcl_oop_t key;
@ -54,7 +54,7 @@ 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)
static hcl_pfrc_t pf_dic_put (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
hcl_oop_t dic;
hcl_oop_t key, val;
@ -88,7 +88,7 @@ static int walker (hcl_t* hcl, hcl_oop_dic_t dic, hcl_oop_cons_t pair, void* ctx
return 0;
}
static hcl_pfrc_t pf_dic_walk (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfrc_t pf_dic_walk (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
/* TODO: write a proper function
* (dic.apply #{ ... } callable-or-lambda)

2
mod/str.c
View File

@ -27,7 +27,7 @@
#include "_str.h"
static hcl_pfrc_t pf_str_length (hcl_t* hcl, hcl_ooi_t nargs)
static hcl_pfrc_t pf_str_length (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{
hcl_oop_t str;
hcl_ooi_t size;