aboutsummaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-04-05 18:23:32 +0200
committerHugo Hörnquist <hugo@lysator.liu.se>2019-04-05 18:36:40 +0200
commitc718109fc6288501062e4484de14f4a92af897a9 (patch)
treec17c52d922cc17e362df792a47db3bfbfc07434c /src
parentMove termios bindings to scheme code. (diff)
downloadcalp-c718109fc6288501062e4484de14f4a92af897a9.tar.gz
calp-c718109fc6288501062e4484de14f4a92af897a9.tar.xz
Remove old termios bindings.
Diffstat (limited to 'src')
-rw-r--r--src/termios.scm.c46
1 files changed, 0 insertions, 46 deletions
diff --git a/src/termios.scm.c b/src/termios.scm.c
deleted file mode 100644
index 310bf058..00000000
--- a/src/termios.scm.c
+++ /dev/null
@@ -1,46 +0,0 @@
-#include <libguile.h>
-#include <unistd.h>
-#include <termios.h>
-#include <stdio.h>
-
-#include "err.h"
-
-static struct termios *oldt, *newt;
-
-SCM_DEFINE(termios_lflags_and, "c-lflags-disable!", 2, 0, 0,
- (SCM _fd, SCM _bits),
- "")
-{
-
- int fd = scm_to_int (_fd);
- int bits = scm_to_int (_bits);
-
- INFO_F("Setting bits [%x]", bits);
-
- tcgetattr(fd, oldt);
- *newt = *oldt;
-
- // Make the terminal not echo back,
- // along with enabling cononical mode
- newt->c_lflag &= ~ bits;
- tcsetattr(fd, TCSANOW, newt);
- return SCM_UNSPECIFIED;
-}
-
-SCM_DEFINE(termios_restore, "c-lflag-restore!", 1, 0, 0,
- (SCM _fd),
- "")
-{
- int fd = scm_to_int (_fd);
- tcsetattr(fd, TCSANOW, oldt);
- return SCM_UNSPECIFIED;
-}
-
-void init_termios (void) {
- oldt = scm_gc_malloc(sizeof(*oldt), "Termios");
- newt = scm_gc_malloc(sizeof(*newt), "Termios");
-
-#ifndef SCM_MAGIC_SNARFER
-#include "termios.x"
-#endif
-}