Function extract_elixir_call

internal/cbm/extract_defs.c:5042–5080

Process Elixir call nodes iteratively — handles defmodule/def/defp/defmacro without recursion between extract_elixir_call ↔ extract_elixir_module_def.

// Process Elixir call nodes iteratively — handles defmodule/def/defp/defmacro
// without recursion between extract_elixir_call ↔ extract_elixir_module_def.
static void extract_elixir_call(CBMExtractCtx *ctx, TSNode node, const CBMLangSpec *spec) {
    (void)spec;
    TSNodeStack stack;
    ts_nstack_init(&stack, ctx->arena, CBM_SZ_64);
    ts_nstack_push(&stack, ctx->arena, node);

    while (stack.count > 0) {
        TSNode cur = ts_nstack_pop(&stack);
        CBMArena *a = ctx->arena;

        if (ts_node_child_count(cur) == 0) {
            continue;
        }
        TSNode callee = ts_node_child(cur, 0);
        if (ts_node_is_null(callee)) {
            continue;
        }
        char *macro = cbm_node_text(a, callee, ctx->source);
        if (!macro) {
            continue;
        }

        if (strcmp(macro, "def") == 0 || strcmp(macro, "defp") == 0 ||
            strcmp(macro, "defmacro") == 0) {
            extract_elixir_func_def(ctx, cur, macro);
        } else if (strcmp(macro, "defmodule") == 0) {
            TSNode do_block = emit_elixir_module_class(ctx, cur);
            if (!ts_node_is_null(do_block)) {
                uint32_t dbc = ts_node_child_count(do_block);
                for (int di = (int)dbc - SKIP_CHAR; di >= 0; di--) {
                    TSNode dchild = ts_node_child(do_block, (uint32_t)di);
                    if (!ts_node_is_null(dchild) && strcmp(ts_node_type(dchild), "call") == 0) {
                        ts_nstack_push(&stack, ctx->arena, dchild);
                    }
                }
            }
        }
    }
}

// --- Variable extraction ---