Function parse_powershell_imports

internal/cbm/extract_imports.c:1744–1785

--- PowerShell imports --- tree-sitter-powershell models `using module ./M` / `using namespace System.IO` as a plain `command` whose command_name is "using" — deeply nested under statement_list -> pipeline -> pipeline_chain. The module path is the LAST generic_token child of command_elements (after the "module"/"namespace"/ "assembly" qualifier). DFS for such commands.

// generic_token child of command_elements (after the "module"/"namespace"/
// "assembly" qualifier). DFS for such commands.
static void parse_powershell_imports(CBMExtractCtx *ctx) {
    CBMArena *a = ctx->arena;
    TSNodeStack stack;
    ts_nstack_init(&stack, ctx, CBM_SZ_512);
    ts_nstack_push(&stack, ctx->root);
    while (stack.count > 0) {
        TSNode node = ts_nstack_pop(&stack);
        if (strcmp(ts_node_type(node), "command") == 0) {
            TSNode name = ts_node_child_by_field_name(node, TS_FIELD("command_name"));
            char *nm = ts_node_is_null(name) ? NULL : cbm_node_text(a, name, ctx->source);
            if (nm && strcmp(nm, "using") == 0) {
                /* Find the last generic_token anywhere under the command — that
                 * is the module path / namespace / assembly being imported. */
                TSNodeStack inner;
                ts_nstack_init(&inner, ctx, CBM_SZ_512);
                ts_nstack_push(&inner, node);
                const char *last_tok = NULL;
                uint32_t last_start = 0;
                while (inner.count > 0) {
                    TSNode c = ts_nstack_pop(&inner);
                    if (strcmp(ts_node_type(c), "generic_token") == 0) {
                        char *t = cbm_node_text(a, c, ctx->source);
                        uint32_t sb = ts_node_start_byte(c);
                        if (t && t[0] && strcmp(t, "module") != 0 && strcmp(t, "namespace") != 0 &&
                            strcmp(t, "assembly") != 0 && (last_tok == NULL || sb > last_start)) {
                            last_tok = t;
                            last_start = sb;
                        }
                    }
                    ts_nstack_push_children(&inner, c);
                }
                if (last_tok && last_tok[0]) {
                    CBMImport imp = {.local_name = path_last(a, last_tok),
                                     .module_path = (char *)last_tok};
                    cbm_imports_push(&ctx->result->imports, a, imp);
                }
            }
            continue; /* commands don't nest imports further */
        }
        ts_nstack_push_children(&stack, node);
    }
}

// --- Lisp-family imports (Scheme, Racket) ---
// S-expression grammars model (import (lib ...)) / (require mod) / (load "f")