Блог

Как бы вы реализовали следующую процедуру в Racket:

(command->string "printf" "hello world")

таким образом, чтобы:

• Он запускает argv[] '("printf" "hello world") в подпроцессе, находя printf в PATH .
• Если подпроцесс завершается с нулевым кодом, возвращает стандартный вывод в виде строки.
• Если подпроцесс завершается ненулевым, возникает исключение.
• Stdin и stderr игнорируются; они такие же, как для процесса Racket.

Вы можете использовать

 (with-output-to-string
  (lambda ()
    (or (system* (find-executable-path "printf") "hello world")
        (error 'who "command failed"))))
  

Если вы попробуете это в Racket REPL, это сработает, но, похоже, это сбивает с толку REPL, и следующее приглашение не отображается. Я думаю, что, возможно printf , команда просматривает stdin, или, возможно, в XREPL есть ошибка. Обертывание приведенного выше выражения с помощью

 (parameterize ((current-input-port (open-input-string ""))) _)
  

кажется, проблема устранена.

 (define (command->string command . args)
  (let-values (((sub stdout stdin stderr)
                (apply subprocess #f
                       (current-input-port)
                       (current-error-port)
                       (find-executable-path command)
                       args)))
    (let ((output (port->string stdout)))
      (subprocess-wait sub)
      (if (eqv? 0 (subprocess-status sub))
          output
          (error "Command failed:" (cons command args))))))

(writeln (command->string "printf" "%s" "hello world"))
  

На случай, если кто-нибудь из Racket читает, пожалуйста, подумайте о добавлении чего-то подобного в стандартную библиотеку. Это просто и довольно часто требуется.