misc-deps
/
raart
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

clean

This commit is contained in:
Jay McCarthy 2018-01-04 16:41:25 -05:00
parent b59996288e
commit f0ff87df53
1 changed files with 4 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
lux-chaos.rkt
View File

@ -23,24 +23,18 @@
((macosx) "-f") ((macosx) "-f")
(else "-F"))) (else "-F")))
(define (open-term #:tty [tty default-tty]) (define (open-term #:tty [tty default-tty])
(system* "/bin/stty" (system* "/bin/stty" stty-minus-f-arg-string tty
stty-minus-f-arg-string "raw" "pass8" "-echo")
tty
"raw"
"pass8"
"-echo")
(define-values (in out) (define-values (in out)
(open-input-output-file tty #:exists 'update)) (open-input-output-file tty #:exists 'update))
(file-stream-buffer-mode in 'none) (file-stream-buffer-mode in 'none)
(file-stream-buffer-mode out 'none) (file-stream-buffer-mode out 'none)
(term tty in out)) (term tty in out))
(define (close-term t) (define (close-term t)
(match-define (term f in out) t) (match-define (term tty in out) t)
(close-input-port in) (close-input-port in)
(close-output-port out) (close-output-port out)
(system* "/bin/stty" (system* "/bin/stty" stty-minus-f-arg-string tty
stty-minus-f-arg-string
f
"sane")))) "sane"))))
(define-syntax-rule (define-stdin-term open-term close-term) (define-syntax-rule (define-stdin-term open-term close-term)