#lang scheme/base

(require scheme/port)

(define in-null #f)
(define out-null #f)

(define (good-port p)
  (if (file-stream-port? p)
      p
      (if (input-port? p)
          (begin
            (when (not in-null)
              (set! in-null (open-input-file "/dev/null")))
            in-null)
          (begin
            (when (not out-null)
              (set! out-null (open-output-file #:exists 'append "/dev/null")))
            out-null))))

(define (new-system command . args)
  (let-values (((pid foo bar blech) (apply subprocess
                                           (good-port (current-output-port))
                                           (good-port (current-input-port))
                                           (good-port (current-error-port))
                                           command
                                           args)))
    (sync/enable-break pid)
    (= 0 (subprocess-status pid))))


(define (schlorp command . args)
  (let-values (((pid input bar blech) (apply subprocess
                                           #f
                                           (good-port (current-input-port))
                                           (good-port (current-error-port))
                                           command
                                           args)))
    (begin0
      (port->bytes input)
      (sync/enable-break pid))))

(provide
 (rename-out (new-system system*))
 schlorp
 good-port)