[Pharo-project] [ANN] pre-build 1.4#14065
https://gforge.inria.fr/frs/download.php/28827/Pharo-1.4-14065.zip PLEASE NOTE To me it looks like there is a problem that 1.4 just loads the *last* update from the stream... http://code.google.com/p/pharo/issues/detail?id=4569 this needs to be checked / fixed before we can move on... (I build this by updating from 14025, which worked. 14044 it seems to just load the last update). Marcus -- Marcus Denker -- http://marcusdenker.de
ARGH! I checked and indeed we only get the last update....I will spend the afternoon looking at that. There is probably something related to the changes we did with sven. Stef On Jul 29, 2011, at 2:53 PM, Marcus Denker wrote:
https://gforge.inria.fr/frs/download.php/28827/Pharo-1.4-14065.zip
PLEASE NOTE
To me it looks like there is a problem that 1.4 just loads the *last* update from the stream... http://code.google.com/p/pharo/issues/detail?id=4569
this needs to be checked / fixed before we can move on... (I build this by updating from 14025, which worked. 14044 it seems to just load the last update).
Marcus
-- Marcus Denker -- http://marcusdenker.de
this was the code before newUpdates "Return a list of fully formed URLs of update files we do not yet have up to the upToNumber instance variable if set." "self new newUpdates" | existing out list doc raw char | out := OrderedCollection new. existing := SystemVersion current updates. doc := HTTPClient httpGet: self updateListFileURLString. doc class == RWBinaryOrTextStream ifTrue: [raw := doc reset; contents. "one file name per line" list := self extractVersion: SystemVersion current version from: raw. list reverseDo: [:fileName | | itsNumber | itsNumber := fileName initialIntegerOrNil. (existing includes: itsNumber) ifFalse: [ (itsNumber isNil or: [itsNumber <= self upToNumber]) ifTrue: [out addFirst: self updateFolderURL, fileName]] ifTrue: [^ out]]. ((out size > 0) or: [char := doc reset; skipSeparators; next. (char == $*) | (char == $#)]) ifTrue: [^ out "we have our list"]]. self feedback: 'All code update servers seem to be unavailable'. ^ out and using Zinc newUpdates "Return a list of fully formed URLs of update files we do not yet have up to the upToNumber instance variable if set." "self new newUpdates" | existing out list result doc raw char | out := OrderedCollection new. existing := SystemVersion current updates. (result := ZnClient get: self updateListFileURLString) isSuccess ifFalse: [ self error: 'Cannot access update server' ]. "one file name per line" list := self extractVersion: SystemVersion current version from: result contents. list reverseDo: [:fileName | | itsNumber | itsNumber := fileName initialIntegerOrNil. (existing includes: itsNumber) ifFalse: [ (itsNumber isNil or: [itsNumber <= self upToNumber]) ifTrue: [out addFirst: self updateFolderURL, fileName]] ifTrue: [^ out]. ((out size > 0) or: [char := doc reset; skipSeparators; next. (char == $*) | (char == $#)]) ifTrue: [^ out "we have our list"]]. self feedback: 'All code update servers seem to be unavailable'. ^ out
participants (2)
-
Marcus Denker -
Stéphane Ducasse