From: sof <unknown>
Date: Mon, 1 Mar 1999 09:02:04 +0000 (+0000)
Subject: [project @ 1999-03-01 09:02:04 by sof]
X-Git-Tag: Approximately_9120_patches~6494
X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=b55bcd0fdfa034b9ba6239e70ba3fd31d1d8f5de;p=ghc-hetmet.git

[project @ 1999-03-01 09:02:04 by sof]
mingw32: No support for set/getting the status of ttys (yet.)
---

diff --git a/ghc/lib/std/cbits/echoAux.c b/ghc/lib/std/cbits/echoAux.c
index a785c01..e2b77a2 100644
--- a/ghc/lib/std/cbits/echoAux.c
+++ b/ghc/lib/std/cbits/echoAux.c
@@ -1,7 +1,7 @@
 /* 
  * (c) The GRASP/AQUA Project, Glasgow University, 1994-1998
  *
- * $Id: echoAux.c,v 1.2 1998/12/02 13:27:18 simonm Exp $
+ * $Id: echoAux.c,v 1.3 1999/03/01 09:02:04 sof Exp $
  *
  * Support functions for changing echoing
  */
@@ -36,6 +36,7 @@ StgInt on;
 
    fd = fo->fd;
 
+#ifndef mingw32_TARGET_OS
    while ( (rc = tcgetattr(fd,&tios)) == -1) {
 	if (errno != EINTR) {
 	    cvtErrno();
@@ -57,6 +58,7 @@ StgInt on;
 	    return -1;
 	}
    }
+#endif
   return 0;
 }
 
@@ -70,6 +72,7 @@ StgForeignPtr ptr;
 
    fd = fo->fd;
 
+#ifndef mingw32_TARGET_OS
    while ( (rc = tcgetattr(fd,&tios)) == -1) {
 	if (errno != EINTR) {
 	    cvtErrno();
@@ -78,6 +81,9 @@ StgForeignPtr ptr;
 	}
    }
    return (tios.c_cflag & ECHO ? 1 : 0);
+#else
+   return 0;
+#endif
 }
 
 StgInt
@@ -90,6 +96,7 @@ StgForeignPtr ptr;
 
    fd = fo -> fd;
 
+#ifndef mingw32_TARGET_OS
    while ( (rc = tcgetattr(fd,&tios)) == -1) {
         if (errno == ENOTTY) return 0;
 	if (errno != EINTR) {
@@ -99,4 +106,7 @@ StgForeignPtr ptr;
 	}
    }
    return 1;
+#else
+   return 0;
+#endif
 }