1 files changed, 14 insertions, 0 deletions
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 '*)))
+    ))