Function lisp_push_module

internal/cbm/extract_imports.c:1636–1665

--- Lisp-family imports (Scheme, Racket) --- S-expression grammars model (import (lib ...)) / (require mod) / (load "f") as a `list` whose first named child is a `symbol` naming the form. Walk top-level lists; for import/require/load/use, take the remaining children as module references (a symbol, a string, or a nested list whose meaningful module symbol we take as-is).

// module references (a symbol, a string, or a nested list whose meaningful
// module symbol we take as-is).
static void lisp_push_module(CBMExtractCtx *ctx, TSNode mod_node) {
    CBMArena *a = ctx->arena;
    const char *mk = ts_node_type(mod_node);
    char *mod = NULL;
    if (strcmp(mk, "symbol") == 0 || strcmp(mk, "string") == 0 || strcmp(mk, "sym_lit") == 0 ||
        strcmp(mk, "str_lit") == 0 || strcmp(mk, "kwd_lit") == 0) {
        mod = strip_quotes(a, cbm_node_text(a, mod_node, ctx->source));
        /* Clojure/Fennel keyword module refs carry a leading ':' (e.g. `:util`,
         * `(require :util)`); strip it so the name matches the sibling file. */
        if (mod && mod[0] == ':') {
            mod = cbm_arena_strdup(a, mod + 1);
        }
    } else if (strcmp(mk, "list") == 0 || strcmp(mk, "list_lit") == 0 ||
               strcmp(mk, "vec_lit") == 0) {
        /* (only-in racket/math pi) → take first symbol after a leading keyword,
         * else join inner symbols with '/'. Simplest robust choice: the whole
         * list text minus the parens. */
        mod = cbm_node_text(a, mod_node, ctx->source);
        if (mod) {
            size_t len = strlen(mod);
            if (len >= 2 && mod[0] == '(' && mod[len - 1] == ')') {
                mod = cbm_arena_strndup(a, mod + 1, len - 2);
            }
        }
    }
    if (mod && mod[0]) {
        CBMImport imp = {.local_name = path_last(a, mod), .module_path = mod};
        cbm_imports_push(&ctx->result->imports, a, imp);
    }
}

/* Strip a leading ':' from a lisp keyword/symbol token (Clojure/Fennel/CL
 * package keywords carry it: `:util` → `util`).  Returns an arena copy. */