Function extract_base_classes

internal/cbm/extract_defs.c:2494–2777

}

static const char **extract_base_classes(CBMArena *a, TSNode node, const char *source,
                                         CBMLanguage lang) {
    // ObjectScript: `Class X Extends (A, B)` — bases are class_name children of
    // the class_extends node.
    if (lang == CBM_LANG_OBJECTSCRIPT_UDL) {
        TSNode ext = cbm_find_child_by_kind(node, "class_extends");
        if (!ts_node_is_null(ext)) {
            const char *bases[MAX_BASES];
            int base_count = 0;
            uint32_t nc = ts_node_named_child_count(ext);
            for (uint32_t i = 0; i < nc && base_count < MAX_BASES_MINUS_1; i++) {
                TSNode ch = ts_node_named_child(ext, i);
                if (strcmp(ts_node_type(ch), "class_name") == 0) {
                    char *base = cbm_node_text(a, ch, source);
                    if (base && base[0]) {
                        bases[base_count++] = base;
                    }
                }
            }
            if (base_count > 0) {
                const char **result =
                    (const char **)cbm_arena_alloc(a, (base_count + 1) * sizeof(const char *));
                if (result) {
                    for (int i = 0; i < base_count; i++) {
                        result[i] = bases[i];
                    }
                    result[base_count] = NULL;
                    return result;
                }
            }
        }
        return NULL;
    }
    // Languages whose heritage is not exposed via a tree-sitter field need
    // dedicated walkers; the generic field/keyword path mis-captures them.
    if (lang == CBM_LANG_TYPESCRIPT || lang == CBM_LANG_TSX) {
        const char **ts_result = extract_ts_bases(a, node, source);
        if (ts_result) {
            return ts_result;
        }
    }
    if (lang == CBM_LANG_PHP) {
        const char **php_result = extract_php_bases(a, node, source);
        if (php_result) {
            return php_result;
        }
    }
    if (lang == CBM_LANG_KOTLIN) {
        const char **kt_result = extract_kotlin_bases(a, node, source);
        if (kt_result) {
            return kt_result;
        }
    }
    // Squirrel: `class Dog extends Animal` — heritage is an `identifier` child
    // directly following the `extends` keyword (no field). Grab it.
    if (lang == CBM_LANG_SQUIRREL) {
        uint32_t sc = ts_node_child_count(node);
        bool seen_extends = false;