--- a/ConfigurableFeatures.st Tue Jan 03 15:36:22 2012 +0100
+++ b/ConfigurableFeatures.st Tue Jan 03 15:44:49 2012 +0100
@@ -73,12 +73,34 @@
!ConfigurableFeatures class methodsFor:'queries-features'!
-hasDataBaseSourceCodeManagerSupport
- |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: #'DataBaseSourceCodeManager') 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
"
@@ -90,7 +112,7 @@
|repository|
"/ use Smalltalk-at to trick the dependency/prerequisite generator
- repository := Smalltalk at: #'DataBaseSourceCodeManager'.
+ repository := Smalltalk at: #'DataBaseSourceCodeManager' ifAbsent:nil.
^ repository notNil
and:[ repository isLoaded
@@ -100,11 +122,9 @@
!
hasFileBasedSourceCodeManagerSupport
- |mgr|
+ "/ use Smalltalk-at to trick the dependency/prerequisite generator
+ ^ (Smalltalk at: #'FileBasedSourceCodeManager' ifAbsent:nil) notNil
- "/ use Smalltalk-at to trick the dependency/prerequisite generator
- ^ (mgr := Smalltalk at: #'FileBasedSourceCodeManager') notNil
- and:[ mgr enabled ]
"
ConfigurableFeatures hasFileBasedSourceCodeManagerSupport
"
@@ -116,8 +136,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 ]]
@@ -125,13 +144,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
@@ -144,7 +207,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
@@ -156,9 +219,9 @@
!ConfigurableFeatures class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.3 2012-01-03 14:36:22 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.3 2012-01-03 14:36:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.4 2012-01-03 14:44:49 cg Exp $'
! !