Hi
I really like (when I save little data files) to have a simple versioning.
For example for my game collection I have
Games.1.ston
Games.2.ston
...
and I like that this is managed for me by the system.
I harvested this functionality from squeak long time ago.
I rewrote it fast and dirty in Pharo. I find this two methods super
handy and they provide cheap versioning for little files.
lastNameFor: baseFileName extension: extension
"Assumes a file name includes a version number encoded as '.'
followed by digits
preceding the file extension, e.g., games.22.ston
Answer the file name with the largest number.
If a version number is not found, raises an error"
"FileSystem workingDirectory lastNameFor: 'games' extension: 'ston'"
| files |
files := self childrenMatching: baseFileName , '.*.' , extension.
files ifEmpty: [ ^ self error: 'No file with number pattern' ].
^ (files asSortedCollection: [ :a :b | a basename < b basename ]) last
nextNameFor: baseFileName extension: extension
"Assumes a file name includes a version number encoded as '.'
followed by digits
preceding the file extension, e.g., games.22.ston
Increment the version number (of the largest one) and answer the
new file name, e.g., games23.ston
If a version number is not found, set the version to 1 and answer a
new file name"
"FileSystem workingDirectory nextNameFor: 'games' extension: 'ston'"
| files splits version |
files := self childrenMatching: baseFileName , '.*.' , extension.
files ifEmpty: [ ^ baseFileName , '.1.' , extension ].
splits := files
collect: [ :filename | filename basename splitOn: $. ]
thenSelect: [ :split | (split at: 1) = baseFileName and: [
split size = 3 ] ].
splits := splits asSortedCollection: [ :a :b | (a at: 2) < (b at: 2) ].
version := splits isEmpty
ifTrue: [ 1 ]
ifFalse: [ (splits last at: 2) asNumber + 1 ].
^ baseFileName , '.' , version asString , '.' , extension
I think that these to methods can be a valuable addition to
fileReference (the methods can be better implemented).
Let me know what you think.
https://pharo.fogbugz.com/f/cases/20324/Handy-file-automatic-numbering
Stef
