Function extract_lisp_def

internal/cbm/extract_defs.c:6082–6127

}

static void extract_lisp_def(CBMExtractCtx *ctx, TSNode node) {
    CBMArena *a = ctx->arena;
    if (ts_node_named_child_count(node) < 2) {
        return;
    }
    char *head = cbm_node_text(a, ts_node_named_child(node, 0), ctx->source);
    if (!lisp_is_def_head(head)) {
        return;
    }
    TSNode target = ts_node_named_child(node, 1);
    const char *tk = ts_node_type(target);
    TSNode name_node = target;
    // (define (foo args) ...) — the name is the head symbol of the nested list.
    if ((strcmp(tk, "list") == 0 || strcmp(tk, "list_lit") == 0) &&
        ts_node_named_child_count(target) > 0) {
        name_node = ts_node_named_child(target, 0);
    }
    if (ts_node_is_null(name_node)) {
        return;
    }
    char *name = cbm_node_text(a, name_node, ctx->source);
    if (!name || !name[0]) {
        return;
    }
    /* struct/record/type defining forms produce a type node, not a callable
     * (Racket `(struct point ...)`, Clojure `(defrecord ...)`, etc.). */
    const char *lisp_label = "Function";
    if (strcmp(head, "struct") == 0 || strcmp(head, "define-struct") == 0 ||
        strcmp(head, "define-record-type") == 0 || strcmp(head, "defrecord") == 0 ||
        strcmp(head, "deftype") == 0) {
        lisp_label = "Struct";
    } else if (strcmp(head, "definterface") == 0 || strcmp(head, "defprotocol") == 0) {
        lisp_label = "Interface";
    }
    CBMDefinition def;
    memset(&def, 0, sizeof(def));
    def.name = name;
    def.qualified_name = cbm_fqn_compute(a, ctx->project, ctx->rel_path, name);
    def.label = lisp_label;
    def.file_path = ctx->rel_path;
    def.start_line = ts_node_start_point(node).row + TS_LINE_OFFSET;
    def.end_line = ts_node_end_point(node).row + TS_LINE_OFFSET;
    def.lines = (int)(def.end_line - def.start_line + TS_LINE_OFFSET);
    def.is_exported = true;
    cbm_defs_push(&ctx->result->defs, a, def);
}

/* Kotlin ERROR-node class recovery.
 *