[Pkg] Monticello Public: Monticello.impl-kph.615.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Fri Jan 16 13:38:02 UTC 2009
A new version of Monticello.impl was added to project Monticello Public:
http://www.squeaksource.com/mc/Monticello.impl-kph.615.mcz
==================== Summary ====================
Name: Monticello.impl-kph.615
Author: kph
Time: 16 January 2009, 1:37:49 pm
UUID: 632d9796-1715-4624-a10b-a089f12e05b0
Ancestors: Monticello.impl-kph.614
fix enabling load of packages that do not have a snapshot.bin
=============== Diff against Monticello.impl-kph.614 ===============
Item was changed:
----- Method: MCSnapshot class>>empty (in category 'as yet unclassified') -----
empty
+ ^ self fromDefinitions: OrderedCollection new!
- ^ self fromDefinitions: #()!
Item was changed:
----- Method: MCMczReader>>loadSnapshot (in category 'as yet unclassified') -----
loadSnapshot
(self zip memberNamed: 'snapshot.bin') ifNotNilDo:
[:m | [^ snapshot := (DataStream on: m contentStream) next ]
on: Error do: [:fallThrough | self halt ]].
+
+ snapshot := MCSnapshot empty.
+
-
"otherwise"
(self zip membersMatching: 'snapshot/*')
do: [:m | self extractDefinitionsFrom: m].
(self zip membersMatching: 'files/*')
do: [:m | self extractFileFrom: m].
!
Item was changed:
----- Method: MCMczReader>>extractDefinitionsFrom: (in category 'as yet unclassified') -----
extractDefinitionsFrom: member
| reader |
(MCSnapshotReader readerClassForFileNamed: member fileName)
ifNotNilDo: [:rc | reader := rc on: member contentStream text.
+ snapshot definitions addAll: reader definitions]
- definitions addAll: reader definitions]
!
More information about the Packages
mailing list