Hi,
Sorry, i forgot to attach the attachment...
cu,
Robin
"Filed out from GNU Smalltalk version 2.2b on 26-Oct-2006 10:30:02"!
Smalltalk.Object subclass: #SocketTest
instanceVariableNames: 'buffer socket '
classVariableNames: ''
poolDictionaries: ''
category: nil!
SocketTest comment:
nil!
!SocketTest class methodsFor: 'instance creation'!
new
| n |
n := super new.
n init.
^n
! !
!SocketTest methodsFor: 'basic'!
handle: sock
[
[
[ sock atEnd ] whileFalse: [
buffer := buffer, (sock nextHunk).
sock nextPutAll: '['.
sock nl.
sock nextPutAll: buffer.
sock nl.
sock nextPutAll: ']'.
sock nl.
sock flush
].
] ensure: [ sock close ]
] fork
!
init
buffer := String new
!
start
'Starting server...' displayNl.
socket := TCP.ServerSocket port: 12345.
socket isNil ifTrue: [ self error: 'couldn''t create ServerSocket!' ].
[
socket waitForConnection.
'Got connection!' displayNl.
self handle: (socket accept)
] repeat
!
stop
socket close
! !
_______________________________________________
help-smalltalk mailing list
[email protected]
http://lists.gnu.org/mailman/listinfo/help-smalltalk
