Function compute_elixir_func_qn

internal/cbm/extract_unified.c:165–196

Resolve an Elixir def/defp/defmacro's QN for scope tracking. The def is a * `call` node whose target (first child) is the def macro and whose first * argument is either the function head call `name(args)` or a bare identifier * (zero-arg). Returns NULL for a non-def `call` (e.g. the in-body `add(x,1)` * call, whose target is not a def macro) so only defs push a scope. Mirrors * extract_elixir

 * call, whose target is not a def macro) so only defs push a scope. Mirrors
 * extract_elixir_func_def() in extract_defs.c. */
static const char *compute_elixir_func_qn(CBMExtractCtx *ctx, TSNode node) {
    if (ts_node_child_count(node) == 0) {
        return NULL;
    }
    char *macro = cbm_node_text(ctx->arena, ts_node_child(node, 0), ctx->source);
    if (!macro || (strcmp(macro, "def") != 0 && strcmp(macro, "defp") != 0 &&
                   strcmp(macro, "defmacro") != 0)) {
        return NULL;
    }
    TSNode args = ts_node_child_by_field_name(node, TS_FIELD("arguments"));
    if (ts_node_is_null(args) && ts_node_child_count(node) > 1) {
        args = ts_node_child(node, 1);
    }
    if (ts_node_is_null(args) || ts_node_child_count(args) == 0) {
        return NULL;
    }
    TSNode first_arg = ts_node_child(args, 0);
    if (ts_node_is_null(first_arg)) {
        return NULL;
    }
    const char *fk = ts_node_type(first_arg);
    char *name = NULL;
    if (strcmp(fk, "call") == 0 && ts_node_child_count(first_arg) > 0) {
        name = cbm_node_text(ctx->arena, ts_node_child(first_arg, 0), ctx->source);
    } else if (strcmp(fk, "identifier") == 0) {
        name = cbm_node_text(ctx->arena, first_arg, ctx->source);
    }
    if (!name || !name[0]) {
        return NULL;
    }
    return cbm_fqn_compute(ctx->arena, ctx->project, ctx->rel_path, name);
}

/* Resolve a CFML tag-function's QN for scope tracking. A <cffunction name="foo">
 * is a `cf_function_tag`; the name lives in a `cf_attribute` child (name="foo"),