Function extract_julia_base_classes

internal/cbm/extract_defs.c:2349–2371

Extract base class names from a class node. Julia: a subtype declaration `Foo <: Bar` is a `binary_expression` (operator `<:`) inside the def's `type_head`. The base is the RHS identifier.

// Julia: a subtype declaration `Foo <: Bar` is a `binary_expression` (operator
// `<:`) inside the def's `type_head`. The base is the RHS identifier.
static const char **extract_julia_base_classes(CBMArena *a, TSNode node, const char *source) {
    TSNode th = cbm_find_child_by_kind(node, "type_head");
    if (ts_node_is_null(th)) {
        return NULL;
    }
    TSNode inner = ts_node_named_child_count(th) > 0 ? ts_node_named_child(th, 0) : th;
    if (ts_node_is_null(inner) || strcmp(ts_node_type(inner), "binary_expression") != 0 ||
        ts_node_named_child_count(inner) < 2) {
        return NULL;
    }
    TSNode base = ts_node_named_child(inner, ts_node_named_child_count(inner) - 1);
    char *bname = cbm_node_text(a, base, source);
    if (!bname || !bname[0]) {
        return NULL;
    }
    const char **result = (const char **)cbm_arena_alloc(a, 2 * sizeof(const char *));
    if (!result) {
        return NULL;
    }
    result[0] = bname;
    result[1] = NULL;
    return result;
}

static const char **extract_base_classes(CBMArena *a, TSNode node, const char *source,
                                         CBMLanguage lang) {