--- a/ConfigurableFeatures.st Fri Dec 23 13:41:34 2011 +0000
+++ b/ConfigurableFeatures.st Fri Jan 06 08:53:28 2012 +0000
@@ -98,12 +98,58 @@
!ConfigurableFeatures class methodsFor:'queries-features'!
-hasFileBasedSourceCodeManagerSupport
- |mgr|
+hasCVSSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'CVSSourceCodeManager' ifAbsent:nil) notNil
+
+ "
+ ConfigurableFeatures hasCVSSupport
+ "
+
+ "Created: / 03-01-2012 / 15:36:54 / cg"
+!
+
+hasCVSSupportEnabled
+ |cvs|
"/ use Smalltalk-at to trick the dependency/prerequisite generator
- ^ (mgr := Smalltalk at: #'FileBasedSourceCodeManager') notNil
- and:[ mgr enabled ]
+ cvs := Smalltalk at: #'CVSSourceCodeManager' ifAbsent:nil.
+
+ ^ cvs notNil
+ and:[ cvs isLoaded
+ and:[ cvs enabled ]]
+
+ "Created: / 03-01-2012 / 15:42:16 / cg"
+!
+
+hasDataBaseSourceCodeManagerSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'DataBaseSourceCodeManager' ifAbsent:nil) notNil
+
+ "
+ ConfigurableFeatures hasDataBaseSourceCodeManagerSupport
+ "
+
+ "Created: / 03-01-2012 / 15:36:03 / cg"
+!
+
+hasDataBaseSourceCodeManagerSupportEnabled
+ |repository|
+
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ repository := Smalltalk at: #'DataBaseSourceCodeManager' ifAbsent:nil.
+
+ ^ repository notNil
+ and:[ repository isLoaded
+ and:[ repository enabled ]]
+
+ "Created: / 03-01-2012 / 15:36:12 / cg"
+!
+
+hasFileBasedSourceCodeManagerSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'FileBasedSourceCodeManager' ifAbsent:nil) notNil
+
"
ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
"
@@ -115,8 +161,7 @@
|repository|
"/ use Smalltalk-at to trick the dependency/prerequisite generator
- repository := Smalltalk at: #'FileBasedSourceCodeManager'.
-
+ repository := Smalltalk at: #'FileBasedSourceCodeManager' ifAbsent:nil.
^ repository notNil
and:[ repository isLoaded
and:[ repository enabled ]]
@@ -124,13 +169,57 @@
"Created: / 21-12-2011 / 17:07:08 / cg"
!
-hasSubversionSupport
- |subVersionRepository|
+hasMonticelloSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'MonticelloSourceCodeManager' ifAbsent:nil) notNil
+
+ "
+ ConfigurableFeatures hasMonticelloSupport
+ "
+
+ "Created: / 03-01-2012 / 15:44:32 / cg"
+!
+
+hasMonticelloSupportEnabled
+ |cvs|
"/ use Smalltalk-at to trick the dependency/prerequisite generator
- subVersionRepository := Smalltalk at: #'SVN::RepositoryManager'.
+ cvs := Smalltalk at: #'MonticelloSourceCodeManager' ifAbsent:nil.
+
+ ^ cvs notNil
+ and:[ cvs isLoaded
+ and:[ cvs enabled ]]
+
+ "Created: / 03-01-2012 / 15:44:39 / cg"
+!
+
+hasPerforceSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'PerforceSourceCodeManager' ifAbsent:nil) notNil
+
+ "
+ ConfigurableFeatures hasPerforceSupport
+ "
- ^ subVersionRepository notNil
+ "Created: / 03-01-2012 / 15:43:42 / cg"
+!
+
+hasPerforceSupportEnabled
+ |cvs|
+
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ cvs := Smalltalk at: #'PerforceSourceCodeManager' ifAbsent:nil.
+
+ ^ cvs notNil
+ and:[ cvs isLoaded
+ and:[ cvs enabled ]]
+
+ "Created: / 03-01-2012 / 15:43:28 / cg"
+!
+
+hasSubversionSupport
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'SVN::RepositoryManager' ifAbsent:nil) notNil
"
ConfigurableFeatures hasSubversionSupport
@@ -143,7 +232,7 @@
|subVersionRepository|
"/ use Smalltalk-at to trick the dependency/prerequisite generator
- subVersionRepository := Smalltalk at: #'SVN::RepositoryManager'.
+ subVersionRepository := Smalltalk at: #'SVN::RepositoryManager' ifAbsent:nil.
^ subVersionRepository notNil
and:[ subVersionRepository isLoaded
@@ -155,15 +244,16 @@
!ConfigurableFeatures class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011/12/21 18:19:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.4 2012/01/03 14:44:49 cg Exp $'
!
version_CVS
- ^ 'Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.2 2011/12/21 18:19:57 cg Exp '
+ ^ 'Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.4 2012/01/03 14:44:49 cg Exp '
!
version_SVN
- ^ '$Id: ConfigurableFeatures.st 10751 2011-12-21 22:04:49Z vranyj1 $'
+ ^ '$Id: ConfigurableFeatures.st 10754 2012-01-06 08:53:28Z vranyj1 $'
! !
+