[squeak-dev] The Inbox: SMBase-fbs.133.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Sep 11 20:09:10 UTC 2014
Frank Shearar uploaded a new version of SMBase to project The Inbox:
http://source.squeak.org/inbox/SMBase-fbs.133.mcz
==================== Summary ====================
Name: SMBase-fbs.133
Author: fbs
Time: 11 September 2014, 9:09:02.509 pm
UUID: 7946d888-3215-2c4f-acdf-f2e7deedfbc0
Ancestors: SMBase-nice.132
Following on from Chris Muller's suggestion, improve all three FileDirectory-using methods.
=============== Diff against SMBase-nice.132 ===============
Item was changed:
----- Method: SMFileCache>>directoryForPackage: (in category 'accessing') -----
directoryForPackage: aPackage
"Returns the local path for storing the package cache's package file area.
This also ensures that the path exists."
+ ^ (self directory / 'packages' / aPackage id asString36) assureExistence.!
- | slash path dir |
- slash := FileDirectory slash.
- path := 'packages' , slash , aPackage id asString36 , slash.
- dir := FileDirectory default on: self directory fullName, slash, path.
- dir assureExistence.
- ^dir!
Item was changed:
----- Method: SMFileCache>>directoryForPackageRelease: (in category 'accessing') -----
directoryForPackageRelease: aPackageRelease
"Returns the local path for storing the package cache's version of a
package file. This also ensures that the path exists."
+ ^ (self directory / 'packages' / aPackageRelease package id asString36 / aPackageRelease automaticVersionString) assureExistence!
- | slash path dir |
- slash := FileDirectory slash.
- path := 'packages' , slash , aPackageRelease package id asString36 , slash , aPackageRelease automaticVersionString.
- dir := FileDirectory default on: self directory fullName, slash, path.
- dir assureExistence.
- ^dir!
Item was changed:
----- Method: SMFileCache>>directoryForResource: (in category 'accessing') -----
directoryForResource: aResource
"Returns the local path for storing the package cache's version of a
resource file. This also ensures that the path exists."
+ ^ (self directory / 'resources' / aResource id asString36) assureExistence.!
- | slash path dir |
- slash := FileDirectory slash.
- path := 'resources' , slash , aResource id asString36.
- dir := FileDirectory default on: self directory fullName, slash, path.
- dir assureExistence.
- ^dir!
More information about the Squeak-dev
mailing list
|