aboutsummaryrefslogtreecommitdiff
path: root/termios.scm.c
diff options
context:
space:
mode:
authorHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:11:11 +0100
committerHugo Hörnquist <hugo@lysator.liu.se>2019-03-22 20:17:52 +0100
commitd46183860c1f3f10095e95023adcb79b1896ab0e (patch)
treedd331a0efe9777bfe84160139da1e39df3226b71 /termios.scm.c
parentAdd stuff to test.scm. (diff)
downloadcalp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.gz
calp-d46183860c1f3f10095e95023adcb79b1896ab0e.tar.xz
Move C and Scheme code into subdirs.
Diffstat (limited to 'termios.scm.c')
-rw-r--r--termios.scm.c44
1 files changed, 0 insertions, 44 deletions
diff --git a/termios.scm.c b/termios.scm.c
deleted file mode 100644
index 939c3574..00000000
--- a/termios.scm.c
+++ /dev/null
@@ -1,44 +0,0 @@
-#include <libguile.h>
-#include <unistd.h>
-#include <termios.h>
-#include <stdio.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);
-
- printf("Setting bits [%x]\n", 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
-}