The Trunk: MonticelloConfigurations-cmm.116.mcz

Chris Muller uploaded a new version of MonticelloConfigurations to project The Trunk:
http://source.squeak.org/trunk/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.!