From 5bf50b03a3d5a5d8888021b4f3722031958367d3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Hugo=20H=C3=B6rnquist?= <hugo@lysator.liu.se>
Date: Tue, 12 Mar 2019 19:06:54 +0100
Subject: Add a bunch of terminal control modules.

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

(limited to 'terminal/termios.scm')

diff --git a/terminal/termios.scm b/terminal/termios.scm
new file mode 100644
index 00000000..b0ae585e
--- /dev/null
+++ b/terminal/termios.scm
@@ -0,0 +1,11 @@
+;;; 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" (dirname (dirname (current-filename))))
+(load-extension "libtermios" "init_termios")
-- 
cgit v1.2.3