add waitForData for socket stream

badetitou · badetitou · commit 77d0cdc22ae5 · 2025-02-26T13:18:20.000+01:00
diff --git a/src/PharoLanguageProtocol/ReadWriteStream.extension.st b/src/PharoLanguageProtocol/ReadWriteStream.extension.st
@@ -0,0 +1,6 @@
+Extension { #name : 'ReadWriteStream' }
+
+{ #category : '*PharoLanguageProtocol' }
+ReadWriteStream >> waitForData [
+	[ position < readLimit ] whileFalse
+]
diff --git a/src/PharoLanguageProtocol/SocketStream.extension.st b/src/PharoLanguageProtocol/SocketStream.extension.st
@@ -0,0 +1,7 @@
+Extension { #name : 'SocketStream' }
+
+{ #category : '*PharoLanguageProtocol' }
+SocketStream >> waitForData [
+
+	[ self isDataAvailable ] whileFalse
+]
