Запуск подпроцессов в ракетке

Question

Я хотел бы запустить n подпроцессов из Dr Racket или из командной строки (то есть я хотел бы запустить код либо полностью в стиле Dr Racket, либо целиком из командной строки).

Эти процессы затем будут обмениваться сообщениями через stdin и stdout.

Возможно ли это, изменив следующий код, который запускает их из строки cmd? (Или это вообще возможно? Обратите внимание, что я новичок схема)

(struct proc (stdout stdin)) 

(define (start-program p) 
    (define-values (s stdout stdin stderr) (subprocess #f #f #f p)) 
    (thread (lambda() (copy-port stderr (current-error-port)))) 
    (proc stdout stdin)) 

(define programs (vector->list (current-command-line-arguments))) 

(map start-program programs) 

(define (send-to proc v) 
    (write v (proc-stdin proc)) 
    (flush-output (proc-stdin proc))) 

(define (receive-from proc) 
    (read (proc-stdout proc))) 

Answer 1

Не уверен, если это то, что вы после этого, но current-command-line-arguments является параметром, так что вы можете установить его с parameterize.

Вот адаптация кода, который производит файлы в текущем каталоге:

#lang racket 
(struct proc (stdout stdin)) 

(define (start-program p) 
    (define-values (s stdout stdin stderr) (subprocess #f #f #f p)) 
    (thread (lambda() (copy-port stderr (current-error-port)))) 
    (proc stdout stdin)) 

(define (send-to proc v) 
    (write v (proc-stdin proc)) 
    (flush-output (proc-stdin proc))) 

(define (receive-from proc) 
    (read (proc-stdout proc))) 

(parameterize ([current-command-line-arguments (vector "ls")]) 
    (define programs 
    (map find-executable-path (vector->list (current-command-line-arguments)))) 
    (define running-programs 
    (map start-program programs)) 
    (let loop ([x (receive-from (first running-programs))]) 
    (displayln x) 
    (unless (eof-object? x) 
     (loop (receive-from (first running-programs)))))) 

Btw, DrRacket только название IDE. Racket - это название языка.