Function lisp_push_clause_modules

internal/cbm/extract_imports.c:1695–1711

Clojure `(ns app.core (:require [app.util :as u]) (:use app.io))` and Common * Lisp `(defpackage :main (:use :cl :util))` carry their dependency list inside * nested keyword clauses (`:require`/`:use`/`:import`). Walk such a clause and * push each referenced module/package as an import. `clause` is the * `(:require ...)` / `(:use ...)` list. */

 * push each referenced module/package as an import.  `clause` is the
 * `(:require ...)` / `(:use ...)` list. */
static void lisp_push_clause_modules(CBMExtractCtx *ctx, TSNode clause) {
    uint32_t cc = ts_node_named_child_count(clause);
    for (uint32_t j = 1; j < cc; j++) { /* skip the leading keyword head */
        TSNode item = ts_node_named_child(clause, j);
        const char *ik = ts_node_type(item);
        /* `[app.util :as u]` — the module is the vector's first symbol. */
        if (strcmp(ik, "vec_lit") == 0 || strcmp(ik, "list_lit") == 0 || strcmp(ik, "list") == 0) {
            uint32_t vc = ts_node_named_child_count(item);
            if (vc > 0) {
                lisp_push_module(ctx, ts_node_named_child(item, 0));
            }
        } else {
            /* bare symbol/keyword: `:util`, `app.io`. */
            lisp_push_module(ctx, item);
        }
    }
}

/* The s-expression head symbol text, or NULL if the list has no symbol head. */
static char *lisp_head_text(CBMExtractCtx *ctx, TSNode list, TSNode *out_head) {