17 lines
394 B
Scheme
17 lines
394 B
Scheme
|
#!/usr/bin/env scheme-script
|
||
|
|
|
||
|
|
(import (ikarus))
|
||
|
|
|
||
|
|
(let-values ([(pid in out err) (process "date")])
|
||
|
|
(printf "pid=~s\n" pid)
|
||
|
|
(let f ()
|
||
|
|
(let ([x (get-u8 out)])
|
||
|
|
(unless (eof-object? x)
|
||
|
|
(write-char (integer->char x))
|
||
|
|
(f))))
|
||
|
|
(flush-output-port)
|
||
|
|
(close-output-port in)
|
||
|
|
(close-input-port out)
|
||
|
|
(close-input-port err)
|
||
|
|
(printf "exit status = ~s\n" (waitpid pid)))
|