ConfigurableFeatures.st
changeset 14104 2c06d704086a
parent 14059 9afc79d37c0c
child 14242 45d070e53b95
--- a/ConfigurableFeatures.st	Sun Apr 15 18:58:21 2012 +0200
+++ b/ConfigurableFeatures.st	Mon Apr 16 20:03:49 2012 +0200
@@ -109,6 +109,23 @@
     "Created: / 03-01-2012 / 15:36:12 / cg"
 !
 
+hasExternalLookupSupport
+    "Return true, if the VM is compiled with external lookup MOP"
+%{
+#ifdef SUPPORT_EXTERNAL_LOOKUP
+    RETURN ( true );
+#endif
+%}.
+    ^false
+
+    "
+        ConfigurableFeatures hasExternalLookupSupport
+        ConfigurableFeatures includesFeature:#ExternalLookupSupport
+    "
+
+    "Created: / 16-04-2012 / 20:00:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 hasFileBasedSourceCodeManagerSupport
     "/ use Smalltalk-at to trick the dependency/prerequisite generator
     ^ (Smalltalk at: #'FileBasedSourceCodeManager' ifAbsent:nil) notNil
@@ -215,9 +232,9 @@
 !ConfigurableFeatures class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.7 2012-03-13 17:24:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.8 2012-04-16 18:03:49 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.7 2012-03-13 17:24:12 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/ConfigurableFeatures.st,v 1.8 2012-04-16 18:03:49 vrany Exp $'
 ! !