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

renamed some internal functions
All checks were successful
continuous-integration/drone/push Build is passing
Details

Browse Source
This commit is contained in:
hyung-hwan 2024-08-08 17:36:41 +09:00
parent b806865c21
commit acb8a3cd68
2 changed files with 13 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
mod/core.c
View File

@ -82,7 +82,7 @@ static hcl_pfrc_t pf_core_get_class_name (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t
return HCL_PF_SUCCESS; return HCL_PF_SUCCESS;
} }
static hcl_pfrc_t pf_core_cresp_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs) static hcl_pfrc_t pf_core_class_responds_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{ {
hcl_oop_t obj; hcl_oop_t obj;
hcl_oop_t msg; hcl_oop_t msg;
@ -106,7 +106,7 @@ static hcl_pfrc_t pf_core_cresp_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
return HCL_PF_SUCCESS; return HCL_PF_SUCCESS;
} }
static hcl_pfrc_t pf_core_iresp_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs) static hcl_pfrc_t pf_core_inst_responds_to (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
{ {
hcl_oop_t obj; hcl_oop_t obj;
hcl_oop_t msg; hcl_oop_t msg;
@ -379,9 +379,9 @@ static hcl_pfinfo_t pfinfos[] =
{ {
{ "basic_new", { HCL_PFBASE_FUNC, pf_core_basic_new, 2, 2 } }, { "basic_new", { HCL_PFBASE_FUNC, pf_core_basic_new, 2, 2 } },
{ "class_name", { HCL_PFBASE_FUNC, pf_core_get_class_name, 1, 1 } }, { "class_name", { HCL_PFBASE_FUNC, pf_core_get_class_name, 1, 1 } },
{ "cresp_to", { HCL_PFBASE_FUNC, pf_core_cresp_to, 2, 2 } }, { "class_responds_to", { HCL_PFBASE_FUNC, pf_core_class_responds_to, 2, 2 } },
{ "get", { HCL_PFBASE_FUNC, pf_core_get, 2, 2 } }, { "get", { HCL_PFBASE_FUNC, pf_core_get, 2, 2 } },
{ "iresp_to", { HCL_PFBASE_FUNC, pf_core_iresp_to, 2, 2 } }, { "inst_responds_to", { HCL_PFBASE_FUNC, pf_core_inst_responds_to, 2, 2 } },
{ "length", { HCL_PFBASE_FUNC, pf_core_size, 1, 1 } }, { "length", { HCL_PFBASE_FUNC, pf_core_size, 1, 1 } },
{ "put", { HCL_PFBASE_FUNC, pf_core_put, 3, 3 } }, { "put", { HCL_PFBASE_FUNC, pf_core_put, 3, 3 } },
{ "size", { HCL_PFBASE_FUNC, pf_core_size, 1, 1 } }, { "size", { HCL_PFBASE_FUNC, pf_core_size, 1, 1 } },

4
src/kernel.hcl
View File

@ -4,11 +4,11 @@ class Apex {
} }
fun ::respondsTo(mth) { fun ::respondsTo(mth) {
return (core.cresp_to self mth) return (core.class_responds_to self mth)
} }
fun respondsTo(mth) { fun respondsTo(mth) {
return (core.iresp_to self mth) return (core.inst_responds_to self mth)
} }
fun basicAt(pos) { fun basicAt(pos) {