[squeak-dev] The Inbox: MonticelloConfigurations-cmm.116.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Oct 8 16:17:45 UTC 2013


A new version of MonticelloConfigurations was added to project The Inbox:
http://source.squeak.org/inbox/MonticelloConfigurations-cmm.116.mcz

==================== Summary ====================

Name: MonticelloConfigurations-cmm.116
Author: cmm
Time: 8 October 2013, 11:17:41.275 am
UUID: 7fc9bf79-f791-4d78-adb8-beddd88b90bd
Ancestors: MonticelloConfigurations-bf.115

Persist MCConfiguration's 'name'.

=============== Diff against MonticelloConfigurations-bf.115 ===============

Item was changed:
  ----- Method: MCConfiguration class>>fromArray: (in category 'instance creation') -----
  fromArray: anArray
  	| configuration |
  	configuration := self new.
  	anArray pairsDo: [:key :value |
  		key = #repository
  			ifTrue: [configuration repositories add: (self repositoryFromArray: value)].
  		key = #dependency
  			ifTrue: [configuration dependencies add: (self dependencyFromArray: value)].
+ 		key = #name
+ 			ifTrue: [configuration name: value].
  	].
  	^configuration!

Item was removed:
- ----- Method: MCMcmReader>>configurationName (in category 'accessing') -----
- configurationName
- 	^fileName ifNotNil: [(fileName findTokens: '/\:') last copyUpToLast: $.]!

Item was changed:
  ----- Method: MCMcmReader>>loadConfiguration (in category 'accessing') -----
  loadConfiguration
  	stream reset.
  	configuration := MCConfiguration fromArray: (MCScanner scan: stream).
+ 	configuration name ifNil: [ configuration name: self parseNameFromFilename ]!
- 	configuration name: self configurationName.
- !

Item was added:
+ ----- Method: MCMcmReader>>parseNameFromFilename (in category 'accessing') -----
+ parseNameFromFilename
+ 	^fileName ifNotNil: [(fileName findTokens: '/\:') last copyUpToLast: $.]!

Item was changed:
  ----- Method: MCMcmWriter>>writeConfiguration: (in category 'writing') -----
  writeConfiguration: aConfiguration
  
  	stream nextPut: $(.
  
  	aConfiguration repositories do: [:ea | 
  		stream cr.
  		stream nextPutAll: 'repository '.
  		(MCConfiguration repositoryToArray: ea) printElementsOn: stream].
  
  	aConfiguration dependencies do: [:ea | 
  		stream cr.
  		stream nextPutAll: 'dependency '.
  		(MCConfiguration dependencyToArray: ea) printElementsOn: stream].
  
+ 	stream nextPutAll: 'name '; nextPutAll: aConfiguration name printString.
+ 
  	stream cr.
  	stream nextPut: $).
  	stream cr.!



More information about the Squeak-dev mailing list