--- a/MCFileBasedRepository.st Mon Feb 09 14:57:08 2015 +0100
+++ b/MCFileBasedRepository.st Mon Feb 09 14:57:21 2015 +0100
@@ -1,5 +1,7 @@
"{ Package: 'stx:goodies/monticello' }"
+"{ NameSpace: Smalltalk }"
+
MCRepository subclass:#MCFileBasedRepository
instanceVariableNames:'cache allFileNames'
classVariableNames:''
@@ -156,19 +158,22 @@
!
possiblyNewerVersionsOfAnyOf: someVersions
- | pkgs |
- pkgs := Dictionary new.
+ | pkgs |
+ pkgs := Dictionary new.
- someVersions do: [:aVersionInfo |
- pkgs at: (aVersionInfo name copyUpToLast: $-)
- put: (aVersionInfo name copyAfterLast: $.) asNumber].
+ someVersions do: [:aVersionInfo |
+ pkgs at: (aVersionInfo name copyUpToLast: $-)
+ put: (aVersionInfo name copyAfterLast: $.) asNumber].
- ^[self allVersionNames select: [:each |
- (pkgs at: (each copyUpToLast: $-) ifPresent: [:verNumber |
- verNumber < (each copyAfterLast: $.) asNumber
- or: [verNumber = (each copyAfterLast: $.) asNumber
- and: [someVersions noneSatisfy: [:v | v name = each]]]]) == true]
- ] on: Error do: [:ex | ex return: #()]
+ ^[
+ self allVersionNames select: [:each |
+ (pkgs at: (each copyUpToLast: $-) ifPresent: [:verNumber |
+ verNumber < (each copyAfterLast: $.) asNumber
+ or: [verNumber = (each copyAfterLast: $.) asNumber
+ and: [someVersions noneSatisfy: [:v | v name = each]]]]) == true]
+ ] on: Error do: [:ex |
+ ex return: #()
+ ]
!
readableFileNames
@@ -200,14 +205,14 @@
!MCFileBasedRepository class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.6 2014-12-11 15:56:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.7 2015-02-09 13:57:21 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.6 2014-12-11 15:56:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/goodies/monticello/MCFileBasedRepository.st,v 1.7 2015-02-09 13:57:21 cg Exp $'
!
version_SVN
- ^ '$Id: MCFileBasedRepository.st,v 1.6 2014-12-11 15:56:40 cg Exp $'
+ ^ '$Id: MCFileBasedRepository.st,v 1.7 2015-02-09 13:57:21 cg Exp $'
! !