#UI_ENHANCEMENT by cg
class: AbstractSourceCodeManager class
added: #revisionForSymbolicName:class:fileName:directory:module:
changed: #knownTagsAndRevisionsForContainer:directory:module:
--- a/AbstractSourceCodeManager.st Wed Dec 06 12:32:01 2017 +0100
+++ b/AbstractSourceCodeManager.st Wed Dec 06 12:32:44 2017 +0100
@@ -2861,7 +2861,7 @@
|log|
- log := self revisionLogOf:nil numberOfRevisions:2 fileName:fileName directory:packageDir module:moduleDir.
+ log := self revisionLogOf:nil numberOfRevisions:1 fileName:fileName directory:packageDir module:moduleDir.
log isNil ifTrue:[
SourceCodeManagerError
raiseRequestWith:fileName
@@ -2875,7 +2875,7 @@
"
"Created: / 05-12-2017 / 01:16:09 / cg"
- "Modified: / 05-12-2017 / 19:22:10 / cg"
+ "Modified: / 06-12-2017 / 11:47:02 / cg"
!
knownTagsFor:aClass
@@ -3036,6 +3036,41 @@
"Modified (comment): / 23-12-2011 / 19:03:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
+revisionForSymbolicName:tag class:cls fileName:classFileName directory:packageDir module:moduleDir
+ "given a tag, return the corresponding revision"
+
+ |partialLog symbolicNames|
+
+ partialLog := self
+ revisionLogOf:cls
+ numberOfRevisions:1
+ fileName:classFileName
+ directory:packageDir
+ module:moduleDir.
+
+ partialLog notNil ifTrue:[
+ symbolicNames := partialLog at:#symbolicNames ifAbsent:[].
+ symbolicNames notNil ifTrue:[
+ ^ symbolicNames at:tag ifAbsent:nil
+ ].
+ ].
+ ^ nil.
+
+ "
+ CVSSourceCodeManager
+ revisionForSymbolicName:'stable'
+ class:Array fileName:'Array.st'
+ directory:'libbasic' module:'stx'
+
+ CVSSourceCodeManager
+ revisionForSymbolicName:'stable'
+ class:Array fileName:nil
+ directory:'libbasic' module:'stx'
+ "
+
+ "Created: / 06-12-2017 / 11:44:39 / cg"
+!
+
revisionForTag:tagName inClass:aClass
"retrieve the revision number associated to a particular tag/symbolic version.
Nil if unknown"