[V3dot10] Working with 3.10
Edgar J. De Cleene
edgardec2001 at yahoo.com.ar
Sun Jan 14 09:58:39 UTC 2007
stephane ducasse puso en su mail :
> I do not really understand your question but what would be important
> is to have a source.squeakfoundation.org/310
> where we can publish packages that are adapted for 310 (and may be
> save on source.squeakfoundation/39a the right
> version of VMMaker.
I agree, a source.squeakfoundation/310a is a must, but still I don't have
any password to official sites for put nothing.
So I put all experiments in my ftp, and Klaus mirror to his for better/safer
And as we decided for going back to .cs updates, I put a interim
experimental solution what is that.
| aa |
self flag: #ViolateNonReferenceToOtherClasses.
aa _ ServerDirectory new.
aa server: 'squeakros.atspace.com'. "host"
aa user: 'edgardec'.
aa password: 'squeak'.
aa directory: '/squeakros.atspace.com//SqueakThreeTen/'.
aa url: ''. "<- this is optional. Only used when *writing* update
ServerDirectory addServer: aa named: 'SqueakThreeTen'. "<- known by
this name in Squeak"
File in the attached for what you could do
Utilities updateFromExperimentalServer from a Workspace.
The only one (7070) was the MakeGreen test of Ralph
So, if you have workings .cs, send to me, I test and then could go to this
So, this way .image could grow or shrink as we learn what is safer / faster
/ have more people happy with.
I wish move, see as grass grows is not a good thing.
PS For all SUnit , Test, and SM I decide go back to 3.9 final status.
KernelImage size and all package what all wish are incompatible things.
-------------- next part --------------
'From Squeak3.10alpha.7068 of 12 December 2006 [latest update: #7068] on 10 January 2007 at 4:06:11 pm'!
!Utilities class methodsFor: 'fetching updates' stamp: 'edc 1/10/2007 16:04'!
| numero server dir count file aNewChangeSet|
numero := (ChangeSorter highestNumberedChangeSet ) asString.
server := (ServerDirectory serverNamed: 'SqueakThreeTen').
server password: 'squeak'.
dir := server directoryNamed: 'updates'.
count := 0.
dir entries select: [:c| (c name startsWithDigit) & (c name > numero) ] thenCollect:[ :any| file := RWBinaryOrTextStream with: (dir getFileNamed: any name ).
aNewChangeSet := ChangeSorter newChangesFromStream: file named: any name .
count := count + 1].
PopUpMenu inform: 'Aprendi ', count asString, ' cosas '.
SystemVersion current registerUpdate: ChangeSorter highestNumberedChangeSet.! !
More information about the V3dot10