--- a/Socket.st Mon Jul 08 15:05:29 2013 +0200
+++ b/Socket.st Tue Jul 09 16:22:38 2013 +0200
@@ -1572,22 +1572,22 @@
!
sendData: aStringOrByteArray
- "Send all of the data in the given array, even if it requires multiple calls to send it all.
- Return the number of bytes sent."
-
- "An experimental version for use on slow lines:
- Longer timeout and smaller writes to try to avoid spurious timeouts."
-
- |remaining nWritten|
+ "Send all of the data in the given array, even if it requires multiple calls to send it all.
+ Return the number of bytes sent."
+
+ |remaining nWritten|
"/ Transcript show:'>> '; showCR:aStringOrByteArray.
- remaining := aStringOrByteArray size.
- [remaining > 0] whileTrue:[
- nWritten := self nextPutBytes:remaining from:aStringOrByteArray startingAt:1.
- remaining := remaining - nWritten.
- ].
- ^ aStringOrByteArray size.
+ remaining := aStringOrByteArray size.
+ [remaining > 0] whileTrue:[
+ nWritten := self nextPutBytes:remaining from:aStringOrByteArray startingAt:1.
+ remaining := remaining - nWritten.
+ ].
+ ^ aStringOrByteArray size.
+
+ "An experimental version for use on slow lines:
+ Longer timeout and smaller writes to try to avoid spurious timeouts."
"/ | bytesSent bytesToSend count |
"/ bytesToSend := aStringOrByteArray size.
@@ -3701,6 +3701,7 @@
"
! !
+
!Socket methodsFor:'specials'!
receiveBufferSize
@@ -3970,6 +3971,7 @@
^ self setSocketOption:#'TCP_NODELAY' argument:aBoolean argument:nil.
! !
+
!Socket methodsFor:'waiting'!
waitForNewConnectionOrDataOnAny:otherConnections timeout:timeoutSeconds
@@ -4056,10 +4058,10 @@
!Socket class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.281 2013-05-21 20:46:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.282 2013-07-09 14:22:38 stefan Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.281 2013-05-21 20:46:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic2/Socket.st,v 1.282 2013-07-09 14:22:38 stefan Exp $'
! !