From 948d6b4c22b07d0ec7affd79b29ba0200f3498fa Mon Sep 17 00:00:00 2001 From: Bruce Hill Date: Sat, 10 Aug 2024 16:36:50 -0400 Subject: Add array:counts() --- compile.c | 4 ++++ 1 file changed, 4 insertions(+) (limited to 'compile.c') diff --git a/compile.c b/compile.c index 0cd34235..30868d52 100644 --- a/compile.c +++ b/compile.c @@ -2028,6 +2028,10 @@ CORD compile(env_t *env, ast_t *ast) CORD self = compile_to_pointer_depth(env, call->self, 0, false); (void)compile_arguments(env, ast, NULL, call->args); return CORD_all("Table$from_entries(", self, ", $SetInfo(", compile_type_info(env, item_t), "))"); + } else if (streq(call->name, "counts")) { + CORD self = compile_to_pointer_depth(env, call->self, 0, false); + (void)compile_arguments(env, ast, NULL, call->args); + return CORD_all("Array$counts(", self, ", ", compile_type_info(env, self_value_t), ")"); } else code_err(ast, "There is no '%s' method for arrays", call->name); } case SetType: { -- cgit v1.2.3