From d46183860c1f3f10095e95023adcb79b1896ab0e Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Fri, 22 Mar 2019 20:11:11 +0100
Subject: Move C and Scheme code into subdirs.

---
 module/terminal/termios.scm | 13 +++++++++++++
 1 file changed, 13 insertions(+)
 create mode 100644 module/terminal/termios.scm

(limited to 'module/terminal/termios.scm')

diff --git a/module/terminal/termios.scm b/module/terminal/termios.scm
new file mode 100644
index 00000000..50683f84
--- /dev/null
+++ b/module/terminal/termios.scm
@@ -0,0 +1,13 @@
+;;; Module for termios interaction from Guile,
+;;; Since that for some reason isn't built in.
+
+(define-module (terminal termios)
+  #:export (c-lflags-disable! c-lflag-restore!))
+
+(define-public ECHO	#x0000010)
+(define-public ICANON	#x0000002)
+
+(setenv "LD_LIBRARY_PATH"
+        (string-append (dirname (dirname (dirname (current-filename))))
+                       "/lib"))
+(load-extension "libtermios" "init_termios")
-- 
cgit v1.2.3