From eb0d091771fa39dcb2a5b4793a1c10abcec0dc5e Mon Sep 17 00:00:00 2001 From: Ekaitz Zarraga Date: Tue, 16 Jan 2024 01:13:39 +0100 Subject: world: organize and layout guile too --- world/guile-tty.sld | 14 ++++++++++++++ 1 file changed, 14 insertions(+) create mode 100644 world/guile-tty.sld (limited to 'world/guile-tty.sld') diff --git a/world/guile-tty.sld b/world/guile-tty.sld new file mode 100644 index 0000000..5194a61 --- /dev/null +++ b/world/guile-tty.sld @@ -0,0 +1,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 '*))) + )) -- cgit v1.2.3