! expects Seaside2.8g to be defined
!
! install SqueakSource2 for 2.8
!
ifError where
errorCount
output push squeakSource2Install.out only
display resultcheck
errorCount

run
| undef |
undef := SymbolDictionary new.
undef name: #UndefinedSymbols.
UserGlobals at: #UndefinedSymbols put: undef.
UserGlobals at: #UndefinedSymbolList put: (SymbolList with: undef).
true
%

errorCount
commit

run
| basePath dir repository spec |
basePath := GsPackageLibrary getMonticelloRepositoryDirectory .
dir := FileDirectory on: basePath.
repository := MCDirectoryRepository new directory: dir.
MCRepositoryGroup default addRepository: repository.
spec := #[	
    'RSRSS2.g-dkh.11.mcz',
       'http://www.squeaksource.com/rsrss',
       'http://seaside.gemstone.com/ss/rsrss2',
    'SmaCC-dkh.14.mcz',
       'http://www.squeaksource.com/SmaccDevelopment',
       'http://seaside.gemstone.com/ss/smacc',
    'TinyWiki-pmm.16.mcz',
       'http://www.squeaksource.com/ss2',
       '',
    'SqueakSource.g-dkh.1086.mcz',
       'http://www.squeaksource.com/ss2',
       'http://seaside.gemstone.com/ss/ss2',

].
1 to: spec size by: 3 do: [:i | | fileName httpRepository primaryRepository version rg |
    fileName := spec at: i.
    primaryRepository := MCHttpRepository
      location: (spec at: i + 1)
      user: ''
      password: ''.
    (spec at: i + 2) isEmpty not
      ifTrue: [
        httpRepository := MCHttpRepository
          location: (spec at: i + 2)
          user: ''
          password: ''].
    version := repository loadVersionFromFileNamed: fileName.
    version load.
    rg := version workingCopy repositoryGroup.
    rg addRepository: repository.
    rg addRepository: primaryRepository.
    (spec at: i + 2) isEmpty not
      ifTrue: [ rg addRepository: httpRepository ].
].
true
%

errorCount
commit

output pop
errorCount
