From: ceriel <none@none>
Date: Fri, 19 Feb 1988 16:52:54 +0000 (+0000)
Subject: some more fixes to fixes
X-Git-Tag: release-5-5~3589
X-Git-Url: https://git.ndcode.org/public/gitweb.cgi?a=commitdiff_plain;h=d949e3e8c50cd456b3b838f8c4c0443d08e4fe4a;p=ack.git

some more fixes to fixes
---

diff --git a/lang/m2/libm2/InOut.mod b/lang/m2/libm2/InOut.mod
index 22cc9454c..368ea4f6d 100644
--- a/lang/m2/libm2/InOut.mod
+++ b/lang/m2/libm2/InOut.mod
@@ -132,7 +132,7 @@ IMPLEMENTATION MODULE InOut ;
 	j : CARDINAL;
   BEGIN
 	Done := TRUE;
-	IF Streams.isatty(Streams.InputStream) THEN
+	IF Streams.isatty(Streams.InputStream, result) THEN
 		XWriteString(prompt);
 	END;
 	XReadString(buf);
diff --git a/lang/m2/libm2/PascalIO.mod b/lang/m2/libm2/PascalIO.mod
index 632b93bb6..8b0113546 100644
--- a/lang/m2/libm2/PascalIO.mod
+++ b/lang/m2/libm2/PascalIO.mod
@@ -16,8 +16,7 @@ IMPLEMENTATION MODULE PascalIO;
   IMPORT RealConversions;
   FROM Streams IMPORT Stream, StreamKind, StreamMode, StreamResult,
 		      InputStream, OutputStream, OpenStream, CloseStream, 
-		      EndOfStream, Read, Write, SetStreamBuffering,
-		      StreamBuffering;
+		      EndOfStream, Read, Write, StreamBuffering;
   FROM Storage IMPORT ALLOCATE;
   FROM SYSTEM IMPORT ADR;
 
diff --git a/lang/m2/libm2/Streams.mod b/lang/m2/libm2/Streams.mod
index 4e6ff938c..fff8b3020 100644
--- a/lang/m2/libm2/Streams.mod
+++ b/lang/m2/libm2/Streams.mod
@@ -376,22 +376,24 @@ IMPLEMENTATION MODULE Streams;
   PROCEDURE isatty(stream: Stream; VAR result: StreamResult): BOOLEAN;
     VAR buf: ARRAY[1..100] OF CHAR;
   BEGIN
-	IF (stream = NIL) OR (s^.kind = none) THEN
+	IF (stream = NIL) OR (stream^.kind = none) THEN
 		result := nostream;
 		RETURN FALSE;
 	END;
 #ifdef __USG
-	RETURN ioctl(stream^.fildes, INTEGER(ORD('T') * 256 + 1), ADR(buf)) >= 0;
+	RETURN Unix.ioctl(stream^.fildes, INTEGER(ORD('T') * 256 + 1), ADR(buf)) >= 0;
 #else
 #ifdef __BSD4_2
-	RETURN ioctl(stream^.fildes, INTEGER(ORD('t') * 256 + 8 + 6*65536 + 40000000H), ADR(buf)) >= 0;
+	RETURN Unix.ioctl(stream^.fildes, INTEGER(ORD('t') * 256 + 8 + 6*65536 + 40000000H), ADR(buf)) >= 0;
 #else
-	RETURN ioctl(stream^.fildes, INTEGER(ORD('t') * 256 + 8), ADR(buf)) >= 0;
+	RETURN Unix.ioctl(stream^.fildes, INTEGER(ORD('t') * 256 + 8), ADR(buf)) >= 0;
 #endif
 #endif
   END isatty;
 
-BEGIN
+  PROCEDURE InitStreams;
+  VAR result: StreamResult;
+  BEGIN
 	InputStream := ADR(ibuf);
 	OutputStream := ADR(obuf);
 	ErrorStream := ADR(ebuf);
@@ -414,7 +416,7 @@ BEGIN
 		maxcnt := 0;
 		cnt := 0;
 		bufferedcnt := BUFSIZ;
-		IF isatty(OutputStream) THEN
+		IF isatty(OutputStream, result) THEN
 			buffering := linebuffered;
 		ELSE
 			buffering := blockbuffered;
@@ -429,7 +431,7 @@ BEGIN
 		maxcnt := 0;
 		cnt := 0;
 		bufferedcnt := BUFSIZ;
-		IF isatty(ErrorStream) THEN
+		IF isatty(ErrorStream, result) THEN
 			buffering := linebuffered;
 		ELSE
 			buffering := blockbuffered;
@@ -437,4 +439,8 @@ BEGIN
 	END;
 	head := InputStream;
 	IF Epilogue.CallAtEnd(EndIt) THEN ; END;
+  END InitStreams;
+
+BEGIN
+	InitStreams
 END Streams.