[Cuis] [aida] [ANN] A first port to Cuis of Sport and Swazoo

[H. Hirzel]

Janko, a question

On 1/21/13, Janko Mivšek <janko.mivsek at eranova.si> wrote:
> Germán,
>
> I put your process changes on VW Swazoo


where is it?

   http://www.swazoo.org/download.html
does not have an entry for VW Swazoo alone.

--Hannes

> and here is the result, which is
> probably least common denominator to all dialects:
>
>
> HTTPServer>>start
>  self loop isNil ifTrue:
>    [self socket:
>       (SwazooSocket serverOnIP: self ipCorrected port: self port).
>    self socket listenFor: 128.
>    self loop:
>       [ [self acceptConnection] repeat]
>            newProcess.
>    self loop
>       priority: Processor userBackgroundPriority;
>       resume
>    ]
>
>
> Additionally:
>
> HTTPConnection>>interact
>
>   ...
>
>   self server isMultiThreading
>     ifTrue:
>       [self loop: interactionBlock newProcess.
>        self loop
>          priority: Processor userBackgroundPriority;
>          resume]
>     ifFalse: [interactionBlock value].
>   ^self
>
>
> ServerTest>>setUp doesn't seem to have the process problem (process is
> not stored in any variable, so I propose to leave this method unchanged.
>
> Best regards
> Janko
>
>
> Dne 20. 01. 2013 16:59, piše Germán Arduino:
>> Hi:
>>
>> The first versions of Sport and Swazoo working in Cuis 4.1 with all
>> tests green are ready to install.
>>
>> The changes I did in Swazoo are:
>>
>>
>> - Avoid Unicode support that don't exist in Cuis
>>
>>
>> WebSocketConnection:
>>
>> fromUtf8: aString
>> "Squeak specific"
>>
>> "gsa 14/01/2013 for Cuis port"
>> "^[aString convertFromEncoding: #utf8] on: Error do: [:ex | aString ]
>> ^ aString
>>
>>
>> toUtf8: aString
>> "Squeak specific"
>> "
>> | converter in out |
>> converter := UTF8TextConverter new.
>> in := aString readStream.
>> out := WriteStream on: ''.
>> [in atEnd] whileFalse:
>> [converter nextPut: in next toStream: out].
>> ^out contents
>> "
>> ^ aString.
>>
>>
>> SwazooBuffer >>closeChunkTo: aSocket
>>
>> 	" gsa 18/01/2013 used String instead ByteString for Cuis"
>> 	"chunk := ByteString new: 5."
>>
>>
>> - Avoid #fork and #forkAt: calling #newProcess instead:
>>
>> HTTPServer >>start
>>
>> start
>> 	| swazooProcess |
>> 	self loop isNil ifTrue: [
>> 		self socket:
>> 			(SwazooSocket
>> 				serverOnIP: self ipCorrected
>> 				port: self port).
>> 		self socket listenFor: 128.
>> 		self loop: (swazooProcess _ [ [ self acceptConnection ] repeat ]
>> newProcess).
>> 		swazooProcess name: 'Swazoo ' , DateAndTime now asString.
>> 		swazooProcess priority: Processor userBackgroundPriority.
>> 		swazooProcess resume ].
>>
>> instead of the original code:
>>
>> start
>> 	self loop isNil ifTrue: [
>> 		self socket:
>> 			(SwazooSocket
>> 				serverOnIP: self ipCorrected
>> 				port: self port).
>> 		self socket listenFor: 128.
>> 		self loop: ([ [ self acceptConnection ] repeat ] forkAt: Processor
>> userBackgroundPriority) ].
>>
>>
>>
>> HTTPServer >>setUp
>>
>> setUp
>> 	| socket swazooProcess |
>> 	(Delay forMilliseconds: 100) wait.
>> 	server _ HTTPServer new.
>> 	swazooProcess _ [
>> 	server
>> 		 ip: 'localhost';
>> 		 port: 8123.
>> 	server start ] newProcess.
>> 	swazooProcess name: 'Swazoo HTTPServer Test'.
>> 	swazooProcess resume.
>> 	(Delay forMilliseconds: 100) wait.
>> 	" 	stream := (SocketAccessor newTCPclientToHost: 'localhost' port: 8123)
>> 				readAppendStream"
>> 	socket _ SpSocket
>> 		connectToServerOnHost: 'localhost'
>> 		port: 8123.
>> 	stream _ SwazooStream socket: socket.
>>
>> instead of the original code:
>>
>> setUp
>> 	| socket |
>> 	(Delay forMilliseconds: 100) wait.
>> 	server := HTTPServer new.
>> 	[server ip: 'localhost'; port: 8123.
>> 	server start]
>> 		fork.
>> 	(Delay forMilliseconds: 100) wait.
>> " 	stream := (SocketAccessor newTCPclientToHost: 'localhost' port: 8123)
>> 				readAppendStream"
>> 	socket := SpSocket connectToServerOnHost:  'localhost' port: 8123.
>> 	stream := SwazooStream socket: socket
>>
>>
>> Other considerations:
>>
>> SpFilename >>underlyingFilename (This method do not exist, but do not
>> exist neither in the original one click aida/pharo image)
>>
>> Security class don't exist neither in the pharo one click image.
>>
>> #trimSeparators, is named in SwazooMD5 but do not seems implemented.
>>
>>
>>
>>
>> To install Sport and Swazoo, follow the next steps:
>>
>> 1. Take a new Cuis 4.1 image.
>>
>> 2. From GitHub / garduino clone in your computer the repos
>> Cuis-Cryptography
>> Cuis-CompatibilityWithOtherSmalltalks
>> Cuis-Pharo14CompatibilityLayer
>> Cuis-Sport
>> Cuis-Swazoo
>>
>> 3. In a workspace run the next script:
>>
>> | slash repo |
>> slash _ FileDirectory slash.
>> repo := '/Users/Shared/YOURCODEREPOSITORYPATH/'.
>> {
>> repo, slash, 'Cuis-Cryptography', slash, 'Cuis-System-Hashing.pck.st' .
>> repo, slash, 'Cuis-CompatibilityWithOtherSmalltalks', slash,
>> 'Cuis-CompatibilityWithOtherSmalltalks.pck.st' .
>> repo, slash, 'Cuis-Pharo14CompatibilityLayer', slash,
>> 'Cuis-Network-Protocols.pck.st' .
>> repo, slash, 'Cuis-Pharo14CompatibilityLayer', slash,
>> 'Cuis-Network-Url.pck.st' .
>> repo, slash, 'Cuis-Sport', slash, 'Sport.pck.st' .
>> repo, slash, 'Cuis-Swazoo', slash, 'Swazoo.pck.st' .
>> }
>> do:
>> [ :fileName | CodePackageFile installPackageStream:
>> (FileStream concreteStream readOnlyFileNamed: fileName)
>> ].
>>
>>
>> 4. You will notice some warnings in the Transcript regarding some
>> Network-* classes, it is because I'm installing here only the minimum
>> code that I need for Swazoo and I must still end to polish the delta
>> between the Network protocol in Cuis vs Pharo/Squeak
>>
>> 5. I did also an early port of TimeStamp, not existing in Cuis, and I
>> have still 1 failing test.
>>
>>
>> But Swazoo seems to work ok, all the test pass and the tests I did in
>> the workspace seems to work, but as I'm not in expert in Swazoo, I
>> will be more than happy of receive corrections, suggestion, etc, to
>> leave the port in a stable state.
>
> --
> Janko Mivšek
> Aida/Web
> Smalltalk Web Application Server
> http://www.aidaweb.si
>
> _______________________________________________
> Cuis mailing list
> Cuis at jvuletich.org
> http://jvuletich.org/mailman/listinfo/cuis_jvuletich.org
>