Loading Essential package from Monticello (was [Newbies] isKindOf considered questionable)

[squeak414 at free.fr]

Quoting Lukas Renggli <renggli at gmail.com>:

> > >  Transcript shows: 'redirecting to /@Rp3_OTsQFp6cJCVr/SrBb63Bv', then I
> get a
> >  >  popup dialog with: 'Could not resolve the server named: '
> >
> > Indeed, there is a problem there. Sorry about that. I will check.
>
> Ok, it should work again. There was something wrong with the file-system
> access.
>
> Cheers,
> Lukas
>

Hi Lukas,

With the .html suffix, it now opens the repository, but Transcript shows: 'Could
not read Essential-lr.25.mcz'

This happens after it looks in the cache. Here's the sequence of events:


versionInfo

	^ selectedVersionInfo realizeFrom: repository

... where repository is a
MCHttpRepository(http://source.lukas-renggli.ch/essential)

realizeFrom: aRepository

	^ aRepository realizeFullVersionInfo: self


realizeFullVersionInfo: aStubVersionInfoInstance

	^ self versionInfoFromFileNamed: aStubVersionInfoInstance name


...where aStubVersionInfoInstance is
'Essential-lr.25.mcz'


versionInfoFromFileNamed: aString
	self cache at: aString ifPresent: [:v | ^ v info].
	^ self loadVersionInfoFromFileNamed: aString


loadVersionInfoFromFileNamed: aString
	^ [ self versionReaderForFileNamed: aString do: [:r | r info]
	 	] on: Error
			do: [ :ex | Transcript cr; show: 'Could not read ', aString.
		].


versionReaderForFileNamed: aString do: aBlock
	^ (self versionReaderForFileNamed: aString) ifNotNilDo: aBlock


loadVersionInfoFromFileNamed: aString
	^ [ self versionReaderForFileNamed: aString do: [:r | r info]
	 	] on: Error
			do: [ :ex | Transcript cr; show: 'Could not read ', aString.
		].


info
	info ifNil: [self loadVersionInfo].
	^ info


loadVersionInfo
	info := self extractInfoFrom: (self parseMember: 'version')



loadVersionInfoFromFileNamed: aString
	^ [ self versionReaderForFileNamed: aString do: [:r | r info]
	 	] on: Error
			do: [ :ex | Transcript cr; show: 'Could not read ', aString.
		].



self versionReaderForFileNamed: 'Essential-lr.25.mcz'

returns a a MCMczReader with a ZipArchive whose members are an
OrderedCollection().

Let me know if I can provide more detail,   ...Stan