Comment #13 on issue 5113 by
[hidden email]: Use ZnClient instead of
HttpClient
http://code.google.com/p/pharo/issues/detail?id=5113shit the update stream does not work.
ReadStream does not understand text
nextDoc reset; text.
So I will roll back
elementaryReadServerUpdates
"Scan the update server(s) for unassimilated updates. If the instance
variable upToNumber is not nil, it represents the highest-numbered update
to load. This makes it possible to update only up to a particular point."
"UpdateStreamer new elementaryReadServerUpdates"
| str urls failed loaded this nextDoc updateName |
(Smalltalk globals includesKey: #ScriptLoader) ifFalse: [
^ self feedback: 'ScriptLoader is not present (this may happen if you
have run cleanUpForProduction). ' ].
Cursor wait showWhile:
[ | docQueue docQueueSema |
urls := self newUpdates.
loaded := 0.
failed := nil.
"send downloaded documents throuh this queue"
docQueue := SharedQueue new.
"this semaphore keeps too many documents from beeing queueed up at a time"
docQueueSema := Semaphore new.
5 timesRepeat: [ docQueueSema signal ].
"fork a process to download the updates"
self retrieveUrls: urls ontoQueue: docQueue withWaitSema: docQueueSema.
"process downloaded updates in the foreground"
[ this := docQueue next.
nextDoc := docQueue next.
nextDoc = #failed ifTrue: [ failed := this ].
(failed isNil and: [ nextDoc ~= #finished ])
] whileTrue: [
failed ifNil: [
nextDoc reset; text.
nextDoc size = 0 ifTrue: [ failed :
_______________________________________________
Pharo-bugtracker mailing list
[hidden email]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-bugtracker
Locked
