Đọc đầu ra nhị phân của một chương trình bên ngoài trong Common Lisp

Question

Tôi đang cố gắng chạy một chương trình bên ngoài trong SBCL và nắm bắt đầu ra của nó. Đầu ra là dữ liệu nhị phân (hình ảnh png), trong khi SBCL nhấn mạnh việc diễn giải nó dưới dạng chuỗi.

Tôi đã thử một số cách khác nhau, như

(trivial-shell:shell-command "/path/to/png-generator" :input "some input") 

(with-input-from-string (input "some input") 
    (with-output-to-string (output) 
    (run-program "/path/to/png-generator"() :input input :output output)) 


(with-input-from-string (input "some input") 
    (flexi-streams:with-output-to-sequence (output) 
    (run-program "/path/to/png-generator"() :input input :output output)) 

Nhưng tôi nhận được lỗi như

Illegal :UTF-8 character starting at byte position 0. 

Dường như với tôi rằng SBCL đang cố gắng để giải thích các dữ liệu nhị phân như một văn bản và giải mã nó . Làm cách nào để thay đổi hành vi này? Tôi chỉ quan tâm đến việc có được một vec tơ octet.

Chỉnh sửa: Vì nó không rõ ràng từ văn bản ở trên, tôi muốn thêm rằng ít nhất là trong trường hợp của dòng flexi, loại phần tử của luồng là flexi-streams:octect (là (unsigned-byte 8)). Tôi mong đợi ít nhất trong trường hợp này là run-program để đọc các byte thô mà không có nhiều vấn đề. Thay vào đó, tôi nhận được thông báo như Don't know how to copy to stream of element-type (UNSIGNED-BYTE 8)

Answer 1

Chỉnh sửa: Tôi rất tức giận khi không thể thực hiện tác vụ rất đơn giản này và giải quyết được sự cố.

Chức năng, khả năng gửi luồng loại UNSIGNED-BYTE vào chương trình chạy và hoạt động chính xác bị hạn chế nghiêm trọng, vì các lý do tôi không hiểu. Tôi đã thử các luồng màu xám, các dòng flexi, các luồng fd và một vài cơ chế khác, như bạn.

Tuy nhiên, nguồn chương trình chạy thử (cho lần thứ năm hoặc thứ sáu), tôi nhận thấy rằng có một tùy chọn: STREAM bạn có thể chuyển đến đầu ra. Cho rằng, tôi tự hỏi nếu đọc-byte sẽ làm việc ... và nó đã làm. Để làm việc hiệu quả hơn, người ta có thể xác định cách lấy độ dài của luồng không phải là tệp và chạy READ-SEQUENCE trên nó.

(let* 
     ;; Get random bytes 
     ((proc-var (sb-ext:run-program "head" '("-c" "10" "/dev/urandom") 
            :search t 
     ;; let SBCL figure out the storage type. This is what solved the problem. 
            :output :stream)) 
     ;; Obtain the streams from the process object. 
     (output (process-output proc-var)) 
     (err (process-error proc-var))) 
    (values 
    ;;return both stdout and stderr, just for polish. 
    ;; do a byte read and turn it into a vector. 
    (concatenate 'vector 
       ;; A byte with value 0 is *not* value nil. Yay for Lisp! 
       (loop for byte = (read-byte output nil) 
        while byte 
        collect byte)) 
    ;; repeat for stderr 
    (concatenate 'vector 
       (loop for byte = (read-byte err nil) 
        while byte 
        collect byte)))) 

Answer 2

Nếu bạn sẵn sàng sử dụng một số thư viện bên ngoài, điều này có thể được thực hiện với luồng babel. Đây là một hàm tôi sử dụng để lấy nội dung một cách an toàn từ một chương trình. Tôi sử dụng: latin-1 vì nó ánh xạ 256 byte đầu tiên chỉ với các ký tự. Bạn có thể loại bỏ các octet-to-string và có vector.

Nếu bạn muốn stderr là tốt, bạn có thể sử dụng lồng nhau 'with-output-to-sequence' để có được cả hai.

(defun safe-shell (command &rest args)                           
    (octets-to-string                                
    (with-output-to-sequence (stream :external-format :latin-1)                     
    (let ((proc (sb-ext:run-program command args :search t :wait t :output stream)))                
     (case (sb-ext:process-status proc)                           
     (:exited (unless (zerop (sb-ext:process-exit-code proc))                     
        (error "Error in command")))                         
     (t (error "Unable to terminate process")))))                        
    :encoding :latin-1))                               

Answer 3

Paul Nathan đã đưa ra một câu trả lời khá hoàn chỉnh như để cách để đọc I/O từ một chương trình như nhị phân, vì vậy tôi sẽ chỉ cần thêm tại sao mã của bạn không làm việc: bởi vì bạn được yêu cầu một cách rõ ràng SBCL để diễn giải I/O dưới dạng chuỗi ký tự UTF-8, sử dụng with-{in,out}put-to-string.

Ngoài ra, tôi muốn chỉ ra rằng bạn không cần phải đi xa như mã nguồn của run-program để truy cập giải pháp. Nó được ghi rõ trong SBCL's manual.