ConfigurableFeatures.st
branchjv
changeset 17909 0ab1deab8e9c
parent 17907 998195c96a6d
child 17910 8d796ca8bd1d
--- 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 $'
 ! !
 
 
+