blob: 5194a6141a0c171127db548bea41a1792eab22f9 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
|
(define-library (world guile-tty)
(import (scheme base))
(cond-expand
(guile (import (system foreign)))
(else (error 'not-supported)))
(begin
(error 'TODO)
;; https://www.gnu.org/software/guile//manual/html_node/More-Foreign-Functions.html
(define _openpty
(foreign-library-function "tcgetattr"
#:return-type int
#:arg-types (list 'int '*)))
))
|
