Stream.st
changeset 23902 fa109fbd24b7
parent 23896 c00000f683b6
child 23909 a1bbaab07fe1
--- 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'!