Wrinting a script to load packages from Monticello

Hi,

I would like to write a script that:

- Add repositories to monticello (ie: mc.lukas-renggli.ch/magritte)
- Load latest versions of some packages in this repositories

How can I do that ?

Thanks

--
Damien Cassou

Hi Damien,

Check out: http://www.saltypickle.com/Home/uploads/SqueakInstaller-jrp.4.cs.

While you may not need all this changeset does it, it does have code
that processes over literal arrays like this:

#((Core 'squeak.saltypickle.com/Core')
  (InstanceEncoder 'squeak.saltypickle.com/InstanceEncoder')
  (GoodsServer 'squeak.saltypickle.com/GoodsServer'))

This array would end up being used by the code to create three MC
repositories and loading the latest versions from these URLs.

Enjoy,

John

On 5/5/06, Damien Cassou <[hidden email]> wrote:

--
The reasonable man adapts himself to the world; the unreasonable one
persists in trying to adapt the world to himself. Therefore, all
progress depends on the unreasonable man. -- George Bernard Shaw

John Pierce a écrit :
> Hi Damien,
>
> Check out:
> http://www.saltypickle.com/Home/uploads/SqueakInstaller-jrp.4.cs.

Thank you very much John. It's exactely what I needed. Thanks :-)

--
Damien Cassou

Here is my script that loads things like magritte, ecompletion, shout,
seaside, pier...

Fell free to comment it.

--
Damien Cassou


| map |
Transcript openLabel: 'Transcript'.
map := SMSqueakMap default.
map loadUpdates.

#('DynamicBindings' 'KomServices' 'KomHttpServer' 'Shout' 'ShoutWorkspace' 'eCompletion') do:
        [ :package |
                map installPackageRelease: (map packageWithNameBeginning: package) lastPublishedRelease].

#(#('Seaside2.6a3' 'http://www.squeaksource.com/Seaside') #('Scriptaculous' 'http://www.squeaksource.com/Seaside') #('Magritte-All' 'http://mc.lukas-renggli.ch/magritte') #('Pier-All' 'http://mc.lukas-renggli.ch/pier')) do:
        [:package | | repository version url fileToLoad sortMczs userString passwordString|
        fileToLoad _ nil.
        userString _ ''.
        passwordString _ ''.
        url _ package second asUrl asString.
       
        repository _ MCHttpRepository location: url user: userString password: passwordString.
        sortMczs _ [:a :b |
                [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger]
                on: Error do: [:ex | false]].

        fileToLoad _ (repository readableFileNames asSortedCollection: sortMczs) detect:
                        [:file | file beginsWith: package first].

        version _ repository versionFromFileNamed: fileToLoad.
        version workingCopy repositoryGroup addRepository: repository.
        repository creationTemplate: 'MCHttpRepository
        location: ''', url, '''
        user: ''', userString, '''
        password: ''', passwordString, ''''.

        version load].

Transcript cr; show: 'Everything installed'; cr.

It would be nice to improve the interface of the various classes so  
that we can write such script in a much less verbose way.
It looks like assembly somehow.

Stef

On 5 mai 06, at 16:20, Damien Cassou wrote:

On May 5, 2006, at 4:57 AM, Damien Cassou wrote:

> Hi,
>
> I would like to write a script that:
>
> - Add repositories to monticello (ie: mc.lukas-renggli.ch/magritte)
> - Load latest versions of some packages in this repositories
>
> How can I do that ?

Looks like you've already got something going, but you might also be  
interested in the installers I wrote for OmniBrowser and Monticello2.:

http://www.wiresong.ca/static/releases/OBInstaller-cwp.11.st
http://www.wiresong.ca/static/releases/MDInstaller.1.st

Colin

Am 05.05.2006 um 18:13 schrieb Colin Putney:

And, MC config maps serve exactly the same purpose.

- Bert -

stéphane ducasse puso en su mail :

> It would be nice to improve the interface of the various classes so
> that we can write such script in a much less verbose way.
> It looks like assembly somehow.
>
> Stef
Our student Alejandro Cavagna do this attached.

You could mix any of .cs, mcz and save and load  the configuration on other
image.

http://wiki.gnulinex.org/squeakros/76 is the Spanish page for this, if you
wish I convince he do a English one on minnow.

He also collaborate with me in several server things , like a Squeak image
"almost" drived from a remote regular browser.

Cheers.

Edgar

Bert,

        I've cassually made a pair of them today. I've made a pair of .bat
commands to aid the process.

        I proceed this way:

        1. execute Clear.bat
        2. execute GenerateBase.bat
        3. execute StartSqueakLoadingProject.bat

        The only manual thing I have to do is to edit the version numbers of
my packages in ProjectLoader.st file.
       
        Note I unzip a Seaside-2.5.zip image (the .image and .changes files)
with 7z and that ziped image already has an updated SqueakMap.

        Regards,

Sebastian