[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