--- a/AbstractSourceCodeManager.st Fri Oct 09 19:08:15 2009 +0200
+++ b/AbstractSourceCodeManager.st Fri Oct 09 19:08:36 2009 +0200
@@ -144,6 +144,10 @@
"Created: / 09-11-2006 / 15:25:17 / cg"
!
+repositoryInfoPerModule:info
+ "/ ignore here
+!
+
repositoryName
"return the name of the repository.
Since this is an abstract class, return nil (i.e. none)"
@@ -1209,6 +1213,12 @@
!AbstractSourceCodeManager class methodsFor:'queries'!
+isExperimental
+ ^ false
+
+ "Created: / 16-08-2006 / 11:22:47 / cg"
+!
+
isResponsibleForModule:module
^ self repositoryInfoPerModule keys includes:module
@@ -1223,8 +1233,42 @@
or:[selector startsWith: 'version_']
!
+nameOfVersionMethodForExtensions
+ ^ #'extensionsVersion'
+!
+
nameOfVersionMethodInClasses
^ #'version'
+!
+
+versionMethodTemplateForRuby
+ ^ self versionMethodTemplateForRubyFor:(self nameOfVersionMethodInClasses)
+
+ "
+ CVSSourceCodeManager versionMethodTemplateForRuby
+ "
+!
+
+versionMethodTemplateForRubyFor:aSelector
+ ^
+'def self.',aSelector,'()
+ return "$' , 'Header' , '$"
+end'
+!
+
+versionMethodTemplateForSmalltalk
+ ^ self versionMethodTemplateForSmalltalkFor:(self nameOfVersionMethodInClasses)
+
+ "
+ CVSSourceCodeManager versionMethodTemplateForSmalltalk
+ "
+!
+
+versionMethodTemplateForSmalltalkFor:aSelector
+ ^
+aSelector,'
+ ^ ''$', 'Header' , '$''
+'
! !
!AbstractSourceCodeManager class methodsFor:'source code access'!
@@ -1621,7 +1665,7 @@
self ensureDollarsInVersionMethod:'foo ^ ''hello'' '
self ensureDollarsInVersionMethod:'foo ^ ''§hello§'' '
self ensureDollarsInVersionMethod:'foo ^ '' hello '' '
- self ensureDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.221 2009-10-09 13:28:09 fm Exp $'' '
+ self ensureDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.222 2009-10-09 17:08:36 cg Exp $'' '
-- errors:
self ensureDollarsInVersionMethod:'foo ^ ''$Head'' '
self ensureDollarsInVersionMethod:'foo ^ ''Header$'' '
@@ -1666,7 +1710,7 @@
self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ ''hello'' '
self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ '' hello '' '
- self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.221 2009-10-09 13:28:09 fm Exp $'' '
+ self ensureKeywordExpansionWith: $$ inVersionMethod: 'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.222 2009-10-09 17:08:36 cg Exp $'' '
-- errors:
self ensureKeywordExpansionWith: $§ inVersionMethod: 'foo ^ ''§Head'' '
@@ -1684,7 +1728,7 @@
^ self ensureKeywordExpansionWith: $§ inVersionMethod:versionString.
"
- self ensureNoDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.221 2009-10-09 13:28:09 fm Exp $'' '
+ self ensureNoDollarsInVersionMethod:'foo ^ ''$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.222 2009-10-09 17:08:36 cg Exp $'' '
self ensureNoDollarsInVersionMethod:'foo ^ ''$Head'' '
self ensureNoDollarsInVersionMethod:'foo ^ ''Header$'' '
self ensureNoDollarsInVersionMethod:'foo ^ ''§Header§'' '
@@ -2634,10 +2678,10 @@
"Created: / 16-08-2006 / 10:58:27 / cg"
!
-isExperimental
+isSVN
^ false
- "Created: / 16-08-2006 / 11:22:47 / cg"
+ "Created: / 16-08-2006 / 10:58:27 / cg"
!
isSmallTeam
@@ -2655,11 +2699,11 @@
!AbstractSourceCodeManager class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.221 2009-10-09 13:28:09 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.222 2009-10-09 17:08:36 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.221 2009-10-09 13:28:09 fm Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/AbstractSourceCodeManager.st,v 1.222 2009-10-09 17:08:36 cg Exp $'
! !
AbstractSourceCodeManager initialize!