[FIX] FlowFix-sr

[Stephan Rudlof]

"Change Set:		FlowFix-sr
Date:
		2 September 2002
Author:
		Stephan Rudlof

I have problems with the last Flow distribution:
	http://netjam.org/smalltalk/sources/flow/flow2a.zip
: something seems broken, already
	Socket performExamples
doesn't work.
With this changeset at least
	TCPSocket echoBytes
*does* work! And it suggests that the problems are really at the ST side
(has taken some time to configure my Linux machine correctly for socket
access (for Nebraska)...)."


Remarks:
I'm currently working at a client/server application. It should work with
quite asynchronous characteristics: the server gets commands and it's
unknown, if it responds in 100ms or 30 minutes...
I've taken a look into what is there in Squeak now: as a consequence I'd
like to use a better approach, what Flow seems to promise. But it has to
work at first...
If I'd decide to use it, there is a good chance to get some demo example for
Flow back ;-)


Greetings,

Stephan
-- 
Stephan Rudlof (sr at evolgo.de)
   "Genius doesn't work on an assembly line basis.
    You can't simply say, 'Today I will be brilliant.'"
    -- Kirk, "The Ultimate Computer", stardate 4731.3
-------------- next part --------------
'From Squeak3.2 of 11 July 2002 [latest update: #4956] on 2 September 2002 at 8:29:20 pm'!
"Change Set:		FlowFix-sr
Date:			2 September 2002
Author:			Stephan Rudlof

I have problems with the last Flow distribution:
	http://netjam.org/smalltalk/sources/flow/flow2a.zip
: something seems broken, already
	Socket performExamples
doesn't work.
With this changeset at least
	TCPSocket echoBytes
*does* work!! And it suggests that the problems are really at the ST side (has taken some time to configure my Linux machine correctly for socket access (for Nebraska)...)."!


!ExternalStream class methodsFor: 'instance creation' stamp: 'sr 9/2/2002 20:11'!
on: anExternalResource
	"Answer an instance of myself on anExternalResource."

	^self basicNew resource: anExternalResource; collection: ByteArray new; yourself! !


!Socket class methodsFor: 'examples' stamp: 'sr 9/2/2002 20:18'!
echoBytesOn: aNetStream
	"Echo some bytes on aNetStream, which is connected to a remote host."

	^[
		| outgoingBytes |

		outgoingBytes _ 'fribbly\' withCRs.
		aNetStream nextPutAll: outgoingBytes.
		(aNetStream next: outgoingBytes size) asString = outgoingBytes
	]
		ensure: [aNetStream close]! !