compiler improvement to support out-of-class class method or calss instance method definitions. pending more tests

mod/arr.c

@@ -27,6 +27,21 @@
 
 #include "_arr.h"
 
+static hcl_pfrc_t pf_arr_new (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
+{
+	hcl_oop_t sz, arr;
+	hcl_oow_t size;
+
+	sz = (hcl_oop_t)HCL_STACK_GETARG(hcl, nargs, 0);
+	if (hcl_inttooow(hcl, sz, &size) == 0) return HCL_PF_FAILURE;
+
+	arr = hcl_makearray(hcl, size, 0);
+	if (HCL_UNLIKELY(!arr)) return HCL_PF_FAILURE;
+
+	HCL_STACK_SETRET (hcl, nargs, arr);
+	return HCL_PF_SUCCESS;
+}
+
 static hcl_pfrc_t pf_arr_get (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
 {
 	hcl_oop_oop_t arr;
@@ -106,7 +121,7 @@ static hcl_pfrc_t pf_arr_size (hcl_t* hcl, hcl_mod_t* mod, hcl_ooi_t nargs)
 static hcl_pfinfo_t pfinfos[] =
 {
 	{ { 'g','e','t','\0' },      { HCL_PFBASE_FUNC, pf_arr_get,     2,  2 } },
-/*	{ { 'm','a','k','e','\0' },  { HCL_PFBASE_FUNC, pf_arr_make,    1,  1 } },*/
+	{ { 'n','e','w','\0' },      { HCL_PFBASE_FUNC, pf_arr_new,     1,  1 } },
 	{ { 'p','u','t','\0' },      { HCL_PFBASE_FUNC, pf_arr_put,     3,  3 } },
 	{ { 's','i','z','e','\0' },  { HCL_PFBASE_FUNC, pf_arr_size,    1,  1 } },
 };