[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