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

[Janko Mivšek]

Hi Germán,

Very nice, thanks a lot!. Can you prepare a Cuis image and publish it
somewhere so that we can download it?

Also, for methods which are now Cuis specific, put "Cuis specific" in a
method comment.

Use := consistently everywhere instead of _

Those process specific changes are worth spread to Swazoos on other
dialects as "least common denominator" too, I'll try to do that today on VW.

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.
> 
> 
> 
> --
> Sincerely,
> Germán Arduino
> about.me/garduino


-- 
Janko Mivšek
Aida/Web
Smalltalk Web Application Server
http://www.aidaweb.si