[Pkg] The Trunk: Installer-Core-fbs.365.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Feb 12 09:39:05 UTC 2013

Frank Shearar uploaded a new version of Installer-Core to project The Trunk:

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

Name: Installer-Core-fbs.365
Author: fbs
Time: 12 February 2013, 9:38:39.338 am
UUID: 68a5194b-3275-4c91-b01e-978c87dc20ec
Ancestors: Installer-Core-fbs.364


Use FileDirectory's abstractions rather than relying on a platform specific path separator.

=============== Diff against Installer-Core-fbs.364 ===============

Item was changed:
  ----- Method: InstallerMonticello>>project: (in category 'accessing') -----
  project: name
  	| locs dirs all |
  	project := name.
  	packages := nil.
  	"mc repositories is a collection of repositories created on the fly. Store a reference to it so we have a stable working set."
  	all := mc repositories.
  	"Some repositories point to more specific parts within their structures when given a project name. An HTTP repository adds the project name to its path, for instance. A cache repository, despite being directory based, does not."
  	locs := all select: [:repo | repo respondsTo: #location:].
  	dirs := all select: [:repo | (repo respondsTo: #directory:) and: [(repo respondsTo: #cacheForPackage:) not]].
  	locs do: [:repo |
  		mc removeRepository: repo.
  		mc addRepository: (repo copy location: root , name)].
  	dirs do: [:repo |
  		mc removeRepository: repo.
+ 		mc addRepository: (repo copy directory: root , FileDirectory slash , name)].
- 		mc addRepository: (repo copy directory: root ,'/', name)].
  	^self copy.!

More information about the Packages mailing list