--- a/PipeStr.st Thu Sep 12 17:47:23 1996 +0200
+++ b/PipeStr.st Thu Sep 12 18:09:16 1996 +0200
@@ -43,6 +43,10 @@
extern errno;
#endif
+#ifdef LINUX
+# define BUGGY_STDIO_LIB
+#endif
+
%}
! !
@@ -175,7 +179,7 @@
'after close' printNewline
]
- Notice, that if the Stream is buffered, the Signal may occur some time after
+ Notice, that iff the Stream is buffered, the Signal may occur some time after
the write - or even at close time; to avoid a recursive signal in the exception
handler, a shutDown is useful there.
@@ -415,11 +419,12 @@
lastErrorNumber isNil ifTrue:[
commandString := aCommandString.
- buffered := true.
%{
/* LINUX stdio is corrupt here ... */
-#ifdef LINUX
+#ifdef BUGGY_STDIO_LIB
__INST(buffered) = false;
+#else
+ __INST(buffered) = true;
#endif
%}.
hitEOF := false.
@@ -456,6 +461,6 @@
!PipeStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.45 1996-09-12 15:47:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Attic/PipeStr.st,v 1.46 1996-09-12 16:09:16 cg Exp $'
! !
PipeStream initialize!
--- a/PipeStream.st Thu Sep 12 17:47:23 1996 +0200
+++ b/PipeStream.st Thu Sep 12 18:09:16 1996 +0200
@@ -43,6 +43,10 @@
extern errno;
#endif
+#ifdef LINUX
+# define BUGGY_STDIO_LIB
+#endif
+
%}
! !
@@ -175,7 +179,7 @@
'after close' printNewline
]
- Notice, that if the Stream is buffered, the Signal may occur some time after
+ Notice, that iff the Stream is buffered, the Signal may occur some time after
the write - or even at close time; to avoid a recursive signal in the exception
handler, a shutDown is useful there.
@@ -415,11 +419,12 @@
lastErrorNumber isNil ifTrue:[
commandString := aCommandString.
- buffered := true.
%{
/* LINUX stdio is corrupt here ... */
-#ifdef LINUX
+#ifdef BUGGY_STDIO_LIB
__INST(buffered) = false;
+#else
+ __INST(buffered) = true;
#endif
%}.
hitEOF := false.
@@ -456,6 +461,6 @@
!PipeStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.45 1996-09-12 15:47:23 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PipeStream.st,v 1.46 1996-09-12 16:09:16 cg Exp $'
! !
PipeStream initialize!