Function r_push_import

internal/cbm/extract_imports.c:822–846

Emit an IMPORTS edge for a module path string (strips a trailing [symbols] list and surrounding quotes; uses the last path segment as the local name).

// Emit an IMPORTS edge for a module path string (strips a trailing [symbols]
// list and surrounding quotes; uses the last path segment as the local name).
static void r_push_import(CBMExtractCtx *ctx, const char *raw) {
    CBMArena *a = ctx->arena;
    if (!raw || !raw[0]) {
        return;
    }
    char *mod = strip_quotes(a, raw);
    // box::use specs look like "shiny[moduleServer, NS]" or
    // "app/logic/validation[validate_input]" — the module path is the part
    // before the '[' symbol list.
    char *bracket = strchr(mod, '[');
    if (bracket) {
        *bracket = '\0';
    }
    // Trim trailing whitespace left by truncation.
    size_t len = strlen(mod);
    while (len > 0 && (mod[len - SKIP_ONE] == ' ' || mod[len - SKIP_ONE] == '\t' ||
                       mod[len - SKIP_ONE] == '\n')) {
        mod[--len] = '\0';
    }
    if (mod[0] == '\0') {
        return;
    }
    CBMImport imp = {.local_name = path_last(a, mod), .module_path = mod};
    cbm_imports_push(&ctx->result->imports, a, imp);
}

// Recursively scan R for import-producing calls.
static void r_collect_imports(CBMExtractCtx *ctx, TSNode node) { // NOLINT(misc-no-recursion)