summaryrefslogtreecommitdiff
path: root/ghc/lib/std/cbits/echoAux.c
diff options
context:
space:
mode:
Diffstat (limited to 'ghc/lib/std/cbits/echoAux.c')
-rw-r--r--ghc/lib/std/cbits/echoAux.c108
1 files changed, 0 insertions, 108 deletions
diff --git a/ghc/lib/std/cbits/echoAux.c b/ghc/lib/std/cbits/echoAux.c
deleted file mode 100644
index ab7035fc66..0000000000
--- a/ghc/lib/std/cbits/echoAux.c
+++ /dev/null
@@ -1,108 +0,0 @@
-/*
- * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
- *
- * $Id: echoAux.c,v 1.5 2001/02/19 16:07:48 rrt Exp $
- *
- * Support functions for changing echoing
- */
-
-#include "Rts.h"
-#include "stgio.h"
-
-#ifdef HAVE_SYS_TYPES_H
-#include <sys/types.h>
-#endif
-
-#ifdef HAVE_SYS_STAT_H
-#include <sys/stat.h>
-#endif
-
-#ifdef HAVE_TERMIOS_H
-#include <termios.h>
-#endif
-
-#ifdef HAVE_FCNTL_H
-#include <fcntl.h>
-#endif
-
-StgInt
-setTerminalEcho(StgForeignPtr ptr, StgInt on)
-{
-#ifndef mingw32_TARGET_OS
- IOFileObject* fo = (IOFileObject*)ptr;
- struct termios tios;
- int fd, rc;
-
- fd = fo->fd;
-
- while ( (rc = tcgetattr(fd,&tios)) == -1) {
- if (errno != EINTR) {
- cvtErrno();
- stdErrno();
- return -1;
- }
- }
-
- if (on) {
- tios.c_lflag |= ECHO;
- } else {
- tios.c_lflag &= ~ECHO;
- }
-
- while ( (rc = tcSetAttr(fd,TCSANOW,&tios)) == -1) {
- if (errno != EINTR) {
- cvtErrno();
- stdErrno();
- return -1;
- }
- }
-#endif
- return 0;
-}
-
-StgInt
-getTerminalEcho(StgForeignPtr ptr)
-{
-#ifndef mingw32_TARGET_OS
- IOFileObject* fo = (IOFileObject*)ptr;
- struct termios tios;
- int fd, rc;
-
- fd = fo->fd;
-
- while ( (rc = tcgetattr(fd,&tios)) == -1) {
- if (errno != EINTR) {
- cvtErrno();
- stdErrno();
- return -1;
- }
- }
- return (tios.c_cflag & ECHO ? 1 : 0);
-#else
- return 0;
-#endif
-}
-
-StgInt
-isTerminalDevice(StgForeignPtr ptr)
-{
-#ifndef mingw32_TARGET_OS
- IOFileObject* fo = (IOFileObject*)ptr;
- struct termios tios;
- int fd, rc;
-
- fd = fo -> fd;
-
- while ( (rc = tcgetattr(fd,&tios)) == -1) {
- if (errno == ENOTTY) return 0;
- if (errno != EINTR) {
- cvtErrno();
- stdErrno();
- return -1;
- }
- }
- return 1;
-#else
- return 0;
-#endif
-}