ConfigurableFeatures.st
changeset 13888 ee32d4db57f5
parent 13887 4e82ea1082c8
child 13944 fe1e60a11816
--- 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 $'
 ! !