Marcel Taeumel uploaded a new version of Files to project The Trunk: http://source.squeak.org/trunk/Files-mt.145.mcz
==================== Summary ====================
Name: Files-mt.145 Author: mt Time: 7 October 2015, 10:16:24.866 am UUID: f726696f-12e1-0146-a181-ad701c233a62 Ancestors: Files-cmm.144
Updates service descriptions in FileStream to be extensible by message name pattern.
Note: We should discuss this way of extensibility and apply it to other service descriptions in the system if okay.
=============== Diff against Files-cmm.144 ===============
Item was changed: ----- Method: FileStream class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- fileReaderServicesForFile: fullName suffix: suffix "Answer services for the given file"
+ ^ self servicesWithSuffixes + select: [:spec | spec key anySatisfy: [:pattern | suffix = '*' or: [pattern match: suffix]]] + thenCollect: [:spec | spec value]! - ^ ((self isSourceFileSuffix: suffix) or: [ suffix = '*' ]) - ifTrue: - [{self serviceRemoveLineFeeds. - self serviceFileIn}] - ifFalse: - [#()]!
Item was added: + ----- Method: FileStream class>>serviceFileInSuffixes (in category 'file reader services') ----- + serviceFileInSuffixes + + ^ self sourceFileSuffixes!
Item was added: + ----- Method: FileStream class>>serviceRemoveLineFeedsSuffixes (in category 'file reader services') ----- + serviceRemoveLineFeedsSuffixes + + ^ self sourceFileSuffixes!
Item was changed: ----- Method: FileStream class>>services (in category 'file reader services') ----- services
+ ^ (((self class selectors copyWithout: #services) + select: [:symbol | symbol beginsWith: #service]) + reject: [:symbol | symbol endsWith: #Suffixes]) + collect: [:selector | self perform: selector]! - ^ Array - with: self serviceRemoveLineFeeds - with: self serviceFileIn - !
Item was added: + ----- Method: FileStream class>>servicesWithSuffixes (in category 'file reader services') ----- + servicesWithSuffixes + + ^ (((self class selectors copyWithout: #services) + select: [:symbol | symbol beginsWith: #service]) + reject: [:symbol | symbol endsWith: #Suffixes]) + collect: [:selector | + (self perform: (selector, #Suffixes) asSymbol) -> (self perform: selector)]!
packages@lists.squeakfoundation.org