[squeak-dev] The Trunk: Files-eem.171.mcz

commits at source.squeak.org commits at source.squeak.org
Thu May 25 22:35:37 UTC 2017


Eliot Miranda uploaded a new version of Files to project The Trunk:
http://source.squeak.org/trunk/Files-eem.171.mcz

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

Name: Files-eem.171
Author: eem
Time: 25 May 2017, 3:35:29.716969 pm
UUID: dbf98ee2-b593-4ede-b2de-0a188c125144
Ancestors: Files-nice.170

Fix case sensitivity in nextNameFor:extension:.  Harvested from Terf.

=============== Diff against Files-nice.170 ===============

Item was changed:
  ----- Method: FileDirectory>>nextNameFor:extension: (in category 'file name utilities') -----
  nextNameFor: baseFileName extension: extension
  	"Assumes a file name includes a version number encoded as '.' followed by digits 
  	preceding the file extension.  Increment the version number and answer the new file name.
  	If a version number is not found, set the version to 1 and answer a new file name"
  
  	| files splits version |
  
  	files := self fileNamesMatching: (baseFileName,'*', self class dot, extension).
  	splits := files 
  			collect: [:file | self splitNameVersionExtensionFor: file]
+ 			thenSelect:
+ 					[:split |
+ 					 self isCaseSensitive 
+ 						ifTrue:[(split at: 1) = baseFileName]
+ 						ifFalse:[(split at: 1) match: baseFileName]].
+ 	version := splits isEmpty 
+ 				ifTrue: [1]
+ 				ifFalse: [((splits detectMax: [ :each | each at: 2 ]) at: 2) + 1].
- 			thenSelect: [:split | (split at: 1) = baseFileName].
- 	splits isEmpty 
- 			ifTrue: [version := 1]
- 			ifFalse: [version := ((splits detectMax: [ :each | each at: 2 ]) at: 2) + 1].
  	^ (baseFileName, '.', version asString, self class dot, extension) asFileName!



More information about the Squeak-dev mailing list