Function try_emit_usage

internal/cbm/extract_usages.c:2429–2457

Try to emit a usage for a reference node. Returns early if the node should be skipped.

// Try to emit a usage for a reference node. Returns early if the node should be skipped.
static void try_emit_usage(CBMExtractCtx *ctx, TSNode node, const CBMLangSpec *spec) {
    if (emit_direct_perl_coderef_usage(ctx, node, cbm_enclosing_func_qn_cached(ctx, node), 0)) {
        return;
    }
    if (inside_direct_perl_coderef(ctx, node)) {
        return;
    }
    if (!is_reference_node(node, ctx->language)) {
        return;
    }
    if (is_call_argument_label(node)) {
        return;
    }
    if (is_inside_call(node, spec) || is_inside_import(node, spec)) {
        return;
    }
    if (is_binding_occurrence(ctx, node, spec, NULL) ||
        is_write_occurrence(ctx, node, spec, NULL)) {
        return;
    }
    char *name = reference_name(ctx, node);
    if (name && name[0] && !cbm_is_keyword(name, ctx->language)) {
        CBMUsage usage = {0};
        usage.ref_name = name;
        usage.enclosing_func_qn = cbm_enclosing_func_qn_cached(ctx, node);
        stamp_usage_site(ctx, &usage, node, name, NULL);
        cbm_usages_push(&ctx->result->usages, ctx->arena, usage);
    }
}

// Iterative usage walker — explicit stack
static void walk_usages(CBMExtractCtx *ctx, TSNode root, const CBMLangSpec *spec) {