[squeak-dev] The Inbox: MonticelloConfigurations-cmm.116.mcz
Chris Muller
asqueaker at gmail.com
Tue Oct 8 16:22:03 UTC 2013
Will move this to trunk soon.
On Tue, Oct 8, 2013 at 11:17 AM, <commits at source.squeak.org> wrote:
> 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
|