Function walk_env_accesses

internal/cbm/extract_env_accesses.c:141–168

Iterative env access walker — explicit stack

// Iterative env access walker — explicit stack
static void walk_env_accesses(CBMExtractCtx *ctx, TSNode root, const CBMLangSpec *spec) {
    TSNodeStack stack;
    ts_nstack_init(&stack, ctx->arena, 4096);
    ts_nstack_push(&stack, ctx->arena, root);

    while (stack.count > 0) {
        TSNode node = ts_nstack_pop(&stack);
        const char *kind = ts_node_type(node);
        const char *env_key = NULL;

        if (cbm_kind_in_set(node, spec->call_node_types)) {
            env_key = extract_env_key_from_call(ctx, node, spec);
        } else if (strcmp(kind, "member_expression") == 0 || strcmp(kind, "subscript") == 0 ||
                   strcmp(kind, "attribute") == 0) {
            env_key = extract_env_key_from_member(ctx, node, spec);
        }

        if (env_key && env_key[0] && is_env_var_name(env_key)) {
            CBMEnvAccess ea;
            ea.env_key = env_key;
            ea.enclosing_func_qn = cbm_enclosing_func_qn_cached(ctx, node);
            cbm_envaccess_push(&ctx->result->env_accesses, ctx->arena, ea);
            continue; // don't push children (avoid double-counting)
        }

        ts_nstack_push_children(&stack, ctx->arena, node);
    }
}

void cbm_extract_env_accesses(CBMExtractCtx *ctx) {
    const CBMLangSpec *spec = cbm_lang_spec(ctx->language);