--- a/Stream.st Wed Mar 13 20:16:25 2019 +0100
+++ b/Stream.st Wed Mar 13 20:17:54 2019 +0100
@@ -662,7 +662,7 @@
"Modified: / 16.6.1998 / 16:04:13 / cg"
! !
-!Stream methodsFor:'misc'!
+!Stream methodsFor:'externalStream compatibility'!
binary
"switch to binary mode. In binary mode, reading of text streams
@@ -671,7 +671,24 @@
Ignored here, but added to make internalStreams protocol compatible
with externalStreams."
- "Modified: 15.5.1996 / 17:38:36 / cg"
+ ^ self.
+
+ "Modified: / 15-05-1996 / 17:38:36 / cg"
+ "Modified: / 13-03-2019 / 19:40:03 / Stefan Vogel"
+!
+
+binary:beBinaryBool
+ "if beBinaryBool is true, switch to binary mode, if false, switch to text mode.
+ Answer the prevous mode - true for binary mode, false for text mode.
+ In binary mode, reading of text streams
+ returns byte-valued integers instead of characters; writing expects
+ byte-valued integers respectively.
+ Ignored here, but added to make internalStreams protocol compatible
+ with externalStreams."
+
+ ^ false "/ I am not in binary mode!!
+
+ "Created: / 13-03-2019 / 19:11:06 / Stefan Vogel"
!
blocking:aBoolean
@@ -681,6 +698,15 @@
^ false.
!
+buffered:aBoolean
+ "ExternalStream compatibility: change buffered mode.
+ Ignored, since internal streams are never buffered."
+
+ ^ false.
+
+ "Created: / 13-03-2019 / 19:38:15 / Stefan Vogel"
+!
+
eolMode
"Dummy here, but added to make internalStreams protocol compatible
with externalStreams."
@@ -691,11 +717,19 @@
eolMode:aSymbol
"Ignored here, but added to make internalStreams protocol compatible
with externalStreams."
+
+ ^ self.
+
+ "Modified: / 13-03-2019 / 19:38:52 / Stefan Vogel"
!
lineEndCRLF
"Ignored here, but added to make internalStreams protocol compatible
with externalStreams."
+
+ ^ self
+
+ "Modified: / 13-03-2019 / 19:39:00 / Stefan Vogel"
!
lineEndConvention
@@ -709,11 +743,19 @@
lineEndLF
"Ignored here, but added to make internalStreams protocol compatible
with externalStreams."
+
+ ^ self.
+
+ "Modified: / 13-03-2019 / 19:39:11 / Stefan Vogel"
!
lineEndTransparent
"Ignored here, but added to make internalStreams protocol compatible
with externalStreams."
+
+ ^ self.
+
+ "Modified: / 13-03-2019 / 19:39:21 / Stefan Vogel"
!
stream
@@ -727,8 +769,11 @@
Ignored here, but added to make internalStreams protocol compatible
with externalStreams."
- "Modified: 15.5.1996 / 17:38:36 / cg"
- "Created: 13.9.1996 / 18:33:26 / cg"
+ ^ self.
+
+ "Modified: / 15-05-1996 / 17:38:36 / cg"
+ "Created: / 13-09-1996 / 18:33:26 / cg"
+ "Modified: / 13-03-2019 / 19:39:53 / Stefan Vogel"
! !
!Stream methodsFor:'non homogenous reading'!