Function cbm_resolve_func_name

internal/cbm/extract_defs.c:683–1202

Resolve the name node for a function, handling language-specific quirks. Uses a loop to handle template_declaration unwrapping (avoids recursion).

// Resolve the name node for a function, handling language-specific quirks.
// Uses a loop to handle template_declaration unwrapping (avoids recursion).
TSNode cbm_resolve_func_name(TSNode node, CBMLanguage lang) {
    enum { MAX_TEMPLATE_DEPTH = 2 };
    for (int tmpl_depth = 0; tmpl_depth < MAX_TEMPLATE_DEPTH; tmpl_depth++) {
        const char *kind = ts_node_type(node);

        if (lang == CBM_LANG_HASKELL && strcmp(kind, "signature") == 0) {
            TSNode null_node = {0};
            return null_node;
        }

        // A parameterized ObjectScript routine wraps its tag and body in a
        // procedure node. Use the direct tag as the callable name so the
        // definition spans the complete procedure instead of only its label.
        if (lang == CBM_LANG_OBJECTSCRIPT_ROUTINE &&
            (strcmp(kind, "tag") == 0 || strcmp(kind, "procedure") == 0)) {
            return strcmp(kind, "tag") == 0 ? node : cbm_find_child_by_kind(node, "tag");
        }
        // ObjectScript method/classmethod: name lives under method_definition ->
        // method_name -> first named child.
        if (lang == CBM_LANG_OBJECTSCRIPT_UDL &&
            (strcmp(kind, "method") == 0 || strcmp(kind, "classmethod") == 0)) {
            TSNode mdef = cbm_find_child_by_kind(node, "method_definition");
            if (!ts_node_is_null(mdef)) {
                TSNode mname = cbm_find_child_by_kind(mdef, "method_name");
                if (!ts_node_is_null(mname) && ts_node_named_child_count(mname) > 0) {
                    return ts_node_named_child(mname, 0);
                }
            }
            TSNode null_node = {0};
            return null_node;
        }
        if (lang == CBM_LANG_OBJECTSCRIPT_UDL && strcmp(kind, "query") == 0) {
            return cbm_find_child_by_kind(node, "query_name");
        }

        TSNode name = func_name_node(node);

        if (lang == CBM_LANG_R && strcmp(kind, "function_definition") == 0) {
            return resolve_r_func_name(node);
        }

        if (!ts_node_is_null(name)) {
            return name;
        }

        /* Swift and newer tree-sitter-kotlin: function_declaration has no `name`
         * field; the function name is a `simple_identifier` child. */
        if ((lang == CBM_LANG_SWIFT || lang == CBM_LANG_KOTLIN) &&
            strcmp(kind, "function_declaration") == 0) {
            TSNode si = cbm_find_child_by_kind(node, "simple_identifier");
            if (!ts_node_is_null(si)) {
                return si;
            }
        }

        // PowerShell function_statement has no `name` field; the name is a
        // `function_name` child node (#35).
        if (lang == CBM_LANG_POWERSHELL && strcmp(kind, "function_statement") == 0) {