514706446e
by moving needed C source to src/plot and building during `make', but stripping out the copies of gd, png, and zlib; instead, hook a dc<%>-based back end into plot
57 lines
1.9 KiB
Racket
57 lines
1.9 KiB
Racket
#lang racket/base
|
|
(require racket/system)
|
|
|
|
(provide get-stdio)
|
|
|
|
(define (get-stdio)
|
|
(values
|
|
(if (member (system-library-subpath) '("rs6k-aix" "parisc-hpux"))
|
|
(letrec ([pseudo-process*
|
|
(lambda (c . args)
|
|
(if (null? args)
|
|
(let ([r (process* "/usr/bin/csh" "-t")])
|
|
(display c (cadr r))
|
|
(newline (cadr r))
|
|
r)
|
|
(apply pseudo-process* (string-append c " " (car args)) (cdr args))))])
|
|
pseudo-process*)
|
|
process*)
|
|
|
|
(lambda (start-process quiet? error)
|
|
(let* ([l (start-process quiet?)]
|
|
[in (car l)]
|
|
[out (cadr l)]
|
|
[in-error (cadddr l)]
|
|
[control (cadddr (cdr l))]
|
|
|
|
[collect-output (box "")]
|
|
|
|
[make-collector
|
|
(lambda (in dest box)
|
|
(thread (lambda ()
|
|
(let loop ()
|
|
(let ([t (read-line in 'any)])
|
|
(unless (eof-object? t)
|
|
(unless quiet? (fprintf (dest) "~a\n" t))
|
|
(set-box! box (string-append (unbox box)
|
|
(string #\newline) t))
|
|
(loop)))))))]
|
|
[in-thread (make-collector in current-output-port collect-output)]
|
|
[in-error-thread (make-collector in-error current-error-port collect-output)])
|
|
|
|
(close-output-port out)
|
|
|
|
(control 'wait)
|
|
|
|
(thread-wait in-thread)
|
|
(thread-wait in-error-thread)
|
|
|
|
(close-input-port in)
|
|
(close-input-port in-error)
|
|
|
|
(unless (eq? (control 'status) 'done-ok)
|
|
(error (if quiet?
|
|
(unbox collect-output)
|
|
"command failed")))))))
|
|
|