Function extract_ts_bases

internal/cbm/extract_defs.c:2142–2172

TypeScript: walk the class_heritage container (which holds extends_clause + * implements_clause), or handle a bare interface extends_type_clause. */

/* TypeScript: walk the class_heritage container (which holds extends_clause +
 * implements_clause), or handle a bare interface extends_type_clause. */
static const char **extract_ts_bases(CBMArena *a, TSNode node, const char *source) {
    const char *bases[MAX_BASES];
    int count = 0;
    uint32_t nc = ts_node_child_count(node);
    for (uint32_t i = 0; i < nc; i++) {
        TSNode child = ts_node_child(node, i);
        const char *ck = ts_node_type(child);
        if (strcmp(ck, "class_heritage") == 0) {
            uint32_t hc = ts_node_child_count(child);
            for (uint32_t j = 0; j < hc; j++) {
                collect_ts_bases(a, ts_node_child(child, j), source, bases, MAX_BASES_MINUS_1,
                                 &count);
            }
        } else if (strcmp(ck, "extends_type_clause") == 0) {
            collect_ts_bases(a, child, source, bases, MAX_BASES_MINUS_1, &count);
        }
    }
    if (count == 0) {
        return NULL;
    }
    const char **result =
        (const char **)cbm_arena_alloc(a, (size_t)(count + NULL_TERM) * sizeof(const char *));
    if (!result) {
        return NULL;
    }
    for (int i = 0; i < count; i++) {
        result[i] = bases[i];
    }
    result[count] = NULL;
    return result;
}

/* PHP: bases live in `base_clause` (extends) and `class_interface_clause`
 * (implements) child nodes; named children are `name`/`qualified_name`. */